#!/usr/bin/perl open (g, "arhregister"); @reg=; close(g); open (g, "../register"); @akt=; close (g); $arv=@akt; # Aktiivsete teemade arv $aarv=@reg; # Suletud foorumite arv $jrk=$arv+1; print "Content-type:text/html\n\n"; print ""; print ""; print ""; print ""; print ""; `rm ajut`;

Suletud teemad: ($aarv)

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

Teema	Alustas	Alustusaeg	Teema sulgus	Kirjade arv	Kaua üleval
$teema[1]	$teema[2]	$teema[3]	$teema[4]	$teema[5]	$teema[6] päeva