Changeset 23466 for lang/perl/Yacafi/trunk

Timestamp:

11/13/08 01:56:33 (5 years ago)

Author:

yappo

Message:

おっと

Files:

• lang/perl/Yacafi/trunk/lib/Yacafi.pm (modified) (2 diffs)

lang/perl/Yacafi/trunk/lib/Yacafi.pm

@@ -20 +20 @@
 
     # create a pack file
-    _pack() if $ARGV[0] eq '--pack';
+    _pack() if @ARGV && $ARGV[0] eq '--pack';
 
     # functions export
@@ -101 +101 @@
 }
 
-### NO PACK
-sub _parse_query {
-    my $query = +{};
-    my $input = '';
-    if ($ENV{'REQUEST_METHOD'} eq "POST") {
-        if ($ENV{CONTENT_LENGTH} > $MAX_POST_BODY_SIZE) {
-            die "too long Content-Length";
-        } else {
-            read(STDIN, $input, $ENV{'CONTENT_LENGTH'});
-        }
-    } else {
-        $input = $ENV{QUERY_STRING} || '';
-    }
-    
-    for (split /&/, $input) {
-        my ($key, $val) = split /=/, $_;
-        $val =~ tr/+/ /;
-        $val =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("H2", $1)/eg;
-        $query->{$key} = $val;
-    }
-    $query;
-}
-### NO PACK END
-
 sub query {
     my $name = shift;
-#    $QUERY ||= _parse_query;
     unless ($QUERY) {
         my $input = '';