####################################################################################
####################################################################################
#
# PowerSubmit! For Form Processors
# Version 1.0
# Last Edited:12-24-98 by Joe Johnston
# This File:Script File.
# Author:Joe Johnston
# E_mail:JoeJohnston@InfoPalace.com
# URL:http://www.infopalace.com-- Webmaster's Section
#
# Special Thanks to Jason M. Hinkle
# http://www.verysimple.com/scripts/simplesubmit.html
# Jason's CGI script was the inspiration for PowerSubmit!
# I highly recommend you use Jason's easily expandable
# script if your system supports full featured CGI scripts.
#
####################################################################################
####################################################################################
####################################################################################
# Valid Input:
#
# "url" : the url of the web page being submitted to the search engines
# "email_addr" : the e-mail address of the user. Passed to the search
# engines and is also added to the host's e-mail list.
# "add_email_to_list" : either "ON" or "". Determines if email_addr is added
# to the host's e-mail list.
#
####################################################################################
# "blank_page" is returned for any search engine not selected.
# Change to whatever you want. Any HTML page will work.
$blank_page = "http://hem.netlink.se/~sbe33490/blank.htm";
# "bottom_message" is the page displayed in the bottom frame
# of the submission results page.
# Change to whatever you want. Any HTML page will work.
$bottom_message = "http://hem.netlink.se/~sbe33490/bottom.htm";
# "list_file" is your (the host's) e-mail list.
$list_file="http://hem.netlink.se/~sbe33490/email_l.txt";
####################################################################################
# Search Engine Data
# Change this section if a search engine changes the format
# of their url submission CGI.
# You will know the search engines changed their format if
# this script repeatedly fails.
$altavista = "http://add-url.altavista.digital.com/cgi-bin/newurl?ad=1&q=$url";
$aol = "http://netfind.aol.com/cgi/nfadd_url.cgi?look=netfind&url=" . $url . "&email=" . $emai_addr;
$excite = "http://www.excite.com/cgi/add_url.cgi?look=excite&url=" . $url . "&email=" . $email_addr;
$hotbot = "http://www.hotbot.com/addurl.asp?MM=1&success_page=http://www.hotbot.com/addurl.asp&failure_page=http://www.hotbot.com/oops.asp&ACTION=subscribe&SOURCE=hotbot&ip=" . $REMOTE_HOST . "&redirect=http://www.hotbot.com://addurl2.html&newurl=" . $url . "&email=" . $email_addr . "&send=Add+my+URL";
$infoseek = "http://www.infoseek.com/AddURL/addurl?sv=IS&lk=noframes&nh=10&url=" . $url . "&pg=URL.html";
$lycos = "http://www.lycos.com/cgi-bin/spider_now.pl?query=" . $url . "&email=" . $email_addr;
$nlsearch = "http://www.nlsearch.com/cgi-bin/urlsubmit.pl?page=" . $url . "&contact=Webmaster&email=" . $email_addr;
$planetsearch = "http://www.planetsearch.com/?a=20&olda=0&url=" . $url;
$webcrawler = "http://webcrawler.com/cgi-bin/addURL.cgi?action=add&url=" . $url;
$intersearchde = "http://de.intersearch.net/cgi-bin/add?u=" . $url . "&e=" . $email_addr;
$intersearchau = "http://austria.intersearch.net/cgi-bin/add?u=" . $url . "&e=" . $email_addr;
$webwombat = "http://www.webwombat.com.au/Wregister?newurl=" . $url . "&email=" . $email_addr;
$altavistaau = "http://add-url.altavista.digital.com/cgi-bin/newurl?ad=1&q=" . $url;
$voila = "http://www.voila.fr/submit?url=" . $url . "&email=" . $email_addr;
$infomak = "http://www.infomak.com/add_url.sh?Page=url&url=" . $url;
$euroferret = "http://www.euroferret.com/cgi-bin/ef-addurls/&urls=" . $url;
$anzwers = "http://server1.anzwers.ozemail.net/addurl.html?Send=Send&newurl=" . $url . "&email=" . $email_addr;
$whatyouseek = "http://whatuseek.com/cgi-bin/addurl?submit=Add+This+URL&url=" . $url . "&email=" . $email_addr;
# End Search Engine Data
####################################################################################
# Check to see if email_addr is in valid format.
# If not, then generate an error message.
# If yes, then continue with the rest of the script.
if (! ($email_addr =~ /[^ @,]+@[a-zA-Z0-9-]+(\.[a-zA-Z0-9-]+)*\.[a-zA-Z0-9-]+/))
format screen
Hoppsan! Nu gick det på tok!
PowerSubmit! Error Message
Använd bakåt knappen på din browser för att korrigera följande fel:
Din e-mail address är ogiltig.
PowerSubmit! is brought to
you by Information Palace.
Copyright © 1998, Information Palace
.
else #email_addr is OK
# Add email_addr to the host's e-mail list.
if ($add_email_to_list eq "ON")
&set_lock("$list_file");
&slurp("subscriber_list","$list_file");
$email_addr =~ s/[ \s]//g; #strips spaces out of the email_addr
if ( !($subscriber_list =~ /(^|\n|\r)$email_addr(\n|\r|$)/))
format file $list_file
$email_addr
.
endif
&free_lock("$list_file");
endif
# The following section checks to see if each search engine
# was selected, and if not, swap in the $blank_page.
if ($altavista_ok ne "ON")
$altavista = $blank_page;
endif
if ($aol_ok ne "ON")
$aol = $blank_page;
endif
if ($excite_ok ne "ON")
$excite = $blank_page;
endif
if ($hotbot_ok ne "ON")
$hotbot = $blank_page;
endif
if ($infoseek_ok ne "ON")
$infoseek = $blank_page;
endif
if ($lycos_ok ne "ON")
$lycos = $blank_page;
endif
if ($nlsearch_ok ne "ON")
$nlsearch = $blank_page;
endif
if ($planetsearch_ok ne "ON")
$planetsearch = $blank_page;
endif
if ($webcrawler_ok ne "ON")
$webcrawler = $blank_page;
endif
if ($intersearchde_ok ne "ON")
$intersearchde = $blank_page;
endif
if ($intersearchau_ok ne "ON")
$intersearchau = $blank_page;
endif
if ($webwombat_ok ne "ON")
$webwombat = $blank_page;
endif
if ($altavistaau_ok ne "ON")
$altavistaau = $blank_page;
endif
if ($voila_ok ne "ON")
$voila = $blank_page;
endif
if ($infomak_ok ne "ON")
$infomak = $blank_page;
endif
if ($euroferret_ok ne "ON")
$euroferret = $blank_page;
endif
if ($anzwers_ok ne "ON")
$anzwers = $blank_page;
endif
if ($whatyouseek_ok ne "ON")
$whatyouseek = $blank_page;
endif
# Search engine submission results page with frames.
format screen
PowerSubmit! Results
.
endif #email_addr OK