#!/usr/local/bin/perl

############################################
##                                        ##
##                 WebBBS                 ##
##           by Darryl Burgdorf           ##
##                                        ##
##           Configuration File           ##
##                                        ##
############################################
$cell_space='        ';
$SPACE='      ';
$Bullet='<IMG SRC="bullet.gif">';

## (1) Define the location of your files:

$home_path="/home/sheizaf/public_html/board";
$dir = "/home/sheizaf/public_html/board/echadas";
$cgiurl = "http://gsb.haifa.ac.il/~sheizaf/board/echadas.cgi";

require "$home_path/webbbs.pl";
require "$home_path/webbbs_text.pl";
require "$home_path/heb_fix.pl";


## (2) Tailor the appearance and functionality of your BBS:

$UseLocking = 1;

$bodyspec = "BGCOLOR=\"#ffffcc\" TEXT=\"#000000\"";

$messagespec = "";
$newspec = "";

$NewGraphicURL = "new.gif";

$HeadLinesFile = "";
$HeaderFile = "echadasheader.txt";
$FooterFile = "echadasfooter.txt";

$MessageHeaderFile = "echadasheader.txt";
$MessageFooterFile = "echadasfooter.txt";

$UseFrames = "";
$BBSFrame = "_parent";
$WelcomePage = "";

$Admin_Link_Name = "";
$Admin_Link_URL = "";

$SepPostForm = 0;

$DefaultType = "By Threads, Mixed";

$DefaultTime = "Archive";

$boardname = "Hadas E-Business Discussion Board";

$InputColumns = 60;
$InputRows = 15;

$HourOffset = 0;

$ArchiveOnly = 0;
$AllowHTML = 1;
$AutoQuote = 1;
$SingleLineBreaks = 1;

$DisplayIPs = 1;

$UseCookies = 1;
require "$home_path/cookie.lib";

$Max_Days = 0;
$Max_Messages = 0;

$ArchiveDir = "";

## (3) Define your visitors' capabilities:

$MaxMessageSize = 250;

$LockRemoteUser = 0;

$AllowUserDeletion = 1;
$AllowEmailNotices = 0;
$AllowPreview = 1;

$AllowURLs = 1;
$AllowPics = 1;

$AllowUserPrefs = 1;
$AllowResponses = 1;

$NaughtyWords = "";
$CensorPosts = 0;

$BannedIPs = "";

## (4) Define your e-mail notification features:

$mailprog = 'blat';

$WEB_SERVER = "gsb.haifa.ac.il";

$SMTP_SERVER = "gsb.haifa.ac.il";



$maillist_address = "sheizaf\@gsb.haifa.ac.il";

$notification_address = "sheizaf\@gsb.haifa.ac.il";

$email_list = 1;

$private_list = 1;


$HeaderOnly = 0;


sub parse_form {
   # Get the input
   read(STDIN, $buffer, $ENV{'CONTENT_LENGTH'});
   # Split the name-value pairs
   @pairs = split(/&/, $buffer);
   foreach $pair (@pairs) {
      ($name2, $value) = split(/=/, $pair);
      $value =~ tr/+/ /;
      $value =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg;
      $FORM{$name2} = $value;
   }
}


# use Socket;

&WebBBS;

## (5) If necessary, set up the WebAdverts configuration subroutine

sub insertadvert {
	require "/full/path/to/ads_display.pl";
	$adverts_dir = "/full/path/to/ads";
	$display_cgi = "http://foo.com/ads/ads.pl";
	$advertzone = $_[0];
	$ADVUseLocking = 1;
	$ADVLogIP = 0;
	$DefaultBanner = "";
	$ADVNoPrint = 1;
	&ADVsetup;
}