#! /usr/local/bin/perl 
use Text::Wrap;

# Check Referring URL
&check_url;  # Code not included for clarity

# Parse Form Contents
&parse_form; # Code not included for clarity

# Send E-Mail
&send_mail;  # This is the function we need to deal with!

sub send_mail {
   my $count, $to, $name;

   # When these are commented out, the URL fits beautifully,
   # Only prob is that we need to wrap the text!
   $Text::Wrap::columns=60;
   $FORM{'message'} = wrap("","",$FORM{'message'});

   if ($FORM{'fromemail'} eq "") { $FORM{'fromemail'} ="webmaster\@xxx.com"; }
   if ($FORM{'from'} eq "") { $FORM{'from'} ="xxx.com"; }
   
   # Process form variables for up to 5 email addresses
   # sent in by the form.
   for ($count=1; $count<=5; $count++) {
   		$to 	= 'email' . $count;
		$name 	= 'name' . $count;
		$type	= 'email_type' . $count;
		if ($FORM{$to} ne "") 
		{
			if ($FORM{$type} eq 'text')
			{
   				open(MAIL,"|$mailprog -t");
	        		print MAIL "To: $FROM{$name} <$FORM{$to}>\n";
   				print MAIL "From: $FORM{'from'} <$FORM{'fromemail'}>\n";
                        	print MAIL "Content-type: text\n";
   				print MAIL "Subject: National Biosolids Partnership Web Site\n\n";
				print MAIL "$FORM{'message'}\n";
				close (MAIL);
   			}
   			else # it's HTML mail
   			{
   				# Grab the header
   				$header = &GetTheHeader ();
   				
   				# Grab the footer
   				$footer = &GetTheFooter ();
   				
   				# Format the message to HTML
				$message = $FORM{'message'};
   				$message =~ s/\n/<BR>/g;
   				$message =~ s|(http\S+\s)|<A href="$1">$1</A>|g;
   				
   				open(MAIL,"|$mailprog -t");
	        		print MAIL "To: $FROM{$name} <$FORM{$to}>\n";
   				print MAIL "From: $FORM{'from'} <$FORM{'fromemail'}>\n";
    				print MAIL "Content-type: text/html\n";
				print MAIL "MIME-Version: 1.0\n";	                       	
   				print MAIL "Subject: National Biosolids Partnership Web Site\n\n";
   				
   				print MAIL "$header";
				print MAIL "$message\n";
				print MAIL "$footer";
   				close (MAIL);
   			}
		}
   }

   print "Location: $FORM{'redirect'}\n\n";

}