#!/usr/bin/perl $ip=$ENV{'REMOTE_ADDR'}; #chop($ip); if (($ip eq "80.235.89.163") or ($ip eq "194.126.101.197") or ($ip eq "212.27.229.10") or ($ip eq "212.27.229.58") or ($ip eq "212.27.229.61") or ($ip eq "212.27.224.68") or ($ip eq "212.27.226.215") or ($ip eq "212.27.226.209")) { print "Location:http://neti.ee/cgi-bin/otsing?src=web&query=netikett\n\n"; } else { open (g, "register"); @reg=; close(g); open (f, "> ajut"); for ($i=0; $i<@reg; $i++) { chop($reg[$i]); @vana=split(/;/, $reg[$i]); $uus[$i]="$vana[6];$vana[0];$vana[1];$vana[2];$vana[3];$vana[4];$vana[5]"; print f "$uus[$i]\n"; } close (f); `sort ajut -n -r -o ajut`; open (f, "ajut"); @reg=; close (f); $arv=@reg; # Olemasolevate foorumite arv $jrk=$arv+1; open (g, "./arhiiv/arhregister"); @areg=; close (g); $arhnr=@areg; #Suletud teemade arv print "Content-type:text/html\n\n"; print ""; print ""; print ""; print ""; print ""; } print "

Aktiivsed teemad: ($arv)

"; for ($i=0; $i<@reg; $i++) { @teema=split(/;/, $reg[$i]); print ""; print ""; print ""; } print "

Teema	Alustas	Alustusaeg	Kirjade arv	Viimane kiri
$teema[2]	$teema[3]	$teema[4]	$teema[5]	$teema[6]

"; open (a, "aastad"); @aas=; close (a); for ($i=0; $i<@aas; $i++) { $viim=$aas[$i]; $es=$viim-1; chop ($viim); print "

$es - $viim õa

"; print ""; `rm ajut`; }