#!/usr/local/bin/perl ############################################################################ # Digitalt fotoalbum-program (fil 7 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. # # Du måste fylla i variablerna $mailprog, $To, $ToName, $From, $FromName # # och $Subject i filen "album-lib" för att programmet ska fungera. # # # # $mailprog är sökvägen till mailservern som album-bt skickar mail genom. # # Koden är anpassad för qmail. Om du använder sendmail så måste du ange # # "sendmail -t" antingen genom att skriva in det i konfigureringen i # # "album-lib" eller genom att ändra raden # # open(MAIL,"|$mailprog"); # # här nedan till # # open(MAIL,"|$mailprog -t"); # ############################################################################ require 'album-lib'; ### Skriv ut sidan print "Content-type: text/html\n\n"; print "\n\n"; print "Föreslå ny bildtext\n"; ### Ta fram önskat bildnummer och bildtexten &read_album; 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)); ($url,$bildtext,$serv) = &url_text($nr); ### Rita formulär if ($ENV{'REQUEST_METHOD'} eq "GET") { print "\n",'',"\n"; print '
',"\n"; print '',"\n"; print '
', "Föreslå ny bildtext\n", "\n",'
',"\n"; $bildtext =~ s/<([^>]|\n)*>/\n/g; print '\n

\n"; print '',"\n"; print "

\n
\n\n\n"; } elsif ($ENV{'REQUEST_METHOD'} eq "POST") { ### Ta emot formulärdata &GetCGIinput; ### Skicka mail open(MAIL,"|$mailprog"); print MAIL "To: $ToName <$To>\n"; print MAIL "From: $FromName <$From>\n"; print MAIL "Subject: $Subject\n"; print MAIL "Mime-Version: 1.0\n"; print MAIL 'Content-Type: text/plain; charset="iso-8859-1"',"\n"; print MAIL "Content-Transfer-Encoding: 8bit\n\n"; print MAIL "Förslag på ny bildtext för bilden\n"; print MAIL "http://$ENV{'SERVER_NAME'}$en_url?$nr\n"; print MAIL "=" x 70, "\n\n"; print MAIL "$FORM{'bildtext'}\n\n"; print MAIL "=" x 70, "\n"; print MAIL "Album : $bild[0]\n"; print MAIL "Bild-uri : $url\n"; print MAIL "Från FQDN: $ENV{'REMOTE_HOST'}\n"; print MAIL "Från IP : $ENV{'REMOTE_ADDR'}\n\n"; close(MAIL); ### Skriv ut tack-sidan print "\n"; print "\n", '', "\n"; print '',"\n"; print '
', "Tack!\n", "
Förslaget är ivägskickat.\n", "
\n"; } exit (0);