-sub SendHeaders(){
- $INTERNAL{sentheaders} = 1;
- print STDOUT "Content-Type: text/plain\n\n" if $DEBUG & 2;
- print STDOUT map("$_: $header{$_}\n", keys %header), "\n";
-};
-
-sub rawprint(@){
- print STDOUT (@_);
-}
-
-
-$ENV{PLP_VERSION} = '2.40';
-$DEBUG = 1;
-
-# We put most everything in %INTERNAL, just so the user won't screw it.
-# We could also have used packages, but let's keep it simple.
-
-$INTERNAL{file} = $ENV{PATH_TRANSLATED};
-unless (-e $INTERNAL{file}){
- $ENV{REDIRECT_STATUS} = '404';
- print STDERR "PLP: Not found: $INTERNAL{file}\n";
-
- #Change this if you have an error handling script.
- print `/vhost/COMMON/err.cgi` || "Status: 404 Not found\n\nFile not found";
-
- exit;
-}
-
-require plp;
-
-($INTERNAL{dir} = $INTERNAL{file}) =~ s{^(.*)/(.*?)$}[$1];
-$ENV{FILE_NAME} = $2;
-chdir $INTERNAL{dir};
-
-($ENV{PLP_NAME} = $ENV{REQUEST_URI}) =~ s/\?.*$//;
-
-
-$INTERNAL{qq} = "\10"; #^P
-$INTERNAL{q} = "\17"; #^Q