#!/usr/bin/perl # Iris Counter 2.52 # ----------------- # Copyright(C)1999, 2000. NvyU. (20000916 release) # E-MAIL : nvyu@hitel.net # HOMEPAGE : http://nvyu.net # $ver = "2.52.2"; # # 안내 사항. # # - 이 스크립트는 공개로 제공됩니다. 이 스크립트를 사용할 경우에 생길 수 있는 # 손해 등에 대해서 제작자는 일체 책임을 지지 않습니다. # - 저작자의 사전허가 없는 스크립트의 개변 및 재배포는 허가하지 않습니다. # - 설치 등과 관련된 질문은 홈페이지 게시판에 문의해주시기 바랍니다. # - 원하시는 추가 기능이 있으실 경우에는 리퀘스트 해주시면 감사하겠습니다. # - 자세한 사항은 패키지에 포함된 문서를 참조하세요. # $count = "irisc.log"; $logfile = "iriscday.log"; $ospfile = "iriscosp.log"; $brpfile = "iriscbrp.log"; $resfile = "iriscres.log"; $clrfile = "iriscclr.log"; $lasfile = "irisclas.log"; $reffile = "iriscref.log"; $domfile = "iriscdom.log"; $racfile = "iriscrac.log"; $sngfile = "iriscsng.log"; $keyfile = "irisckey.log"; $senfile = "sengine.txt"; $pzc = 'image/blank.gif'; @CLR = ( '0|2 Color', '1|16 Color', '4|64 Color', '8|256 Color', '16|16bit Hi-Color', '24|24bit True Color', '32|32bit True Color'); @month = ( 'January', 'February', 'March', 'April', 'May' ,'June', 'July', 'August', 'September', 'October', 'November', 'December'); @WEEK = ( 'Sunday', 'Monday', 'Tuesday', 'Wednesday', 'Thursday', 'Friday', 'Saturday'); &get_time; &get_form; require 'irisccfg.cgi'; &chk_admin; &get_userinfo; $lock = $ienv{'lock'}; $lockfile = './lock/irisc.lock'; $page = int($FORM{'t'}); $sortby = int($FORM{'s'}); $page = 1 if ($page < 1); @menu = ( 'General', 'Domain', 'Browser', 'OS', 'Hour', 'Daily', 'Weekly', 'Monthly', 'Access Rate', 'Resolution', 'Color Depth', 'Referer', 'Search Engine', 'Last 30 Access', 'For Admin', ''); if ($FORM{'p'} == 14 && $FORM{'dc'} ne '' && $admin == 1) { if ($FORM{'dc'} == 1) { ($csec,$cmin,$chour,$cmday,$cmon,$cyear,$cwday,$cyday,$cisdst) = gmtime( time + 86400*31*12); $cyear += 1900; $cwdays = ("Sun", "Mon", "Tue", "Wed", "Thu", "Fri", "Sat")[$cwday]; $cmonth = ("Jan","Feb","Mar","Apr","May","Jun","Jul","Aug","Sep","Oct","Nov","Dec")[$cmon]; $GMTDATE = sprintf("%s, %02d-%s-%04d %02d:%02d:%02d GMT", $cwdays, $cmday, $cmonth, $cyear, $chour, $cmin, $csec); $npwd = crypt($ienv{'pwd'}, 'ic'); print "Set-Cookie: ic=$npwd; expires=$GMTDATE;\n"; $cookie{'ic'} = $npwd; } else { print "Set-Cookie: ic=\n"; $cookie{'ic'} = ''; } } elsif ($FORM{'p'} == 14 && $FORM{'rlog'} > 0 && $FORM{'rl'} ne '') { &lock; @LOG = &get_file($reffile); chomp(@LOG); foreach $log (@LOG) { ($key, $value) = split(/\|/, $log); $key =~ s/\+/ /g; $key =~ s/%([\dA-Fa-f][\dA-Fa-f])/pack("C", hex($1))/eg; $val{$key} += $value; } foreach $zpa (keys %val) { push(@NEWLOG, "$zpa\|$val{$zpa}\n") if ($val{$zpa} > $FORM{'rlog'}); } &put_file($reffile, @NEWLOG); undef(@NEWLOG); undef(@LOG); &unlock; } elsif ($FORM{'p'} == 14 && $FORM{'rs'} ne '') { @COUNT = &get_file($count); @COUNT = split(/\|/, $COUNT[0]); $COUNT[0] = $FORM{'unique'}; $COUNT[1] = $FORM{'total'}; &lock; open(FILE, ">$count"); foreach (0 .. 13) { print FILE qq|$COUNT[$_]\||; } close(FILE); &unlock; } &header; $bclr = "#aaaaaa"; $fclr = "#000000"; if (($ienv{'public'} == 0 && $admin == 0) or ($admin == 0 && $FORM{'p'} == 14)) { &show_admin; exit; } if ($browser eq 'IE') { $ft = "11px"; $fc = "8px"; } else { $ft = "12px"; $fc = "10px"; } print qq|irisc
IRiS COUNTER $ver STATiSTiCS

|; foreach (0 .. $#menu) { if ($FORM{'p'} == $_) { print qq||; } else { print qq||; } } print "
$menu[$_]
$menu[$_]
"; &lock; @COUNT = &get_file($count); @LASTACCESS = &get_file($lasfile); @OS = &get_file($ospfile); @BR = &get_file($brpfile); @RS = &get_file($resfile); @CR = &get_file($clrfile); @DO = &get_file($domfile); @RF = &get_file($reffile); &unlock; ($unique, $total, $today, $yesterday, $max, $cyear, $cmon, $cday, $hour, $min, $sec, $user_ip, $facx, $racx) = split(/\|/, $COUNT[0]); $yesterday+= 0; $facx+=0; $racx+=0; if ($FORM{'p'} == 0) { @d = split(/\|/, $LASTACCESS[0]); ($os, $dmy, $dmy, $opct) = &get_best(0, @OS); ($br, $dmy, $dmy, $bpct) = &get_best(0, @BR); ($rs, $dmy, $dmy, $rpct) = &get_best(0, @RS); ($cr, $dmy, $dmy, $cpct) = &get_best(0, @CR); ($do, $dmy, $dmy, $dpct) = &get_best(0, @DO); ($rf, $dmy, $dmy, $fpct) = &get_best(0, @RF); $rs = &get_resolution($rs); $cr = &get_colors($cr); $cdate = 0; $rtotal = 0; $ymonth = $ymg = '-'; $yyear = $cyear; $ymon = $mon - 1; if ($ymon == 0) { $yyear -= 1; $ymon = 12; } &lock; @LOG = &get_file($logfile); foreach $LOG (@LOG) { ($yyyy, $mm, $dd, @TIME) = split(/\|/, $LOG); foreach (0 .. 23) { $GTOT += $TIME[$_]; } $rtotal += $GTOT; $cdate++; $tmax = $GTOT if ($GTOT >= $tmax); if ($cyear == $yyyy && $cmon == $mm) { $mmax = $GTOT if ($GTOT >= $mmax); $month += $GTOT; } elsif ($yyear == $yyyy && $ymon == $mm) { $ymonth += $GTOT; } $GTOT = 0; } $ymg = int($month / $ymonth * 100) if ($ymonth != 0); $avg = int($rtotal / $cdate *10)/10 if ($cdate != 0); $yvg = int($yesterday / $avg * 100) if ($avg != 0); if ($yvg > 110) { $flag = "▲"; } elsif ($yvg < 90) { $flag = "▼"; } else { $flag = ""; } $ntitle = &make_title("general counter info"); print qq|
$ntitle
|; &put_tr("Unique Access", $unique); &put_tr("Total Access", $total); &put_tr("Today", $today); &put_tr("Yesterday (AVG)", $yesterday, "($yvg%) $flag"); &put_tr("Average", $avg); &put_tr("Month (AVG)", $month, "($ymg%)"); &put_tr("Last Month", $ymonth); &put_tr("Max (on this month)", $tmax, "($mmax)"); $ntitle = &make_title("last access info"); print qq|
 $ntitle
|; &put_tr("Date", "$d[0]/$d[1]/$d[2]"); &put_tr("Time", "$d[3]:$d[4].$d[5]"); &put_tr("IP Address", $d[6]); &put_tr("Host", '', $d[7]); $ntitle = &make_title("user statistics"); print qq|
$ntitle
|; &put_tr("OS", $os, $opct); &put_tr("Browser", $br, $bpct); &put_tr("Resolution", $rs, $rpct); &put_tr("Color Depth", $cr, $cpct); if ($facx+$racx != 0) { if ($facx != 0 or $racx != 0) { $tot = int($racx / ($facx+$racx) * 1000) / 10 . "%"; } else { $tot = '??%'; } $grp = int($racx/ ($facx+$racx) * 150); &put_tr("Reaccess Rate", qq||, $tot); } $ntitle = &make_title("etcetria"); print qq|
$ntitle
|; &put_tr("Domain", $do, $dpct); if (length $rf > 40) { $rf =~ s/&/&
/g; $rf =~ s/\//\/
/g; $rf =~ s/\/
\/
/\/\//; } &put_tr("Referer", $rf, $fpct); print qq|
$pzc
|; if ($max != $tmax) { open(FILE, ">$count"); print FILE join('|', $unique, $total, $today, $yesterday, $max, $cyear, $cmon, $cday, $hour, $min, $sec, $user_ip, $facx, $racx); close(FILE); } &unlock; } elsif ($FORM{'p'} == 1) { undef(%loc); @links = ( 'Country', 'Group', 'Domain'); foreach (0 .. $#links) { if ($_ == $FORM{'c'}) { $link .= qq|$links[$_] |; } else { $link .= qq|$links[$_] |; } } &lock; @LOG = &get_file($domfile); &unlock; $tot = 0; $max = 0; $c = 0; ($dmy, $max, $tot, $dmy, $wmax, $wtot) = &get_best(1, @LOG); foreach $LOG (@LOG) { ($domain, $hit, $tix, $tmx) = split(/\|/, $LOG); @las = split(/\./, $domain); $lac = $las[$#las]; if (length $lac < 3 && length $lac > 0) { $lat = "$las[$#las-1].$las[$#las]" if ($lac ne ''); } else { $lat = $lac; } $lat =~ s/ //g; $loc{$lat} += $hit; $locx{$lat} += $tmx; $loct{$lat} = $tix if ($tix > $loct{$lat}); $wloc{$lac} += $hit; $wlocx{$lac} += $tmx; $wloct{$lac} = $tix if ($tix > $wloct{$lac}); } foreach $loc (keys %loc) { push(@FDOMAIN, "$loc\|$loc{$loc}\|$loct{$loc}\|$locx{$loc}"); } foreach $loc (keys %wloc) { push(@WDOMAIN, "$loc\|$wloc{$loc}\|$wloct{$loc}\|$wlocx{$loc}"); } if ($FORM{'c'} == 0) { &drw_graph("domain","Location", $link, @WDOMAIN); } elsif ($FORM{'c'} == 1) { &drw_graph("group domain","Location", $link, @FDOMAIN); } elsif ($FORM{'c'} == 2) { &drw_graph("detail domain","Location", $link, @LOG); } print qq|
|; } elsif ($FORM{'p'} == 2) { undef(%loc); @links = ( 'Overview', 'Detail'); foreach (0 .. $#links) { if ($_ == $FORM{'c'}) { $link .= qq|$links[$_] |; } else { $link .= qq|$links[$_] |; } } &lock; @LOG = &get_file($brpfile); &unlock; $tot = 0; $max = 0; $c = 0; ($dmy, $max, $tot, $dmy, $wmax, $wtot) = &get_best(1, @LOG); undef(%iz); undef(@TLOG); foreach $LOG (@LOG) { ($key, $value, $tix, $tmx) = split(/\|/, $LOG); if ($key =~ /Internet Explorer/ ) { $iz{'Internet Explorer'} += $value; $izm{'Internet Explorer'} += $tmx; $izt{'Internet Explorer'} = $tix if ($tix > $izt{'Internet Explorer'}); } elsif ($key =~ /Netscape/) { $iz{'Netscape'} += $value; $izm{'Netscape'} += $tmx; $izt{'Netscape'} = $tix if ($tix > $izt{'Netscape'}); } else { $iz{'Etcetria'} += $value; $izm{'Etcertria'} += $tmx; $izt{'Etcetria'} = $tix if ($tix > $izt{'Etcetria'}); } } foreach $dname (keys %iz) { push(@FLOG, "$dname\|$iz{$dname}\|$izt{$dname}\|$izm{$dname}"); } if ($FORM{'c'} == 0) { ($dmy, $max, $tot, $dmy, $wmax, $wtot) = &get_best(1, @FLOG); &drw_graph("overview","Browser", $link, @FLOG); } elsif ($FORM{'c'} == 1) { ($dmy, $max, $tot, $dmy, $wmax, $wtot) = &get_best(1, @LOG); &drw_graph("detail","Browser", $link, @LOG); } print qq||; } elsif ($FORM{'p'} == 3) { &put_graph("os", $ospfile, "OS"); } elsif ($FORM{'p'} == 9) { &put_graph("resolution", $resfile, "Resolution"); } elsif ($FORM{'p'} == 10) { &put_graph("color depth", $clrfile, "Depth"); } elsif ($FORM{'p'} == 11) { &put_graph("referer", $reffile, "Referer"); } elsif ($FORM{'p'} == 4) { undef(@GTIME); $max = 0; $total = 0; &lock; @LOG = &get_file($logfile); close(FILE); &unlock; foreach $LOG (@LOG) { ($yyyy, $mm, $dd, @TIME) = split(/\|/, $LOG); $zp = 0; foreach $year (@YEAR) { $zp = 1 if ($year eq $yyyy); } push(@YEAR, $yyyy) if ($zp == 0); $zp = 0; foreach $month (@MONTH) { $zp = 1 if ($month eq $mm); } push(@MONTH, $mm) if ($zp == 0); $zp = 0; } foreach (1 .. 31) { push(@DAY, $_); } foreach $LOG (@LOG) { ($yyyy, $mm, $dd, @TIME) = split(/\|/, $LOG); if ($FORM{'y'} == 0 or $FORM{'y'} == $yyyy) { if ($FORM{'m'} == 0 or $FORM{'m'} == $mm ) { if ($FORM{'d'} == 0 or $FORM{'d'} == $dd) { foreach (0 .. 23) { $GTIME[$_] += $TIME[$_]; $max = $GTIME[$_] if ($GTIME[$_] >= $max); $total += $TIME[$_]; } } } } } if ($total == 0) { $total = 1; $max = 1;} if ($FORM{'y'} + $FORM{'m'} + $FORM{'d'} != 0) { $dpb = qq||; $dpe = ""; $msg = "$FORM{'y'}"; if ($FORM{'m'} ne '') { $msg .= "/$FORM{'m'}"; $msg .= "/$FORM{'d'}" if ($FORM{'d'} ne ''); } } else { $dpb = ""; $dpe = ""; } $ntitle = &make_title("hour"); print qq|
$ntitle$msg
|; foreach (0 .. 23) { $glen = int($GTIME[$_] / $max * 300) + 1; $percent = "(" . int($GTIME[$_] / $total * 100) . "%)"; $c = not $c; if ($c) { $clb = qq|#ffffff|; } else { $clb = qq|#eeeeee|; } if ($max == $GTIME[$_]) { $img = "graph/vbar1.gif"; $bcr = "#ffffff"; } else { $img = "graph/vbar2.gif"; $clr = "#000000";} print qq||; } print qq||; foreach (0 .. 23) { $p = $_; $p = qq|$p| if ($p == $hour); $p = " $p" if (length $p == 1); $c = not $c; if ($c) { $clb = qq|#ffffff|; } else { $clb = qq|#eeeeee|; } print qq||; } print qq|
$GTIME[$_]
$percent
$p
  ■ $dpb Total Statistics $dpe■ Day Statistics : //
|; } elsif ($FORM{'p'} == 5) { &lock; @LOG = &get_file($logfile); &unlock; $total = 0; $max = 0; $GTIME = 0; undef(@GDAY); foreach $LOG (@LOG) { ($yy, $mm, $dd, @TIME) = split(/\|/, $LOG); foreach (0 .. 23) { $GTIME += $TIME[$_]; } if ($FORM{'y'} == 0 or $FORM{'y'} == $yy) { if ($FORM{'m'} == 0 or $FORM{'m'} == $mm) { $GDAY[$dd] += $GTIME; $total += $GTIME; $max = $GDAY[$dd] if ($max < $GDAY[$dd]); } } $GTIME = 0; } if ($total == 0) { $total = 1; $max = 1;} foreach $LOG (@LOG) { ($yyyy, $mm, $dd, @TIME) = split(/\|/, $LOG); $zp = 0; foreach $year (@YEAR) { $zp = 1 if ($year eq $yyyy); } push(@YEAR, $yyyy) if ($zp == 0); $zp = 0; foreach $month (@MONTH) { $zp = 1 if ($month eq $mm); } push(@MONTH, $mm) if ($zp == 0); $zp = 0; } if ($FORM{'y'} + $FORM{'m'} != 0) { $dpb = qq||; $dpe = ""; $msg = "$FORM{'y'}"; $msg .= "/$FORM{'m'}" if ($FORM{'m'} ne ''); } else { $dpb = ""; $dpe = ""; } $ntitle = &make_title("daily"); print qq|
$ntitle$msg
|; print qq||; print qq|
|; foreach (1.. 31) { $c = not $c; if ($c) { $clb = qq|#ffffff|; } else { $clb = qq|#eeeeee|; } $GDAY[$_] += 0; $glen = int($GDAY[$_] / $max * 300) + 1; $percent = "(" . int($GDAY[$_] / $total * 100) . "%)"; if ($max == $GDAY[$_]) { $img = "graph/vbar1.gif"; $clf = "#3333ff"; } else { $img = "graph/vbar2.gif"; $clf = "#000000"; } print qq||; } print qq||; $c = 0; foreach (1 .. 31) { $c = not $c; if ($c) { $clb = qq|#ffffff|; } else { $clb = qq|#eeeeee|; } $cd = $_; $cd = "0$cd" if (length $cd == 1); $cd = qq|$cd| if ($cd == $day); print qq||; } print qq|
$GDAY[$_]
$percent
$cd
  ■ $dpb Total Statistics $dpe■ Monthly Statistics : /|; print qq||; print qq|
|; } elsif ($FORM{'p'} == 6) { &lock; @LOG = &get_file($logfile); &unlock; $total = 0; $max = 0; $GTIME = 0; undef(@GWEEK); foreach $LOG (@LOG) { ($yy, $mm, $dd, @TIME) = split(/\|/, $LOG); foreach (0 .. 23) { $GTIME += $TIME[$_]; } $zday = &get_weekday($yy, $mm, $dd); $GWEEK[$zday] += $GTIME; $total += $GTIME; $max = $GWEEK[$zday] if ($max < $GWEEK[$zday]); $GTIME = 0; } $ntitle = &make_title("weekly"); print qq|
$ntitle
|; print qq||; foreach (0 .. 6) { $GWEEK[$_] += 0; $c = not $c; if ($c) { $clr = "#ffffff"; } else { $clr = "#eeeeee"; } $glen = int($GWEEK[$_] / $max * 300) + 1; $month = $_ + 1; $percent = "(" . int($GWEEK[$_] / $total * 100) . "%)"; $WEEK[$_] = qq|$WEEK[$_]| if ($_ == $wday); if ($max == $GWEEK[$_]) { $img = "graph/hbar1.gif"; $clf = "#3333ff"; } else { $img = "graph/hbar2.gif"; $clf = "#000000"; } print qq||; } print qq|
WeekAccess
$WEEK[$_] $GWEEK[$_] $percent
|; } elsif ($FORM{'p'} == 7) { undef(@GDATE); &lock; @LOG = &get_file($logfile); &unlock; $total = 0; $max = 0; foreach $LOG (@LOG) { ($yy, $mm, $dd, @TIME) = split(/\|/, $LOG); if ($FORM{'y'} eq '' or $FORM{'y'} == $yy) { foreach (0 .. 23) { $GTIME += $TIME[$_]; } $GDATE[$mm-1] += $GTIME; $total += $GTIME; $max = $GDATE[$mm-1] if ($max < $GDATE[$mm-1]); $GTIME = 0; } } $ntitle = &make_title("monthly"); print qq|
$ntitle
|; print qq||; foreach (0 .. 11) { $GDATE[$_] += 0; $c = not $c; if ($c) { $clr = "#ffffff"; } else { $clr = "#eeeeee"; } $glen = int($GDATE[$_] / $max * 300) + 1; $month = $_ + 1; $percent = "(" . int($GDATE[$_] / $total * 100) . "%)"; if ($max == $GDATE[$_]) { $img = "graph/hbar1.gif"; $clf = "#3333ff"; } else { $img = "graph/hbar2.gif"; $clf = "#000000"; } $month[$_] = qq|$month[$_]| if ($_ == $mon - 1); print qq||; } print qq|
MonthAccess
$month[$_] $GDATE[$_] $percent
|; } elsif ($FORM{'p'} == 8) { $ntitle = &make_title("reaccess"); &lock; open(FILE, $racfile); @LOG = ; chomp(@LOG); close(FILE); &unlock; ($dmy, $max, $tot, $dmy, $wmax, $wtot) = &get_best(1, @LOG); foreach $LIST (@LOG) { ($key, $value, $tix, $tmx) = split(/\|/, $LIST); push(@NLOG, $value); } @NLOG = sort {$b <=> $a} @NLOG; foreach $LIST (@LOG) { ($key, $value, $tix, $tmx) = split(/\|/, $LIST); foreach $nap (@NLOG) { if ($value eq $nap) { $nap = "$key\|$value\|$tix|$tmx"; last; } } } @LOG = @NLOG; $old = 0; $told = 0; @LOG = reverse @LOG; foreach $LIST (@LOG) { ($key, $value, $tix, $tmx) = split(/\|/, $LIST); $value -= $old; $old += $value; $tmx -= $told; $told += $tmx; if ($key == 1) { $key = '1st'; } elsif ($key ==2 ) { $key = '2nd'; } elsif ($key == 3) { $key ='3rd'; } else { $key = $key . 'th'; } $LIST = "$key\|$value\|$tix\|$tmx"; } &drw_graph("access rate","Access", $link, @LOG); print qq||; } elsif ($FORM{'p'} == 12) { @links = ( 'Engine', 'Keys'); undef(%znvy); undef(%cnvy); foreach (0 .. $#links) { if ($_ == $FORM{'c'}) { $link .= qq|$links[$_] |; } else { $link .= qq|$links[$_] |; } } &lock; @SNG = &get_file($sngfile); chomp(@SNG); @KEY = &get_file($keyfile); chomp(@KEY); @SEN = &get_file($senfile); chomp(@SEN); @LOG = &get_file($reffile); chomp(@LOG); &unlock; undef(%CNVY); undef(%ZNVY); foreach $LOG (@SNG) { ($dat, $value, $tix, $tmx) = split(/\|/, $LOG); $cnvy{$dat} += $value; $cnvt{$dat} = $tix; $cnvm{$dat} += $tmx; } foreach $LOG (@KEY) { ($dat, $value, $tix, $tmx) = split(/\|/, $LOG); $znvy{$dat} += $value; $znvt{$dat} = $tix; $znvm{$dat} += $tmx; } foreach $sdata (@SEN) { if ($sdata !~ /^#/) { ($nurl, $st, $spt) = split(/\|/, $sdata); $nurl =~ s/([\?\+\*\{\}\.])/\\$1/; $spt =~ s/([\?\+\*\{\}\.])/\\$1/; $SEN{"$nurl|$st"} = $spt if ($nurl ne '' && $st ne ''); } } ($dmy, $max, $tot, $dmy, $wmax, $wtot) = &get_best(1, @LOG); undef(%mtt); undef(%tix); foreach $LOG (@LOG) { ($key, $value, $tix, $tmx) = split(/\|/, $LOG); $key =~ s/^\s+//g; $key =~ s/\+//g; foreach (0 .. 1) { $key =~ s/%([\dA-Fa-f][\dA-Fa-f])/pack("C", hex($1))/eg; } $mtt{$key} += $value; $tix{$key} = $tix if ($tix{$key} < $tix); $tmx{$key} += $tmx; } undef(@LOG); foreach $key (keys %mtt) { push(@LOG, "$key\|$mtt{$key}\|$tix{$key}\|$tmx{$key}"); } foreach $LOG (@LOG) { ($key, $value, $tix, $tmx) = split(/\|/, $LOG); $key =~ s/%([\dA-Fa-f][\dA-Fa-f])/pack("C", hex($1))/eg; foreach $SN (keys %SEN) { ($url, $st) = split(/\|/, $SN); if ($key =~ /$url/) { ($dummy, $data) = split(/$SEN{$SN}/, $key, 2); ($svalue, $dummy) = split(/&/, $data); if ($svalue eq '') { ($dummy, $svalue) = split(/$SEN{$SN}/, $dummy, 2); } ($svalue, $dummy) = split(/;/, $svalue); $svalue = uc($svalue); $svalue =~ s/\+/ /g; @cdata = split(/ /, $svalue); $addlist = 1; if ($#cdata + 1 != 0) { $cnvy{$st} += $value; $cnvt{$st} = $tix if ($cnvt{$st} < $tix); $cnvm{$st} += $tmx; foreach $svalue (@cdata) { $znvy{$svalue} += $value; $znvt{$svalue} = $tix if ($znvt{$svalue} < $tix); $znvm{$svalue} += $tmx; } } } } if ($addlist == 1) { $addlist = 0; } else { push(@RLOG, "$key\|$value\|$tix\|$tmx\n"); } } foreach $zp (keys %znvy) { push(@ZNVY, "$zp\|$znvy{$zp}\|$znvt{$zp}\|$znvm{$zp}\n") if ($zp ne ''); } foreach $zp (keys %cnvy) { push(@CNVY, "$zp\|$cnvy{$zp}\|$cnvt{$zp}\|$cnvm{$zp}\n") if ($zp ne ''); } &lock; &put_file($sngfile, @CNVY); &put_file($keyfile, @ZNVY); &put_file($reffile, @RLOG); &unlock; if ($FORM{'c'} == 0) { ($dmy, $max, $tot, $dmy, $wmax, $wtot) = &get_best(1, @CNVY); &drw_graph("search engine","Search Engine", $link, @CNVY); } else { ($dmy, $max, $tot, $dmy, $wmax, $wtot) = &get_best(1, @ZNVY); &drw_graph("search key","Key", $link, @ZNVY); } } elsif ($FORM{'p'} == 13) { $ntitle = &make_title("last 30 access"); print qq|
$ntitle
|; &lock; open(FILE, $lasfile); @LOG = ; chomp(@LOG); close(FILE); &unlock; print qq||; foreach $LOG (@LOG) { $c = not $c; if ($c) { $clr = "#ffffff"; } else { $clr = "#eeeeee"; } ($year, $month, $day, $hour, $min, $sec, $ip, $host, $os, $browser, $res, $color, $ref, $fx, $cnt) = split(/\|/, $LOG); if ($fx == 0 ) { $fx = "Unknown"; } elsif ($fx == 1) {$fx = "First"; } elsif ($fx == 3) { $fx = "Reload"; } else { $fx = ""; } $browser =~ s/Internet Explorer/IE/ig; $browser =~ s/Netscape/NC/ig; $os =~ s/Windows /Win/ig;$os =~ s/WinNT 5.1/WinXP/ig; $os =~ s/WinNT 5.0/Win2K/ig; @domain = split(/\./, $host); $dle = $#domain; if ($host !~ /\d+\.\d+\.\d+\.\d+/) { if (length $domain[$dle] > 2) { $domain = join('.', $domain[$dle-1], $domain[$dle]); } else { $domain = join('.', $domain[$dle-2], $domain[$dle-1], $domain[$dle]); } } else { $domain = $host; } $res = &get_resolution($res); $color = &get_colors($color); $ref = 'Direct Request' if ($ref eq ''); $ref = qq|$ref| if ($ref ne 'Direct Request' && $ref ne 'Personal Origin' ); print qq||; } print qq|
Access TimeHostBrowser (OS)ResoultuionColor DepthRefererAccess
$cnt$year/$month/$day $hour:$min.$sec$domain$browser ($os)$res$color$ref$fx
|; } elsif ($FORM{'p'} == 14) { $ntitle = &make_title("for admin"); print qq|
$ntitle
|; if ($cookie{'ic'} eq crypt($ienv{'pwd'}, 'ic')) { $check = qq|TrueFalse|; } else { $check = qq|TrueFalse|; } &put_tr("If visitor is admin, don't count access", "", $check); &put_tr("Reformatting Referer Log", "", qq|Remove access and below
|); &put_tr("Resetting Counter Value (unique/access)", "", qq| /
|); print qq|
|; } $zcp .= qq|IRISCOUNTER - ©1999-2000. NvyU. (-=starry scape=-)|; print qq|
$zcp

|; &unlock; exit; sub put_tr { if ($ndt eq '#ffffff') { $ndt = '#eeeeee'; } else {$ndt = '#ffffff'; } print qq|$_[0] / $_[1] $_[2]|; } sub get_colors { ($tmp) = @_; foreach $CLR (@CLR) { @NR = split(/\|/, $CLR); return $NR[1] if ($NR[0] eq $tmp); } return ""; } sub get_resolution { ($tmp) = @_; if ($tmp ne '') { return $tmp . "x". int($tmp*0.75); } else { return ''; } } sub get_best { ($proc, @TMP) = @_; $zp = 0; $totalvalue = 0; $wtotalvalue = 0; $zkey = ''; $wtmax = 0; foreach $pairs (@TMP) { ($key, $value, $dummy, $wzkey) = split(/\|/, $pairs); if ($zp < $value ){ if ($key ne '' or $proc == 1) { $zp = $value; $zkey = $key; } } $wtmax = $wzkey if ($wtmax < $wzkey); $wtotalvalue += $wzkey; $totalvalue += $value; } return if ($totalvalue == 0); return($zkey, $zp, $totalvalue, int($zp/$totalvalue * 1000)/10 . "%", $wtmax, $wtotalvalue); } sub get_form { if ($ENV{'REQUEST_METHOD'} eq "POST") { read(STDIN, $form, $ENV{'CONTENT_LENGTH'}); } else { $form = $ENV{'QUERY_STRING'}; } @key_pairs = split(/&/, $form); foreach $key_value (@key_pairs) { ($key, $value) = split(/=/, $key_value); $value =~ s/^\s+//; $value =~ tr/+/ /; $value =~ s/%([\dA-Fa-f][\dA-Fa-f])/pack("C", hex($1))/eg; $value =~ s/\|/|/g; $FORM{$key} = $value; } } sub get_time { ($sec, $min, $hour, $day, $mon, $year, $wday, $yday, $isdst) = localtime(time); $year += 1900 if length $year < 4; $year += 100 if $year <= 1970; $mon += 1; $thisday = (Sun,Mon,Tue,Wed,Thu,Fri,Sat) [$wday]; $sec = "0$sec" if $sec < 10; $min = "0$min" if $min < 10; $hour = "0$hour" if $hour < 10; $day = "0$day" if $day < 10; $mon = "0$mon" if ($mon < 10); $pzc = qq||; } sub header { print "Content-Type: text/html\nPragma: no-cache\n\n"; print qq|\n\n|; } sub make_title { my($title) = @_; my($ntitle); $cp = 1; $ntitle = ''; foreach (1 .. length $title) { $char = substr($title, $_ - 1, 1); if ($char eq ' ') { $ntitle .= ""; $cp = 1; } else { if ($cp == 1) { $ntitle .= " $char"; $cp = 0; } else { $ntitle .= "$char"; } } } return "". $ntitle .""; } sub drw_graph { my($title, $field, $appd, @LOG) = @_; undef(@NLOG); $ntitle = &make_title($title); print qq|
$ntitle$appd
|; foreach $LIST (@LOG) { ($key, $value, $tix, $tmx) = split(/\|/, $LIST); if ($sortby == 0) { push(@NLOG, $value); } else { push(@NLOG, $tmx); } } @NLOG = sort {$b <=> $a} @NLOG; foreach $LIST (@LOG) { ($key, $value, $tix, $tmx) = split(/\|/, $LIST); foreach $nap (@NLOG) { if ($sortby == 0 && $value eq $nap) { $nap = "$key\|$value\|$tix|$tmx"; last; } if ($sortby != 0 && $tmx eq $nap) { $nap = "$key\|$value\|$tix|$tmx"; last; } } } @ALOG = @NLOG; $tlog = $#ALOG + 1; $extra = 1 if (($tlog % $ienv{'page'}) != 0); $tpage = int($tlog / $ienv{'page'}) + $extra; $p_prev = $page - 1; $p_next = $page + 1; $FORM{'t'} = $page = $tpage if ($tpage < $FORM{'t'}); if ($p_prev > 0) { $prev = qq|> Prev |; } else { $prev = qq|bgcolor="$bclr">Start|; } if ($p_next < $tpage + 1) { $next = qq|> Next |; } else { $next = qq|bgcolor="$bclr">Last|; } if ($FORM{'s'} == 0) { $hsow1 = qq| bgcolor="$bclr">Total|; $hsow2 = qq|> This Week |; } else { $hsow1 = qq|> Total |; $hsow2 = qq| bgcolor="$bclr">This Week|; } $graph = &get_pagebar($page, $tpage); foreach (1 .. ($FORM{'t'}-1) * $ienv{'page'}) { shift(@ALOG); } $#ALOG = $ienv{'page'} - 1 if ($#ALOG >= $ienv{'page'}); $tia = time; $wtot = 1 if ($wtot == 0); $tot = 1 if ($tot == 0); if ($wmax / $wtot < $max / $tot) { $grppt1 = 250; $grppt2 = int(($wmax / $wtot) / ($max / $tot) * 250); } else { $grppt1 = int(($max / $tot) / ($wmax / $wtot) * 250); $grppt2 = 250; } foreach $LIST (@ALOG) { ($key, $value, $tix, $tmx) = split(/\|/, $LIST); $c = not $c; $tmx += 0; if ($c) { $clb = qq|#ffffff|; } else { $clb = qq|#eeeeee|; } $perct = "(" . int($value / $tot * 1000) / 10 . "%)"; $wperct = "(" . int($tmx / $wtot * 1000) / 10 . "%)"; $glen = 1 if ($glen < 1); $wlen = 1 if ($wlen < 1); if ($max == $value) { $clr = "#3333ff"; } else { $clr = "#000000"; } $glen = int($value / $max * $grppt1); if ($wmax != 0) { $wlen = int($tmx / $wmax * $grppt2); } else { $wlen = 0; } $graf = qq||; $agraf = qq||; $key = 'Direct Request' if ($key eq '' && $FORM{'p'} == 11); $key = 'Unknown' if ($key eq ''); $key =~ s///; $key =~ s/<\/b>//; if ($FORM{'p'} == 11) { $zkey = ''; for ($i = 0; $i < length $key; $i += 40) { $zkey .= substr($key, $i, 40) . "
"; } } else { $zkey = $key; } if ($tia - $tix < 60*60*24*7) { $tc = sprintf("%02X0000",255 - int(($tia - $tix) / (60 * 60 * 24 * 7) * 150)); $zkey = qq|$zkey|; } $zkey = qq|$zkey| if ($key ne 'Direct Request' && $key ne 'Personal Origin' && $FORM{'p'} == 11); $tmx = "$tmx" if ($tmx != 0); print qq||; } print qq|
$fieldAccess
$zkey$agraf$tmx $wperct / $value $perct
$graf
|; print qq|
$graph
| if ($tpage > 1); print qq|
Sort by
|; } sub show_admin { print qq|irisc
IRiS COUNTER $ver
STATiSTiCS
THIS FUNCTION IS ONLY FOR ADMIN!
ADMIN PASSWORD
IRIS Counter - Copyright©1999-2000. NvyU. (-=starry scape=-)
|; } sub get_pagebar { local($page_now, $page_total) = @_; local $ppp = 8; $b_p = $page_now - $ppp / 2; $b_p = 1 if $b_p < 1; $e_p = $b_p + $ppp; if ($e_p > $page_total) { $e_p = $page_total; $b_p = $e_p - $ppp; $b_p = 1 if $b_p < 1; } $pages .= qq|[1]...| if ($b_p > 1); for ($i = $b_p; $i <= $e_p; $i++) { if ($page_now == $i) { $pages .= qq|[$i]|; } else { $pages .= qq|[$i]|; } } $pages .= qq|...[$page_total]| if ($e_p < $page_total); return $pages; } sub put_graph { ($title, $filename, $field) = @_; &lock; open(FILE, $filename); @LOG = ; close(FILE); &unlock; $tot = 0; $max = 0; $c = 0; ($dmy, $max, $tot, $dmy, $wmax, $wtot) = &get_best(1, @LOG); if ($FORM{'p'} == 9 or $FORM{'p'} == 10 ) { foreach $LOG (@LOG) { ($key, $value, $tix, $tmx) = split(/\|/, $LOG); if ($FORM{'p'} == 9) { $key = &get_resolution($key); } else { $key = &get_colors($key); } $LOG = "$key|$value|$tix|$tmx"; } } elsif ($FORM{'p'} == 11) { foreach $LOG (@LOG) { ($key, $value, $tix, $tmx) = split(/\|/, $LOG); $key =~ s/%([\dA-Fa-f][\dA-Fa-f])/pack("C", hex($1))/eg; $key =~ s/%([\dA-Fa-f][\dA-Fa-f])/pack("C", hex($1))/eg; $LOG = "$key|$value|$tix|$tmx"; } } elsif ($FORM{'p'} == 3) { undef(%iz); foreach $LOG (@LOG) { ($key, $value, $tix, $tmx) = split(/\|/, $LOG); $key = "Windows 2000" if ($key =~ /Windows NT 5.0/i); $key = "Windows XP" if ($key =~ /Windows NT 5.1/i); $key = "Windows NT" if ($key =~ /Windows NT/i); $key = "Windows 3.x" if ($key =~ /Win32/i); $key = "IRIX" if ($key =~ /IRIX/i); $key = "OSF1" if ($key =~ /OSF1/i); $key = "AIX" if ($key =~ /AIX/i); $key = "FreeBSD" if ($key =~ /FreeBSD/); $key = "Linux" if ($key =~ /Linux/); $key = "DreamPassport" if ($key =~ /DreamPassport/); $key = "SunOS" if ($key =~ /SunOS/); $key = "Macintosh" if ($key =~ /Mac/); $key = "MSN" if ($key =~ /MSN/); $key = "AOL" if ($key =~ /AOL/); $key = 'Unknown' if ($key =~ /\=/); $iz{$key} += $value; $tmx{$key} += $tmx; $tz{$key} = $tix if ($tz{$key} < $tix); } undef(@LOG); foreach $nname (keys %iz) { push(@LOG, "$nname\|$iz{$nname}\|$tz{$nname}\|$tmx{$nname}"); } } &drw_graph($title, $field, "", @LOG); } sub get_weekday { local($want_year, $want_mon, $want_day) = @_; local(@mdays) = ( 0, 31, 28, 31, 30, 31, 30, 31, 31, 30, 31, 30, 31 ); if (( (!($want_year % 4)) && ($want_year % 100)) || (!($want_year % 400))) { $mdays[2] = 29; } $total_days = ($want_year * 365) + int(($want_year - 1) / 4) - int(($want_year - 1) / 100) + int(($want_year - 1) / 400); foreach (1 .. $want_mon - 1) { $total_days += $mdays[$_]; } $wtmp = ($total_days + $want_day) % 7 - 1; $wtmp = 6 if ($wtmp == -1); return $wtmp; } sub get_cookie { @COOKIES = split(/; /,$ENV{'HTTP_COOKIE'}); foreach (@COOKIES) { ($ck_name,$ck_value) = split(/=/,$_); $cookie{$ck_name} = $ck_value; } } sub lock { local($retry) = 10; local($flag) = 0; if ($lock == 1) { while (!symlink(".", $lockfile)) { if (--$retry <=0 ) { unlink($lockfile) if (-e $lockfile); &open_err("File Lock", "$!"); } sleep(2); } } elsif ($lock == 2) { foreach (1 .. $retry) { if (-e "$lockfile") { sleep(2); } else { open(LOCK, ">$lockfile"); close(LOCK) || &open_err("File Lock", "$!"); $flag = 1; last; } } &open_err("File Lock", "$!") if ($flag == 0); } } sub chk_admin { &get_cookie; if ($FORM{'pwd'} ne '') { print "Set-Cookie: pwd=$FORM{'pwd'}\n"; $cookie{'pwd'} = $FORM{'pwd'}; } $admin = 0; if ($cookie{'pwd'} eq $ienv{'pwd'}) { $admin = 1;} else { $admin = 0; } } sub open_err { local($location, $message) = @_; print 'Content-type: text/html', "\n"; print 'Pragma: no-cache', "\n\n"; print '500 CGI internal Error', "\n"; print '

500 CGI internal Error

', "\n"; print "Internal CGI Execute Error, $soft on $location.

\n"; print 'Please contact the webmaster, ', "$CFG{'email'}" , "\n"; print 'and inform them of the time occurred, and', "\n"; print ' anything you might have done that may have caused the error.

', "\n"; print "$soft $ver", '- Error: ', $message, '

', "\n"; print '', "\n"; &unlock; exit; } sub get_userinfo { if ($ENV{'HTTP_USER_AGENT'} =~ /Mozilla/){ ($detail)=$ENV{'HTTP_USER_AGENT'} =~ /\((.*)\)/; @detail=split(/; */,$detail); if ($detail[0] eq "compatible"){ $browser="$detail[1]"; $browser=~s/MSIE/Internet Explorer/; if ($browser !~ /\d/) { $browser=""; } else { $browser = "IE"; } } else { ($nsver)=$ENV{'HTTP_USER_AGENT'} =~ /Mozilla\/(\d*.\d*\w*)/; $browser="NC" if ($nsver); } } } sub unlock { unlink($lockfile) if (-e $lockfile); } sub get_file { my(@FILEGET); open(FILEGET, "$_[0]"); @FILEGET = ; close(FILEGET) or &open_err("get_file", "file get error ... $_[0]"); return @FILEGET; } sub put_file { my($filename, @putdata) = @_; open(FILEPUT, ">$_[0]"); print FILEPUT @putdata; close(FILEPUT) or &open_err("put_file", "file write error ... $_[0]"); }