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	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	for (split /\n/, SuikaWiki::Plugin->get_data (content => [qw/Wiki Log UserAgent/])) {
16	if (/^-{(\d+)} (.+)$/) {
17	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	$s .= sprintf qq(-{%d} %s\n), $ua{$_}, $_;
26	}
27	## TODO:
28	SuikaWiki::Plugin->set_data (content => [qw/Wiki Log UserAgent/] => $s, -touch => 0);
29	}
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%%