get http://www.yahoo.com/

searchlink 1 $dir1 $excldir1
if_notfound
  print "T" $url "Could not find dir1:" $dir1
  exit
endif
sendform

if_isempty $dir2
  goto submit_it
endif
searchlink 1 $dir2 $excldir2
if_notfound
  print "T" $url "Could not find dir2:" $dir2
  exit
endif
sendform

if_isempty $dir3
  goto submit_it
endif
searchlink 1 $dir3 $excldir3
if_notfound
  print "T" $url "Could not find dir3:" $dir3
  exit
endif
sendform

if_isempty $dir4
  goto submit_it
endif
searchlink 1 $dir4 $excldir4
if_notfound
  print "T" $url "Could not find dir4:" $dir4
  exit
endif
sendform


if_isempty $dir5
  goto submit_it
endif
searchlink 1 $dir5 $excldir5
if_notfound
  print "T" $url "Could not find dir5:" $dir5
  exit
endif
sendform


if_isempty $dir6
  goto submit_it
endif
searchlink 1 $dir6 $excldir6
if_notfound
  print "T" $url "Could not find dir6:" $dir6
  exit
endif
sendform

label submit_it
  searchtext $already
  if_found
    print "T" $url "Already listed!"
    exit
  endif

  searchlink 1 "suggest a site"
  if_notfound
    print "T" $url "Could not find SUGGEST A SITE"
    exit
  endif
  sendform

  SEARCHFORM "proceed to step one"
  if_notfound
    print "T" $url "Could not find PROCEED TO STEP ONE"
    exit
  endif
  SENDFORM 

  SEARCHFORM "Standard Submission"
  if_notfound
    print "T" $url "Could not find STANDARD SUBMISSION"
    exit
  endif
  SENDFORM 

  SEARCHFORM "Proceed to Step Two"
  if_notfound
    print "T" $url "Could not find PROCEED TO STEP TWO"
    exit
  endif
  SENDFORM _
    "title=$title _
    &url=$url _
    &comments=$comments

  SEARCHFORM "Proceed to Step Three"
  if_notfound
    print "T" $url "Could not find PROCEED TO STEP THREE"
    exit
  endif
  SENDFORM _
    addcat= _
    &newcat= 

  SEARCHFORM "Proceed to Step Four"
  if_notfound
    print "T" $url "Could not find PROCEED TO STEP FOUR"
    exit
  endif
  SENDFORM _
    "name=$name _
    &email=$email _
    &city= _
    &state= _
    &country= _
    &zip="

  SEARCHFORM "Submit"
  if_notfound
    print "T" $url "Could not find SUBMIT"
    exit
  endif
  SENDFORM _
    "lastdate= _
    &start= _
    &end= _
    &info=$info

  searchtext "Thanks!"
  if_notfound
    print "T" $url "Did not get THANKS! screen"
    exit
  endif


  print "T" $url "Submitted Successfully!"