|
||||||||||||||||||||||||||||||
|
|
|||||||||||||||||||||||||||||
|
||||||||||||||||||||||||||||||
$txt{'427'}
$txt{'94'}
$txt{'693'} |
|
$txt{'697'} |
|
|
|
EOT
for($i = 0; $i < @iplist; $i++) { $iplist{$iplist[$i]}++; }
$i = 0;
while(($key, $val ) = each(%iplist)) {
$newiplist[$i] = [ $key, $val ];
$i++;
}
$totalclick = @iplist-1;
$totalip = @newiplist-1;
print qq~$txt{'742'}: $totalclick ~; print qq~$txt{'743'}: $totalip ~; for($i = 0; $i < @newiplist; $i++) { if($newiplist[$i]->[0] =~ /\S+/) { print "$newiplist[$i]->[0] ($newiplist[$i]->[1]) \n"; } } print <<"EOT"; |
|
|
|
EOT
for($i = 0; $i < @browser; $i++) { $browser{$browser[$i]}++; }
$i = 0;
while(($key, $val ) = each(%browser)) {
$newbrowser[$i] = [ $key, $val ];
$i++;
}
$totalbrow = @newbrowser-1;
print qq~$txt{'744'}: $totalbrow ~; for($i = 0; $i < @newbrowser; $i++) { if($newbrowser[$i]->[0] =~ /\S+/) { print "$newbrowser[$i]->[0] ($newbrowser[$i]->[1]) \n"; } } print <<"EOT"; |
|
|
|
EOT
for($i = 0; $i < @os; $i++) { $os{$os[$i]}++; }
$i = 0;
while(($key, $val ) = each(%os) ) {
$newoslist[$i] = [ $key, $val ];
$i++;
}
$totalos = @newoslist-1;
print qq~$txt{'745'}: $totalos ~; for($i = 0; $i < @newoslist; $i++) { if($newoslist[$i]->[0] =~ /\S+/) { print "$newoslist[$i]->[0] ($newoslist[$i]->[1]) \n"; } } print <<"EOT"; |
|
|
|
EOT
for($i = 0; $i < @to; $i++) { $to{$to[$i]}++; }
$i = 0;
while(($key, $val ) = each(%to)) {
$newtolist[$i] = [ $key, $val ];
$i++;
}
for($i = 0; $i < @newtolist; $i++) {
if($newtolist[$i]->[0] =~ /\S+/) { print "[0] target=_blank>$newtolist[$i]->[0] ($newtolist[$i]->[1]) \n"; } } print <<"EOT"; |
|
|
|
EOT
for($i = 0; $i < @from; $i++) { $from{$from[$i]}++; }
$i = 0;
while(($key, $val ) = each(%from)) {
$newfromlist[$i] = [ $key, $val ];
$i++;
}
for($i = 0; $i < @newfromlist; $i++) {
if($newfromlist[$i]->[0] =~ /\S+/) { print "[0] target=_blank>$newfromlist[$i]->[0] ($newfromlist[$i]->[1]) \n"; } } print <<"EOT"; |
$txt{'613'}: $curcat / $catname{$curcat}
~; boardcheck: foreach $curboard (@catboards) { $curboard =~ s~[\n\r]~~g; print qq~$txt{'614'}: $curboard
~; fopen(FILE, "$boardsdir/$curboard.dat"); @boardinfo =
/\n/gi; $message =~ s~(\S{80})(?=\S)~$1\n~g; $message =~ s~\[([^\]]{0,30})\n([^\]]{0,30})\]~\[$1$2\]~g; $message =~ s~\[/([^\]]{0,30})\n([^\]]{0,30})\]~\[/$1$2\]~g; $message =~ s~(\w+://[^<>\s\n\"\]\[]+)\n([^<>\s\n\"\]\[]+)~$1$2~g; $message =~ s/\&/\&/g; $message =~ s/"/\"/g; $message =~ s/ / \ /g; $message =~ s//>/g; $message =~ s/\t/ \ \ \ /g; $message =~ s/\|/\|/g; $message =~ s~\n~
~g; &CheckIcon; $messages[$postnum] = qq~$msub|$mname|$memail|$mdate|$musername|$icon|$mattach|$mip|$message|$mns|$mlm|$mlmb\n~; if( $postnum == 0 ) { $tname = $mname; $temail = $memail; $tusername = $musername; $tsub = $msub; $ticon = $icon; } if( $postnum == $#messages ) { $tdate = $mdate; $lastposter = $musername eq 'Guest' ? qq~Guest-$mname~ : $musername; } } if( $treplies ) { --$treplies; if( fopen(FILE, ">$datadir/$tnum.txt") ) { print FILE @messages; fclose(FILE); $totalposts += $treplies + 1; ++$totalthreads; $ttimes{$threadnum} = stringtotime($tdate); $threads[$threadnum] = qq~$tnum|$tsub|$tname|$temail|$tdate|$treplies|$tusername|$ticon|$tstate\n~; if( fopen(FILE, "$datadir/$tnum.data") ) { $_ =
~; &footer; exit; } sub AdminMembershipRecount { &is_admin; $yytitle = $txt{'504'}; &header; &MembershipCountTotal; print qq~$txt{'505'}~; &footer; exit; } sub AdminBoardRecount { &is_admin; $yytitle = $txt{'502'}; my( $curcat, $curcatname, $curcataccess ); my( @categories, @catboards ); fopen(FILE, "$vardir/cat.txt"); @categories =
$txt{'9'} |
$txt{'6'} |
|
$txt{'735'} |
| $txt{'338'} |
|
|
|
$txt{'8'} |
| $txt{'135'} |
| $txt{'202'} |
| $txt{'203'}
$txt{'163'} $txt{'164'} |
$txt{'340'} |
$txt{'341'} |
|
$txt{'699'} |
|
$txt{'216'} |
|
$txt{'682'} |
| $txt{'429'} | ||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||
|
