cvsuser 02/01/04 07:11:19
Modified: P5EEx/Blue/P5EEx/Blue Exceptions.pm
Added: P5EEx/Blue/cgi-bin p5ee p5ee.conf.sample p5ee.pl.sample
Log:
added missing cgi files
Revision Changes Path
1.5 +3 -1 p5ee/P5EEx/Blue/P5EEx/Blue/Exceptions.pm
Index: Exceptions.pm
===================================================================
RCS file: /cvs/public/p5ee/P5EEx/Blue/P5EEx/Blue/Exceptions.pm,v
retrieving revision 1.4
retrieving revision 1.5
diff -u -w -r1.4 -r1.5
--- Exceptions.pm 3 Jan 2002 19:53:36 -0000 1.4
+++ Exceptions.pm 4 Jan 2002 15:11:19 -0000 1.5
@@ -6,10 +6,12 @@
package P5EEx::Blue::Exceptions;
+use Error;
+
use strict;
use vars qw($VERSION);
-$VERSION = sprintf '%2d.%02d', q$Revision: 1.4 $ =~ /(\d+)\.(\d+)/;
+$VERSION = sprintf '%2d.%02d', q$Revision: 1.5 $ =~ /(\d+)\.(\d+)/;
my %e;
1.1 p5ee/P5EEx/Blue/cgi-bin/p5ee
Index: p5ee
===================================================================
#!/usr/local/bin/perl -wT
#############################################################################
# $Id: p5ee,v 1.1 2002/01/04 15:11:19 spadkins Exp $
#############################################################################
BEGIN {
my ($var, $value, $open, $file);
local(*FILE);
%main::conf = ();
$open = 0; # assume we cannot find an openable config file ...
$file = $ENV{PATH_INFO} . ".conf"; # default config file based on PATH_INFO
$file =~ s!^/!!; # with no leading "/"
$file =~ s!/!_!g; # and internal "/"s changed to "_"s
$open = open(main::FILE, "< $file") if (-r $file);
$open = open(main::FILE, "< $0.conf") if (!$open && -r "$0.conf");
$open = open(main::FILE, "< p5ee.conf") if (!$open && -r "p5ee.conf");
if ($open) {
while (<main::FILE>) {
chomp;
s/#.*$//; # delete comments
s/^ +//; # delete leading spaces
s/ +$//; # delete trailing spaces
next if (/^$/); # skip blank lines
# look for "var = value" (ignore other lines)
if (/^([a-zA-Z_.-]+) *= *(.*)/) { # untainting also happens
$var = $1;
$value = $2;
$main::conf{$var} = $value; # save all in %main::conf
}
}
close(main::FILE);
if (defined $main::conf{perlinc}) { # add perlinc entries
unshift(@INC, split(/ *, */,$main::conf{perlinc}));
}
}
}
use P5EEx::Blue::P5EE;
my $context = P5EEx::Blue::P5EE->context(\%main::conf);
$context->dispatch_events();
1.1 p5ee/P5EEx/Blue/cgi-bin/p5ee.conf.sample
Index: p5ee.conf.sample
===================================================================
#############################################################################
# $Id: p5ee.conf.sample,v 1.1 2002/01/04 15:11:19 spadkins Exp $
#############################################################################
perlinc = /usr/COMPANY/PROJECT/dev/src/P5EEx-Blue,
/usr/COMPANY/PROJECT/dev/lib/perl5/5.6.0
debugmode = record
showsession = 1
gzip = 1
configFile = p5ee.pl
1.1 p5ee/P5EEx/Blue/cgi-bin/p5ee.pl.sample
Index: p5ee.pl.sample
===================================================================
$data = {
#########################################################################
# $Id: p5ee.pl.sample,v 1.1 2002/01/04 15:11:19 spadkins Exp $
# NOTE: this is after the "$data = {" line for a reason
#########################################################################
};
