|
|
|
Question : For AMANDEEP ... Part 3. Script 2.
|
|
#!/usr/local/bin/perl -wT
##############################################################
# Include the following section to prohibit anyone other than
# authorized users to access and utilize this script.
##############################################################
# LIST THE IPs/DOMAINS YOU WISH TO
# GRANT USAGE OF YOUR SCRIPT:
@valid_referers=("www.garymgordon.com") ;
print "Content-type: text/html\n\n";
# SPECIFY AN ERROR MESSAGE:
$error_message =
"Sorry, but you do not have permission to use this script.
http://www.garymgordon.com/\" target=\"_top\">Click here to return to our homepage."
;
# CHECK FOR VALID IPs/DOMAINS
&check_valid;
#############################################################
### THE REST OF YOUR PROGRAM
### MAY BE PLACED BELOW HERE
#############################################################
############################################################
&get_form_data();
&send_email;
&print_thankyou_page;
sub get_form_data
###############################################################
# #
# Do not change anything, unless indicated below. #
# #
###############################################################
{
# 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///g;
$FORM{$name} = $value;
}
}
sub send_email
{
###############################################################
# #
# Change the following information below. The line #
# that should be changed will appear below the line #
# that has an ##### at the beginning. (The comments #
# regarding what to change will appear after the #####.) #
# #
###############################################################
##### Change the email address from [email protected] to yours. Remember to put a \ before the @ sign.
$to = "webmaster\@garymgordon.com";
##### For Virtualave.net accounts, the following line should NOT be changed.
$mailprog = '/usr/lib/sendmail';
##### The following lines coordinate with your form. You can change the information that appears between the
##### quotes. The information that appears between the quotes will be displayed in the email your receive. Note that
##### \n is used to create a 'hit return' in effect. For multiple 'hit returns' you can use multiple \n 's. Also
##### remember that the \n goes before the closing quote mark. Also, all lines end with a ; . So, if you
##### add lines of information, they should look something like: print MAIL " ......"; where ...... represents
##### your information. Then, to connect your form fields to this script, notice the part of the below form that says
##### $FORM{' ....'} . The .... represents the NAME you gave to the form field in your HTML document. This will
##### connect the two together. (The perl script and the html form.)
open(MAIL,"|$mailprog -t");
print MAIL "From: $FORM{'email'}\n";
print MAIL "To: $to\n";
print MAIL "Subject: Gary M. Gordon Webmaster Email Contact Form.\n\n";
# print out the form results
print MAIL "First Name: \t$FORM{'first_name'} \n\n";
print MAIL "Last Name: \t$FORM{'last_name'} \n\n";
print MAIL "E-mail Address: \t$FORM{'email'} \n\n";
print MAIL "Status: \t$FORM{'status'} \n\n";
print MAIL "Other \(if other is selected for Status\): \t$FORM{'other'} \n\n";
print MAIL "Comments: \t$FORM{'comments'} \n\n";
print MAIL " \n";
# print MAIL "From: $FORM{'email'}\n";
# print MAIL "To: $to\n";
# print MAIL "Subject: Reply From Email Contact Form.\n\n";
# print out the form results
# print MAIL "Name: \t$FORM{'name'}\n\n";
# print MAIL "Type Of Email Comment: \t$FORM{'topic'}\n\n";
# print MAIL "E-mail Address: \t$FORM{'email'}\n\n";
# print MAIL "To The Attention Of: \t$FORM{'attention'}\n\n";
# print MAIL "General Comments: \n$FORM{'changes'}\n\n";
close(MAIL);
}
sub print_thankyou_page
{
##### The following is used to print out your 'confirmation' page that will be displayed on the
##### users computer screen and let them know that their email was sent properly. You can change
##### this page in any way you decide. You can also add links to this page to get back to the original
##### page, or any other page.
# print "Content-type: text/html\n\n";
print "\n\n\n\n";
print "THANK YOU SUBMITTING YOUR INFORMATION.\n\n";
print "\n";
print "We have received your comments and will forward this to the webmaster at Partners In Care.
\n";
print "Click below to return back:
\n";
print "http://www.garymgordon.com/\" TARGET=\"\_top\">Gary M. Gordon, LLC
\n\n\n";
print "\n";
}
#######################################################
# The following lines complete the coding needed to
# restrict users from access and utilizing this script.
#######################################################
# THE CHECK_VALID FOLLOWS
sub check_valid {
if (@valid_referers && $ENV{'HTTP_REFERER'}) {
foreach $referer (@valid_referers) {
if ($ENV{'HTTP_REFERER'} =~ /$referer/) {
$ref = 1;
# last;
&print_thankyou_page;
}
}
}
else {
$ref = 1;
}
if ($ref != 1) {
print "$error_message";
exit;
}
}
Thanks,
Gary
PS: Please indicate exactly where the changes were made to revise the script ... from sending the contents out via email ... to ... writing it to the directory on the server. Please comment out the original code (with notes regarding the commenting out) ... and put comments indicating where the new code is added, what it is doing, etc. THANKS!
|
Answer : For AMANDEEP ... Part 3. Script 2.
|
|
Thanks
Aman.
|
|
|
|
|
|
|
