perl/lib/counter.pl

#!/usr/bin/perl

exit unless $main::ARGV[0];
exit if $main::ARGV[0] =~ /[^0-9A-Za-z_-]/;

$Suika::CGI::_noheader = 1;
require Suika::CGI;

print Suika::CGI::Log::visit($main::ARGV[0]);

1;
1	wakaba	1.1	#!/usr/bin/perl
2
3			exit unless $main::ARGV[0];
4			exit if $main::ARGV[0] =~ /[^0-9A-Za-z_-]/;
5
6			$Suika::CGI::_noheader = 1;
7			require Suika::CGI;
8
9			print Suika::CGI::Log::visit($main::ARGV[0]);
10
11			1;