#!/usr/bin/perl
############################################################################
#
#   (c) Markus Wolf, 1998
#
############################################################################
#
# wolfbbs.cgi
# COPYRIGHT NOTICE
# Copyright 1998 Markus Wolf
# All Rights Reserved.
# EMail: perl@perl-archiv.de
# URL  : http://wwww.perl-archiv.de
#
# wolfbbs.cgi may be used and modified free of charge by anyone so long as
# this copyright notice and the comments above remain intact.  By using this
# code you agree to indemnify Markus Wolf from any liability that
# might arise from it's use.
#
# Selling the code for this program without prior written consent is
# expressly forbidden.  In other words, please ask first before you try and
# make money off of my program.
#
# Obtain permission before redistributing this software over the Internet or
# in any other medium.        In all cases copyright and header must remain intact.
#
############################################################################
#
# 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.wizomail.de" ;

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

#Name dieses Files (s. Einführung)
 $cgi_nam="index_pl.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="/cgi/pics";

#Backlink (zurück auf der Übersichtsseite)
 $back_link="index_pl.cgi" ;



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

#Name des WWW-Board
 $boardname=". . .  dorkforum  . . .";

#Standardanzeigezeitraum
 $FM{'periode'} = "one month" ;

#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 = 3 ;

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



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

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

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

#Schriftart des kompletten Boards
 $html_font = "face=\"Courier New,Courier,mono\"" ;

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



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

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

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

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

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



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

 &start_wolfbbs() ;

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