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	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			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%%