#!/opt/bin/perl
#########################################################
# recommend.pl - web-based emailer
# by  Andrew B. King. v1.0 19990430
# Copyright (c) 1999 internet.com Corporation. All Rights Reserved.
#
# This program is free software; you can redistribute it and/or modify
# it under the terms of the GNU General Public License as published by
# the Free Software Foundation; either version 2 of the License, or
# (at your option) any later version.
#
# This program is distributed in the hope that it will be useful,
# but WITHOUT ANY WARRANTY; without even the implied warranty of
# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
# GNU General Public License for more details.
#
# You should have received a copy of the GNU General Public License
# along with this program; if not, write to the Free Software
# Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA  02111-1307  USA
#
# Originally published and documented at http://www.webreference.com
# Contact aking@internet.com for all other uses.
#
# 03-02-99 added update newltr checkbox - abk
# 030499 fixed bugs - abk  (subscribe\@webreference.com didn't work in to)
# 032599 formatting improved-changed to web based emailer
# 042999 new ad enews cgi added - abk
###########################################################

#BEGIN{ push(@INC, 'lib2', '/usr/local/lib/perl5'); }

use CGI;
$QUERY  = new CGI;
$BLANK  = 'blank';
$SUBMIT = 'Send Comments';
$path   = $ENV{'HTTP_REFERER'};
$endpage = '<HR NOSHADE SIZE=1></BLOCKQUOTE><P ALIGN=CENTER>Copyright &#169; 1999 internet.com LLC</P><P ALIGN=CENTER>Script revised: Apr. 29, 1999</P>';

$Line1     = 'Your name:                    ';
$Line2     = 'Your e-mail address:          ';
$Line3     = "Your friend's name:           ";
$Line4     = "Your friend's e-mail address: ";
$Line5     = 'Your message:                 ';
$Line6     = 'Referer';
$Line10    = 'Send me a copy:               ';
@REQUIRED = (
$Line1,
$Line2,
$Line3,
$Line4);

    $data .= $QUERY->startform(undef, '/cgi-bin/recommend.cgi');

   $data .= "<CENTER><TABLE CELLPADDING=0 CELLSPACING=0 BORDER=0>";
	$data .= "<TR><TD ALIGN=RIGHT>*$Line1</TD>";
	$data .= "<TD>".$QUERY->textfield($Line1,'',25,70)."</TD></TR>";

	$data .= "<TR><TD ALIGN=RIGHT>*$Line2</TD>";
	$data .= "<TD>".$QUERY->textfield($Line2,'',25,70)."</TD></TR>";

	$data .= "<TR><TD ALIGN=RIGHT>*$Line3</TD>";
	$data .= "<TD>".$QUERY->textfield($Line3,'',25,70)."</TD></TR>";

	$data .= "<TR><TD ALIGN=RIGHT>*$Line4</TD>";
	$data .= "<TD>".$QUERY->textfield($Line4,'',25,70)."</TD></TR>";

	$data .= "<TR><TD ALIGN=RIGHT>$Line5</TD>";
$data .= "<TD><TEXTAREA NAME='message' ROWS=3 COLS=25 WRAP=SOFT></TEXTAREA></TD></TR>";

	$data .= "<TR><TD ALIGN=RIGHT>$Line10</TD>";
	$data .= "<TD>".$QUERY->checkbox($Line10,1,'on',' ')."</TD></TR>";

#
# end form
#
 	$data .= "<TR><TD ALIGN=RIGHT> </TD>";
	$data .= "<TD>".$QUERY->submit($SUBMIT);
	$data .= $QUERY->defaults('Reset');
	$data .= $QUERY->hidden($Line6, $path);
	$data .= $QUERY->endform;
	$data .= "</TD></TR></TABLE></CENTER>";
	$data .= $endpage;
	$data .= $QUERY->end_html;

$SENDMAIL       = '/usr/lib/sendmail -t -oi -odb';
#$SERVERNAME     = $SERVER->GetServerData('servername');
#
@params = $QUERY->param;

#
if (@params) {
    $errors = '';
    foreach $field (@REQUIRED) {
	$value = $QUERY->param($field);

	unless ($value) {
	    $field =~ tr/\_/ /;
	    $errors .= "<LI>The <B>$field</B> field was left empty.";
	}
    }

    if ($errors) {
	$heading .= qq(<HR>Please address the following fields and re-submit the form:<BR><UL>$errors</UL>);
    } else {
$yourname = $QUERY->param($Line1);
$youremail = $QUERY->param($Line2);
$friendsname = $QUERY->param($Line3);
$friendsemail = $QUERY->param($Line4);
$message = $QUERY->param(message);
$cc = $QUERY->param($Line10);

$cctext = "";
if ($cc eq "on") {
$cctext = $youremail
}  
  
open (MAIL, "|/usr/lib/sendmail -t -oi");
print MAIL<<END2;
From: $youremail
To: $friendsemail
Subject: WebReference.com Recommendation
Cc: $cctext
Mime-Version: 1.0
Content-Type: text/plain; charset="us-ascii"
Precedence: list

Dear $friendsname,

$yourname ($youremail) wants you to check out WebReference.com's FREE 
developer newsletter. 

$yourname also says:
$message

http://www.webreference.com/new/

Keeping you up to date with the latest happenings in Web development 
and the Web is a challenge, let webref do it for you. We'll e-mail our 
Web development newsletter, the WebReference Update, to you FREE chock 
full of the latest webmaster tips on and off the site, plus book and
software reviews, interviews with industry luminaries, new sites and 
services, and net news. Subscribe today!

Again, visit http://www.webreference.com/new/ to subscribe for free! 

We trust you'll enjoy receiving the Update as much as $yourname does. 
If you do not know $yourname, please ignore this message or report it 
to abuse\@internet.com. 

Andrew King (update\@webreference.com)
Managing Editor

END2
close MAIL;


        $path = $QUERY->param($Line6);
        print $QUERY->header;
        print $QUERY->start_html('Tell a Friend - WebReference.com', 'aking@webreference.com', '', '', '', '', '', '', '', '', '', 'BGCOLOR="#ffffff"');
       print '<P ALIGN=CENTER><A HREF="/art/index.map" TARGET="_top"><IMG SRC="/art/bn_wrl_sm.gif" 
ALT="" ISMAP BORDER=0></A></P>';
        print '<H3 ALIGN=CENTER><A HREF="/" TARGET="_top">home</A> / <A HREF="/index2.html" TARGET="_top">web</A> / <A HREF="/cgi-bin/recommend.cgi" TARGET="_top">recommend</A> / thanks</H3>';

        print <<E11;
<BLOCKQUOTE><IMG SRC="../art/l_webref32x16.gif" WIDTH=32 HEIGHT=16 HSPACE=8 ALT="Webref.com" ALIGN=LEFT>
 <H2> Another Friend?</H2>

   <P>Thank you for recommending WebReference to $friendsemail. In a few minutes, you should also be receiving confirmation of your
     recommendation through e-mail. In the meantime, would you like to recommend WebReference to another friend, family
     member, or colleague? Just use the form below like you did before: 
</P>

E11
    ;

    print $data;

print "\n";

     exit(0);

    } # no errors

} else { # no params
    $heading .= <<EOT;
<BLOCKQUOTE><IMG SRC="../art/l_webref32x16.gif" WIDTH=32 HEIGHT=16 HSPACE=8 ALT="Webref.com" ALIGN=LEFT>
 <H2> Tell a Friend: with this Web-based e-mailer</H2>

     <P>Feel free to recommend this site (and of course, the newsletter) to 
     friends, family members, or colleagues! Feel free to send as many recommendations as you want. There's always room for another subscriber! (* = required field)</P>
EOT
;
}
    $output = "Status: 200 Ok\r\n";
    $output .= $QUERY->header;

    $output .= $QUERY->start_html('Tell a Friend - WebReference.com', 'aking@webreference.com', '', '', '', '', '', '', '', '', '', 'BGCOLOR="#ffffff"');
	$output.= <<qq;
<form method=post action="http://e-newsletters.internet.com/cgi-bin/signupmult.cgi" TARGET="_new">
<TABLE WIDTH="468" CELLPADDING="0" CELLSPACING="0" BORDER="0" BGCOLOR="#D60027" ALIGN="CENTER">
<TR>
<TD COLSPAN="3"><IMG alt="" SRC="http://www.webreference.com/t.gif" WIDTH="1" HEIGHT="1"></TD>
</TR>
<TR>
<TD><IMG ALT="" SRC="http://www.webreference.com/t.gif" WIDTH="1" HEIGHT="58"></TD>
<TD>
<TABLE CELLPADDING="0" CELLSPACING="0" BORDER="0" WIDTH="466" BGCOLOR="#FFCC00">
<TR>
<TD BGCOLOR="#FFCC00"><IMG ALT="" SRC="http://www.webreference.com/t.gif" WIDTH="3" HEIGHT="58"></TD>
<TD VALIGN="BOTTOM">
<A HREF="http://www.webreference.com"><img src="http://www.webreference.com/art/ads/table/left_small.gif" ALT="WebReference.com" WIDTH="180" height="52" BORDER="0"></A>
</TD>
<TD ALIGN=LEFT>
<FONT SIZE=1>
<INPUT TYPE="checkbox" NAME="list" VALUE="WEBREFERENCE-UPDATE-HTML" CHECKED><A HREF="http://www.webreference.com">HTML (daily)</A>
<BR><IMG SRC="http://www.webreference.com/t.gif" WIDTH="1" HEIGHT="5"><BR>
<INPUT TYPE="checkbox" NAME="list" VALUE="WEBREFERENCE-UPDATE" CHECKED><A HREF="http://www.webreference.com/new/">Text (weekly)</A></FONT></TD>
<TD ALIGN="CENTER">                   
<A HREF="http://www.webreference.com/new/"><IMG SRC="http://headlines.internet.com/art/ads/freenewsletters.gif" WIDTH=125 HEIGHT=13 BORDER=0 ALT="Free HTML Newsletters" VSPACE=3></A><BR>
<FONT FACE="monospace" SIZE="1">    
<INPUT STYLE="font-size:9pt;font-family:monospace;height:11" TYPE="text" NAME="email" SIZE="12" VALUE="enter e-mail"> 
<INPUT TYPE="hidden" NAME="Action" VALUE="subscribe"><INPUT STYLE="font-size:9pt" TYPE="submit" NAME="Subscribe" VALUE="Go!">                      
</FONT>
</TD>                                 
</TR>                                 
</TABLE></TD>                         
<TD><IMG ALT="" SRC="http://www.webreference.com/t.gif" WIDTH="1" HEIGHT="1"></TD></TR>                               
<TR><TD COLSPAN="3"><IMG ALT="" SRC="http://www.webreference.com/t.gif" WIDTH="1" HEIGHT="1"></TD>                    
</TR>
</TABLE>                              
</FORM>                               
</CENTER> 
qq
;

    $output .= '<P ALIGN=CENTER><A HREF="/art/index.map" TARGET="_top"><IMG SRC="/art/bn_wrl_sm.gif" ALT="" ISMAP BORDER=0></A></P>';
    $output .= '<H3 ALIGN=CENTER><A HREF="/" TARGET="_top">home</A> / <A HREF="/index2.html" TARGET="_top">web</A> / recommend</H3>';
    $output .= $heading;
#
# input data
#
	$output .= $data;
    print $output;

print "\n";
exit(0);