#!/usr/local/bin/perl ############################################################################ # Digitalt fotoalbum-program (fil 2 av 3) # # Version 2 av Anders Hultman 2001. # # # # 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; ### Ta fram önskat bildnummer if ($ENV{'QUERY_STRING'} =~ /^bild\=/) { $nr = substr($ENV{'QUERY_STRING'},5) + 0; } elsif ($ENV{'QUERY_STRING'} eq "") { $nr = 1; } else { $nr = $ENV{'QUERY_STRING'} + 0; } &fel_404 if (($nr < 1) || ($nr > $antal)); ### Skriv ut sidan print "Content-type: text/html\n\n"; print "\n\n"; print "$title (bild $nr av $antal)\n"; print "\n",'', "\n",'
',"\n"; print '',"\n\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 '', '', "Bilder
\n"; print '
', "$bild[0]\n", "\n
',"\n "; if ($nr > 1) { print 'Förra bilden'; } print "
\n",'		', "\n Bild $nr av $antal
\n", '		',"\n "; if ($nr < $antal) { print 'Nästa bild'; } print "
\n
\n"; ($url,$bildtext,$serv) = &url_text($nr); # 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); } print '',"\n

\n"; print "$bildtext\n

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

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

',"\n"; print 'Gå till bild nr ',"\n
\n"; print "\n",'Alla på en sida'; print "\n\n
\n
\n\n\n"; exit (0);