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';
 
+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;