$year\年<\/title>\n<\/head>\n<body BGCOLOR='#00FF93'>\n<A HREF='\.\.\/lime\/limelist\.pl' target='_blank'>ファイル登録<\/A>　　　<A HREF='\.\.\/\.\.\/lime_DL\/limelist\.pl' target='_blank'>動画登録<\/A>　　　<A HREF='\.\.\/\.\.\/lime_SMPL\/limelist\.pl' target='_blank'>視聴データ登録<\/A><BR><BR>\n"; flock(LIST,8); close(LIST); } # $flg_do = 1; # open(DAT,">>$megfiley") || &error("Open Error: $megfiley"); # flock(DAT,2); # print DAT "<\/table>\n<\/body>\n<\/html>\n"; # flock(DAT,8); # close(DAT); #------------------- open(TODIP,">$todip") || &error("Open Error: $todip"); flock(TODIP,2); print TODIP "$addr\n"; flock(TODIP,8); close(TODIP); $ipf1 = "../dayx/allip.dat"; open(ALLIPF,"$ipf1") || &error("Open Error: $ipf1"); flock(ALLIPF,1); @ipf_data = <ALLIPF>; flock(ALLIPF,8); close(ALLIPF); $ipf2 = "../dayx/lock/allip.sav"; open(IPFSAV,"> $ipf2") || &error("Open Error: $ipf2"); flock(IPFSAV,2); print IPFSAV @ipf_data; flock(IPFSAV,8); close(IPFSAV); #------------------- # open(DB,">>$megfile") || &error("Open Error: $megfile"); # flock(DB,2); # print DB "<html>\n<head>\n<META HTTP-EQUIV='Content-type' CONTENT='text/html; charset=Shift_JIS'>\n<title>$year\年$mon\月$mday\日($thisday\)

\n"; # print IPF "$host\n\n"; #} else { # open(IPF,">>$ipfile") || &error("Write(Add) Error: $ipfile"); # flock(IPF,2); #} #print IPF "$year\年$mon\月$mday\日($thisday\) ($hour\：$min\：$sec\)：$buf\n"; #flock(IPF,8); #close(IPF); #######################################IP毎のアクセス記録処理　終了 #----------------------- ##############アクセス者IPの全記録（終了）##################### # チェックモード if (!$buf || $buf eq "check") { ✓ } # データが存在しない場合は終了 #unless (-e $datafile) { &error("Not Exist: $datafile"); } # データ読み取り #open(IN,"$datafile") || &error("Open Error: $datafile"); #flock(IN,1); #$data = ; #flock(IN,8); #close(IN); # カウントアップ #($count,$ip) = split(/:/, $data); #if (!$ip_chk || ($ip_chk && $addr ne $ip)) { # $count++; # open(OUT,">$datafile") || &error("Write Error: $datafile"); # flock(OUT,2); # print OUT "$count:$addr"; # flock(OUT,8); # close(OUT); #} # ページカウンタ if ($type == 1) { # ダミーGIF画像 local(@gif) = ( "47","49","46","38","39","61","02","00","02","00","80","00", "00","00","00","00","ff","ff","ff","21","f9","04","01","00", "00","01","00","2c","00","00","00","00","02","00","02","00", "00","02","02","8c","53","00","3b"); # ダミー画像を表示 print "Content-type: image/gif\n\n"; foreach (@gif) { print pack('C*',hex($_)); } # ダウンロードカウンタ } else { # index読み取り $f=0; open(IN,"$idxfile"); flock(IN,1); while () { ($id,$sub,$link,$file) = split(/<>/); if ($buf eq $id) { $f++; last; } } flock(IN,8); close(IN); if (!$f) { &error("IDが不正です"); } # Locationヘッダ if ($type == 2) { # IISサーバ (PerlIS) 対応 if ($ENV{'PERLXS'} eq "PerlIS") { print "HTTP/1.0 302 Temporary Redirection\r\n"; print "Content-type: text/html\n"; } # ファイルへジャンプ print "Location: $file\n\n"; # metaタグ } else { &header(""); print "

自動でダウンロードできない場合は\n"; print "ここをクリックしてください。
\n"; print "\n"; print "<\/form><\/div>\n<\/body><\/html>\n"; } } #######################################　システムLOG作成開始 #if ($flg_do) { `C:\usr\local\bin\perl.exe D:\Logfiles\y.pl`;} #######################################　システムLOG作成終了 E: exit; #######################################サブルーチン追加　開始 #----------------# # 日次カウント # #----------------# sub day_count { # ログの日次キーより本日の日が小さければ月が変わったと判断する # 日次記録ファイル #$key は、前日の日 #$mdayは、アクセスした瞬間の日 $dayfile = "../dayx/day.dat"; if ($mday < $key) { # 日次アクセスファイルを読み込み open(INDAY,"$dayfile") || &error("Open Error : $dayfile"); flock(INDAY,1); @dayfile = ; flock(INDAY,8); close(INDAY); &graph_make; #各月グラフを作成し、ファイルの内容を初期化 open(INDAY,">$dayfile") || &error("Open Error : $dayfile"); flock(INDAY,2); flock(INDAY,8); close(INDAY); } else { # 月内での処理 open(INDAY,">>$dayfile") || &error("Open Error: $dayfile"); flock(INDAY,2); # $todayは、dayx.datの、「本日カウント」 print INDAY "$mon\/$key $$youbi$<>$today<>\n"; flock(INDAY,8); close(INDAY); } } #----------------# # 前月グラフ作成 # #----------------# sub graph_make { $flag=0; $tochu=0; $graph2 = "./red.gif"; $dKEY = 2; for (my $i = 0; $i <@dayfile; $i++) { chop; ($m_d,$dcnt) = split(/<>/,$dayfile[$i]); # \d+は「数字1文字(\d)以上(+)続く文字」という意味である。 # =~ は、@_ 以外の変数($m_d)に対してパターンマッチを行う時に使うもの。 # 真ん中の「\/」=「文字列の"/"」の意味。つまり、これはm/ /である。 if ($i == 1 && $m_d =~ /^(\d+)\/(\d+)/) { # ^は、行頭の意味 # パターンマッチ（上の行）に成功すると、n個のグループ【( )内のこと】の文字列は特殊変数$1と$2…$nに残される。 if ($2 != 1) { $tochu=1; } } # グラフ幅を指定 if ($dcnt > 0) { $width = int($dcnt / $dKEY); } else { $width=1; } if ($width < 1) { $width=1; } # 桁処理 $dcnt = &filler($dcnt); # 色変更 $m_d =~ s/Sat/Sat<\/font>/; $m_d =~ s/Sun/Sun<\/font>/; $dayfile[$i] = "

年月日(HH:MM:SS)

host

addr(≠P)

閲覧

from

referer

autht

clength

ctype

docroot

gatewayi

acceptc

accepte

acceptl

cachep

con

httphost

modify

uagent

path

pathi

patht

querys

rid

rport(≠P)

ruser

rmethod

requri

scrfname

scname

sadmin

sname

sport

sprtcl

sprotoc

software

vsname

cachec(P)

cachei(P)

client(P)

forw(P)

pragma(P)

proxy(P)

pcon(P)

ppass(P)

puser(P)

sphost(P)

te(P)

via(P)

xforw(P)

xlocking(P)

xon(P)

xcon(P)

$year\年$mon\月$mday\日($thisday\) ($hour\：$min\：$sec\)

$host

$addr

$buf

$cookie

$from

$referer

$autht

$clength

$ctype

$docroot

$gatewayi

$accept
$datalog

$acceptc

$accepte

$acceptl

$cachep

$con

$httphost

$modify

$uagent

$path

$pathi

$patht

$querys

$rid

$rport

$ruser

$rmethod

$requri

$scrfname

$scname

$sadmin

$sname

$sport

$sprtcl

$sprotoc

$software

$vsname

$tz

$cachec

$cachei

$client

$forw

$pragma

$proxy

$pcon

$ppass

$puser

$sphost

$te

$via

$xforw

$xlocking

$xon

$xcon