/[suikacvs]/webroot/admin/web/bin/log-view.cgi
Suika

Diff of /webroot/admin/web/bin/log-view.cgi

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

revision 1.2 by wakaba, Sun Feb 17 09:20:36 2002 UTC revision 1.3 by wakaba, Sun Feb 17 09:22:18 2002 UTC
# Line 46  EOH Line 46  EOH
46      if ($item eq 'Referer') {      if ($item eq 'Referer') {
47        if ($sitem =~ m#http://(?:suika\.fam\.cx|suika\.susumu|suika\.ssm|61\.201\.226\.127|192\.168\.0\.4)/search/(?:namazu)\?.*?query=([\x21-\x7e]+?)(?:[&;]|$)#) {        if ($sitem =~ m#http://(?:suika\.fam\.cx|suika\.susumu|suika\.ssm|61\.201\.226\.127|192\.168\.0\.4)/search/(?:namazu)\?.*?query=([\x21-\x7e]+?)(?:[&;]|$)#) {
48          my $query = $1; $query =~ tr/+/ /;          my $query = $1; $query =~ tr/+/ /;
49          $query =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack(C, hex($1))/eg;          $query =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack('C', hex($1))/eg;
50          jcode::convert(\$query, 'euc');  $query = _html($query);          jcode::convert(\$query, 'euc');  $query = _html($query);
51          jcode::convert(\$query, 'jis');          jcode::convert(\$query, 'jis');
52          jcode::fw2hw(\$query, 'jis');          jcode::fw2hw(\$query, 'jis');
Legend:
Removed from v.1.2  
changed lines
  Added in v.1.3
admin@suikawiki.org
 ViewVC Help
Powered by ViewVC 1.1.24