Alla album

#!/usr/local/bin/perl ############################################################################ # Digitalt fotoalbum-program (fil 5 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. # ############################################################################ require 'album-lib'; print "Content-type: text/html\n\n"; print "\n\n"; print "Alla album\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 '
'; print "Alla album \n

\n"; print '

'; print 'Upp',"\n
\n" if ($ENV{'PATH_INFO'}); print '' if ($ENV{'QUERY_STRING'}); print "Med rubriker"; print "" if ($ENV{'QUERY_STRING'}); print " | "; print '' unless ($ENV{'QUERY_STRING'}); print "Med filnamn"; print "" unless ($ENV{'QUERY_STRING'}); print "\n

[[ ',"$afil ]]\n"; } elsif ($afil =~ /\.album$/) { unless ($ENV{'QUERY_STRING'}) { open(FIL, "$db_dir$ENV{'PATH_INFO'}/$afil"); $atxt = ; chomp($atxt); close (FIL); } $afil = substr($afil,0,rindex($afil,".album")); print '
'; if ($atxt) { print $atxt; } else { print $afil; } print "\n"; } undef($atxt); } closedir (DBDIR); print "

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