日本ボーイスカウト神奈川連盟 小田原地区
www.scouts-odawara.com Since 2001/05/01
日本ボーイスカウト神奈川連盟 小田原地区
#!/usr/bin/perl
#######################################################
# LOG Recorder v2.01 for Web Analyzer (c)rescue.ne.jp #
#######################################################
# ZJEg(L^JEgɂ̐Zĕ\܂)
$add = 0;
# log.cgi猩OtH_̏ꏊ(path)
$log_dir = './log/';
# log.cgi猩vJEgL^t@C(path)
$log_file = './log/count.dat';
# SSILqHTML猩images/fBNg̈ʒuݒ(URL)
$graphics = './analyze/images/';
#------------------------------------------------------
($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst) = localtime(time - 48*60*60);
$delete_log = $log_dir . sprintf("%04d%02d%02d",$year +1900,$mon +1,$mday);
if (-e $delete_log) { unlink($delete_log); }
($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst) = localtime(time);
$log = $log_dir . sprintf("%04d%02d%02d",$year +1900,$mon +1,$mday);
$HOUR = sprintf("%02d",$hour);
#------------------------------------------------------
$HTTP_REFERER = $ENV{'HTTP_REFERER'};
$HTTP_REFERER =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg;
if ($HTTP_REFERER =~ /^file:/i || $HTTP_REFERER =~ /^bookmark/i) { $HTTP_REFERER = ""; }
#------------------------------------------------------
$REMOTE_HOST = $ENV{'REMOTE_HOST'};
$REMOTE_ADDR = $ENV{'REMOTE_ADDR'};
if ($REMOTE_HOST eq '') { $REMOTE_HOST = $REMOTE_ADDR; }
if ($REMOTE_HOST eq $REMOTE_ADDR) { $REMOTE_HOST = gethostbyaddr(pack('C4',split(/\./,$REMOTE_HOST)),2) || $REMOTE_ADDR; }
if ($REMOTE_HOST =~ /(.*)\.(\d+)$/) { ; }
elsif ($REMOTE_HOST =~ /(.*)\.(.*)\.(.*)\.(.*)$/) { $REMOTE_HOST = "\*\.$2\.$3\.$4"; }
elsif ($REMOTE_HOST =~ /(.*)\.(.*)\.(.*)$/) { $REMOTE_HOST = "\*\.$2\.$3"; }
#------------------------------------------------------
$HTTP_USER_AGENT = $ENV{'HTTP_USER_AGENT'};
$HTTP_USER_AGENT =~ s//>/g;
if ($HTTP_USER_AGENT =~ /Win(.*)(95|98|NT)/i) { $OS = $2; $OS =~ y/a-z/A-Z/; $OS = "Windows $OS"; }
elsif ($HTTP_USER_AGENT =~ /Macintosh/i) { $OS = "Macintosh"; }
elsif ($HTTP_USER_AGENT =~ /Mac_PowerPC/i) { $OS = "Mac_PowerPC"; }
elsif ($HTTP_USER_AGENT =~ /X11/i) { $OS = "X11"; }
elsif ($HTTP_USER_AGENT =~ /Linux/i) { $OS = "Linux"; }
elsif ($HTTP_USER_AGENT =~ /SunOS/i) { $OS = "SunOS"; }
elsif ($HTTP_USER_AGENT =~ /FreeBSD/i) { $OS = "FreeBSD"; }
elsif ($HTTP_USER_AGENT =~ /WebTV/i) { $OS = "WebTV"; }
elsif ($HTTP_USER_AGENT =~ /AIX/i) { $OS = "AIX"; }
elsif ($HTTP_USER_AGENT =~ /OSF1/i) { $OS = "OSF1"; }
elsif ($HTTP_USER_AGENT =~ /NEWS-OS/i) { $OS = "NEWS-OS"; }
elsif ($HTTP_USER_AGENT =~ /IRIX/i) { $OS = "IRIX"; }
elsif ($HTTP_USER_AGENT =~ /HP-UX/i) { $OS = "HP-UX"; }
elsif ($HTTP_USER_AGENT =~ /BSD\/OS/i) { $OS = "BSD/OS"; }
else {$OS = "Etc."; }
if ($HTTP_USER_AGENT =~ /(.+)\/(\d)\..*compatible\; MSIE (\d)\./) {
$HTTP_USER_AGENT ="MSIE/$3 of $1/$2 compatible";
}
elsif ($HTTP_USER_AGENT =~ /Mozilla\/(\d)\./) {
$HTTP_USER_AGENT ="Mozilla/$1";
}
if (open(LOG,">> $log")) {
print LOG "$HOUR\t$HTTP_REFERER\t$REMOTE_HOST\t$HTTP_USER_AGENT\t$OS\n";
close(LOG);
chmod 0666,$log;
}
if (open(LOG,">> $log_file")) {
print LOG "\n";
close(LOG);
}
#------------------------------------------------------
print "Content-type: text/plain\n\n";
$count = -s $log_file;
$count += $add;
foreach (0..length($count)-1) { $img = substr($count,$_,1);
print "![\"$img\"](\"$graphics$img.gif\")
"; }
# 摜ł͂Ȃ̐ł̂łΏ̂Qs폜ĉg.
# ̏ꍇA摜t@C͕KvȂ.
#print $count;
exit;
|
-menu-
ボーイスカウト活動への参加は、
|
|
-menu-
|
小田原隊の歌  ＭＩＤＩファイルはこちら |
|
| 広報委員会 |
健康安全委員会  ・心肺蘇生フローチャート・健康調査票 ・熱中症・健康調査票 ・熱中症 |
 15NJ |
緑化推進委員会  森林愛護の手引き |
| 小田原地区事務局ニュース | |
| 災害見舞について（県連） | |
アマチュア無線の免許を取得しよう！
