\n"; print "Sie haben keine Gruppe gewählt, in der Ihre Anzeige erscheinen soll. Bitte wählen Sie eine Gruppe indem Sie den Radiobutton davor markieren.
\n"; print "
\n"; print "Ein Feld wurde nicht ausgefüllt. Es müssen alle Felder ausgefüllt sein um die Anzeige aufzugeben.
\n"; print "
\n"; print ADFILE "$in{'Linktitle'}"; print ADFILE "
\n";
print ADFILE "\n";
}
else {
print ADFILE "$main_line";
}
}
# Schreiben der Personalien zu der UserData Datei
open (DATAFILE,">>$in{'ClassifiedsDir'}UserDataFile.html");
print DATAFILE "\n";
print DATAFILE "$in{'RealName'} - $in{'E-MailAddress'}
\n";
print DATAFILE "$in{'Address1'}
\n";
if ($in{'Address2'} ne "") {
print DATAFILE "$in{'Address2'}
\n";
}
print DATAFILE "$in{'City'}, $in{'State'} $in{'ZipCode'} - $in{'Phone'}
\n";
print DATAFILE "Angebot Nr.: $AdNumber - Gruppe: $in{'Department'} am $shortdate
\n";
if ($in{'DesiredDepartment'} ne "") {
print DATAFILE "Gewünschte Gruppe: $in{'DesiredDepartment'}
\n";
}
print DATAFILE "Beschreibung : $in{'Description'}\n";
print DATAFILE "Link : $in{'Linktitle'}";
print DATAFILE "
\n";
print DATAFILE "\n";
close(DATAFILE);
# UnLocken der Datei
unlink("$in{'ClassifiedsDir'}.$in{'Department'}lock");
open( MAIL, "|$mailprog $in{'E-MailAddress'}" )
|| die "Kann Mailprogramm nicht öffnen: $email: $!\n";
print MAIL "To: $in{'E-MailAddress'} \n";
print MAIL "Subject: Vielen Dank fuer Ihr Posting\n";
print MAIL "From: $return_name\n";
print MAIL "Reply-to: $return_name\n\n";
print MAIL " Vielen Dank fuer Ihren Eintrag in \n";
print MAIL " unserem Schwarzen Brett. Ihr Eintrag in $in{'Department'} \n";
print MAIL" sieht so aus:\n\n";
print MAIL "Angebot Nr.: $AdNumber - Subjekt: $in{'AdSubject'} - gepostet am: $shortdate\n";
print MAIL "Antwort an: $in{'RealName'} unter $in{'E-MailAddress'}\n";
print MAIL "$in{'Description'}\n";
print MAIL "Link $in{'Linktitle'}\n\n";
print MAIL "Der WebMaster.\n";
close(MAIL);
#--------------------------------
#
#Send your keeper's notification out.
#
if( $return_name ne "" )
{
open( MAIL, "|$mailprog $return_name" )
|| die "Kann Mailprogramm nicht oeffnen: $return_name: $!\n";
print MAIL "To: $return_name\n";
print MAIL "Subject: Eintrag Ihres Angebotes - Bestaetigung\n";
print MAIL "From: $in{ 'RealName' } <$in{ 'E-MailAddress' }>\n\n";
print MAIL "Ich habe heute folgendes Angebot in die Gruppe $in{'Department'} gepostet:\n\n";
print MAIL "Angebot Nr.: $AdNumber - Subjekt: $in{'AdSubject'} - gepostet am: $shortdate
\n";
print MAIL "Antwort an: $in{'RealName'} unter $in{'E-MailAddress'}
\n";
print MAIL "$in{'Description'}\n";
print MAIL "$in{'Linktitle'}";
}
# Zurück zur ReturnURL
print "\n";
$quit = 1;
close(MAIL);
}
sub UnWeb {
# Get the input
read(STDIN, $buffer, $ENV{'CONTENT_LENGTH'});
# Split the name-value pairs
@pairs = split(/&/, $buffer);
foreach $pair (@pairs) {
($name, $value) = split(/=/, $pair);
# Un-Webify plus signs and %-encoding
$value =~ tr/+/ /;
$value =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg;
$value =~ s///g;
if ($allow_html != 1) {
$value =~ s/<([^>]|\n)*>//g;
}
else {
unless ($name eq 'body') {
$value =~ s/<([^>]|\n)*>//g;
}
}
$in{$name} = $value;
}
}
#######################
# Print HTML Header
sub PrintHeader {
print "Content-type: text/html\n\n";
}