#!/usr/bin/perl
############################################################################
#
#   (c) Markus Wolf, 1998-2000
#
############################################################################
#
# fm.cgi
# COPYRIGHT NOTICE
# Copyright 1998-2000 Markus Wolf
# All Rights Reserved.
# EMail: support@perl-archiv.de
# URL  : http://www.perl-archiv.de
#
# fm.cgi darf von jedermann kostenlos benutzt und geändert werden, solange
# dieser Copyright-Verweis und die restlichen Kommentare erhalten bleiben. Mit
# dem Einsatz dieses Skripts akzeptieren Sie, daß Markus Wolf von jeglicher
# Haftung und Gewährleistung hinsichtlich des Einsatzes befreit ist.
#
# Der Verkauf dieses Skripts, auch in modifizierter Form, ist ohne vorherige
# Absprache ausdrücklich untersagt.
# (Mit anderen Worten: Bitte fragen Sie mich, bevor Sie versuchen, mit meinem
# Skript Geld zu verdienen.)
#
# Um dieses Skript über das Internet oder irgendein anderes Medium
# weiterzuverbreiten, benötigen Sie vorher meine Erlaubnis. In jeden Fall
# müssen der Copyright-Verweis und die restlichen Kommentare erhalten bleiben.
#
# Wer den Copyrighthinweis bei der Ausgabe nicht haben will, kann diesen gegen
# eine Lizenzgebühr von DM 58,- rausnehmen. Einfach ein Mail an
# perl@perl-archiv.de, dann gibt es eine Rechnung.
#
############################################################################
#
# Die Ausgabe des Rubrikenbereiches wird über ein HTML-Templet gesteuert.
# Bei der Aufgabe einer Anzeige muß jetzt ein Verfalldatum eingegeben
# werden. Die Anzeigen werden dann nicht mehr angezeigt.
#
# Mit dem Script fm_clear.cgi können die alten Anzeigen gelöscht werden.
# Entweder per Einbindung in die Crontab oder Ausführung von Hand per
# Telnet oder über den Browser.
#
############################################################################

#Ermittlung des Scriptnamens und des Verzeichnisses
#und Wechsel in das aktuelle Verzeichnis (CGI)
 $0 =~ /^(.*)[\/\\].*/ && chdir ($1) ;

#Hauptprogramm
 require "fm_main1.cgi" ;

############################################################################

#Titel des Kleinanzeigenbereiches
 $bereich="Zell am See" ;

#Hostname des Betreibers (ohne '/' am Ende)
 $cgi_host="http://www.sbg.at" ;

#WWW-Adresse des Flohmarkts
 $cgi_add="/cgi-bin/cgiwrap/kurt" ;

#Name dieses Scripts
 $cgi_nam="fm_zell.cgi" ;

#WWW-Grafikpfad (sollte absolut sein)
 $pic_dir="http://www.sbg.at/kurt.hanke/test/abwesenheit/pics" ;

#URL für die Startseite des Marktes
 $url_start="http://www.sbg.at/kurt.hanke/test/abwesenheit/index.html" ;

############################################################################

#Kleinanzeigendatenfile - muß die Endung .dat haben
 $dat_file = "./fm_zell.dat" ;

#Anzeigeschablone für die Bereiche (im CGI-Verzeichnis)
 $html_tmpl="./fm_zell.tmpl" ;

############################################################################

#Mastepaßwort für die Löschfunktion
#hiermit können alle Anzeigen gelöscht werden
 $master="christian" ;

############################################################################

#Anzahl von Anzeigen pro Anzeigeseite
 $anzan=5 ;

#Höchstalter der neuen Anzeigen
 $alter=1 ;

#Schriftart für die HTML-Ausgabe
 $font = "Verdana,Arial,Helv" ;

#Zeitverschiebung in Stunden (-/+ möglich)
 $zeitverH=0 ;

#FileLocking (0=nein NT / 1=ja Unix)
 $lock=1 ;

############################################################################

#Mailprogramm (nur Unix)
 $mailprog = "/bin/sendmail" ;

#Mailempfänger für die neuen Anzeigen
 $webmaster = "kurt.hanke\@sbg.at" ;

#Offline für Mailfunktion
#0 - Mails werden verschickt
#1 - Mails werden ins CGI-Verzeichnis geschrieben
 $offline=1 ;

############################################################################

#Rubriken (nur Beispiele - löschen bei endgültiger Verwendung)
#Beispiel : "SUCHE" => "SUCHE",

%rub = (        "zell1" => "BZ",
                "zell2" => "IZ",
                "zell3" => "SZ",
                "zell4" => "Leitung",
                "zell5" => "Betriebsrat",
                ) ;

############################################################################

&start_fm() ;

############################################################################
# ENDE
############################################################################