auto_reply
Jeg har brugt en del tid på et script der skulle sende respons til de børn der skriver til mig, jeg har ikke megen tid til at svare dem alle men de skal vide at jeg gerne vil svare dem alle kan i hjælpe mig venlig hilsen Johannes kjær.#!/usr/bin/perl
use POSIX qw(strftime);
use CGI;
use CGI::Carp qw(fatalsToBrowser);
##### SCRIPT SETUP
# Input din e-mail adresse nedenfor.
# Bemærk: Efterlad en backslash "\"
# Foran @-tegnet!
$E_Mail = "j.kjaer\@route66side.dk";
# Hvad er placeringen af din sendmail program?
# Hvis du ikke er sikker, skal du kontakte din webhost.
$Mail_Program = "/usr/sbin/sendmail -t";
# Hvis du ikke har en "email" felt på skemaet (r)
# Der skal behandles, skal der skal de e-mails, vises "Fra"?
$From_Address = "j.kjaer\@route66side.dk";
# Hvis du ikke herunder et "emne" feltet på den blanket (r)
# Der skal behandles, hvad skal emnet være?
$Subject = " . Website .";
# Ønsker at sende et automatisk svar til brugeren? Hvis ja,
# Bliver det nødt til at omfatte "email"-feltet i din form (r).
# Hvis ja, angiv placeringen af tekstfilen nedenfor.
# 1 = ja # 0 = Nej
$Send_Reply = "1";
$Reply_Template = "reply.txt";
# Hvor brugerne skal omdirigeres efter en vellykket indsende?
$Return_Link = "http://www.route66side.dk/thankyou.html";
# Ønsker du at opbevare logfiler i alle former som behandles på din server?
# Hvis det er tilfældet, vil de blive vist i "indsendt" directory.
# 1 = Ja # 0 = Nej
$Log_Forms = "1";
$Web_Address = "http://www.route66side.dk";
my $cgi = new CGI;
my %FORM = $cgi->Vars;
my $date = strftime("%B %d, %Y", localtime);
my $time = strftime("%I:%M:%S %p", localtime);
print "Content-type: text/html\n\n";
@fields = ('name','Email','emne','meg');
@friendly_fields = ('name','Email','emne','meg');
open(MAIL,"|$Mail_Program") || &noprogram;
print MAIL "To: $E_Mail\n";
if (! $FORM{'EmailOne'}) {
print MAIL "From: $From_Address\n";
} else {
print MAIL "From: $FORM{'EmailOne'}\n";
}
if (! $FORM{'subject'}) {
print MAIL "Subject: $Subject\n\n";
} else {
print MAIL "Subject: $FORM{'subject'}\n\n";
}
print MAIL "Submitted at $time on $date...\n\n";
for $idx (0..$#fields ) {
$field_data = $FORM{$fields[$idx]};
$friendly_field = $friendly_fields[$idx];
if ($field_data) {
if ($fields[$idx] eq "main") {
$field_data =~ s/QnE/n/g;
print MAIL "$friendly_field: $field_data\n\n";
} else {
print MAIL "$friendly_field: $field_data\n\n";
}
}
}
close(MAIL);
if ($Send_Reply eq "1") {
open(REPLY,"$Reply_Template");
@reply = <REPLY>;
close(REPLY);
foreach $line(@reply) {
$line =~ s/QnE/n/g;
$fiction .= $line;
}
open(MAIL,"|$Mail_Program") || &noprogram;
print MAIL "To: $FORM{'EmailOne'}\n";
print MAIL "From: $E_Mail\n";
print MAIL "$fiction\n\n";
print MAIL "\n\n\nNote: Din besked blev ikke sendt uopfordret.";
close(MAIL);
}
if ($Log_Forms eq "1") {
if ($FORM{'EmailOne'}) {
open(LOG,">>prodsubmitted/$date.txt");
print LOG "Submitted at $time on $date...\n\n";
foreach $field(@fields) {
if ($FORM{$field}) {
if ($field eq "main") {
$FORM{'main'} =~ s/QnE/n/g;
print LOG "$field = $FORM{'main'}\n";
} else {
print LOG "<p>$field = $FORM{$field}\n";
}
}
}
print LOG "\n";
print LOG "---------------------------\n\n";
close(LOG);
}
}
print qq~
<HTML>
<HEAD>
<meta name="Generator" content="Stone's WebWriter 4">
<META HTTP-EQUIV=Refresh CONTENT=0;URL="$Return_Link">
</HEAD>
<BODY></BODY>
</HTML>
~;
exit;
sub noprogram {
print qq~
Sendmail mislykkedes kan ikke åben! <br>
Beskeden ikke sendt. <br>
Kontakt venligst webmaster om dette problem.
~;
exit;
}reply.txt
