/[pub]/suikawiki/script/lib/suikawiki.pl
Suika

Diff of /suikawiki/script/lib/suikawiki.pl

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.12 by wakaba, Tue Sep 16 05:16:31 2003 UTC revision 1.13 by wakaba, Sun Oct 5 09:28:23 2003 UTC
# Line 367  sub init_form { Line 367  sub init_form {
367      ## TODO: Support multipart/form-data      ## TODO: Support multipart/form-data
368      my $query = '';      my $query = '';
369      if (uc $main::ENV{REQUEST_METHOD} eq 'POST') {      if (uc $main::ENV{REQUEST_METHOD} eq 'POST') {
370        if (lc ($main::ENV{CONTENT_TYPE}) eq 'application/x-www-form-urlencoded'        if ($main::ENV{CONTENT_TYPE}=~ m!^application/(?:x-www|sgml)-form-urlencoded(?:$|\s*;)!) {
        || lc ($main::ENV{CONTENT_TYPE}) eq 'application/sgml-form-urlencoded') {  
371          read STDIN, $query, $main::ENV{CONTENT_LENGTH};          read STDIN, $query, $main::ENV{CONTENT_LENGTH};
372        } else {        } else {
373          $main::form{mycmd} = '___unsupported_media_type___';          $main::form{mycmd} = '___unsupported_media_type___';
Legend:
Removed from v.1.12  
changed lines
  Added in v.1.13
admin@suikawiki.org
 ViewVC Help
Powered by ViewVC 1.1.24