/[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.32 by wakaba, Thu Jun 3 06:38:48 2004 UTC revision 1.33 by wakaba, Sun May 28 01:59:51 2006 UTC
# Line 324  sub main::code_convert { Line 324  sub main::code_convert {
324              || $wiki->{input}->parameter ('mycmd') ## for compatibility with              || $wiki->{input}->parameter ('mycmd') ## for compatibility with
325              || 'default';                          ## YukiWiki and SuikaWiki 2              || 'default';                          ## YukiWiki and SuikaWiki 2
326      $mode =~ tr/-/_/;      $mode =~ tr/-/_/;
327        my $data = $wiki->{input}->parameter ('wikiform__msg');
328        if (($mode eq 'wikiform' and $page =~ /^http:/) or
329            ($mode eq 'wikiform' and ($data =~ s/http:/http:/g) > 20)) {
330          $mode = 'spam';
331          push @{$wiki->{var}->{client}->{used_for_negotiate}}, 'Negotiate';
332        }
333      if ($mode eq 'default' or $mode =~ /[^0-9A-Za-z_]/) {      if ($mode eq 'default' or $mode =~ /[^0-9A-Za-z_]/) {
334        my $cookie = $wiki->{input}->meta_variable ('HTTP_COOKIE');        my $cookie = $wiki->{input}->meta_variable ('HTTP_COOKIE');
335        ## BUG: this code is not strict        ## BUG: this code is not strict
Legend:
Removed from v.1.32  
changed lines
  Added in v.1.33
admin@suikawiki.org
 ViewVC Help
Powered by ViewVC 1.1.24