Форум

#!/usr/bin/perl # White Tiger WWW Board ver.2.52b # система wwwboard. Разработка, реализация # (C) 1998-1999, White Tiger (2:5049/91.38; # email:wtiger@mail.ru; http://wtiger.ncport.ru) # wtbservice.cgi - модуль обеспечения сервисных функций # wtbservice.cgi - services module # замена переменных производится в файле wtbext.cgi # you must change values in the wtbext.cgi # прочие величины if(!-e"wtbext.cgi"){print "\nError: not found wtbext.cgi";exit} require "wtbext.cgi"; params(3); $ended="

[$thekonf] [$lng[190]]

"; ### индивидуализация # распознавание if(not defined $a[0]){$a[0]='ins';$a[1]='news'} for $i(0..$#a) { if($a[$i] eq 'search'){$tps=1;goto SEARCH} if($a[$i] eq 'ins'){goto INSERT} if($a[$i] eq 'lastest'){$tps=2;goto SEARCH} if($a[$i] eq 'about'){goto ABOUTX} if($a[$i] eq 'aboutsoft'){&about; exit;} if($a[$i] eq 'statist'){goto STATIST} if($a[$i] eq 'help'){goto HELP} if($a[$i] eq 'forbidden'){goto FORBIDDEN} } goto ERROR; INSERT: for $i(0..$#a-1) { if($a[$i] eq 'ins') {$ins=$a[$i+1]} } if($ins eq 'begsearch') # (последнее сообщение)-100 { open NAM,"$data/$wtblast";$last=-100;close NAM; if($last<0){$last=0} print $last; } if($ins eq 'endsearch') # (последнее сообщение) { open NAM,"$data/$wtblast";$last=;close NAM; print $last; } if($ins eq 'begdata') { @b=localtime time-604800; printf ('%2.2d/%2.2d/19%2.2d',$b[3],$b[4]+1,$b[5]); } if($ins eq 'enddata') { printf ('%2.2d/%2.2d/19%2.2d',$t[3],$t[4]+1,$t[5]); } if($ins eq 'getdata') { @b=localtime time-259200; printf ('%2.2d/%2.2d/19%2.2d',$b[3],$b[4]+1,$b[5]); } if($ins eq 'news') { # проверка доступа с запрещенного ip-адреса $s=&verifyuser; if($s==-2){print "$lng[421]

$separator\n