git.shiar.nl
/
perl
/
plp
/
.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
move plp server handlers to respective modules
[perl/plp/.git]
/
PLP
/
CGI.pm
diff --git
a/PLP/CGI.pm
b/PLP/CGI.pm
index 1e4d7de63b33b433244b48a3bfc0de022c6cc9d6..2e2305993c86a33f44243182ef21e413a957354f 100644
(file)
--- a/
PLP/CGI.pm
+++ b/
PLP/CGI.pm
@@
-4,6
+4,8
@@
use strict;
our $VERSION = '1.00';
our $VERSION = '1.00';
+use PLP;
+
# CGI initializer: parses PATH_TRANSLATED
sub init {
$PLP::print = 'print';
# CGI initializer: parses PATH_TRANSLATED
sub init {
$PLP::print = 'print';
@@
-41,12
+43,12
@@
sub init {
$PLP::code = PLP::source($file, 0, undef, $path);
}
$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;
1;