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	#!/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;