#!/usr/local/bin/perl ############################################################################ # Digitalt fotoalbum-program (fil 3 av 7) # # Version 3 av Anders Hultman 2002. # # # # Programmet låter dig ha flera separata fotoalbum med samma layout. # # För detaljerade anvisningar, se kommentarer i "album-lib" samt i koden. # ############################################################################ # Ta bort följande rad ifall du har inte har tillgång till Image::Size use Image::Size; require 'album-lib'; &read_album; ### Skriv ut sidan print "Content-type: text/html\n\n"; print "\n\n"; print "$title\n"; print ' '; print "\n",'',"\n"; print '',"\n
"; # Här hämtar jag in en snutt HTML-kod från filen "logo.include" för # att visa min logotype och en länk till min förstasida. # Avkommentera följande rader om du vill ha en liknande funktion. # open (LOGO,"logo.include"); # print while (); # close (LOGO); print '', '', "$toc_txt
\n"; print '
', "$bild[0]\n"; print "
\n

\n"; print '

',"\n"; for ($i = 1; $i <= $antal; $i++) { ($url,$bildtext,$serv) = &url_text($i); # Ta bort följande stycke ifall du har inte har tillgång till Image::Size if ($serv eq "local") { ($width,$height) = imgsize($ENV{'DOCUMENT_ROOT'}.$url); } else { undef($width); undef($height); } print ''," \n"; print ''; print '',"\n"; print "
\n$bildtext\n" if ($bildtext); print "

\n\n"; } print "$bild[$antal+1]\n

\n" if ($bild[$antal+1]); print "

\n\n\n"; exit (0);