#!/usr/bin/perl

# Name: Cyber Ads (Free Edition)
# Version: 1.0
# Last Modified: 9-9-98 by Philip A. Hagen

# The user-configurable variables are listed below.  You need to define these
# before uploading the program, or it will not work properly.
# Most of these variables are in the following format:

# $variable = "value";

# The # symbol will not be in front of the actual variables, however, as this
# is used to "comment out" lines in Perl.  In other words, lines that begin with
# the # symbol are ignored by Perl when it executes the program.  The $ sign
# is used to indicate variables in Perl, while the items in between the quotation
# marks represent the assigned value of that variable.  The semicolon indicates
# the end of the statement.  Therefore, in the example above, if you wanted to
# change the value for that variable, the only thing that you should change is
# the portion in between the quotation marks. For example, to change the value
# of the variable $variable to "red", you would edit it as follows:

# $variable = "red";

# Again, you would not put the # symbol in front of $variable.  We did that
# here only because this is an example that we do not want the program to 
# actually execute.

# Two other things you should note are that if you use quotation marks as part
# of the value (in other words, inside of the quotation marks that define the
# value), then you must "comment them out" by putting a back slash symbol (the
# "\" symbol) in front of them.  For example:

# $variable = "The \"red\" light";

# Also, if you use the @ symbol in any of your value statements, you must
# similarly comment it out by putting a backslash symbol in front of it,
# such as in the following:

# $my_email_address = "me\@mydomain.com";

#################################################################
# The variables are defined below.

# $this_script_url should be set to the full URL of this classifieds program on your
# server.

$this_script_url = "http://www.rainforestpets.net/cgi-bin/classifieds/classifieds.cgi";

$contact_url = "http://www.rainforestpets.net/";

# $master_admin_email_address should be set to your e-mail address

$master_admin_email_address="ramtuff\@rainforestpets.net";

# $admin_name should be set to the name of the administrator

$admin_name = "John Powell";

# $sitename should be set to the name of your web site

$sitename = "RainForest Pets - Pet Classifieds";

# $siteurl should be set to the full URL of your web site

$siteurl = "http://www.rainforestpets.net/";

# $slogan should be set to whatever slogan or catchphrase you use for your site

$slogan = "\"Buy - Sell - Trade at RainForest Pets Classifieds! 

Get Paid to Surf The Net!
Join For Free
http://www.utopiad.com/member/getPaid?refId=129462


Become Your Own Publisher

BONUS #1) Report Package Disk #1, #2, #3, and #4 (712 
re sellable reports) 

BONUS #2) Infodisk 500 - Several hundred reports with a 
built in interface to easily locate and print them. 
Sized so that it can be duplicated on one standard IBM 
floppy and resold.

BONUS #3) 167 Business and Financial Reports - Like 
Infodisk 500 this is a DOS based program that can be 
copied onto a floppy disk and resold. It has 167 
reports in a easy to use index so you can locate them 
by name or subject. Re sellable.

Send 19.95 + 3.00 S&H To:
Flights of Fancy
PO Box 343
Chisholm Mn 55719\"";

# $sendmail should be set to the full server path to sendmail on your Unix server
# By default, this is set to "/usr/sbin/sendmail", but on many Unix systems, it is
# located at "/usr/lib/sendmail".  If you don't know this, you might try typing 
# "whereis sendmail" or "which sendmail" from a Telnet prompt.

$sendmail="/usr/lib/sendmail";

# The following variable should be set to the location of the date command
# on your Unix server.  If you don't know this, you might try typing 
# "whereis date" or "which date" from a Telnet prompt.  The most common
# locations are "/bin/date" or "/usr/bin/date".

$date_command = "/bin/date";

# If set equal to "on", $notify_add will cause the program to notify the administrator
# by e-mail anytime that an ad is posted to the system

$notify_add = "on";

# If set equal to "on", $reply_user will cause the program to send a reply e-mail
# to the user who just posted an ad thanking them and reminding them of their ad
# number so that they can delete their ad in the future

$reply_user = "on";

# If set equal to "on", $notify_delete will cause the program to notify the
# administrator by e-mail anytime someone deletes an ad

$notify_delete = "on";

# $classdir should point to the full server path of the new directory that you created
# for this program where the ads.counter file and the HTML pages for the ads will be
# stored

$classdir = "/var/www/rainforestpets.net/classified";

# $htmldir should point to the full URL of the new directory that you created for
# this program where the ads.counter file and the HTML pages for the ads will be # stored.  You might also want to store the Cyber Ads logo graphic here.
# Do *not* include the trailing slash ("/") at the end.

$htmldir = "http://www.rainforestpets.net/classified";

# The @categories array defines the ad categories that the program will use.  For each
# category, you need to list it in the following format:
# "Long Name of Category|shortname", where the long name is the name that will be displayed
# at the top of pages in that category.  This can contain several words and spaces.  The
# short name can contain only one word with no spaces, as this is used internally by the
# program for keeping track of the categories.

@categories = ("Aquarium|aqua","Aquarium Products|aquapro","Birds|birds","Bird Products|birdpro","Cats|cat","Cat Products|catpro","Dogs|dog","Dog Products|dogpro","Exotic Animal|exotic","Exotic Animal Products|exoticpro","Misc|misc","Reptiles|reptile","Reptile Products|reptilepro","Small Animal|small","Small Animal Products|smallpro","Merchandise|merchandise","Wanted|want");

# The following subroutine defines how the HTML pages that are dynamically generated by the
# program will appear.  This subroutine (pagesetup) defines how the beginning part of the
# HTML is defined.  You can set the general background images or colors here, as well as
# the title that will appear at the top of each page.  Please be careful to modify only the
# HTML in between the "qq~" and the "~;" code, or you will cause a syntax error that will
# break the program.

sub pagesetup
{
print qq~
<title>RainForest Pets - Pet Classifieds</title>
<body background="/pics/chalk.jpg" bgcolor="#FFFFFF" vlink="#ff0000">

<center><font size=+3 color="#0000C0" face="Algerian">RainForest Pets - Pet Classifieds</font>
<br>
<br>

<center><table border=0 width=500 height=50 cellpadding=0 cellspacing=0>
<tr>
	<td><center><b><font size=+1>Welcome to the Pet Classifieds.</font></b></center>
<br>

</tr>
</table>
</center>
<br>
<br>
<center><table border=0 width=450 height=30 cellpadding=1 cellspacing=1>
<tr>
        <td><center><a href="http://www.birdhotline.com" target="new_frame"><img src="/pics/sunlink2.gif"></a></center></td>
        <td><center><a href="http://www.petsources.com/" target="new_frame"><IMG SRC="/pics/pslogo.gif" WIDTH="212" HEIGHT="50" BORDER="0" ALT="pslogo.gif - 2503 Bytes"></a></center></td>

</tr>
</table>
</center>
<br>
<center><a href="http://www.flukerfarms.com/"><img src="/pics/flukerban2.gif" alt="flukerban2.gif - 30.33 K" width=468 height=60 border=0></a></center>
<br>
<br>
<br>
<br>
~;
}

# The following subroutine defines how the HTML pages that are dynamically generated by the
# program will appear.  This subroutine (pageclose) defines how the end part of the HTML
# is defined.  This includes the general navigation tables that appear at the bottom of
# every page.  Please be careful to modify only the HTML in between the "qq~" and
# the "~;" code, or you will cause a syntax error that will break the program.

sub pageclose
{
print qq~
<center><p>~;
&generic_form_header;
print qq~
<table border=0 width=470><tr>
<td bgcolor="#ddeeee" align=center>
  <INPUT TYPE = "submit" NAME = "add_item_button"
	 VALUE = "Place Ads">
  <INPUT TYPE = "submit" NAME = "delete_item_button"
         VALUE = "Delete Ads">
  <INPUT TYPE = "submit" NAME = "view_database_button"
         VALUE = "Search Ads"></form>
<p><font size=2 face=arial>
<a href="$this_script_url ">Classifieds Home</a>
<br>
<br>
<a href="$contact_url">RainForest Pets Home</a>
<p>
<a href="http://dcregistry.com/classifieds/purchase.html"><img src="$htmldir/cyberads_free.gif" border=0 width=150 height=80 alt="Cyber Ads Free Edition"></a>
<p>
</td></tr></table>
</center>
<br>
<CENTER><A HREF="http://www.utopiad.com/member/getPaid?refId=129462" target="_top"><IMG SRC="/pics/utopiad_468b.gif" WIDTH="468" HEIGHT="60" BORDER="0" ALT="utopiad_468b.gif - 12819 Bytes"></A></CENTER>
<BR>


<center><a href="http://www.beevy.com/card_search/usa?94-3319" target="new_frame"><img src="/pics/cfsanibanner.gif" alt="cfsanibanner.gif - 49.06 K" width=400 height=40></a></center>
<BR>

<br>
<center><font size=0><b>Copyright<font size=-2>&copy;</font> RainForest Pets 1995 - 2004 All rights Reserved</b>
<br>

</body></html>~;
}

# This subroutine defines the HTML for the pages that store the ads for each category.
# Please be careful to modify only the HTML in between the "qq~" and
# the "~;" code, or you will cause a syntax error that will break the program.

sub print_default_html {
print HTMLFILE qq~
<HTML>
<HEAD>
<TITLE>RainForest Pets - Pet Classifieds $long_category_name</TITLE>
</head>
<body background="chalk.jpg" bgcolor="#FFFFFF" vlink="#ff0000">
<font face="arial">
<center><font SIZE="5" color="#0000C0" FACE="Algerian">RainForest Pets - Pet Classifieds</font> <br><font SIZE="3">$long_category_name</font>
<br>
<br>

<!--Do not edit past this line-->

<center><p>
<FORM METHOD = "post" ACTION = "$this_script_url">
<table border=0 width=470><tr>
<td bgcolor="#ddeeee" align=center>
  <INPUT TYPE = "submit" NAME = "add_item_button"
	 VALUE = "Place Ads">
  <INPUT TYPE = "submit" NAME = "delete_item_button"
         VALUE = "Delete Ads">
  <INPUT TYPE = "submit" NAME = "view_database_button"
         VALUE = "Search Ads"></form>
<p><font size=2 face=arial>
<a href="$this_script_url">RainForest Pets Home</a>
<p>
<a href="http://dcregistry.com/classifieds/purchase.html"><img src="$htmldir/cyberads_free.gif" border=0 width=150 height=80 alt="Cyber Ads Free Edition"></a>
<p>
</td></tr></table>
</center>
<br>
<CENTER><IMG SRC="http://service.bfast.com/bfast/serve/mid6902732?siteid=9556096&bfpage=home" BORDER="0" WIDTH="1" HEIGHT="1" NOSAVE >
<A HREF="http://service.bfast.com/bfast/click/mid6902732?siteid=9556096&bfpage=home" TARGET="_top"><IMG SRC="http://images.netradio.net/affiliate/general.gif  " BORDER="0" WIDTH="468" HEIGHT="60" ALT="NetRadio Homepage"></A></CENTER>
<BR>

<br>
<center><font size=0><b>Copyright<font size=-2>&copy;</font> RainForest Pets 1995 - 2000 All rights Reserved</b>
<br>
 
</body></html>~;
}

# End of user-configurable variables.  You should not edit anything past this line.

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

print "Content-type: text/html\n\n";

#######################################################################
#               Read and Parse Form Data                              #
#######################################################################

   # Get the input
   read(STDIN, $buffer, $ENV{'CONTENT_LENGTH'});

   # Split the name-value pairs
   @pairs = split(/&/, $buffer);

   foreach $pair (@pairs) {
      ($name, $value) = split(/=/, $pair);

      # Un-Webify plus signs and %-encoding
      $value =~ tr/+/ /;
      $value =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg;
      $value =~ s/<!--(.|\n)*-->//g;

      if ($allow_html != 1) {
         $value =~ s/<([^>]|\n)*>//g;
      }
      else {
         unless ($name eq 'body') {
	    $value =~ s/<([^>]|\n)*>//g;
         }
      }

      $in{$name} = $value;
   }

if ($in{'add_item_button'} ne "")
  {
  &generic_header("Post Classified Ad Form");
  &pagesetup;
  &generic_form_header;
  &add_entry_form;
  &pageclose;
  exit;
  }

elsif ($in{'post_ad_button'} ne "") {
	&post_ad;
	}

elsif ($in{'delete_item_button'} ne "")
  {
  &generic_header("Remove Classified Ad Form");
  &pagesetup;
  &generic_form_header;
  &delete_search_form;
  &pageclose;
  exit;
  } 

elsif ($in{'remove_ad_button'} ne "") {
	&remove;
	}

elsif ($in{'remove_all_button'} ne "") {
	&remove_all;
	}

elsif ($in{'view_database_button'} ne "")
  {
  &generic_header("View Classified Ads Form");
  &pagesetup;
  &generic_form_header;
  &view_database_form;
  &pageclose;
  exit;
  } 

elsif ($in{'view_ads_button'} ne "") {
	&view_ads;
	}

else  {
  &pagesetup;
  &display_frontpage;
  &pageclose;
	}

sub view_database_form {
print qq~
<table border=0 cellpadding=4 cellspacing=4 width=470>
<tr>
<td bgcolor="#ccccff">
<center><font size=4 face=arial>Quick Search</font><p>~;
print qq~
  <INPUT TYPE = "hidden" NAME = "view_ads_button"   
         VALUE = "Search for Matching Ads">
  <INPUT TYPE = "submit" VALUE = "See All Ads">
<p>
From the following category:<br>
<SELECT NAME = "category">~;
foreach $category (@categories) {
    	@fields = split (/\|/, $category);
print qq~
  <OPTION value="$fields[1]">$fields[0]
~;
   }
print qq~
  </select>
<p>
</form>
</center>
</td></tr></table>
</center><p>
</form>~;
}

sub view_ads {
	if ($in{'category'} eq "") {
	&category_error;
	}
	if (-e "$classdir/$in{'category'}.html") {
	print "<meta http-equiv=\"refresh\" content=\"1; url=$htmldir/$in{'category'}.html\">\n";
#	print "Location: $htmldir/$in{'category'}.html\n\n";
	}
	else {
	&no_ads_message;
	}
	exit;
	}

sub no_ads_message
  {
  &generic_header("No Matches Found");
  &pagesetup;
  print qq~<center><h2>No Matches Found</h2></center>
  <BLOCKQUOTE>
  We're sorry, but it appears that there currently are no ads in this category.  Please go back and try another category.
  </BLOCKQUOTE><p><center>
<form>
<input type=button value="<< Go Back " onClick="history.go(-1)"></form></center>~;
&pageclose;
  }



sub add_entry_form {
print qq~

<table border=0 cellpadding=4 cellspacing=4 width=470>
<tr>
<td bgcolor="#e8e8e8">
<center><font size=4>Contact Information</font></center><p>
Please provide the following contact information.<p>
<table><tr><td colspan=2>Your Name<br><input type=text name=name size=20 maxlength=20 value="$fields[0]"></td>
</tr>
<tr><td colspan=2>Street Address<br><input type=text name=street size=40 maxlength=40 value="$fields[1]"></td></tr>
<tr><td>City<br><input type=text name=city size=20 maxlength=40 value="$fields[2]">
</td>
<td>State/Province<br><input type=text name=state size=20 maxlength=40 value="$fields[3]">
</td></tr>
<tr><td>Zip/Postal Code<br><input type=text name=zip size=20 maxlength=20 value="$fields[4]"></td>
<td>Country<br>
<input type=text name=country size=20 maxlength=20 value="$fields[5]">
</td></tr>
<tr>
<td>Telephone Number<br>
<input type=text name=phone size=20 maxlength=20 value="$fields[5]">
</td>
<td>E-mail Address ( Required  to Post Ad )<br><input type=text name=email size=20 maxlength=40 value="$fields[6]"></td>
</tr>
<tr><td colspan=2>URL of your home page<br><input type=text name=url size=50 maxlength=50 value="$fields[7]"></td></tr>
<tr><td colspan=2>
<INPUT TYPE="checkbox" NAME="display_address"> Check here if you want to display your postal address and telephone number in your ad</td>
</tr>
</table>
</td></tr></table>
<p>

<table border=0 cellpadding=4 cellspacing=4 width=470>
<tr>
<td bgcolor="#ccccff">
<center><font size=4>Your Ad</font></center><p>
Please fill in the details of your ad below.<p>
<table width=100%><tr><td>

<TABLE width=100% BORDER="0">
  <TR>
  <TD COLSPAN = "3"><P><CENTER><B>Categories</B></CENTER>

Please check the category that you want to place your ad in</TD>
  </TR>~;

foreach $category (@categories) {
    	@fields = split (/\|/, $category);
print qq~
<tr>
<td><INPUT TYPE="radio" NAME="category" VALUE="$category"> $fields[0]</td></tr>~;
  }

print qq~
</table>
<p>
</td></tr>
<tr>
<td>If none of the categories above was applicable for your ad, what categories would you like to see us add here?<br><input type=text name=category_wanted size=50 maxlength=50 value="$fields[10]"></td></tr>

<tr>
<td>Caption<br><input type=text name=caption size=50 maxlength=50 value="$fields[10]"></td></tr>
<tr>
<td>Text of your ad (HTML is not allowed.  Hit the Return key once for a line break, or twice for a new paragraph.)<br>
<TEXTAREA NAME="text" ROWS=5 COLS=50 wrap=physical>$fields[11]</TEXTAREA><p>
</td></tr>
<p>
</table>
</td></tr></table>
<p>
<input type=submit name="post_ad_button" value="Post My Ad">
<input type=reset value="Clear All"><p>
</form>~;
}

sub post_ad {

$counter = 0;
# Get the Date for Entry
$date = `$date_command +"%A, %B %d, %Y"`;
        chop($date);
$shortdate = `$date_command +"%D"`;
        chop($shortdate);

if (($in{'name'} eq "") || ($in{'email'} eq "") || ($in{'street'} eq "") || ($in{'city'} eq "") || ($in{'state'} eq "") || ($in{'zip'} eq "") || ($in{'country'} eq "") || ($in{'phone'} eq "") || ($in{'category'} eq "") || ($in{'text'} eq "")) {
	&required_error;
}

@fields = split (/\|/, $in{'category'});
$long_category_name = $fields[0];
$short_category_name = $fields[1];
$in{'text'} =~ s/\n/<br>/g;

# Lock the file for security so the file is not damaged if more than one user tries to access it at the same time.
		
 $quit = 0;
 while ($quit != 1) {
	if (-e "$classdir/$short_category_name.lock") {
		# The file exists, time to take a nap
		sleep(1);
	}
	else {
	
	# Create the lock file, thereby locking the Classified Ad file
	open (LOCK,">$classdir/$short_category_name.lock");
	close LOCK;
	}
	
	# Open the data file to read the number of the last post
	open (ADFILE, "$classdir/ads.counter");
	$old_counter = <ADFILE>;
	# chop $old_counter;

	# Update the Ad Number by one
	$old_counter++;
	$new_counter = $old_counter;
	
	# Rewrite the data file
	open (ADFILE, ">$classdir/ads.counter");
	print ADFILE "$new_counter";
	close(ADFILE);

# If it doesn't already exist, create the HTML file where the ads will be
# stored for this category

	unless (-e "$classdir/$short_category_name.html") {
	open (HTMLFILE,"+>$classdir/$short_category_name.html");
	&print_default_html;
	close (HTMLFILE);	
	}

	# Append the user's ad and description to the ad file

	open(ADFILE,"$classdir/$short_category_name.html") || die $!;
		@main = <ADFILE>;
		close(ADFILE);
	open(ADFILE,">$classdir/$short_category_name.html") || die $!;
	      foreach $main_line (@main) {
	         if ($main_line =~ /<!--Do not edit past this line-->/) {

	            	print ADFILE "<!--Do not edit past this line-->\n";
			print ADFILE "<!-- $new_counter $in{'name'} $in{'email'} $shortdate -->\n";

  print ADFILE qq~<TABLE BORDER="1" CELLPADDING=2 cellspacing=2 width="470">
  <TR BGCOLOR="#000F99"><th colspan=2><FONT FACE="Arial" SIZE="3" COLOR="#ffffff">$in{'caption'}</FONT></th></tr><TR>
<TD>
<TABLE BORDER=0 cellpadding=2 CELLSPACING=1 WIDTH=460>
<TR>
	<TD WIDTH=60 VALIGN="TOP"><FONT FACE="Arial" SIZE="2" COLOR="#008000">Ad Number:</FONT></TD>
	<TD WIDTH=160 VALIGN="TOP"><FONT FACE="Arial" SIZE="2" COLOR="#CC0000"><B>$new_counter</B></FONT></TD>
	<TD WIDTH=60 VALIGN="TOP"><FONT FACE="Arial" SIZE="2" COLOR="#008000">Date Posted:</FONT></TD>
	<TD WIDTH=160 VALIGN="TOP"><FONT FACE="Arial" SIZE="2" COLOR="#CC0000"><B>$shortdate</B></FONT></TD>

</TD>
</TR>
<TR>
	<TD VALIGN="TOP" WIDTH=60 rowspan=2><FONT FACE="Arial" SIZE="2" COLOR="#008000">Contact:</FONT></TD>
	<TD WIDTH=160 VALIGN="TOP" rowspan=2><FONT FACE="Arial" SIZE="2">$in{'name'}<br>~;
if ($in{'display_address'} eq "on") {
  print ADFILE qq~
$in{'street'}<br>
$in{'city'}, $in{'state'} $in{'zip'}<br>
$in{'country'}~;
  }

print ADFILE qq~
</font></td>
	<TD WIDTH=60 VALIGN="TOP"><FONT FACE="Arial" COLOR="#008000" SIZE="2">Telephone:</FONT></TD>
	<TD WIDTH=160 VALIGN="TOP"><FONT FACE="Arial" SIZE="2">~;
if ($in{'display_address'} eq "on") {
  print ADFILE qq~
$in{'phone'}~;
  }

print ADFILE qq~
</FONT></TD>
</tr>
<TR>
	<TD WIDTH=60 VALIGN="TOP"><FONT FACE="Arial" COLOR="#008000" SIZE="2">E-mail:</FONT></TD>
	<TD WIDTH=160 VALIGN="TOP"><FONT FACE="Arial" SIZE="2"><a href="mailto:$in{'email'}">$in{'email'}</a></FONT></TD>
</TR>
<TR>
	<TD WIDTH=60><FONT FACE="Arial" COLOR="#008000" SIZE="2">Web Site:</FONT></TD>
	<TD COLSPAN=3><FONT FACE="Arial" SIZE="2"><a href="$in{'url'}">$in{'url'}</a><br></FONT></TD>
</TR>
</table>
<br>
	<TABLE CELLSPACING=0 CELLPADDING=0 BORDER=0 WIDTH=460><TR>
	<TD><FONT FACE="Arial" SIZE="2" COLOR="#000F99"><B>Description</B></FONT><BR>
	<FONT FACE="Arial" SIZE="2">$in{'text'}</FONT></td>
	</tr></TABLE></TD>
	</TR>	
</table><p>\n
~;
			print ADFILE "<!-- end $new_counter -->\n";
	         }
	         else {
	            print ADFILE "$main_line";
	         }
	      }

	# unlock the lock file
	unlink("$classdir/$short_category_name.lock");

if ($reply_user eq "on") {

      open( MAIL, "|$sendmail $in{'email'}" )
         || die "can't open sendmail: $email: $!\n";
      print MAIL "To: $in{'email'}\n";
      print MAIL "From: $master_admin_email_address\n";
      print MAIL "Subject: $sitename Classified Ads\n";
      print MAIL "Reply-to: $master_admin_email_address\n\n";

      print MAIL "Thank you for submitting your classified ad in the $long_category_name section of the $sitename Ads.  Your ad has been posted and appears as follows:\n\n";
	print MAIL "Ad Number: $new_counter\n";
	print MAIL "Subject: $in{'caption'}\n";
	print MAIL "Posted on: $shortdate\n";
	print MAIL "Reply to: $in{'name'} at $in{'email'}\n";
	print MAIL "Text of ad: $in{'text'}\n";
	print MAIL "URL (if any): $in{'url'}\n\n";
	print MAIL "You can come back at any time and delete your posting as necessary.  We hope you enjoy the new $sitename Ads and will come back often.

Also, please make a note of your ad number now for future reference.  You will need it if you ever want to delete your classified ad.  The ad number for this ad is the following:

ad number: $new_counter

If you did not post a classified ad on the $sitename Classifieds and believe that you have received this by mistake, please accept our apologies and notify us immediately.  As a security measure, you are receiving this message because someone used your e-mail address when posting a classified ad on the $sitename Classified Ads.\n\n";
	print MAIL "Sincerely,\n\n";
	print MAIL "$admin_name, Webmaster\n";
	print MAIL "$sitename\n";
	print MAIL "$siteurl\n";
	print MAIL "$slogan\n";
	close(MAIL);
  }

if (($master_admin_email_address ne "") && ($notify_add eq "on"))
{
      open( MAIL, "|$sendmail $master_admin_email_address" )
         || die "can't open sendmail notify: $master_admin_email_address: $!\n";
      print MAIL "To: $master_admin_email_address\n";
      print MAIL "From: $in{'name'} <$in{'email'}>\n";
      print MAIL "Subject: New Classified Ad\n";
      print MAIL "Reply-to: $in{'email'}\n\n";
      print MAIL "The following classified ad was added to the $long_category_name section of the $sitename Classified Ads by $in{'name'}:\n\n";
	print MAIL "Ad Number: $new_counter\n";
	print MAIL "Subject: $in{'caption'}\n";
	print MAIL "Posted on: $shortdate\n";
	print MAIL "Reply to: $in{'name'} at $in{'email'}\n";
	print MAIL "Text of ad: $in{'text'}\n";
	print MAIL "URL (if any): $in{'url'}\n\n";
	print MAIL "They recommended the following new categories (this will be blank if they made no recommendations): $in{'category_wanted'}";
	close(MAIL);
}

	&successful_addition_message;
	$quit = 1;
}

} # End of sub post_ad

sub successful_addition_message
  {

  &generic_header("Success: Your Ad has been posted to the Classifieds");
  &pagesetup;
  print qq~
  <center><h3>Your ad has been successfully posted!</h3>
Please make a note of your ad number, as you will need it if you ever want to delete this ad.  Your ad number is <b>$new_counter</b>.
  <P>~;
  &pageclose;
  }

sub required_error
  {
      print qq~<html><head><title>Missing Field</title></head>\n~;

&pagesetup;

  print qq~
<center><h1>Missing Field</h1></center>\n
I am sorry, but you did not select a value for a required field.  All fields must be filled in.  Would you please go BACK and make sure that you have selected a value for all of the required fields.  Thank you.
<center>
<form>
<input type=button value="<< Go Back " onClick="history.go(-1)"></form></center>
~;
&pageclose;
      exit;
  }  

sub delete_search_form {

  print qq~
<BLOCKQUOTE>
<h2>Deleting Your Classified Ad</h2><p>
To delete your classified ad, fill out the form below completely and click the "Delete This Ad" button.  If the form is not filled out completely, your ad will not be removed from the system. <P>

<table border=0 cellpadding=4 cellspacing=4 width=470>
<tr>
<td bgcolor="#e8e8e8">
<center><font size=4>Ad Information</font></center><p>
<table><tr><td>Please select the category where your ad is located:<br>
<SELECT NAME = "category">~;
foreach $category (@categories) {
    	@fields = split (/\|/, $category);
print qq~<OPTION value="$fields[1]">$fields[0]~;
   }
print qq~
</select>
</td>
</tr>
<tr><td>Your Name<br><input type=text name=name size=40 maxlength=40></td></tr>
<tr><td>E-mail Address<br><input type=text name=email size=20 maxlength=40></td>
</tr>
<tr><td>Ad Number<br><input type=text name=addno size=50 maxlength=50></td></tr>
<tr><td align=center><input type=submit name="remove_ad_button" value="Delete This Ad">
<input type=reset value="Clear All"></td></tr>
</table>
</td></tr></table>
<p>
</form>
<HR>
</BLOCKQUOTE>~;
}

sub remove {
if (($in{'name'} eq "") || ($in{'email'} eq "") || ($in{'addno'} eq "") || ($in{'category'} eq "")) {
	&required_error;
}

# Lock the file for security so the file is not damaged if more than one user tries to access it at the same time.
		
$quit = 0;
while ($quit != 1) {
	if (-e "$classdir/$in{'category'}.lock") {
		# The file exists, time to take a nap
		sleep(1);
	}
	else {
	
	# Create the lock file, thereby locking the Classified Ad file
	open (LOCK,">$classdir/$in{'category'}.lock");
	close LOCK;
	}

	# Remove the user's ad and description from the ad file

	open(ADFILE,"$classdir/$in{'category'}.html") || die $!;
		@main = <ADFILE>;
		close(ADFILE);

	$del = "0";
	$del1 = "0";
	open(ADFILE,">$classdir/$in{'category'}.html") || die $!;
	      foreach $main_line (@main) {
	         if ($main_line =~ /<!-- $in{'addno'} $in{'name'} $in{'email'}/) {
			$del = "1";
			$del1 = "1";
		   }
		   if ($del eq "1"){
		$deleted_ad .= "$main_line";
			if ($main_line =~ /<!-- end $in{'addno'} -->/) {
				$del = "0";
			}
	         }
	         else {
	            print ADFILE "$main_line";
	         }
	      }


	# unlock the lock file
	unlink("$classdir/$in{'category'}.lock");

	if ($del1 eq "0"){
	&unsuccessful_modification_message;
	}
	else {
	&successful_deletion_message;

if (($master_admin_email_address ne "") && ($notify_delete eq "on"))
{
      open( MAIL, "|$sendmail $master_admin_email_address" )
         || die "can't open sendmail notify: $master_admin_email_address: $!\n";
      print MAIL "To: $master_admin_email_address\n";
      print MAIL "From: $in{'name'} <$in{'email'}>\n";
      print MAIL "Subject: Classified Ad Deleted\n";
      print MAIL "Reply-to: $in{'email'}\n\n";
      print MAIL "Ad number $in{'addno'} was deleted from the $in{'category'} section of the $sitename Classified Ads by $in{'name'}.\n\n";
	close(MAIL);
}
	}
	$quit = 1;
} # End of while ($quit != 1)
exit;
}

sub unsuccessful_modification_message
  {
  &generic_header("Error: Ad Not Found");
  &pagesetup;
  print qq~<center><h3>Error: Ad Not Found</h3></center>
  The ad you selected was not found.  Please make sure that you have entered your name, e-mail address, and ad number correctly on the deletion form.  Thank you.~;
  &pageclose;
  }

sub successful_deletion_message
  {
  &generic_header("Success: Your ad has been successfully deleted");
  &pagesetup;
  print qq~
  <center><h3>The Ad that you selected has been Deleted from the Classifieds!</h3>
  The following ad was deleted from the classifieds:<p>
<blockquote>
$deleted_ad
</blockquote>
  <P>~;
  &display_frontpage;
  &pageclose;
  }

sub display_frontpage
  {

print qq~
 <b>Please choose an option from the buttons below.</b>
  <P>~;
  }

sub generic_header
  {
  local ($title) = @_;
  print qq~
  <HTML>
  <HEAD>
  <TITLE>$title</TITLE>
  </HEAD>~;
  }

sub generic_form_header
  {
  print qq~
  <FORM METHOD = "post" ACTION = "$this_script_url">~;
  }

sub category_error
  {
      print qq~<html><head><title>Error: No Category Chosen</title></head>\n~;

&pagesetup;

  print qq~
<center><h1>Error: No Category Chosen</h1></center>\n
We're sorry, but you did not select a category.  Would you please go BACK and make sure that you have selected a category.  Thank you.<p>
<center>
<form>
<input type=button value="<< Go Back " onClick="history.go(-1)"></form></center>
~;
&pageclose;
      exit;
  }