#!/usr/bin/perl 
 
use Socket; 
##################################################################  
# 
# SKRIPT IST BEREITS KONFIGURIERT UND MUSS NICHT GEÄNDERT WERDEN 
# 
################################################################## 
#  (C)1998-9 Bignosebird.com   bnbform v3.0 
#  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!                                                           
# 
#  Socket based e-mail for cross platform capability! 
# 
############## SPECIAL FORM VARIABLES ############################ 
#required:    comma delimited list of required entry fields 
#data_order:  comma delimited list indicating what fields to actually 
#             print and in what order. 
#outputfile:  the name of the file to save the data in if using a file 
#emailfile:   the name of the file to hold only the sender e-mail address 
#ok_url:      URL to go to if successful 
#not_ok_url   URL to go to if unsuccessful 
#submit_to:   email address of person to input receive data by mail 
#cc_to:       email address of Cc Recipient 
#submit_by:   email address of person completing form 
#autorespond: if yes, then send confirmation to submitter 
#automessage: text to print for autoconfirmation e-mail 
#form_id:     name of form for e-mail subject 
#countfile:   name of file for serial number counter 
#okaydomains: prevents calling the script from other sites, 
#             without restricting e-mail addresses. 
#             replaces $SECURE_NAME from earlier versions. 
#             use only lower case letters. 
#SMTP_SERVER: the full host name of the server providing e-mail 
#             gateway service 
################################################################## 
 
 
## MAIN ########################################################## 
 
# uncomment the line below, and change bignosebird to your domain 
# name if you wish to make is so the script can only be called 
# from your site. 
 
#@okaydomains=("http://bignosebird.com", "http://www.bignosebird.com");      
 
#SMTP_SERVER: indicates the name of the host acting as the e-mail 
#             gateway. "localhost" should work on most systems. 
 
#$SMTP_SERVER="localhost"; 
 
#OR IF SMTP IS UNAVAILABLE TO YOU, USE SEND_MAIL- 
# BUT NOT BOTH! 
 
$SEND_MAIL="/usr/lib/sendmail -t"; 
 
$lockfile="/tmp/bnbform.lck"; 
 
   &decode_vars; 
   &valid_page; 
   if ($fields{'countfile'} ne "") 
      { &get_number; } 
   &valid_data; 
   &write_data; 
 
   if ($fields{'autorespond'} eq "yes") 
    { &answer_back; } 
 
   if ($fields{'ok_url'} ne "") 
    { print "Location: $fields{'ok_url'}\n\n"; exit;} 
     else { &thank_you; } 
 
################################################################## 
sub write_data 
{ 
   if ($fields{'submit_by'} ne "") 
     { 
       if (&valid_address == 0)    
        { 
          &bad_email; 
          exit; 
        } 
     } 
    
   if ($fields{'submit_by'} ne "" && $fields{'emailfile'} ne "") 
    { 
      $emaillogfile = $ENV{'DOCUMENT_ROOT'}."/cgi-bin/".$fields{'emailfile'}; 
      open (EMF,">>$emaillogfile"); 
      print EMF "$fields{'submit_by'}\n"; 
      close (EMF); 
    } 
   $the_date=localtime(); 
   if ($fields{'submit_to'} ne "") 
    { 
     $msgtext=""; 
     $msgtext .= "On $the_date,\n"; 
     $msgtext .=  "The following information was submitted:\n"; 
     $msgtext .=  "Host: $ENV{'REMOTE_ADDR'}\n"; 
    } 
   if ($fields{'outputfile'} ne "") 
    {  
      &get_the_lock;  
      $logfile = $ENV{'DOCUMENT_ROOT'}."/cgi-bin/".$fields{'outputfile'}; 
      open(OUT_FILE,">>$logfile");  
    } 
   foreach $to_print (@sortlist) 
    { 
      if ($fields{'outputfile'} ne "") 
       { print OUT_FILE "$fields{$to_print}\|"; } 
      if ($fields{'submit_to'} ne "") 
       { $msgtext .= "$to_print = $fields{$to_print}\n"; } 
    } 
   if ($fields{'outputfile'} ne "") 
    { 
     print OUT_FILE "$the_date\|\n"; 
     close(OUT_FILE); 
     &drop_the_lock; 
    } 
   if ($fields{'submit_to'} ne "") 
    { 
      $mailresult=&sendmail($fields{submit_by}, $fields{submit_by}, $fields{submit_to}, $SMTP_SERVER, $fields{form_id}, $msgtext); 
      if ($mailresult ne "1") 
      {print "Content-type: text/html\n\n"; 
       print "MAIL NOT SENT. SMTP ERROR: $mailcodes{'$mailresult'}\n"; 
       exit 
      } 
    } 
   if ($fields{'cc_to'} ne "") 
    { 
      $mailresult=&sendmail($fields{submit_by}, $fields{submit_by}, $fields{cc_to}, $SMTP_SERVER, $fields{form_id}, $msgtext); 
    } 
} 
 
################################################################## 
sub decode_vars 
 { 
  $i=0; 
  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/\t/ /g; 
    $fields{$key}=$content; 
    if ($key eq "data_order") 
      { 
       $content=~s/ //g; 
       @sortlist=split(/,/,$content); 
      } 
    if ($key eq "required") 
      { 
       $content=~s/ //g; 
       @mandatory=split(/,/,$content); 
      } 
   } 
if  ( 
     ( ($fields{automessage}=~ /^([-\/\w.]+)$/ || $fields{automessage} eq "") && 
      ($fields{countfile}=~ /^([-\/\w.]+)$/ || $fields{countfile} eq "") && 
      ($fields{emailfile}=~ /^([-\/\w.]+)$/ || $fields{emailfile} eq "") && 
      ($fields{outputfile}=~ /^([-\/\w.]+)$/ || $fields{outputfile} eq "") ) 
        && 
     ( (substr($fields{automessage},0,1) ne "/") && 
       (substr($fields{countfile},0,1) ne "/") && 
       (substr($fields{emailfile},0,1) ne "/") && 
       (substr($fields{outputfile},0,1) ne "/") ) 
    ) 
    {$donothing=0;} 
    else 
     { 
       print "Content-type: text/html\n\n sorry, invalid characters...\n"; 
       exit; 
     } 
} 
 
################################################################## 
sub valid_data 
  { 
   if ($fields{'data_order'} eq "")    #make sure we have work to do! 
    { 
      print "Content-type: text/html\n\n";  
      print <<__W1__; 
 
      <H1>NO data_order list SPECIFIED!</H1> 
 
__W1__ 
      exit; 
    } 
 
   foreach $to_check (@mandatory) #test all required fields, bail on 1st bad 
    {                              
      if ($fields{$to_check} eq "") 
        { 
          if ($fields{'not_ok_url'} ne "") 
            {  
              print "Location: $fields{'not_ok_url'}\n\n"; 
              exit; 
            } 
             else 
              { 
                &try_again; 
              } 
         } 
    } 
 
  } 
 
################################################################## 
sub thank_you 
  { 
      print "Content-type: text/html\n\n";  
      print <<__W2__; 
 
      <H1>Thank you!</H1> 
      Your information has been sent and I will be in touch 
      with you soon. 
 
__W2__ 
      exit; 
  } 
 
################################################################## 
sub try_again 
  { 
      print "Content-type: text/html\n\n";  
      print <<__W3__; 
 
      <H1>Missing Data!</H1> 
      <B>Please press the back button and fill in 
      all required fields!<P></B> 
 
__W3__ 
      exit; 
  } 
 
################################################################## 
sub answer_back 
 { 
 
   $subject = "Thank you"; 
   $msgtext=""; 
  if ($fields{'automessage'} ne "") 
   { 
    $automessagefile = $ENV{'DOCUMENT_ROOT'}."/cgi-bin/".$fields{'automessage'}; 
    open (AM,"< $automessagefile"); 
    while (<AM>) 
     { 
      chop $_; 
      $msgtext .= "$_\n"; 
     }  
    close(AM); 
   } 
    else 
    { 
      $msgtext =<<__W4__; 
 
Thank you for your submission. I will be 
getting in touch with you soon. 
 
__W4__ 
    } 
      $mailresult=&sendmail($fields{submit_to}, $fields{submit_to}, $fields{submit_by}, $SMTP_SERVER, $subject, $msgtext); 
 } 
 
################################################################## 
 
sub get_number 
 { 
   $newnum=0; 
   open(COUNTER,"<$fields{'countfile'}"); 
   while(<COUNTER>) 
     { 
      $newnum = $_ + 1; 
     } 
   close(COUNTER); 
   open(COUNTER,">$fields{'countfile'}"); 
   print COUNTER "$newnum"; 
   close (COUNTER); 
   $fields{'counter'}=$newnum 
 } 
 
################################################################## 
sub valid_address  
 { 
  $testmail = $fields{'submit_by'}; 
  if ($testmail =~ /(@.*@)|(\.\.)|(@\.)|(\.@)|(^\.)/ || 
  $testmail !~ /^.+\@(\[?)[a-zA-Z0-9\-\.]+\.([a-zA-Z]{2,3}|[0-9]{1,3})(\]?)$/) 
   { return 0; } 
   else { return 1; } 
} 
 
################################################################## 
sub bad_email 
{ 
print <<__STOP_OF_BADMAIL__; 
Content-type: text/html 
 
<FONT SIZE="+1"> 
<B> 
SORRY! Your request could not be processed because of an 
improperly formatted e-mail address. Please use your browser's  
back button to return to the form entry page. 
</B> 
</FONT> 
__STOP_OF_BADMAIL__ 
} 
 
sub get_the_lock 
{ 
  local ($endtime);                                    
  $endtime = 60;                                       
  $endtime = time + $endtime;                          
  while (-e $lockfile && time < $endtime)  
   { 
    # Do Nothing                                     
   }                                                    
   open(LOCK_FILE, ">$lockfile");                      
} 
 
sub drop_the_lock 
{ 
  close($lockfile); 
  unlink($lockfile); 
} 
 
 
################################################################## 
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 from here!";     
      exit; 
     } 
 } 
 
 
################################################################### 
#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); 
} 

<FORM METHOD="POST" ACTION="/cgi-bin/bnbform.cgi"> 
<table cellpadding="2" width="99%" border="0"> 
<tbody> 
<tr><td>Name/Vorname*:</td><td><input id="Name-Vorname" name="Name-Vorname" /></td></tr> 
<tr><td>Str./Nr*.</td><td><input id="Strasse-Nummer" name="Strasse-Nummer" /></td></tr> 
<tr><td>PLZ/Ort*:</td><td><input id="Platz-Ort" name="Platz-Ort" /></td></tr>  
<tr><td>E-Mail*:</td><td><input id="E-Mail" name="submit_by" /></td></tr>  
<tr><td>Tel.*:</td><td><input id="Telefon" name="Telefon" /></td></tr>  
<tr><td>Geburtsdatum:</td><td align="left"><input id="Geburtsdatum" name="Geburtsdatum" /></td></tr>  
<tr><td>Betreff:</td><td><select size="1" name="Betreff" id="Betreff"> 
<option value="auto">Auto-Fahrunterricht</option> 
<option value="motorad">Motorrad-Kurse</option> 
<option value="VKU">Verkerskunde-Kurse</option> 
<option value="Theorie">Theorieunterricht</option> 
<option value="Mieten">Motorradmieten</option> 
<option value="WAB">WAB</option> 
<option value="???????">???????</option> 
</select></td></tr> 
<tr><td valign="top"><br />Bemerkungen:</td><td><label for="Bemerkung"></label><textarea name="Bemerkung" id="Bemerkung" cols="45" rows="5"></textarea></td></tr>  
<tr><td>&nbsp;</td><td><input id="absenden" type="submit" value="absenden" name="absenden" /><input id="zuruecksetzen" type="reset" value="zur&uuml;cksetzen" name="zuruecksetzen" /></td></tr> 
</tbody>  
</table>  
<!-- SCRIPT CONFIGURATION SECTION --> 
<INPUT TYPE="HIDDEN" NAME="required" VALUE="Name-Vorname,Strasse-Nummer,Platz-Ort,submit_by,Telefon">  
<INPUT TYPE="HIDDEN" NAME="data_order" VALUE="Name-Vorname,Strasse-Nummer,Platz-Ort,submit_by,Telefon,Geburtsdatum,Betreff,Bemerkung,submit_by"> 
<INPUT TYPE="HIDDEN" NAME="submit_to" VALUE="gentjana.oberle@bluewin.ch">  
<INPUT TYPE="HIDDEN" NAME="autorespond" VALUE="yes">  
<INPUT TYPE="HIDDEN" NAME="automessage" VALUE="mymessage.txt">  
<INPUT TYPE="HIDDEN" NAME="outputfile" VALUE="form.log">  
<INPUT TYPE="HIDDEN" NAME="form_id" VALUE="Anfrage">  
<INPUT TYPE="HIDDEN" NAME="ok_url" VALUE="http://www.pluess-fahrschule.ch/form/thanks.html">  
<INPUT TYPE="HIDDEN" NAME="not_ok_url" VALUE="http://www.pluess-fahrschule.ch/form/oops.html">  
<!-- END OF SCRIPT CONFIGURATION SECTION --> 
</FORM>