#!/usr/bin/perl 
############################################################################
#
#   (c) Wolf, 1998
#
############################################################################
#
# wolfbbs.cgi
# COPYRIGHT NOTICE                                                           
# Copyright 1998 Wolf     
# All Rights Reserved.                     
#                                                                            
# wolfbbs.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.
#
############################################################################
#
# In diesem Script muß normalerweise nichts geändert werden.
#
############################################################################
#
# Durch eine mehrfache Verwendung dieses File, können mehrer Foren
# gleichzeitig betrieben werden. Das Hauptprogramm ist dann für alle das
# gleiche.
#
# Ein Admin-Modus ist nicht implementiert und wird auch so schnell nicht
# eingebaut. Wer eine Nachricht löschen will, muß dieses per FTP von Hand
# machen. :-((
#
############################################################################


#Ermittlung des Scriptnamens und des Verzeichnisses
#und Wechsel in das aktuelle Verzeichnis (CGI)
 $base_dir = rindex ($0, "\\") ;
 $base_dir = rindex ($0, "/")  if ($base_dir < 0) ;
 $harz_script_dir = substr( $0, 0, $base_dir) ;
 chdir($harz_script_dir) ;


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


#Pfad+Name des Hauptprogrammes (wichtig)
 require "./wolfbbs.cgi" ;


############################################################################
#Variablendefinition
############################################################################

############################################################################
#CGI-Programm und Pfade
############################################################################

#Host
 $cgi_hos="http://www.saniplus.de" ;

#WWW-Pfad dieses Files (ohne Host)
 $cgi_dir="/cgi-bin" ;

#Name dieses Files (s. Einführung)
 $cgi_nam="wolfbbs_index.cgi" ;

#Pfad+Name des Zählerfiles
 $nr_data="./data/mes_num.txt" ;

#Pfad der Beiträge
 $dat_dir="./data" ;

#WWW-Pfad der Bilder
 $pic_dir="../images/bbs";

#Backlink (zurück auf der Übersichtsseite)
 $back_link="../index.html" ;



############################################################################
#Programvorgaben
############################################################################

#Name des WWW-Board
 $boardname="SaniPlus-Forum";

#Standardanzeigezeitraum
 $FM{'periode'} = "ein Monat" ;

#Eingabe der URL einlauben (1) oder nicht (0)
 $url = 1 ;

#Zeitverschiebung (+/- h)
 $tzone = 9 ;

#maxiamles Alter der neuen Nachrichten in Tagen für Anzeige
 $new_mes_days = 14 ;

#File-Locking - Schutz vor gemeinsamen Zugriff
#0=nein (Win32-Systeme)
#1=ja   (Unix)
 $lock=1 ;



############################################################################
#HTML-Vorgaben
############################################################################

#HTML-Kopf des Boards
 $html_head = "./wolfbbs_head.txt" ;

#HTML-Fuss des Boards
 $html_foot = "./wolfbbs_foot.txt" ;

#Schriftart des kompletten Boards
 $html_font = "face=\"MS Sans Serife,Verdana,Arial,Helv\"" ;

#Tabellenhintergrundfarbe der Seitentabellen
 $tab_left = " bgcolor=\"\#f9f9f9\" ";



############################################################################
#Programvorgaben
############################################################################

#Mail an Admin bei neuem Eintrag (1=ja - 0=nein)
 $adminmail=1 ;

#Admin-Mail-Adresse (muss)
 $mailto = "al\@saniplus.de" ;

#Offline
#0=Mail wird über SENDMAIL verschickt
#1=Mail als ASCII-File ins Data-Verzeichnis geschrieben
 $offline=0;

#Mailprogramm
 $mailprog = "/usr/sbin/sendmail" ;



############################################################################
#Jetzt geht es los
############################################################################

 &start_wolfbbs() ;

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