#!/usr/bin/perl $nr=$ENV{'QUERY_STRING'}; print "Content-type: text/html\n\n"; open (f, "$nr"); @sisu=; close(f); $j=0; $k=0; for ($i=0; $i<@sisu; $i++) #Sisu failis teeb tekstid üherealiseks { if ($sisu[$i] ne "----\n") { if ($k==0) { $tekst[$j]=$sisu[$i]; $k=1; } else { $tekst[$j]="$tekst[$j]
$sisu[$i]"; } } else { $j++; $k=0; } } open (g, "arhregister"); @reg=; close (g); for ($k=0; $k<@reg; $k++) { @teema=split(/;/, $reg[$k]); if ($teema[0] eq $nr) { print "

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

ARHIIV	$teema[1]
$andmed[0] $andmed[1]	$andmed[2]

"; } }