#!/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{'RealName'} eq "") || ($in{'E-MailAddress'} eq "") || ($in{'Addno'} eq "") || ($in{'Department'} eq "")) {
# Einige Felder nicht ausgefüllt? Diese Fehlermeldung wird gezeigt
&PrintHeader;
print "\n";
print "\n";
print "Fehlermeldung\n";
print "\n";
print "\n";
print "\n";
print "Beim Löschen ist ein Fehler aufgetreten:
\n";
print "Ein Feld war leer. Alle Felder müssen ausgefüllt werden, bevor richtig gelöscht werden kann.
\n";
print "
$in{'RealName'}
$in{'E-MailAddress'}
$in{'Addno'}
$in{'Department'}
\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";
# Aufruf zum verlassen des Scriptes, wenn ein Fehler auftaucht
exit;
}
# Löschen des Datensatzes aus der Datei
open(ADFILE,"$in{'ClassifiedsDir'}$in{'Department'}.html") || die $!;
@main = ;
close(ADFILE);
$del = "0";
$del1 = "0";
open(ADFILE,">$in{'ClassifiedsDir'}$in{'Department'}.html") || die $!;
foreach $main_line (@main) {
if ($main_line =~ //) {
$del = "0";
}
}
else {
print ADFILE "$main_line";
}
}
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 =~ //) {
$del = "0";
}
}
else {
print ADFILE "$main_line";
}
}
if ($del1 eq "0"){
&PrintHeader;
print "\n";
print "\n";
print "ad $in{'Addnp'} wurde gelöscht\n";
print "\n";
print "Das Angebot was Sie angegeben haben wurde nicht gefunden.
\n";
}
}