#!/usr/local/bin/perl
use Socket;
$|=1;
##################################################################  
#  birdcast.cgi Version 2.0
#  updated May 2, 1999
#  (C)1998, 1999 Bignosebird.com                                          
#  This software is FREEWARE! Do with it as you wish. It is yours   
#  to share and enjoy. Modify it, improve it, and have fun with it! 
#  It is distributed strictly as a learning aid and bignosebird.com 
#  disclaims all warranties- including but not limited to:          
#  fitness for a particular purpose, merchantability, loss of       
#  business, harm to your system, etc... ALWAYS BACK UP YOUR        
#  SYSTEM BEFORE INSTALLING ANY SCRIPT OR PROGRAM FROM ANY          
#  SOURCE!
##################################################################  

# CONFIGURATION NOTES 

#
# $SCRIPT_NAME is the full URL of this script, including the 
# http part, ie, "http://domainname.com/cgi-bin/birdcast.cgi";
#
# $SITE_NAME is the "name" of your web site.
# $SITE_URL is the URL of your site (highest level)
# $END_LINE is the very last line printed in the e-mail.
#
# $MAXNUM is the number of possible people a person can refer
# your URL to at one time. If you call the script using the
# GET method, then this is also the number of entry blanks
# created for recipient names and addresses.
#
# $SMTP_SERVER is the name of your e-mail gateway server, or
# SMTP host. On most systems, "localhost" will work just fine.
# If not, change "localhost" to whatever your ISP's SMTP
# server name is, ie, smtp.isp.net or mail.isp.net

# $SEND_MAIL is the full path to your server's sendmail program
# If you do not wish to use Sockets for some reason and need
# to use sendmail, uncomment the $SEND_MAIL line and comment
# the $SMTP_SERVER line.

# okaydomains is a list of domains from which you want to allow
# the script to be called from.  Leave it commented to leave the
# script unrestricted. If you choose to use it, be sure to list
# your site URL with and without the www.

#  Use either $SMTP_SERVER 
   $SMTP_SERVER="localhost";
#
#     OR
#
#   $SEND_MAIL="/usr/lib/sendmail -t"; 
#
#      BUT NEVER BOTH!!!!!!

#   @okaydomains=("http://yourdomain.com", "http://www.yourdomain.com");

   $SCRIPT_NAME="http://www.livingwebcam.de/cgi-local/empfehlen.cgi";
   $SITE_NAME="The Daily View of the Living Webcam";
   $SITE_URL="http://www.livingwebcam.de/";
   $ENDLINE="";
   $MAXNUM=3;
   $LOGFILE="reflog.txt";

   if ($SENDMAIL ne "")
     {&test_sendmail;}


   &valid_page;    #if script is called from offsite, bounce it!
   &decode_vars;
   if ( $ENV{'REQUEST_METHOD'} ne "POST")
    {
      &draw_request;
      exit;
    }
   &do_log;
   &process_mail;
   print "Location: $JUMP_TO\n\n";

##################################################################
sub process_mail
 {
for ($i=1;$i<$MAXNUM+1;$i++)
    {
      $recipname="recipname_$i";
      $recipemail="recipemail_$i";
      if ($fields{$recipemail} eq "")
        {
         next;
        }
      if (&valid_address == 0)
        {
         next;
        }

#BNB SAYS! You can modify the Subject line below.

$subject = "Der heisse Tip von $fields{'send_name'}";

#BNB SAYS! Modify the lines below between the lines marked
# with __STOP_OF_MAIL__ to customize your e-mail message
# DO NOT remove the lines that contain __STOP_OF_MAIL__!
# If you enter any hardcoded e-mail addresses, BE SURE TO
# put the backslash before the at sign, ie, me\@here.net

$msgtxt = <<__STOP_OF_MAIL__;            

Hallo $fields{$recipname},

$fields{'send_name'} hat die Living Webcam besucht, fand sie sehenswert und empfiehlt sie hiermit weiter:

<a href="$JUMP_TO"><img src="http://www.livingwebcam.de/images/bilder/empfehl/postkarte.jpg"></a>
	


__STOP_OF_MAIL__

      if ($fields{'message'} ne "")
       {
         $msgtxt .= "Und hier kommt noch eine persoenliche Botschaft....\n";
         $msgtxt .= "$fields{'message'}\n\n";
       }
       $msgtxt .= "$SITE_NAME\n";
       $msgtxt .= "$ENDLINE\n";
       $msgtxt .= "$SITE_URL\n\n";
       $mailresult=&sendmail($fields{send_email}, $fields{send_email}, $fields{$recipemail}, $SMTP_SERVER, $subject, $msgtxt);

      if ($mailresult ne "1")
      {print "Content-type: text/html\n\n";
       print "MAIL NOT SENT. SMTP ERROR: $mailresult\n";
       exit
      }

    }
 }

##################################################################
sub draw_request
 {
print "Content-type: text/html\n\n";

#BNB SAYS! Here is the part that draws the page that asks the 
#reader to enter e-mail addresses and names. Tailor it to meet
# your needs if necessary. DO NOT disturb the lines with
# __REQUEST__ on them.


print <<__REQUEST__;
<head>
		<title>Empfehlen Sie die Living Webcam weiter.</title>
	</head>
<body bgcolor="black">
	<table cool width="863" height="642" border="0" cellpadding="0" cellspacing="0" gridx="3" showgridx usegridx gridy="3" showgridy usegridy>
		<tr height="1" cntrlrow>
			<td width="1" height="1"></td>
			<td width="42" height="1"><spacer type="block" width="42" height="1"></td>
			<td width="210" height="1"><spacer type="block" width="210" height="1"></td>
			<td width="444" height="1"><spacer type="block" width="444" height="1"></td>
			<td width="164" height="1"><spacer type="block" width="164" height="1"></td>
		</tr>
		<tr height="40">
			<td width="1" height="40"><spacer type="block" width="1" height="40"></td>
			<td width="252" height="160" colspan="2" rowspan="2" valign="top" align="left" xpos="0"><a href="../cover.php"><img height="75" width="246" src="../images/logoklein.jpg" lowsrc="../images/logoklein.jpg" border="0" alt="Living Webcam"></a></td>
			<td width="444" height="40"></td>
			<td width="164" height="40"></td>
		</tr>
		<tr height="120">
			<td width="1" height="120"><spacer type="block" width="1" height="120"></td>
			<td width="444" height="120" colspan="1" rowspan="1" valign="top" align="left" xpos="252"><img height="30" width="139" src="../images/heads/hlempf.jpg" border="0" alt="Empfehlen"></td>
			<td width="164" height="120"></td>
		</tr>
		<tr height="240">
			<td width="1" height="240"><spacer type="block" width="1" height="240"></td>
			<td width="252" height="240" colspan="2" rowspan="1" valign="top" align="left" xpos="0"><img height="180" width="246" src="../images/bilder/empfehlen.jpg"></td>
			<td width="444" height="477" colspan="1" rowspan="2" valign="top" align="left" xpos="252" content bgcolor="#dcdcdc" csheight="477">
				<center>
					<font face="Arial,Helvetica,Geneva,Swiss,SunSans-Regular" color="black"><b>Sie wollen die Living Webcam weiterempfehlen? Prima.</b></font>
					<p><a HREF="$ENV{'HTTP_REFERER'}"><img height="180" width="246" src="../images/bilder/empfehl/postkarte.jpg" lowsrc="../images/bilder/empfehl/postkarte.jpg" border="0" alt="Gr&uuml;&szlig;e"></a></p>
					
				</center>
  		<BLOCKQUOTE>
 			<font face="Arial,Helvetica,Geneva,Swiss,SunSans-Regular" size="2" color="black">Tragen Sie einfach unten die Elektropost-Adresse des Empf&auml;ngers ein. Auch Ihren Namen sollten Sie eintragen, damit der Empf&auml;nger wei&szlig;, von wem die Post kommt. Wollen Sie au&szlig;erdem noch ein paar pers&ouml;nliche Worte loswerden, schreiben Sie sie einfach in das &quot;Ihre Botschaft&quot; Feld.</font>
					<p><font face="Arial,Helvetica,Geneva,Swiss,SunSans-Regular" size="2" color="black">SENDEN dr&uuml;cken. Fertig. <br>
					Anschlie&szlig;end kommen Sie zur&uuml;ck auf die vorangegangene Seite. </font><font face="Arial,Helvetica,Geneva,Swiss,SunSans-Regular">
					<FORM METHOD="POST" ACTION="$SCRIPT_NAME">
   					<INPUT TYPE="HIDDEN" NAME="call_by" VALUE=$ENV{'HTTP_REFERER'}>
   					<table border="0" cellpadding="1" cellspacing="0">
						<tr>
							<td>&nbsp;</td>
							<td align="center"><b><font face="Arial,Helvetica,Geneva,Swiss,SunSans-Regular" size="2">Name</font></b></td>
							<td align="center"><font face="Arial,Helvetica,Geneva,Swiss,SunSans-Regular" size="2"><b>Elektropost-Adresse</b></font></td>
						</tr>
                        <tr>
							<td><font size="2" face="Arial,Helvetica,Geneva,Swiss,SunSans-Regular"><b>Sie</b></font></td>
							<td><input type="text" name="send_name"></td>
							<td><input type="text" name="send_email"></td>
						</tr>
__REQUEST__
    for ($i=1;$i<$MAXNUM+1;$i++)
     {
    print <<__STOP_OF_ROW__;            
    <TR>
    <td><font face="Arial,Helvetica,Geneva,Swiss,SunSans-Regular" size="2"><b>Freund $i</b></font></td>
    <TD><INPUT TYPE="TEXT" NAME="recipname_$i"></TD>
    <TD><INPUT TYPE="TEXT" NAME="recipemail_$i"></TD>
   	<td></td>
    </TR>
__STOP_OF_ROW__
     }
    print <<__REQUEST2__;            
   					<TR>
   						<td>&nbsp;</td>
							<td align="center" colspan="2"><font face="Arial,Helvetica,Geneva,Swiss,SunSans-Regular"><b>Ihre Botschaft</b><br>
								</font><textarea name="message" wrap="virtual" rows="5" cols="39"></textarea><br>
								<input type="submit" value="SENDEN"></td>
							<td></td>
    				</TR>
  					</TABLE>
  					</FORM>
   					</p>
 				 </BLOCKQUOTE>
   				<center>
					<p><font size="1" face="Arial,Helvetica,Geneva,Swiss,SunSans-Regular">Free recommendation script created by<br>
					<a href="http://bignosebird.com/">BigNoseBird.Com</a><br>
					The Strangest Name in Free Web Authoring Resources<br>
					</font></center>
  </TD>
  <td width="164" height="240"></td>
		</tr>
		<tr height="237">
			<td width="1" height="237"><spacer type="block" width="1" height="237"></td>
			<td width="42" height="237"></td>
			<td width="210" height="237" colspan="1" rowspan="1" valign="top" align="left" xpos="42"><img height="120" width="204" src="../images/navigation.jpg" lowsrc="../images/navigation.jpg" border="0" alt="Navigation" usemap="#navigationb69aefe4"><map name="navigationb69aefe4"><area href="../standards/kontakt.html" coords="122,80,202,99" shape="rect"><area href="../standards/ueberblick.php" coords="121,60,203,77" shape="rect"><area href="../standards/links.html" coords="121,40,201,57" shape="rect"><area href="../standards/wir.html" coords="121,22,201,37" shape="rect"><area href="../standards/specials/index.html" coords="120,2,202,18" shape="rect"><area href="../cover.php" coords="11,101,116,118" shape="rect"><area href="../standards/gaestebuch.shtml" coords="9,81,116,98" shape="rect"><area href="../standards/suche.php" coords="6,61,115,78" shape="rect"><area href="../cgi-local/empfehlen.cgi" coords="7,40,116,58" shape="rect"><area href="../standards/lieblings.html" coords="6,20,115,38" shape="rect"><area href="../standards/shop/index.html" coords="5,3,114,17" shape="rect"></map></td>
			<td width="164" height="237"></td>
		</tr>
		<tr height="2">
			<td width="1" height="2"><spacer type="block" width="1" height="2"></td>
			<td width="42" height="2"></td>
			<td width="210" height="2"></td>
			<td width="444" height="2"></td>
			<td width="164" height="2"></td>
		</tr>
  </TABLE>
 
__REQUEST2__
 } 
 				

##################################################################
#  NOTHING TO MESS WITH BEYOND THIS POINT!!!!
##################################################################
sub decode_vars
 {
 $i=0;
  if ( $ENV{'REQUEST_METHOD'} eq "GET")
   {
     $temp=$ENV{'QUERY_STRING'};
   }
   else
    {
      read(STDIN,$temp,$ENV{'CONTENT_LENGTH'});
    }
  @pairs=split(/&/,$temp);
  foreach $item(@pairs)
   {
    ($key,$content)=split(/=/,$item,2);
    $content=~tr/+/ /;
    $content=~s/%(..)/pack("c",hex($1))/ge;
    $content=~s/\012//gs;
    $content=~s/\015/ /gs;
    $fields{$key}=$content;
   }
   if ($fields{'call_by'} eq "")
    {
     $JUMP_TO = $ENV{'HTTP_REFERER'};
    }
   else
    {
     $JUMP_TO = $fields{'call_by'};
    }
}

##################################################################
sub valid_address 
 {
  $testmail = $fields{$recipemail};
  if ($testmail =~ /(@.*@)|(\.\.)|(@\.)|(\.@)|(^\.)/ ||
  $testmail !~ /^.+\@(\[?)[a-zA-Z0-9\-\.]+\.([a-zA-Z]{2,3}|[0-9]{1,3})(\]?)$/)
   {
     return 0;
   }
   else 
    {
        return 1;
    }
}

sub valid_page
 {
 if (@okaydomains == 0) {return;}
  $DOMAIN_OK=0;                                         
  $RF=$ENV{'HTTP_REFERER'};                             
  $RF=~tr/A-Z/a-z/;                                     
  foreach $ts (@okaydomains)                            
   {                                                    
     if ($RF =~ /$ts/)                                  
      { $DOMAIN_OK=1; }
   }                                                    
   if ( $DOMAIN_OK == 0)                                
     { print "Content-type: text/html\n\n Sorry, cant run it from here....";    
      exit;
     }                                                  
}


##################################################################
sub test_sendmail
 {
  @ts=split(/ /,$MAIL_PROGRAM);
  if ( -e $ts[0] )
   {
    return;
   }
   print "Content-type: text/html\n\n";
   print "<H2>$ts[0] NOTFOUND. PLEASE CHECK YOUR SCRIPT'S MAIL_PROGRAM VARIABLE</H2>";
   exit;
 }

sub do_log
{
open (ZL,">>$LOGFILE");
$date=localtime(time);
for ($i=1;$i<$MAXNUM+1;$i++)
    {
      $recipname="recipname_$i";
      $recipemail="recipemail_$i";
      if ($fields{$recipemail} eq "")
        {
         next;
        }
      if (&valid_address == 0)
        {
         next;
        }
     $logline="$date\|$JUMP_TO\|$fields{'send_email'}\|$fields{$recipemail}\|\n";
     print ZL $logline;
   }
  close(ZL);
}

###################################################################
#Sendmail.pm routine below by Milivoj Ivkovic 
###################################################################
sub sendmail  {

# error codes below for those who bother to check result codes <gr>

# 1 success
# -1 $smtphost unknown
# -2 socket() failed
# -3 connect() failed
# -4 service not available
# -5 unspecified communication error
# -6 local user $to unknown on host $smtp
# -7 transmission of message failed
# -8 argument $to empty
#
#  Sample call:
#
# &sendmail($from, $reply, $to, $smtp, $subject, $message );
#
#  Note that there are several commands for cleaning up possible bad inputs - if you
#  are hard coding things from a library file, so of those are unnecesssary
#

    my ($fromaddr, $replyaddr, $to, $smtp, $subject, $message) = @_;

    $to =~ s/[ \t]+/, /g; # pack spaces and add comma
    $fromaddr =~ s/.*<([^\s]*?)>/$1/; # get from email address
    $replyaddr =~ s/.*<([^\s]*?)>/$1/; # get reply email address
    $replyaddr =~ s/^([^\s]+).*/$1/; # use first address
    $message =~ s/^\./\.\./gm; # handle . as first character
    $message =~ s/\r\n/\n/g; # handle line ending
    $message =~ s/\n/\r\n/g;
    $smtp =~ s/^\s+//g; # remove spaces around $smtp
    $smtp =~ s/\s+$//g;

    if (!$to)
    {
	return(-8);
    }

 if ($SMTP_SERVER ne "")
  {
    my($proto) = (getprotobyname('tcp'))[2];
    my($port) = (getservbyname('smtp', 'tcp'))[2];

    my($smtpaddr) = ($smtp =~
		     /^(\d{1,3})\.(\d{1,3})\.(\d{1,3})\.(\d{1,3})$/)
	? pack('C4',$1,$2,$3,$4)
	    : (gethostbyname($smtp))[4];

    if (!defined($smtpaddr))
    {
	return(-1);
    }

    if (!socket(MAIL, AF_INET, SOCK_STREAM, $proto))
    {
	return(-2);
    }

    if (!connect(MAIL, pack('Sna4x8', AF_INET, $port, $smtpaddr)))
    {
	return(-3);
    }

    my($oldfh) = select(MAIL);
    $| = 1;
    select($oldfh);

    $_ = <MAIL>;
    if (/^[45]/)
    {
	close(MAIL);
	return(-4);
    }

    print MAIL "helo $SMTP_SERVER\r\n";
    $_ = <MAIL>;
    if (/^[45]/)
    {
	close(MAIL);
	return(-5);
    }

    print MAIL "mail from: <$fromaddr>\r\n";
    $_ = <MAIL>;
    if (/^[45]/)
    {
	close(MAIL);
	return(-5);
    }

    foreach (split(/, /, $to))
    {
	print MAIL "rcpt to: <$_>\r\n";
	$_ = <MAIL>;
	if (/^[45]/)
	{
	    close(MAIL);
	    return(-6);
	}
    }

    print MAIL "data\r\n";
    $_ = <MAIL>;
    if (/^[45]/)
    {
	close MAIL;
	return(-5);
    }

   }

  if ($SEND_MAIL ne "")
   {
     open (MAIL,"| $SEND_MAIL");
   }

    print MAIL "To: $to\n";
    print MAIL "From: $fromaddr\n";
    print MAIL "Reply-to: $replyaddr\n" if $replyaddr;
    print MAIL "X-Mailer: Perl Powered Socket Mailer\n";
    print MAIL "Subject: $subject\n\n";
    print MAIL "$message";
    print MAIL "\n.\n";

 if ($SMTP_SERVER ne "")
  {
    $_ = <MAIL>;
    if (/^[45]/)
    {
	close(MAIL);
	return(-7);
    }

    print MAIL "quit\r\n";
    $_ = <MAIL>;
  }

    close(MAIL);
    return(1);
}