Parent Directory
| 
Revision Log
New
| 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 |