Parent Directory
| 
Revision Log
| 
Patch
| revision 1.38 by wakaba, Sun Dec 15 06:08:33 2002 UTC | revision 1.39 by wakaba, Wed Dec 18 13:08:39 2002 UTC | |
|---|---|---|
| # | Line 1854 package wiki::useragent; | Line 1854 package wiki::useragent; |
| 1854 | sub add ($) { | sub add ($) { |
| 1855 | my $s = shift; | my $s = shift; |
| 1856 | return unless length $s; | return unless length $s; |
| 1857 | $s =~ s/([\x00-\x08\x0A-\x1F\x25\x7F-\xFF])/sprintf '%%%02X', unpack 'C', $1/g; | $s =~ s/([\x00-\x08\x0A-\x1F\x25\x7F-\xFF])/sprintf '%%%02X', unpack 'C', $1/ge; |
| 1858 | my %ua; | my %ua; |
| 1859 | for (split /\n/, &main::__get_database('WikiUserAgentList')) { | for (split /\n/, &main::__get_database('WikiUserAgentList')) { |
| 1860 | if (/^-\[(\d+)\] (.+)$/) { | if (/^-\[(\d+)\] (.+)$/) { |
|
||||||||
| admin@suikawiki.org | ViewVC Help |
| Powered by ViewVC 1.1.24 |