Объединенный Открытый Проект

Создаем файл [B]stats.cgi[/B] со следующим кодом:
<br>#!/usr/bin/perl<p>####################################################################<br># Advanced Stats for Ikonboard v2.х<br>#<br># Written by ST8 <st8@q3f.net><br># Translated & Edited by JESUS <jesus@tut.by><br>#####################################################################<p><br>use CGI::Carp "fatalsToBrowser"; # Output errors to browser<br>use CGI qw(:standard);           # Saves loads of work<br>$CGI::POST_MAX=1024 * 300;       # limit post data<br>$CGI::DISABLE_UPLOADS = 1;       # Disable uploads<p>eval {<br>($0 =~ m,(.*)/[^/]+,)   and unshift (@INC, "$1");<br>($0 =~ m,(.*)\[^\]+,) and unshift (@INC, "$1");<br>require "ikon.lib";           # Require ikonboard ()<br>require "data/progs.cgi";     # Require prog names<br>require "data/boardinfo.cgi"; # Require board info<br>require "data/styles.cgi";    # Require styles info<br>};<br>if ($@) {<br>print header(-charset=>$forumcharset); print start_html(-title=>"Ошибка!");<br>print "Невозможно найти файлы: $@\nЕсли Вы используете Windows NT, возможно придется прописать полный путь в каждый оператор require во всех скриптах";<br>print end_html; exit;<br>}<br>my $q = new CGI;<p>open(LOGFILE, "data/stats.log") or die "Невозможно открыть файл $!";<br>@logdata = <LOGFILE>;<br>close(LOGFILE);<p>foreach $log (@logdata) {<br>($name, $time, $location, $referer, $ip, $browser) = split(/\|/, $log);<br>push(@name, $name);<br>push(@time, $time);<br>push(@location, $location);<br>push(@referer, $referer);<br>push(@browser, $browser);<br>push(@ip, $ip);<br>}<p><br>$action = $q->param('action');<br>if ($action eq "page") { &pagestats; }<br>elsif ($action eq "member") { &memberstats; }<br>elsif ($action eq "referer") { &refererstats; }<br>elsif ($action eq "browos") { &browosstats; }<br>elsif ($action eq "time") { &timestats; }<br>elsif ($action eq "admin") { &admin; }<br>elsif ($action eq "setadmin") { &setadmin; }<br>else { &overview; }<p>$output .= qq~<br><table width="$tablewidth" align=center cellspacing=0 cellpadding=1  border=0 bgcolor=$titleborder><br><tr><td><table width=100% cellspacing=0 cellpadding=4 border=0><tr><td valign="middle" bgcolor=$menubackground><br><font face=$font color=$menufontcolor size=1><br><center><b>Статистика:</b> <a href=$boardurl/stats.cgi>Общая</a> | <a href=$boardurl/stats.cgi?action=page>По страницам</a> | <a href=$boardurl/stats.cgi?action=member>По участникам</a> | <a href=$boardurl/stats.cgi?action=referer>По ссылкам</a> | <a href=$boardurl/stats.cgi?action=browos>По браузерам/ОС</a> | <a href=$boardurl/stats.cgi?action=time>По времени</a> | <a href=$boardurl/stats.cgi?action=admin>Администрирование</a></center></font></td></tr></table></td></tr></table><br><br><table cellpadding=0 cellspacing=0 border=0 width=$tablewidth align=center><br><tr><td width=30% rowspan=2><img src="$imagesurl/images/$boardlogo" border=0></td><br><td align=left valign=top><font face="$font" color=$fontcolormisc size=2><font face="$font" color=$fontcolormisc size=2><br>&nbsp;&nbsp;<img src="$imagesurl/images/closedfold.gif" border=0><a href="$forumsummaryprog">&nbsp;&nbsp;$boardname</a><br><br>&nbsp;&nbsp;<img src="$imagesurl/images/bar.gif" border=0><img src="$imagesurl/images/openfold.gif" border=0>&nbsp;&nbsp;Развернутая статистика: $stattype</td></tr></tr></table><br><br><table width=100% cellpadding=4 cellspacing=1 border=0>~;<p>$output .= $statsout;<p>print header(-charset=>$forumcharset);<p>$boardname = "$boardname > Развернутая статистика > $stattype";<p>&output(<br>-Title   => $boardname, <br>-ToPrint => $output, <br>-Version => $versionnumber <br>);<p><br>##############################################<br>######## Subroutes (Page Stats)<p>sub pagestats {<p>foreach $location (@location) {<br>$location =~ s/Viewing:\s//isg;<br>$location =~ s/Viewing\s//isg;<br>$greploc = $location;<br>$greploc =~ s/\?/\?/isg;<br>$greploc =~ s/\&/\&/isg;<br>$greploc =~ s/\(/\(/isg;<br>$greploc =~ s/\)/\)/isg;<br>if (grep(/$greploc/, @savedpages)) {<br>   $arrsize = @savedpages;<br>   for ($i = 0; $i <= $arrsize; $i++) {<br>     if ($location eq $savedpages[$i]) {<br>      $savedcount[$i]++;<br>  }<br>}<br>} else {<br>  push (@savedpages, $location);<br>  $savedcount[$#savedpages] = 1;<br>}<br>}<p>for ($i = 0; $i <= $#savedpages; $i++) {<br>if ($savedpages[$i] && $savedcount[$i]) {<br>   $itemtosave = "$savedcount[$i]|$savedpages[$i]";<br>push (@savedpage, $itemtosave);<br>}<br>}<br>$stattype = "по страницам";<br>$statsout .= qq~<br><tr height=15><td width=50% valign=middle align=center nowrap bgcolor=$menubackground><font face="$font" color=$catfontcolor size=2><b>Страница</b></font></td><br><td valign=middle align=center nowrap bgcolor=$menubackground><font face="$font" color=$catfontcolor size=2><b>Просмотры</b></font></td><br><td valign=middle align=center nowrap bgcolor=$menubackground><font face="$font" color=$catfontcolor size=2><b>В процентах</b></font></td></tr>~;<p>@savedpage  = sort { $b <=> $a } @savedpage;<br>$totalvisits = sum(\@savedcount);<br>foreach $page (@savedpage) {<br>($count, $page) = split(/\|/, $page);<br>$percent = ($count / $totalvisits) * 100;<br>$percent = sprintf("%01d",$percent);<br>$picper = $percent * 5;<br>$statsout .= qq~<br><tr><td bgcolor=$forumcolortwo width=50%><font face="$font" color=$forumfontcolor size=1>$page</font></td><br><td bgcolor=$forumcolortwo align=center><font face="$font" color=$forumfontcolor size=2>$count</font></td><br><td bgcolor=$forumcolortwo><font face="$font" color=$forumfontcolor size=1><img src=$imagesurl/images/bg.gif width=$picper height=5> ($percent%)</font></td></tr><br>~;<br>}<br>$statsout .= qq~<tr><td colspan=3 bgcolor=$forumcolortwo><font face="$font" color=$forumfontcolor size=2><br>Общее количество просмотренных страниц: $totalvisits</font></td></tr></table>~;<br>return $statsout;<br>} # end of page stats<p><p>##############################################<br>######## Subroutes (Member Stats)<p>sub memberstats {<p>foreach $member (@name) {<br>if (grep(/$member/, @savednames)) {<br>   $arrsize = @savednames;<br>   for ($i = 0; $i <= $arrsize; $i++) {<br>     if ($member eq $savednames[$i]) {<br>      $savedcount[$i]++;<br>  }<br>}<br>} else {<br>  push (@savednames, $member);<br>  $savedcount[$#savednames] = 1;<br>}<br>}<p>for ($i = 0; $i <= $#savednames; $i++) {<br>if ($savednames[$i] && $savedcount[$i]) {<br>   $itemtosave = "$savedcount[$i]|$savednames[$i]";<br>push (@savedname, $itemtosave);<br>}<br>}<br>$stattype = "по участникам";<br>$statsout .= qq~<br><tr height=15><td width=50% valign=middle align=center nowrap bgcolor=$menubackground><font face="$font" color=$catfontcolor size=2><b>Участник</b></font></td><br><td valign=middle align=center nowrap bgcolor=$menubackground><font face="$font" color=$catfontcolor size=2><b>Просмотры</b></font></td><br><td valign=middle align=center nowrap bgcolor=$menubackground><font face="$font" color=$catfontcolor size=2><b>В процентах</b></font></td></tr>~;<p>@savedname  = sort { $b <=> $a } @savedname;<br>$totalvisits = sum(\@savedcount);<br>foreach $member (@savedname) {<br>($count, $name) = split(/\|/, $member);<br>$percent = ($count / $totalvisits) * 100;<br>$percent = sprintf("%01d",$percent);<br>$picper = $percent * 4;<br>$statsout .= qq~<br><tr><td bgcolor=$forumcolortwo width=50%><font face="$font" color=$forumfontcolor size=1>$name</font></td><br><td bgcolor=$forumcolortwo align=center><font face="$font" color=$forumfontcolor size=2>$count</font></td><br><td bgcolor=$forumcolortwo><font face="$font" color=$forumfontcolor size=1><img src=$imagesurl/images/bg.gif width=$picper height=5> ($percent%)</font></td></tr><br>~;<br>}<br>$statsout .= qq~<tr><td colspan=3 bgcolor=$forumcolortwo><font face="$font" color=$forumfontcolor size=2>Всего визитов: $totalvisits</font></td></tr></table>~;<p>return $statsout;<br>} # end of member stats<p><br>##############################################<br>######## Subroutes (Referer Stats)<p>sub refererstats {<p>foreach $referer (@referer) {<br>$grepref = $referer;<br>$grepref =~ s/\?/\?/isg;<br>$grepref =~ s/\&/\&/isg;<br>$grepref =~ s/\(/\(/isg;<br>$grepref =~ s/\)/\)/isg;<br>if (grep(/$grepref/, @savedreferer)) {<br>   $arrsize = @savedreferer;<br>   for ($i = 0; $i <= $arrsize; $i++) {<br>     if ($referer eq $savedreferer[$i]) {<br>      $savedcount[$i]++;<br>  }<br>}<br>} else {<br>  unless ($referer =~ /scripting.q3f.net/isg) {<br>  push (@savedreferer, $referer);<br>  $savedcount[$#savedreferer] = 1;<br>  }<br>}<br>}<p>for ($i = 0; $i <= $#savedreferer; $i++) {<br>if ($savedreferer[$i] && $savedcount[$i]) {<br>   $itemtosave = "$savedcount[$i]|$savedreferer[$i]";<br>push (@savedrefer, $itemtosave);<br>}<br>}<br>$stattype = "по сайтам";<br>$statsout .= qq~<tr height=15><td width=50% valign=middle align=center nowrap bgcolor=$menubackground><font face="$font" color=$catfontcolor size=2><b>Сайты</b></font></td><br><td valign=middle align=center nowrap bgcolor=$menubackground><font face="$font" color=$catfontcolor size=2><b>Количество</b></font></td><br><td valign=middle align=center nowrap bgcolor=$menubackground><font face="$font" color=$catfontcolor size=2><b>В процентах</b></font></td></tr>~;<p>@savedrefer  = sort { $b <=> $a } @savedrefer;<br>$totalvisits = sum(\@savedcount);<br>foreach $referer (@savedrefer) {<br>($count, $name) = split(/\|/, $referer);<br>$percent = ($count / $totalvisits) * 100;<br>$percent = sprintf("%01d",$percent);<br>$picper = $percent * 4;<br>$statsout .= qq~<tr><td bgcolor=$forumcolortwo width=50%><font face="$font" color=$forumfontcolor size=1><a href=$name target=_blank>$name</a></font></td><br><td bgcolor=$forumcolortwo align=center><font face="$font" color=$forumfontcolor size=2>$count</font></td><br><td bgcolor=$forumcolortwo><font face="$font" color=$forumfontcolor size=1><img src=$imagesurl/images/bg.gif width=$picper height=5> ($percent%)</font></td></tr>~;<br>}<br>$statsout .= qq~<tr><td colspan=3 bgcolor=$forumcolortwo><font face="$font" color=$forumfontcolor size=2><br>Общее количество ссылающихся сайтов: $totalvisits</font></td></tr></table>~;<p>return $statsout;<br>} # end of referer stats<p><br>##############################################<br>######## Subroutes (Browser Stats)<p>sub browosstats {<p>foreach $browser (@browser) {<br>$browser =~ s/compatible;//isg;<br>$browser =~ s/Mozilla\/4.0//isg;<br>$browser =~ s/\(//isg;<br>$browser =~ s/\)//isg;<br>$grepbrow = $browser;<br>$grepbrow =~ s/\[/\[/isg;<br>$grepbrow =~ s/\]/\]/isg;<br>if (grep(/$grepbrow/, @savedbrowsers)) {<br>   $arrsize = @savedbrowsers;<br>   for ($i = 0; $i <= $arrsize; $i++) {<br>     if ($browser eq $savedbrowsers[$i]) {<br>      $savedcount[$i]++;<br>  }<br>}<br>} else {<br>  push (@savedbrowsers, $browser);<br>  $savedcount[$#savedbrowsers] = 1;<br>}<br>}<p>for ($i = 0; $i <= $#savedbrowsers; $i++) {<br>if ($savedbrowsers[$i] && $savedcount[$i]) {<br>   $itemtosave = "$savedcount[$i]|$savedbrowsers[$i]";<br>push (@savedbrowser, $itemtosave);<br>}<br>}<br>$stattype = "по браузерам/ОС";<br>$statsout .= qq~<br><tr height=15><td width=50% valign=middle align=center bgcolor="$menubackground" nowrap><font face="$font" color=$catfontcolor size=2><b>Браузер/ОС</b></font></td><br><td valign=middle align=center bgcolor="$menubackground" nowrap><font face="$font" color=$catfontcolor size=2><b>Количество</b></font></td><br><td valign=middle align=center bgcolor="$menubackground" nowrap><font face="$font" color=$catfontcolor size=2><b>В процентах</b></font></td></tr>~;<p>@savedbrowser  = sort { $b <=> $a } @savedbrowser;<br>$totalvisits = sum(\@savedcount);<br>foreach $browser (@savedbrowser) {<br>($count, $browser) = split(/\|/, $browser);<br>$percent = ($count / $totalvisits) * 100;<br>$percent = sprintf("%01d",$percent);<br>$picper = $percent * 4;<br>$statsout .= qq~<tr><td bgcolor=$forumcolortwo width=50%><font face="$font" color=$forumfontcolor size=1>$browser</font></td><br><td bgcolor=$forumcolortwo align=center><font face="$font" color=$forumfontcolor size=2>$count</font></td><br><td bgcolor=$forumcolortwo><font face="$font" color=$forumfontcolor size=1><img src=$imagesurl/images/bg.gif width=$picper height=5> ($percent%)</font></td></tr>~;<br>}<p>$statsout .= qq~<tr><td colspan=3 bgcolor=$forumcolortwo><font face="$font" color=$forumfontcolor size=2>Всего записей: $totalvisits</font></td></tr></table>~;<p>return $statsout;<br>} # end of browser/os stats<p><br>##############################################<br>######## Subroutes (Overview)<p>sub overview {<br>foreach $ip (@ip) {<br>unless(grep(/$ip/, @savedips)) {<br>push (@savedips, $ip);<br>}<br>}<p>foreach $referer (@referer) {<br>$grepref = $referer;<br>$grepref =~ s/\?/\?/isg;<br>$grepref =~ s/\&/\&/isg;<br>$grepref =~ s/\(/\(/isg;<br>$grepref =~ s/\)/\)/isg;<br>unless(grep(/$grepref/, @savedreferer)) {<br>push (@savedreferer, $referer);<br>}<br>}<p>$stattype = "общая";<br>$firstpost = $time[0];<br>$firstpost = $firstpost + ($timedifferencevalue*3600) + ($timezone*3600);<br>$firstpost = &dateformat("$firstpost");<br>$uniques = @savedips;<br>$impressions = @logdata;<br>$referers = @savedreferer;<br>$lastpage = $location[-1];<br>$lastreferer = $referer[-1];<br>$lasthittime = $time[-1];<br>        $lasthittime = $lasthittime + ($timedifferencevalue*3600) + ($timezone*3600);<br>        $lasthittime = &dateformat("$lasthittime");<br>$lastbrowser = $browser[-1];<br>$lastbrowser =~ s/compatible;//isg;<br>$lastbrowser =~ s/Mozilla\/4.0//isg;<br>$lastbrowser =~ s/\(//isg;<br>$lastbrowser =~ s/\)//isg;<p>$statsout .= qq~<br><tr height=15><td colspan=2 valign=middle align=center bgcolor=$menubackground nowrap><font face="$font" color=$catfontcolor size=2><b>Общее</b></font></td><tr><br><tr><td bgcolor=$forumcolortwo><font face="$font" color=$forumfontcolor size=2>Всего посещений:</font></td><br><td bgcolor=$forumcolortwo><font face="$font" color=$forumfontcolor size=2>$impressions с $firstpost</font></td></tr><br><tr><td bgcolor=$forumcolortwo><font face="$font" color=$forumfontcolor size=2>Всего уникальных посетителей:</font></td><br><td bgcolor=$forumcolortwo><font face="$font" color=$forumfontcolor size=2>$uniques с $firstpost</font></td></tr><br><tr><td bgcolor=$forumcolortwo><font face="$font" color=$forumfontcolor size=2>Всего ссылающихся сайтов:</font></td><br><td bgcolor=$forumcolortwo><font face="$font" color=$forumfontcolor size=2>$referers с $firstpost</font></td></tr><br><tr height=15><td colspan=2 valign=middle align=center bgcolor=$menubackground nowrap><font face="$font" color=$catfontcolor size=2><b>Последний посетитель</b></font></td><tr><br><tr><td bgcolor=$forumcolortwo><font face="$font" color=$forumfontcolor size=2>Последний хит:</font></td><br><td bgcolor=$forumcolortwo><font face="$font" color=$forumfontcolor size=2>$lastpage</font></td></tr><br><tr><td bgcolor=$forumcolortwo><font face="$font" color=$forumfontcolor size=2>Последний ссылающийся сайт:</font></td><br><td bgcolor=$forumcolortwo><font face="$font" color=$forumfontcolor size=2>$lastreferer</font></td></tr><br><tr><td bgcolor=$forumcolortwo><font face="$font" color=$forumfontcolor size=2>Время последнего хита:</font></td><br><td bgcolor=$forumcolortwo><font face="$font" color=$forumfontcolor size=2>$lasthittime</font></td></tr><br><tr><td bgcolor=$forumcolortwo><font face="$font" color=$forumfontcolor size=2>Последний браузер:</font></td><br><td bgcolor=$forumcolortwo><font face="$font" color=$forumfontcolor size=2>$lastbrowser</font></td></tr>~;<br>return $statsout;<br>}<p><br>##############################################<br>######## Subroutes (Time Stats)<p>sub timestats {<br>$stattype = "по часам";<br>$statsout .= qq~<br><tr height=15><td valign=middle align=center bgcolor="$menubackground" nowrap><font face="$font" color=$catfontcolor size=2><b>Время</b></font></td><br><td valign=middle align=center bgcolor="$menubackground" nowrap><font face="$font" color=$catfontcolor size=2><b>Количество</b></font></td><br><td valign=middle align=center bgcolor="$menubackground" nowrap><font face="$font" color=$catfontcolor size=2><b>В процентах</b></font></td></tr>~;<p>foreach $time (@time) {<br>    $time = $time + ($timedifferencevalue*3600) + ($timezone*3600);<br>    $time = &dateformat("$time");<br>for ($i = 0; $i <= 12; $i++) {<br>if ($time =~ /$i:\d\d\sam/) {<br>   $outvar = "{$i}hour";<br>   ${$outvar}++;<br>} elsif ($time =~ /$i:\d\d\spm/) {<br>   $td = $i;<br>   $td += 12;<br>   $outvar = "{$td}hour";<br>   ${$outvar}++;<br>}<br>} <br>}<br>for ($i = 0; $i <= 24; $i++) {<br>$outvar = "{$i}hour";<br>if (! ${$outvar}) {<br>   ${$outvar} = 0;<br>   }<p>$percent = (${$outvar} / $#time) * 100;<br>$percent = sprintf("%01d",$percent);<br>$picper = $percent * 6;<br>$statsout .= qq~<br><tr><td bgcolor=$forumcolortwo><font face="$font" color=$forumfontcolor size=1>$i:00 - $i:59</font></td><br><td bgcolor=$forumcolortwo align=center><font face="$font" color=$forumfontcolor size=2>${$outvar}</font></td><br><td bgcolor=$forumcolortwo><font face="$font" color=$forumfontcolor size=1><img src=$imagesurl/images/bg.gif width=$picper height=5> ($percent%)</font></td></tr><br>~;<br>}<br>}<p><br>##############################################<br>######## Subroutes (Admin's Options)<p>sub admin {<br>$stattype = "опции администрирования";<br>my $inmembername = $q->param('membername');<br>my $inpassword   = $q->param('password');<p>if (! $inmembername) { $inmembername = cookie("amembernamecookie"); }<br>if (! $inpassword)   { $inpassword   = cookie("apasswordcookie");   }<br>if ($inmembername eq "" || $inmembername eq "Guest") {<br>    $inmembername = "Гость";<br>    }<p>&getmember($inmembername);<p>if ($userregistered eq "no") { &borkage; exit; }<br>elsif ($inpassword ne $password) { &borkage; exit; }<br>elsif ($membercode ne "ad") { &borkage; exit; }<p>$statsout .= qq~<br><tr height=15><td valign=middle align=center bgcolor=$menubackground nowrap><font face="$font" color=$catfontcolor size=2><b>Опции Администрирования</b></font></td></tr><br><form action=$boardurl/stats.cgi method=post><tr><td bgcolor=$forumcolortwo><font face="$font" color=$forumfontcolor size=2><br><input type=hidden name=action value=setadmin><br><input type=radio name=adaction value=clearlog> Очистить журнал статистики<br><br><br><input type=radio name=adaction value=trimlog> Урезать журнал статистики до x строк <input type=text name=trimlen size=6><br><br><br><input type=submit name=submit value="Выполнить"></font></td></tr></form><br>~;<br>}<p>sub setadmin {<br>my $inmembername = $q->param('membername');<br>my $inpassword   = $q->param('password');<p>if (! $inmembername) { $inmembername = cookie("amembernamecookie"); }<br>if (! $inpassword)   { $inpassword   = cookie("apasswordcookie");   }<br>if ($inmembername eq "" || $inmembername eq "Guest") {<br>    $inmembername = "Гость";<br>    }<p>&getmember($inmembername);<br>if ($userregistered eq "no") { &borkage; exit; }<br>elsif ($inpassword ne $password) { &borkage; exit; }<br>elsif ($membercode ne "ad") { &borkage; exit; }<p>$adaction = $q->param('adaction');<br>if ($adaction eq "clearlog") {<br>open(LOGFILE, ">$ikondir/data/stats.log");<br>print LOGFILE "";<br>close(LOGFILE);<br>} elsif ($adaction eq "trimlog") {<br>open(LOGFILE, "$ikondir/data/stats.log");<br>@logdata = <LOGFILE>;<br>close(LOGFILE);<p>open(LOGFILE, ">$ikondir/data/stats.log");<br>$trimlen = $q->param('trimlen');<br>$end = $#logdata - $trimlen;<br>for($i = $#logdata; $i >= $end; $i--) {<br>print LOGFILE "$logdata[$i]";<br>}<br>close(LOGFILE);<br>}<br>&admin;<br>}<p><br>##############################################<br>######## Subroutes (Borkage)<p>sub borkage {<br>$stattype = "ошибка";<br>$output = qq~<br><table width=$tablewidth align=center cellspacing=0 cellpadding=1  border=0 bgcolor=$titleborder><br><tr><td><table width=100% cellspacing=0 cellpadding=4 border=0><tr><td bgcolor=$menubackground valign=middle><br><font face=$font color=$menufontcolor size=1><br><center><b>Статистика:</b> <a href=$boardurl/stats.cgi>Общая</a> | <a href=$boardurl/stats.cgi?action=page>По страницам</a> | <a href=$boardurl/stats.cgi?action=member>По участникам</a> | <a href=$boardurl/stats.cgi?action=referer>По ссылкам</a> | <a href=$boardurl/stats.cgi?action=browos>По браузерам/ОС</a> | <a href=$boardurl/stats.cgi?action=time>По времени</a> | <a href=$boardurl/stats.cgi?action=admin>Администрирование</a></center></font></td></tr></table></td></tr></table><br><br><table cellpadding=0 cellspacing=0 border=0 width=$tablewidth align=center><br><tr><td width=30% rowspan=2><img src="$imagesurl/images/$boardlogo" border=0></td><td align=left valign=top><font face="$font" color=$fontcolormisc size=2><br><font face="$font" color=$fontcolormisc size=2><br>&nbsp;&nbsp;<img src="$imagesurl/images/closedfold.gif" border=0><a href="$forumsummaryprog">&nbsp;&nbsp;$boardname</a><br><br>&nbsp;&nbsp;<img src="$imagesurl/images/bar.gif" border=0><img src="$imagesurl/images/openfold.gif" border=0>&nbsp;&nbsp;Stats: $stattype</td></tr></tr></table><br><br><table width=100% cellpadding=4 cellspacing=1 border=0><tr height=15><br><td valign=middle align=center bgcolor=$menubackground nowrap><font face="$font" color=$catfontcolor size=2><b>Ошибка!</b></font></td></tr><br><tr><td bgcolor=$forumcolortwo><font face="$font" color=$forumfontcolor size=1>Возможная причина: Вы не являетесь Администратором, или пароль введен неверно.</font></td></tr><br>~;<p>print $q->header();<br>$boardname = "$boardname > Развернутая статистика > $stattype";<br>&output(<br>-Title   => $boardname, <br>-ToPrint => $output, <br>-Version => $versionnumber <br>);<br>}<p><br>##############################################<br>######## Subroutes (Summary)<br>sub sum {<br>my ($aref) = @_;<br>my ($total) = 0;<br>foreach (@$aref) { $total += $_ }<br>return $total;<br>}<br>
Сохраняем и заливаем на сервер с правами доступа chmod 755.

Шаг второй:
В скрипте [B]ikon.lib[/B]
заменяем код:
<br>$guests = 0;<br>$members = 0;<br>$currenttime = time;<br>$membergone = 15;<br>$userexpire = $currenttime - ($membergone * 60);<br>    <br>$ipaddress = $ENV{'REMOTE_ADDR'};<p>if ($tempusername eq "Guest") { $tempusername = "Guest $ipaddress"; }<p>
на код:
<br>$guests = 0;<br>$members = 0;<br>$currenttime = time;<br>$membergone = 15;<br>$userexpire = $currenttime - ($membergone * 60);<br>    <br>$ipaddress = $ENV{'REMOTE_ADDR'};<br>$logname = $tempusername;<br>if ($tempusername eq "Guest") { $tempusername = "Guest $ipaddress"; }<p>
Затем код:
<br>       if ($memberprinted eq "no") { print FILE "$tempusername|$currenttime|$where\n";}        <br>        close(FILE);<br>    <br>        if ($method eq "both") {<br>
на:
<br>        if ($memberprinted eq "no") { print FILE "$tempusername|$currenttime|$where\n";}        <br>        close(FILE);<p>$referer = $ENV{'HTTP_REFERER'};<br>$browser = $ENV{'HTTP_USER_AGENT'};<br>$media = $ENV{'HTTP_ACCEPT'};<p>open(LOGFILE, ">>$ikondir/data/stats.log");<br>print LOGFILE "$logname|$currenttime|$where|$referer|$ipaddress|$browser\n";<br>close(LOGFILE);<p>        if ($method eq "both") {<br>
Сохраняем и заливаем на сервер...

Шаг третий:
в директории data создаем пустой файл [B]stats.log[/B] c правами доступа chmod 777.

Шаг четвертый:
рисуем картинку [B]bg.gif[/B] по своему усмотрению - это будут колонки графиков в статистике...
Заливаем его в папку с картинками (images)...

вот и все!
запускайте stats.cgi и радуйтесь ;)

Enjoy!

зы: как работает можно глянуть у меня
http://planeta.solo.by/cgi-bin/ikonboard/stats.cgi

(Сообщение отредактировал JESUS 18 нояб. 2003 13:54)

Вот в ikon.lib нашел какую-то поверку на refer и boardurl
$_ = $ENV{'HTTP_REFERER'};
if (!m/^$boardurl/) { $referrer=$_; }

Вообщем лучше у XXXX Pro спросить

[q]

Вот в ikon.lib нашел какую-то поверку на refer и boardurl
$_ = $ENV{'HTTP_REFERER'};
if (!m/^$boardurl/) { $referrer=$_; }

Вообщем лучше у XXXX Pro спросить  

[/q]