|
Kuvia soittokunnan toiminnasta:
#!/usr/bin/perl
use CGI qw(:standard);
$gallery=param('gallery');
#avataan tiedosto lukemista varten
open(GFILE,"< images/$gallery/images.fle");
@all_lines=;
close GFILE;
#tulostetaan taulukon alku
print "Content-Type: text/html\n\n";
print "\n";
$colnum=0;
foreach $sline (@all_lines)
{
if($colnum==0){print "\n";}
chop($sline);
# piirretään kuva
if($sline)
{
print "\n";
print "![\"$sline\"](\"http://www.maarianvpk.fi/yleista/thumb.php?gallery=$gallery&image=$sline\"\n";) | \n";
#print "\tALIGN=\"BASELINE\" BORDER=\"0\" ALT=\"$sline\" HEIGHT=\"96\" WIDTH=\"128\">\n";
}
$colnum++;
if($colnum>2)
{
print " ";
$colnum=0;
}
}
#tulostetaan taulukon loppu
print " \n";
|
