SpeedyCGI tips

SpeedyCGI is very easy and powerful speedup the response and execute perl scripts.
also some scripts changed only first line.

#!/usr/bin/perl

      ↓

#!/usr/bin/speedy

only that.
but there are some important things to use it.
because SpeedyCGI running deamon untill the timeout. (default timeout is set to 3600sec = 1hour).
so sometimes SpeedyCGI needs initialize variables.
it means, GET, POST method post the input values to CGI. Like a messages and user name, Id and Pass...
There values set by manually, then there are problem to use SpeedyCGI.

#!/usr/bin/speedy -- -t300 -M2
use strict;
use vars qw($GLOBAL $FUNCGLOBAL %FORM);
print "Content-type: text/plain\r\n\r\n";
my $test=scalar localtime time;
{
 my $local;
  $local++;
  $GLOBAL++;
  &func($FUNCGLOBAL);
  {
   my ($name, $value, $buffer);
    if ($ENV{'REQUEST_METHOD'} eq "POST"){
        read(STDIN, $buffer, $ENV{'CONTENT_LENGTH'});
    }else{
        $buffer = $ENV{'QUERY_STRING'};
    }
    foreach (split /&/,$buffer) {
       ($name, $value) = split /=/;
       $value =~ tr/+/ /;
       $value =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack('H2',$1)/eg;
       $value =~ s//>/g;
       $value =~ s/"/"/g;
       $value =~ tr/ / /s;
       $FORM{$name} = $value;
    }
  }
print <<"_EOF_";
Result: $$
Global:\t$GLOBAL
Local:\t$local
FUNC:\t$FUNCGLOBAL
TEST:\t$test
FORM:
_EOF_
}
foreach(sort keys %FORM){ print "$_ = $FORM{$_}\n" }
sub func(){ $_[0]++; }

running on that cgi on httpd, send query to that cgi. Like http://example.com/test.cgi?hoge=hoge Then the CGI output Like this:

Result: 20575
Global: 1
Local: 1
FUNC: 1
TEST: Fri Jul 23 03:04:13 2010
FORM:
hoge = hoge

Then request that cgi without query strings. Like http://example.com/test.cgi?

Result: 20575
Global: 2
Local: 1
FUNC: 2
TEST: Fri Jul 23 03:08:39 2010
FORM:
hoge = hoge

did you find out which line is strange?

Yes, "hoge = hoge" is strange!
I didn't send any queries :-(
But the output is there.
So when you change to the SpeedCGI from perl, be careful to use GLOBAL variables :)
use CGI, huh? I don't know perl modules :-p

No, just joke, I checked there is no problem with CGI.pm.