/[suikacvs]/webroot/swe/lib/suikawiki/main.pl
Suika

Diff of /webroot/swe/lib/suikawiki/main.pl

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

revision 1.50 by wakaba, Mon Sep 21 10:07:30 2009 UTC revision 1.51 by wakaba, Mon Sep 21 10:49:24 2009 UTC
# Line 992  if ($path[0] eq 'n' and @path == 2) { Line 992  if ($path[0] eq 'n' and @path == 2) {
992        $id_lock->unlock;        $id_lock->unlock;
993      }      }
994    } elsif ($param =~ /^(un)?related-([0-9]+)$/ and not defined $dollar) {    } elsif ($param =~ /^(un)?related-([0-9]+)$/ and not defined $dollar) {
995      if ($cgi->request_method eq 'POST') {      ## Allow GET to not require Basic auth.
996        #if ($cgi->request_method eq 'POST') {
997        my $id1 = $path[1] + 0;        my $id1 = $path[1] + 0;
998        my $id2 = $2 + 0;        my $id2 = $2 + 0;
999        my $answer = $1 ? -1 : 1;        my $answer = $1 ? -1 : 1;
# Line 1012  if ($path[0] eq 'n' and @path == 2) { Line 1013  if ($path[0] eq 'n' and @path == 2) {
1013        print "Content-Type: text/ping\n\n";        print "Content-Type: text/ping\n\n";
1014        print "PING";        print "PING";
1015        exit;        exit;
1016      } else {      #} else {
1017        http_error (405, 'Method not allowed', 'POST');      #  http_error (405, 'Method not allowed', 'POST');
1018      }      #}
1019    }    }
1020  } elsif ($path[0] eq 'new-page' and @path == 1) {  } elsif ($path[0] eq 'new-page' and @path == 1) {
1021    if ($cgi->request_method eq 'POST') {    if ($cgi->request_method eq 'POST') {
Legend:
Removed from v.1.50  
changed lines
  Added in v.1.51
admin@suikawiki.org
 ViewVC Help
Powered by ViewVC 1.1.24