/[pub]/suikawiki/script/misc/plugins/UserAgent.wps
Suika

Diff of /suikawiki/script/misc/plugins/UserAgent.wps

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

revision 1.1 by wakaba, Sat May 10 05:14:31 2003 UTC revision 1.2 by wakaba, Sun Oct 5 11:24:52 2003 UTC
# Line 12  MODULE: Line 12  MODULE:
12            return unless length $s;            return unless length $s;
13            $s =~ s/([^\x20-\x24\x26-\x7E])/sprintf '%%%02X', unpack 'C', $1/ge;            $s =~ s/([^\x20-\x24\x26-\x7E])/sprintf '%%%02X', unpack 'C', $1/ge;
14            my %ua;            my %ua;
15            for (split /\n/, $main::database{$main::PageName{UserAgentList}}) {            for (split /\n/, SuikaWiki::Plugin->get_data (content => [qw/Wiki Log UserAgent/])) {
16              if (/^-\[(\d+)\] (.+)$/) {              if (/^-{(\d+)} (.+)$/) {
17                my ($t, $n) = ($1, $2);                my ($t, $n) = ($1, $2);
18                $n =~ tr/\x0A\x0D//d;                $n =~ tr/\x0A\x0D//d;
19                $ua{$n} = $t;                $ua{$n} = $t;
# Line 22  MODULE: Line 22  MODULE:
22            $ua{$s}++;            $ua{$s}++;
23            my $s = qq(#?SuikaWiki/0.9\n);            my $s = qq(#?SuikaWiki/0.9\n);
24            for (sort {$ua{$a} <=> $ua{$b}} keys %ua) {            for (sort {$ua{$a} <=> $ua{$b}} keys %ua) {
25              $s .= sprintf qq(-[%d] %s\n), $ua{$_}, $_;              $s .= sprintf qq(-{%d} %s\n), $ua{$_}, $_;
26            }            }
27            SuikaWiki::Plugin->_database->STORE ($main::PageName{UserAgentList} => $s, -touch => 0);          ## TODO:
28              SuikaWiki::Plugin->set_data (content => [qw/Wiki Log UserAgent/] => $s, -touch => 0);
29          }          }
30                    
31          if ($LoggingName) {          if ($LoggingName) {
Legend:
Removed from v.1.1  
changed lines
  Added in v.1.2
admin@suikawiki.org
 ViewVC Help
Powered by ViewVC 1.1.24