misc/plugins/UserAgent.wps

Name:
        UserAgent
FullName:
        User-agent specified behaviors and user-agent name logging
URI:
        IW:SuikaWiki:"Wiki//UserAgentList"

MODULE:
        our $LoggingName;
        sub add ($) {
          my $s = shift;
          return unless length $s;
          $s =~ s/([^\x20-\x24\x26-\x7E])/sprintf '%%%02X', unpack 'C', $1/ge;
          my %ua;
          for (split /\n/, SuikaWiki::Plugin->get_data (content => [qw/Wiki Log UserAgent/])) {
            if (/^-{(\d+)} (.+)$/) {
              my ($t, $n) = ($1, $2);
              $n =~ tr/\x0A\x0D//d;
              $ua{$n} = $t;
            }
          }
          $ua{$s}++;
          my $s = qq(#?SuikaWiki/0.9\n);
          for (sort {$ua{$a} <=> $ua{$b}} keys %ua) {
            $s .= sprintf qq(-{%d} %s\n), $ua{$_}, $_;
          }
        ## TODO: 
          SuikaWiki::Plugin->set_data (content => [qw/Wiki Log UserAgent/] => $s, -touch => 0);
        }
        
        if ($LoggingName) {
          push @{$SuikaWiki::Plugin::On{WikiDatabaseLoaded}}, sub {
            add ($main::ENV{HTTP_USER_AGENT})
              if ($main::form{mycmd} eq 'read' || $main::form{mycmd} eq 'default');
          };
        };

POD:TO DO:
        - better storing format
        
        - Logging method should be more customizable (what mode? what's except?...)
POD:LICENSE:
        Copyright 2003 Wakaba <w@suika.fam.cx>
        
        %%GNUGPL2%%
1	wakaba	1.1	Name:
2			UserAgent
3			FullName:
4			User-agent specified behaviors and user-agent name logging
5			URI:
6			IW:SuikaWiki:"Wiki//UserAgentList"
7
8			MODULE:
9			our $LoggingName;
10			sub add ($) {
11			my $s = shift;
12			return unless length $s;
13			$s =~ s/([^\x20-\x24\x26-\x7E])/sprintf '%%%02X', unpack 'C', $1/ge;
14			my %ua;
15	wakaba	1.2	for (split /\n/, SuikaWiki::Plugin->get_data (content => [qw/Wiki Log UserAgent/])) {
16			if (/^-{(\d+)} (.+)$/) {
17	wakaba	1.1	my ($t, $n) = ($1, $2);
18			$n =~ tr/\x0A\x0D//d;
19			$ua{$n} = $t;
20			}
21			}
22			$ua{$s}++;
23			my $s = qq(#?SuikaWiki/0.9\n);
24			for (sort {$ua{$a} <=> $ua{$b}} keys %ua) {
25	wakaba	1.2	$s .= sprintf qq(-{%d} %s\n), $ua{$_}, $_;
26	wakaba	1.1	}
27	wakaba	1.2	## TODO:
28			SuikaWiki::Plugin->set_data (content => [qw/Wiki Log UserAgent/] => $s, -touch => 0);
29	wakaba	1.1	}
30
31			if ($LoggingName) {
32			push @{$SuikaWiki::Plugin::On{WikiDatabaseLoaded}}, sub {
33			add ($main::ENV{HTTP_USER_AGENT})
34			if ($main::form{mycmd} eq 'read' \|\| $main::form{mycmd} eq 'default');
35			};
36			};
37
38			POD:TO DO:
39			- better storing format
40
41			- Logging method should be more customizable (what mode? what's except?...)
42			POD:LICENSE:
43			Copyright 2003 Wakaba <w@suika.fam.cx>
44
45			%%GNUGPL2%%