===== SUBROUTINE TO SUBMIT TO EXCITE    ===== 
============================================= 
GET http://www.excite.com/info/add_url/thanks/ _
 url=$url _
 &email=$email _
 &country=US _
 &brand=excite

searchtext $good_result
if_found
  print "T" $site $url "SUCCESS"
  stop
endif

print "T" $site $url "FAILED"

  

============================================= 
===== SUBROUTINE TO SUBMIT TO HOTBOT    ===== 
============================================= 
GET http://hotbot.lycos.com/addurl.asp _
 MM=1 _
 &success_page=http:%//hotbot.lycos.com/addurl.asp _
 &failure_page=http://hotbot.lycos.com/help/oops.asp _
 &ACTION=subscribe _
 &SOURCE=hotbot _
 &ip=63.17.34.69 _
 &redirect=http://hotbot.lycos.com/addurl2.html _
 &newurl=$url _
 &email=$email _
 &send=Submit+my+site

searchtext $good_result
if_found
  print "T" $site $url "SUCCESS"
  stop
endif

print "T" $site $url "FAILED"

  

============================================= 
===== SUBROUTINE TO SUBMIT TO ALTAVISTA ===== 
============================================= 
print "T" $site $url "You must submit manually"

  

============================================= 
===== SUBROUTINE TO SUBMIT TO LYCOS     ===== 
============================================= 
GET http://www.lycos.com/cgi-bin/spider_now.pl _
 query=$url _
 &email=$email

searchtext $good_result
if_found
  print "T" $site $url "SUCCESS"
  stop
endif

print "T" $site $url "FAILED"

  

================================================== 
===== SUBROUTINE TO SUBMIT TO NORTHERN LIGHT ===== 
================================================== 
GET http://urls.northernlight.com/cgi-bin/urlsubmit.pl _
 email=$email _
 &contact=$myname _
 &page=$url

searchtext $good_result
if_found
  print "T" $site $url "SUCCESS"
  stop
endif

print "T" $site $url "FAILED"

  

============================================= 
===== SUBROUTINE TO SUBMIT TO GOOGLE    ===== 
============================================= 
GET http://www.google.com/addurl _
 q=$url _
 &dq=&submit=Add+URL

searchtext $good_result
if_found
  print "T" $site $url "SUCCESS"
  stop
endif

print "T" $site $url "FAILED"

  

============================================== 
===== SUBROUTINE TO SUBMIT TO CANADA.COM ===== 
============================================== 
GET http://canada.com/search/web/addurl.asp _
 email=$email _
 &todo=confirm _
 &AddURL2=$url

searchtext $good_result1
if_notfound
  goto bad
endif

GET http://canada.com/search/web/addurl.asp _
 email=$email _
 &todo=add _
 &AddURL2=$url

searchtext $good_result2
if_notfound
  goto bad
endif

print "T" $site $url "SUCCESS"
stop

label bad
  print "T" $site $url "FAILED"

  

============================================= 
===== SUBROUTINE TO SUBMIT TO NBCI      ===== 
============================================= 
set $nbci_user = "munge64"
set $nbci_pass = "heyman"

GET http://www.nbci.com/

searchlink 2 "submit a site"
if_notfound
  print "T" $site $url "Couldnt find Submit a Site"
  exit
endif

;=== Clicked on the "submit a site" url
sendform

searchform "sign in"
if_notfound
  print "T" $site $url "Couldnt find login"
  exit
endif

sendform login=$nbci_user&password=$nbci_pass
searchform "welcome $nbci_user"
if_notfound
  print "T" $site $url "Login Failed"
  exit
endif

print "T" $site $url "DID FIND SUBMIT A SITE!"