oqapi/webgui
2
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

getting there with the mp2 handlers

Browse source
This commit is contained in:
JT Smith 2005-11-04 14:00:34 +00:00
parent 4d89f85047
commit e8a514b753
11 changed files with 166 additions and 170 deletions
Download patch file Download diff file Expand all files Collapse all files

8
www/env.pl
View file

@ -1,8 +0,0 @@
#!/usr/bin/perl
use CGI;
my $cgi = CGI->new();
print $cgi->header;
foreach (keys %ENV) {
print $_."=".$ENV{$_}."<br>\n";
}

33
www/index.fpl
View file

@ -1,33 +0,0 @@
#!/usr/bin/perl
#-------------------------------------------------------------------
# WebGUI is Copyright 2001-2004 Plain Black LLC.
#-------------------------------------------------------------------
# Please read the legal notices (docs/legal.txt) and the license
# (docs/license.txt) that came with this distribution before using
# this software.
#-------------------------------------------------------------------
# http://www.plainblack.com info@plainblack.com
#-------------------------------------------------------------------
# NOTE: This gateway script is to be used with FastCGI.
our ($webguiRoot, $configFile);
BEGIN {
$configFile = "WebGUI.conf";
$webguiRoot = "/data/WebGUI";
unshift (@INC, $webguiRoot."/lib");
}
#-----------------DO NOT MODIFY BELOW THIS LINE--------------------
use CGI::Carp qw(fatalsToBrowser);
use strict;
use WebGUI;
use CGI::Fast;
while (my $fcgi = new CGI::Fast) {
print WebGUI::page($webguiRoot,$configFile,"","",$fcgi);
}

38
www/index.pl
View file

@ -1,38 +0,0 @@
#!/usr/bin/perl
#-------------------------------------------------------------------
# WebGUI is Copyright 2001-2005 Plain Black Corporation.
#-------------------------------------------------------------------
# Please read the legal notices (docs/legal.txt) and the license
# (docs/license.txt) that came with this distribution before using
# this software.
#-------------------------------------------------------------------
# http://www.plainblack.com info@plainblack.com
#-------------------------------------------------------------------
our ($webguiRoot, $configFile);
BEGIN {
$configFile = "webgui.conf";
$webguiRoot = "/data/WebGUI";
unshift (@INC, $webguiRoot."/lib");
}
#-----------------DO NOT MODIFY BELOW THIS LINE--------------------
#use Devel::Profiler bad_pkgs => [qw(UNIVERSAL Time::HiRes B Carp Exporter Cwd Config CORE DynaLoader XSLoader AutoLoader Safe)];
#use CGI::Carp qw(fatalsToBrowser);
use strict;
use WebGUI;
print WebGUI::page($webguiRoot,$configFile);
# use Devel::DProfPP;
# my $pp = Devel::DProfPP->new;
#use Data::Dumper;
# print Devel::DProfPP->new(
# file => "tmon.out",
# enter => sub { my ($self, $sub_name) = shift;
# my $frame = ($self->stack)[-1];
# print "\t" x $frame->height, $frame->sub_name;
# }
# )->parse;
# print Dumper(\%hash);