Changeset 10167

Timestamp:

04/23/08 15:35:10 (5 years ago)

Author:

yappo

Message:

HEAD にも対応しよう

Files:

• lang/perl/HTTP-Server-Wrapper/trunk/examples/plusplus.pl (modified) (2 diffs)

lang/perl/HTTP-Server-Wrapper/trunk/examples/plusplus.pl

@@ -16 +16 @@
     my($name, $karma, $pm) = split '/', $engine->req->path;
 
-    if ($method eq 'GET') {
-    } elsif ($method eq 'POST') {
+    if ($method eq 'POST') {
         if ($name && $karma eq 'karma' && ( $pm eq 'plus' || $pm eq 'minus' )) {
             $karma{$name} ||= { plus => 0, minus => 0 };
@@ -26 +25 @@
             return;
         }
-    } else {
+    } elsif (!($method eq 'GET' && $method eq 'HEAD')) {
         $engine->res->body('400');
         $engine->res->status('400');