#!/usr/bin/perl print "Content-type: text/html\n\n"; #open( STDOUT, "> proov.html"); sub LOENIMEKIRI { $str= ('< ./'.$dir.'/kom.txt'); open( NIMED, $str); $line = ; chop $line; $N = $line; $line = ; chop $line; $TITLE = $line; $line = ; chop $line; $THUMB = $line; for ($i = 0; $i < $N; $i++){ $line = ; chop $line; $piltfile[$i]=$line; $line = ; chop $line; $piltkom[$i] = $line; }; close(NIMED); } sub NAITAPILT{ print ('

'); print ($piltkom[$id],'

'); } # get input $buffer = $ENV{'QUERY_STRING'}; @pairs=split (/&/,$buffer); ($name,$dir) = split (/=/,$pairs[0]); ($na,$id) = split (/=/,$pairs[1]); LOENIMEKIRI; print ('Kursa pildialbum: '.$TITLE.'

',"\n\n"); if ($name eq "thumb") { print 'thumbnailid peaks tulema ilusti nüüd...'; print '
aga vist ei tule, või ei ole...

'; } elsif ($na eq "id") { NAITAPILT; if ($id ne "0") { print (' eelmine pilt '); }; if ($id ne ($N-1)) { print (' järgmine pilt

'); }; print (' Kõik pildid korraga. (',$N,' tk.)
'); } elsif ($na eq "koik"){ for ($id = 0; $id < $N; $id++){ NAITAPILT;}; }; if ($THUMB ne "") { print ('Pikem jutt asja kohta...

' ); }; print '
tagasi kroonika lehele...
'; print ('

'); #close (STDOUT);