[svn:parrot] r9220 - branches/leo-ctx5/util

[coke]

Author: coke
Date: Mon Sep 19 18:37:34 2005
New Revision: 9220

Modified:
   branches/leo-ctx5/util/smokeserv-server.pl
Log:
fix to the smokeserv- server.... hard to tell, since this isn't required to run 
the client,
and nothingmuch's server environment isn't quite what Robrt will need.




Modified: branches/leo-ctx5/util/smokeserv-server.pl
==============================================================================
--- branches/leo-ctx5/util/smokeserv-server.pl  (original)
+++ branches/leo-ctx5/util/smokeserv-server.pl  Mon Sep 19 18:37:34 2005
@@ -35,8 +35,8 @@ $SIG{PIPE} = "IGNORE";
 
 my $t = do { local $/; <DATA> };
 
-sub handle_request {
-       my ($self, $CGI) = @_;
+#sub handle_request {
+       #my ($self, $CGI) = @_;
 
        #HSS if ($CGI->url(-path => 1) =~ /html$/) {
                #HSS $self->serve_static($CGI, BASEDIR);