#!/usr/bin/perl ########################################################################### # # # Classifieds.pl - Perl Script for Posting Classified Ads # # # # geschrieben von Greg Mathews - greg@notts.net # # # # Überarbeitung und portierung ins Deutsche durch Dan Sepeur # # URL: http://www.tag4tag.com # # Mail: dan@tentacle.de # # # ########################################################################### ########################################################################### # # Definieren Sie die folgenden Variablen in Ihrem HTML-Formular: # # ClassifiedsDir - Der Pfad zum Verzeichnis, in welchem die Postings # gespeichert sind. # ErrorReturn - Die URL zu der Seite die angezeigt werden soll, # wenn ein Fehler auftaucht. # ReturnURL - Die URL zu der Seite die angezeigt werden soll, # wenn das Posting erfolgreich war &UnWeb; $return_name=$in{'return'}; $mailprog=$in{'mailprog'}; &remove; 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"; } sub remove { if ($in{'Date'} eq "") { # Wurde einiges frei gelassen? Dann erfolgt diese Fehlermeldung &PrintHeader; print "\n"; print "\n"; print "Fehlermeldung\n"; print "\n"; print "\n"; print "\n"; print "

Beim löschen ist ein Fehler aufgetaucht:

\n"; print "Ein Feld wurde mindestens leer gelassen. Es müssen aber alle Felder ausgefüllt sein.

\n"; print "

$in{'Date'}
\n"; print "

Zurück zum Formular

\n"; print "© 1997 und designt und programmiert von Greg Mathews. All Rights Reserved.
\n"; print "Ins Deutsche portiert und bearbeitet durch Tag -4- Tag.
\n"; print "\n"; print "\n"; # Ausstieg aus dem Script wenn ein Fehler auftaucht exit; } # Löschen des Users und seines Postings local($Addno,$RealName,$email,$shortdate,$department,$Addno1,$email1,$shortdate1,$junk,$junk1,$junk2,$junk3); &PrintHeader; print "\n"; print "\n"; print "Angebot vom $in{'Date'} wurde gelöscht\n"; print "\n"; print "

Das folgende Angebot wurde gelöscht.

\n"; print "\n"; open(ADFILE,"$in{'ClassifiedsDir'}UserDataFile.html") || die $!; @main = ; close(ADFILE); $del = "0"; open(ADFILE,">$in{'ClassifiedsDir'}UserDataFile.html") || die $!; foreach $main_line (@main) { if ($main_line =~ / $in{'Date'} -->/) { ($junk,$Addno,$department,$email,$shortdate,$junk1) = split(/ /, $main_line); print "Ad Details : $Addno,$in{'Date'}\n"; $del = "1"; open(ADFILE1,"$in{'ClassifiedsDir'}$department.html") || die $!; @main1 = ; close(ADFILE1); $del2 = "0"; $del3 = "0"; open(ADFILE1,">$in{'ClassifiedsDir'}$department.html") || die $!; foreach $main_line1 (@main1) { if ($main_line1 =~ //) { $del2 = "0"; } } else { print ADFILE1 "$main_line1"; } } close(ADFILE1); } if ($del eq "1"){ if ($main_line =~ //) { $del = "0"; open( MAIL, "|$mailprog $email" ) || die "Kann Mailprogramm nicht öffnen: $email: $!\n"; print MAIL "To: $RealName <$email>\n"; print MAIL "Subject: Angebot wurde geloescht\n"; print MAIL "From: $return_name\n"; print MAIL "Reply-to: $return_name\n\n"; print MAIL " Ihr Angebot in der Gruppe $department in unserem Schwarzen Brett wurde geloescht.\n\n"; print MAIL "Vielen Dank fuer Ihren Besucht\n\nDer WebMaster.\n"; close(MAIL); } } else { print ADFILE "$main_line"; } } close(ADFILE); }