;
close(URL);
$kensu = @lines;
for ($i=0;$i<=($kensu-1);$i++){
chop($lines[$i]);
if($rinku =~/$lines[$i]/){$rom="on";}
}
}
}
&main();
exit;
sub kazu{
for ($keta=length($atai); $keta>=1; $keta--)
{
$moji=int($atai/(10**($keta-1)));
$atai=$atai-$moji*(10**($keta-1));
if ($keta eq 4 ||$keta eq 7)
{ print $moji , ","; }
else
{ print $moji; }
}
}
sub gif{
$strings = sprintf("%0${column}d",$atai);
foreach $i (0..($column-1)) {
$digit = substr($strings,$i,1);
print "![](\"$GIFdirectory$digit.gif\")
";
}
}
sub kotei{
$strings = sprintf("%0${column}d",$atai);
foreach $i (0..($column-1)) {
$digit = substr($strings,$i,1);
print "$digit";
}
}
sub lock {
if ($lock_sw eq "yes"){
local($retry) = 6;
while (!symlink(".",$lockfile)) {
if (!--$retry) {
print "[ BUSY ]";
exit;
}
sleep(5);
}
}
}
sub unlock {
unlink($lockfile);
}
sub main {
if ($hyoji ne "txt" && $hyoji ne "gif" && $hyoji ne "no" && $hyoji ne "kot" && $hyoji ne "nor"){
print "スクリプトは動作していますが引数が誤っています。
";
print "teraco.cgi By TERAMOTO KOUITI
";
}
&lock();
if (open(CFILE,"$file")) {
$atai = ; # 指定されたファイルが存在すれば、
close(CFILE); # その内容を取得する。
}
else {$atai = 0;} # 存在しなければ、初期設定を行う。
if ($rom ne "on"){
$atai ++; # カウントアップし、
$_=$atai;
open(CFILE,">$file"); # 以下３行で指定したファイルの値を更新
print CFILE;
close(CFILE);
if ($kankaku > 0){$ama=$atai % $kankaku;}
}
chmod 0666,$file;
&unlock();
if ($kaiseki eq "l" && $kikan ne "0" && $rom ne "on") {&kaiseki();}
if ($ama eq 0 && $kinen eq "on"){
print "\n\n";
}
if ($hyoji eq "txt") {&kazu();}
if ($hyoji eq "gif") {&gif();}
if ($hyoji eq "kot") {&kotei();}
if ($hyoji eq "nor") {print "$atai";}
}
sub kaiseki{
$ref = $ENV{'HTTP_REFERER'};
$flg="";
if ($flg eq ""){
($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst) = localtime(time);
$yymmdd=sprintf("%02d%02d%02d",$year,$mon+1,$mday);
$tuika_log="$log$yymmdd.log";
$host = $ENV{'REMOTE_HOST'};
$addr = $ENV{'REMOTE_ADDR'};
if ($host eq $addr) { $host = gethostbyaddr(pack('C4',split(/\./,$host)),2) || $addr; }
if ($host eq ''){$host=$addr;}
if ($host =~ /(.*)\.(\d+)$/) { ; }
elsif ($host =~ /(.*)\.(.*)\.(.*)\.(.*)$/) { $host = "\*\.$2\.$3\.$4"; }
elsif ($host =~ /(.*)\.(.*)\.(.*)$/) { $host = "\*\.$2\.$3"; }
$bura = $ENV{'HTTP_USER_AGENT'};
$hiduke=sprintf("%02d/%02d/%02d/%01d/%02d",$year,$mon+1,$mday,$wday,$hour);
if (!open(DB,">> $tuika_log"))
{
open(DB,">$tuika_log");
print DB "$buffer\,$hiduke\,$ref\,$host\,$bura\n";
close(DB);
}
else{
print DB "$buffer\,$hiduke\,$ref\,$host\,$bura\n";
close(DB);
}
}
chmod 0666,$tuika_log;
for ($i=1;$i<=10;$i++){
($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst) = localtime(time-24*3600*($kikan+$i));
$yymmdd=sprintf("%02d%02d%02d",$year,$mon+1,$mday);
$sakujo="$log$yymmdd.log";
unlink("$sakujo");
}
}
タウンモビリティとは、｢すべての人は一般の人々と同じように『普通の生活』を送る権利があり、社会はそれを支える責任がある｣とするノーマライゼーションの思想に基づき、高齢者や障害者はもちろん誰もが安心していつでも、どこへでも出かけることができる｢人にやさしいまちづくり｣の実現にむけた取り組みです。街の中にステーションを設置し、移動器具の貸出しや、ボランティアによる移動の送迎・介助を行ないます。
