#!/usr/bin/perl

############################################
##                                        ##
##                 WebBBS                 ##
##           by Darryl Burgdorf           ##
##       (e-mail burgdorf@awsd.com)       ##
##                                        ##
##             version:  5.12             ##
##        last modified:  12/07/02        ##
##           copyright (c) 2002           ##
##                                        ##
##    latest version is available from    ##
##        http://awsd.com/scripts/        ##
##                                        ##
############################################

# COPYRIGHT NOTICE:
#
# Copyright 2002 Darryl C. Burgdorf.  All Rights Reserved.
#
# This program is being distributed as shareware.  It may be used and
# modified by anyone, so long as this copyright notice and the header
# above remain intact, but any usage should be registered.  (See the
# program documentation for registration information.)  Selling the
# code for this program without prior written consent is expressly
# forbidden.  Obtain permission before redistributing this program
# over the Internet or in any other medium.  In all cases copyright
# and header must remain intact.
#
# Certain subroutines and code segments utilized in this program are
# adapted from code written by Kevin Dearing of webjourneymen.net
# and dacpro.com, and are used with permission.
#
# This program is distributed "as is" and without warranty of any
# kind, either express or implied.  (Some states do not allow the
# limitation or exclusion of liability for incidental or consequential
# damages, so this notice may not apply to you.)  In no event shall
# the liability of Darryl C. Burgdorf and/or Affordable Web Space
# Design for any damages, losses and/or causes of action exceed the
# total amount paid by the user for this software.

#################################################
## Define your forum's configuration settings! ##
#################################################

## (1) Specify the location of your webbbs_settings.pl script:

require "/home/ahints/public_html/message/webbbs_settings.pl";

## (2) Locate the files and directories unique to this forum:

$dir = "/home/ahints/public_html/message";
$cgiurl = "http://www.auctionhints.com/message/webbbs_config.pl";

$boardname = "AuctionHintsForum";
$shortboardname = "Auction Hints Forum";

## (3) Define variables you want changed from webbbs_settings.pl:

#############################################
## Do NOT change anything in this section! ##
#############################################

require $webbbs_text;
require $webbbs_basic;

&Startup;
&WebBBS;


# generates random number from 0-9
sub intrand {
  $num = int(rand(10));
  return $num;
}

# generates random security code
sub noAutos {
  for ($c=1; $c<=5; $c++) {
	$d = &intrand;
    $iCode .= "$d";
	$cpic .= "<img src=\"/message/num$d.gif\" width=29 height=44 border=0>";
  }  
  print "<TD><P>$cpic</TD></TR><P>";
  return $iCode;
}

# generates graphics from security code
sub genImg($in) {
  @digits = split(//, $_[0]);
  for ($i=0; $i<5; $i++) {
	$d = $digits[$i];
	$cpic .= "<img src=\"/message/num$d.gif\" width=29 height=44 border=0>";
  }
  print "<TD><P>$cpic</TD></TR><P>";
}