#!/usr/local/bin/perl
####################################
#        NP Form Mail  v2.5        #
#        written by: Mr. BS        #
#      net_person@hotmail.com      #
#  http://npscripts.hypermart.net  #
####################################
# I hope you read the readme...    #
#########################################################################################
# DISCLAIMER:                                                                           #
#                                                                                       #
# This script was tested on Hypermart (hypermart.net) and Virtualave (virtualve.net)    #
# servers. It will work fine with them as long as you configure the variables correctly!#
# However, if you don't configure the variables correctly, it won't work! (duh)         #
# The variables that need configured are commented indicating what is what.             #
# I can't be responsible if this script causes any damage to your server, because it    #
# flat out shouldn't! But if it does, it's YOUR fault. Just follow the commented        #
# instructions (the ones marked with a #) and do as they say. If you do, you'll be fine.#
#                                                                                       #
#                                                                                       #
# LEGAL CRAP:                                                                           #
#                                                                                       #
#  Don't distribute this script for profit. It may be distributed free, but leave all   #
#  this commented stuff to give me credit.                                              #
#                                                                                       #
#########################################################################################
#                                                                                       #
# You need to edit the path perl (the first line of this script) if it's different than #
#                                the default one!                                       #
#                                                                                       #
# This scripts can be used on as many forms as you wish as long as you follow the rules #
#     for "require" which is the second variable you must configure, follow commented   #
#                        instrcutions for details on it.                                #
# Also, if you go looking through the code and find the "powered by" lines... DO NOT    #
# CHANGE THEM!! This keeps the script free and easy to get. Please don't abuse this...  #
#########################################################################################
# Oh yeah, I am a human. So, I make mistakes.  If you find any mistakes in the coding   #
# or whatever in this scripts, send me an e-mail at net_person@hotmail.com and tell me  #
# about it so I can fix it. Thanks...                                                   #
#########################################################################################
####################
# DO NOT EDIT THIS #
$version = "2.5";
####################
#####################################################################
###################### START EDITING VARIABLES ######################
#####################################################################

#####################################################################
######################## REQUIRED VARIABLES #########################
#####################################################################

#####################################################################
# This is where sendmail is on your server                          #
# The default value is the path to Hypermart's sendmail             #
# The most common path however is /usr/sbin/sendmail                #
# Check with your server's webmaster for the path if you're unsure  #
#####################################################################

$mailprog = '/usr/sbin/sendmail';

#####################################################################
# This is the email address that the information will be sent to.   #
# You MUST leave the \ before the @ or the script will not work!    #
# ALSO: This should NOT be an address that you don't want your      #
# visitors to know.  It'll be displayed on the missing field page.  #
#####################################################################

$recipient = "vgkcc\@yahoo.com";


#####################################################################
# This will tell the script if certain fields are required. 	    #
# Remember if you use this script on multiple forms, it's best to   #
# only require something such as "email" so that all of the forms   #
# will require that to be filled. If you require something like     #
# 'color' on one form, but not others and you use the same script   #
# to process your forms, it will always will return an error on a   #
# form that doesn't have "color" as a variable. Again, you should   #
# only put something like "email" that will be used in all forms    #
# unless you want to use multiple versions of this script (each     #
# configured individually). The variable can be specified in the    #
# "name" tag of an input box.                                       #
#####################################################################

@required = ('email','name');


#####################################################################
# Change this to the URL for your webpage. This will be the link    #
# back to your page after the form has been submitted.              #
#####################################################################

$homepage = "www.vgkcc.alturl.com";




#####################################################################
######################## OPTIONAL VARIABLES #########################
#####################################################################
#####################################################################
# Change these accordingly:                                         #
# --subject: Subject of e-mail that will be sent.                   #
# --thanksmessage: Your personal message to the person who          #
#                  submitted the form. Your URL back to your page   #
#                  will be automatically linked if you specified it #
#                  below. Try and keep the message short.  Also, do #
#                  not use any symbols or quotes/apostrophes.       #
# --font: This is the font you want to use on your thanks message.  #
#         Just type the name of the font, not the size you want.    #
#         Make it an easy to read font because it will not be very  #
#         big. I reccomend using verdana or arial.                  #
#         If you leave the field blank, it will be set to Times New #
#         Roman by default (or whatever the browser's default is).  #
#####################################################################

$subject = "Form Results";

$thanksmessage = "Thanks for sending us the info. We'll email you with an estimate by tomarrom.";

$font = "arial,helvetica,verdana";


#####################################################################
# This is where you edit the header of the output.  You can leave   #
# this as is is, or change it to match the rest of your website.    #
# ONLY edit HTML between the "quotes."  If you are at all worried   #
# about manually editing HTML, it is STRONGLY reccommended that you #
# leave this as it is!! Also, you CAN NOT have ANY "quotes" in your #
# HTML code.  For example, instead of putting:                      #
#       <body BGCOLOR="#000000"><!--'"</title></head>-->

<script type="text/javascript">
//OwnerIQ
var __oiq_pct = 50;
if( __oiq_pct>=100 || Math.floor(Math.random()*100/(100-__oiq_pct)) > 0 ) {
var _oiqq = _oiqq || [];
_oiqq.push(['oiq_addPageBrand','Lycos']);
_oiqq.push(['oiq_addPageCat','Internet > Websites']);
_oiqq.push(['oiq_addPageLifecycle','Intend']);
_oiqq.push(['oiq_doTag']);
(function() {
var oiq = document.createElement('script'); oiq.type = 'text/javascript'; oiq.async = true;
oiq.src = document.location.protocol + '//px.owneriq.net/stas/s/lycosn.js';
var s = document.getElementsByTagName('script')[0]; s.parentNode.insertBefore(oiq, s);
})();
}

/////// Google Analytics
var _gaq = _gaq || [];
_gaq.push(['_setAccount', 'UA-21402695-21']);
_gaq.push(['_setDomainName', 'angelfire.com']);
_gaq.push(['_setCustomVar', 1, 'member_name', 'planet/vgkcc', 3]);
_gaq.push(['_trackPageview']);
(function() {
  var ga = document.createElement('script'); ga.type = 'text/javascript'; ga.async = true;
  ga.src = ('https:' == document.location.protocol ? 'https://ssl' : 'http://www') + '.google-analytics.com/ga.js';
  var s = document.getElementsByTagName('script')[0]; s.parentNode.insertBefore(ga, s);
})();

////// Lycos Initialization /////////////////////
var lycos_ad = Array();
var lycos_search_query = "";
var lycos_onload_timer;

var cm_role = "live";
var cm_host = "angelfire.lycos.com";
var cm_taxid = "/memberembedded";
var angelfire_member_name = "planet/vgkcc";
var angelfire_member_page = "planet/vgkcc/index.html";
var angelfire_ratings_hash = "1727153024:0bd34c7aa890d0178c87cc67a7fedca1";

var lycos_ad_category = null;

var lycos_ad_remote_addr = "209.202.244.9";
var lycos_ad_www_server = "www.angelfire.lycos.com";
var edit_site_url = "www.angelfire.lycos.com/landing/landing.tmpl?utm_source=house&utm_medium=landingpage&utm_campaign=toolbarlink";

</script>
<script type="text/javascript" src="https://scripts.lycos.com/catman/init.js"></script>

<script type='text/javascript'>
 var googletag = googletag || {};
 googletag.cmd = googletag.cmd || [];
 (function() {
   var gads = document.createElement('script');
   gads.async = true;
   gads.type = 'text/javascript';
   var useSSL = 'https:' == document.location.protocol;
   gads.src = (useSSL ? 'https:' : 'http:') +
     '//www.googletagservices.com/tag/js/gpt.js';
   var node = document.getElementsByTagName('script')[0];
   node.parentNode.insertBefore(gads, node);
 })();
</script>


<script type='text/javascript'>
 googletag.cmd.push(function() {
   googletag.defineSlot('/95963596/ANG_300x250_dfp', [300, 250], 'div-gpt-ad-1450207484070-0').addService(googletag.pubads());
   googletag.enableServices();
 });
</script>

<script type='text/javascript'>
 googletag.cmd.push(function() {
   googletag.defineSlot('/95963596/ANG_above_728x90_dfp', [728, 90], 'div-gpt-ad-1450207484070-1').addService(googletag.pubads());
   googletag.enableServices();
 });
</script>

<script type='text/javascript'>
 googletag.cmd.push(function() {
   googletag.defineSlot('/95963596/ANG_below_728X90_dfp', [728, 90], 'div-gpt-ad-1450207484070-2').addService(googletag.pubads());
   googletag.enableServices();
 });
</script>


<script type="text/javascript">
(function(isV) {
    if (!isV) {
        return;
    }

    //this.lycos_search_query = lycos_get_search_referrer();
    var adMgr = new AdManager();
    var lycos_prod_set = adMgr.chooseProductSet();
    var slots = ["leaderboard", "leaderboard2", "toolbar_image", "toolbar_text", "smallbox", "top_promo", "footer2","slider"];
    var adCat = this.lycos_ad_category;
    adMgr.setForcedParam('page', (adCat && adCat.dmoz) ? adCat.dmoz : 'member');

    if (this.lycos_search_query) {
        adMgr.setForcedParam("keyword", this.lycos_search_query);
    } 
    else if (adCat && adCat.find_what) {
        adMgr.setForcedParam('keyword', adCat.find_what);
    }

    for (var s in slots) {
        var slot = slots[s];
        if (adMgr.isSlotAvailable(slot)) {
            this.lycos_ad[slot] = adMgr.getSlot(slot);
        }
    }


    adMgr.renderHeader();
    adMgr.renderFooter();
}((function() {
    var w = 0, h = 0, minimumThreshold = 300;
    if (top == self) {
        return true;
    }

    if (typeof(window.innerWidth) == 'number' ) {
        w = window.innerWidth;
        h = window.innerHeight;
    }
    else if (document.documentElement && (document.documentElement.clientWidth || document.documentElement.clientHeight)) {
        w = document.documentElement.clientWidth;
        h = document.documentElement.clientHeight;
    }
    else if (document.body && (document.body.clientWidth || document.body.clientHeight)) {
        w = document.body.clientWidth;
        h = document.body.clientHeight;
    }

    return ((w > minimumThreshold) && (h > minimumThreshold));
}())));



window.onload = function() {
    var f = document.getElementById("lycosFooterAd");
    var b = document.getElementsByTagName("body")[0];
    b.appendChild(f);
    f.style.display = "block";
    document.getElementById('lycosFooterAdiFrame').src = '/adm/ad/footerAd.iframe.html';

    // Slider Injection
    (function() {
        var e = document.createElement('iframe');
        e.style.border = '0';
        e.style.margin = 0;
        e.style.display = 'block';
        e.style.cssFloat = 'right';
        e.style.height = '254px';
        e.style.overflow = 'hidden';
        e.style.padding = 0;
        e.style.width = '300px';
    })();


    // Bottom Ad Injection
    ( function() {
        var b = document.getElementsByTagName("body")[0];

        var iif = document.createElement('iframe');
        iif.style.border = '0';
        iif.style.margin = 0;
        iif.style.display = 'block';
        iif.style.cssFloat = 'right';
        iif.style.height = '254px';
        iif.style.overflow = 'hidden';
        iif.style.padding = 0;
        iif.style.width = '300px';
        iif.src = '/adm/ad/injectAd.iframe.html';
        
        var cdiv = document.createElement('div');
        cdiv.style = "width:300px;margin:10px auto;";
        cdiv.appendChild( iif );
        if( b )
        {
            b.insertBefore(cdiv, b.lastChild);
        }
    })();

}


</script>

<style>
#body .adCenterClass {
  margin:0 auto;
  display:block !important;
  overflow:hidden;
  width:100%;
}
#body .adCenterClass #ad_container {
  display:block !important;
  float:left;
  width:728px;
}
@media (min-width: 768px) {
  <!-- For 300px or less ads ONLY -->
  #body .adCenterClass #ad_container {
    width: calc(100% - 372px);
  }
}
@media (min-width: 1110px) {
  <!-- For 728px or less ads -->
  #body .adCenterClass #ad_container {
    width: calc(100% - 372px);
  }
}

</style>

<div style="background:#abe6f6; border-bottom:1px solid #507a87; position:relative; z-index:9999999">

    <div class="adCenterClass">
        <a href="https://www.angelfire.lycos.com/" title="Angelfire.com: build your free website today!" style="display:block; float:left; width:186px; border:0">
          <img src="/adm/ad/angelfire-freeAd.jpg" alt="Site hosted by Angelfire.com: Build your free website today!" style="display:block; border:0" />
        </a>
        <div id="ad_container">
            <script type="text/javascript">document.write(lycos_ad['leaderboard']);</script>
        </div>
    </div>
</div>

<!-- ///////////////////////////////////// -->
<script type="text/javascript">document.write(lycos_ad['slider']);</script>


<div id="lycosFooterAd" style="background:#abe6f6; border-top:1px solid #507a87; clear:both; display:none; position:relative; z-index:9999999">
<div class="adCenterClass" style="display:block!important; overflow:hidden; width:936px;">
	<div id="aflinksholder" style="float:left; width:186px;">
        <a href="https://www.angelfire.lycos.com/" title="Angelfire.com: build your free website today!" style="display:block; border:0">
            <img src="/adm/ad/angelfire-freeAd2.jpg" alt="Site hosted by Angelfire.com: Build your free website today!" style="display:block; border:0" />
        </a>
    </div>
    <iframe id="lycosFooterAdiFrame" style="border:0; display:block; float:left; height:96px; overflow:hidden; padding:0; width:750px"></iframe>
</div>
</div>


<!--- UNDERDOGMEDIA EDGE_lycos.com JavaScript ADCODE START--->
<script data-cfasync="false" language="javascript" async src="//udmserve.net/udm/img.fetch?sid=17754;tid=1;dt=6;"></script>
<!--- UNDERDOGMEDIA EDGE_lycos.com JavaScript ADCODE END--->

                                    #
#  put:                                                             #
#       <BODY BGCOLOR=#000000>                                      #
# Putting in quotes ANYWHERE in the HTML will cause an error.       #
# If you're putting quotes in text, not tags, use the &quot; tag in #
# your HTML.                                                        #
#####################################################################

$header = "

<HTML>
<HEAD>
<TITLE>NP Form Mail v$version</TITLE>
</HEAD>
<BODY BGCOLOR=#000000 TEXT=#FF0000 LINK=#FF0000 VLINK=#FF0000 ALINK=#FF0000>
<center><table border=0 cellpadding=4 cellspacing=2 width=80%>
<tr>
<td bgcolor=#A50000>
<center><table border=0 cellpadding=4 cellspacing=0 width=100%>
<tr>
<td bgcolor=#000000>

";


#####################################################################
# This is where you edit the footer of the output.  You can leave   #
# this as is is, or change it to match the rest of your website.    #
# ONLY edit HTML between the "quotes."  If you are at all worried   #
# about manually editing HTML, it is STRONGLY reccommended that you #
# leave this as it is!! Also, you CAN NOT have ANY "quotes" in your #
# HTML code.  For example, instead of putting:                      #
#       <BODY BGCOLOR="#000000">                                    #
#  put:                                                             #
#       <BODY BGCOLOR=#000000>                                      #
# Putting in quotes ANYWHERE in the HTML will cause an error.       #
# If you're putting quotes in text, not tags, use the &quot; tag in #
# your HTML.                                                        #
#####################################################################

$footer = "

</td>
</tr>
</table></center>
</td>
</tr>
</table></center>
</body>
</HTML>

";


#####################################################################
# Set this to 1 if you would like to have a message sent to the     #
# person that sent in the form.  Set it to 0 if you don't.          #
# The auto-reply will send whatever message you want, which you will#
# define below, and also print out the information that you receive #
# if you enable that on the $show variable (below).                 #
# NOTE: In order for this to work, you MUST have an "email" field   #
# in your form,  not "e-mail" or any other spinoff.                 #
#####################################################################

$reply = "0";


#####################################################################
# If you've enabled auto-reply above, this will be the subject of   #
# the reply email.                                                  #
#####################################################################

$rsub = "Your Form Submission";


#####################################################################
# If you've enabled auto-reply above, this will be the message in   #
# the reply email.                                                  #
#####################################################################

$rmes = "Thank you for submitting your information.";


#####################################################################
# Set this variable to equal 1 if you want the script to show the   #
# user the information they submitted.  It will show the entry      #
# field along with the value they entered, just as you do in the    #
# email you receive.  Set it to 0 if you don't want them to see it. #
#                                                                   #
# If this is enabled along with the auto-reply, the user will see   #
# what they submitted on the thank you page as well as in the reply #
# email they receive.                                               #
#####################################################################

$show = "1";


#####################################################################
# Set this to 1 if you would like the URL that used the script to   #
# get sent in the email.  This is very useful if you're getting     #
# spammed from somebody on another server that is either leeching   #
# off of your script or has put your email address in the email     #
# field above.                                                      #
# This will not send the URL to the person who sent the form in if  #
# you have enabled auto-reply.                                      #
#####################################################################

$referer = "0";



#####################################################################
###################### STOP EDITING VARIABLES #######################
#####################################################################


#####################################################################
############### I REPEAT: DON'T EDIT ANYTHING BELOW #################
#####################################################################




# interprets data sent by form
##############################
print "Content-type:text/html\n\n";

read(STDIN, $buffer, $ENV{'CONTENT_LENGTH'});
@pairs = split(/&/, $buffer);
foreach $pair (@pairs) {
($name, $value) = split(/=/, $pair);
   $value =~ tr/+/ /;
   $value =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg;
$FORM{$name} = $value;
}


# checks for required fields
# the HTML below will be printed
# if a field wasn't filled out
#################################
foreach $check(@required) {
        unless ($FORM{$check}) {

print <<EndHTML
$header
<p>&nbsp;&nbsp;<font size="3" face="$font"><b><i>!!MISSING FIELD!!</i></b></font></p>
<p><font size="2" face="$font">Sorry, but one of the required fields wasn't filled out. Please click the back button on your browser and fill in the <b>$check</b> field.</p>
<p>If you feel that this message was in error, you can email the webmaster at <a href="mailto:$recipient">$recipient</a>.</p>
<p><b>Thank You!</b></p>
<BR><BR>
<p align="center"><b>Powered by:<BR>
 -- NP Form Mail v$version -- <BR>
<a href="http://npscripts.hypermart.net">
http://npscripts.hypermart.net</a></font></p>
$footer
EndHTML
;
exit;
        }
}

# print email
################
open (MAIL, "|$mailprog -t") or &denice("Can't access $mailprog!\n");
print MAIL "To: $recipient\n";
print MAIL "Reply-to:$FORM{'email'}\n";
print MAIL "Subject: $subject\n\n";
foreach $key (keys(%FORM)) {
print MAIL "$key = $FORM{$key}\n";}
if ($referer eq "1") {print MAIL "HTTP Referer = $ENV{'HTTP_REFERER'}";}
close(MAIL);


# prints reply email if wanted
##############################
if ($reply eq "1") {
open (MAIL, "|$mailprog -t") or &denice("Can't access $mailprog!\n");
print MAIL "To: $FORM{'email'}\n";
print MAIL "Subject: $rsub\n";
print MAIL "$rmes\n";
if ($show eq"1"){
print MAIL "Here is the information you submitted to $recipient:\n";
foreach $key (keys(%FORM)) {
print MAIL "$key = $FORM{$key}\n";}
}
print MAIL "\nPowered by:\n";
print MAIL "NP Form Mail v$version\n";
print MAIL "http://npscripts.hypermart.net\n";
close(MAIL);
}

# prints thank you HTML page
############################
print <<EndHTML
$header
<p>&nbsp;&nbsp;<font size="3" face="$font"><b><i>!!Thank You!!</i></b></font>
<p><font size="2" face="$font">$thanksmessage</p>
EndHTML
;

# prints out variables to page if wanted
########################################
if ($show eq "1") {
print "<font size=3 face=$font><b><i>Here's What You Submitted:</i></b></font><BR><BR>";
print "<font size=2 face=$font>";
foreach $key (sort(keys(%FORM))) {
print "$key = $FORM{$key}<BR>";}
print "</font><BR><BR>";
}

if ($reply eq "1") {
print "<font size=2 face=$font><b>";
print "You have also been emailed with the above information to the address you submitted.";
print "</b></font>";
}

# finishes page
###############
print <<EndHTML
<font size="2" face="$font">
<p><a href="$homepage">Click here to return to our homepage.</a></font></p>
<p align=\"center\"><b>Powered by:<BR>
 -- NP Form Mail v$version -- <BR>
<a href=\"http://npscripts.hypermart.net\">
http://npscripts.hypermart.net</a></b></p></font>

$footer
EndHTML
;


# Bad MailProg Message
######################
sub dience {
 ($errmsg) = @_;
 print "<h2>ERROR</h2>\n";
 print "$errmsg<p>\n";
 print "</body></html>\n";
 exit;
}