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/, $main::database{$main::PageName{UserAgentList}}) {
            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{$_}, $_;
          }
          SuikaWiki::Plugin->_database->STORE ($main::PageName{UserAgentList} => $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/, $main::database{$main::PageName{UserAgentList}}) {
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	SuikaWiki::Plugin->_database->STORE ($main::PageName{UserAgentList} => $s, -touch => 0);
28	}
29
30	if ($LoggingName) {
31	push @{$SuikaWiki::Plugin::On{WikiDatabaseLoaded}}, sub {
32	add ($main::ENV{HTTP_USER_AGENT})
33	if ($main::form{mycmd} eq 'read' \|\| $main::form{mycmd} eq 'default');
34	};
35	};
36
37	POD:TO DO:
38	- better storing format
39
40	- Logging method should be more customizable (what mode? what's except?...)
41	POD:LICENSE:
42	Copyright 2003 Wakaba <w@suika.fam.cx>
43
44	%%GNUGPL2%%