X-Git-Url: http://git.shiar.net/perl/plp/.git/blobdiff_plain/d7fd5b9d9c2a137d73f2c42751011503ec96dd37..5d1c2193a6c3c98cf426e03eb783eace183e5a0c:/PLP/CGI.pm diff --git a/PLP/CGI.pm b/PLP/CGI.pm index 1e4d7de..2e23059 100644 --- a/PLP/CGI.pm +++ b/PLP/CGI.pm @@ -4,6 +4,8 @@ use strict; our $VERSION = '1.00'; +use PLP; + # CGI initializer: parses PATH_TRANSLATED sub init { $PLP::print = 'print'; @@ -41,12 +43,12 @@ sub init { $PLP::code = PLP::source($file, 0, undef, $path); } -# This is run by the CGI script. (#!perl \n use PLP; PLP::everything;) -#sub everything { -# clean(); -# cgi_init(); -# start(); -#} +# This is run by the CGI script. (#!perl \n use PLP::CGI; PLP::CGI::everything;) +sub everything { + PLP::clean(); + init(); + PLP::start(); +} 1;