# Fake IE
ua "Mozilla/4.0 (compatible; MSIE 4.01; Windows 98)"
get http://www.attachmail.com/
# Navigate to login frame
open bott
# Login
value UserId test01
value Passwd s
click imageField
# Got empty page. Why?
content
# Aaah - it is a META refresh page
# Extract the target url :
eval $self->agent->content =~ /URL=(.*)'>/; qq{http://www.attachmail.com/cg-bin/$1}
# Jump to that page
get http://www.attachmail.com/cg-bin/userpagedisplay.cgi?user_no=1057348162&domain=attachmail.com&dtexpiry=19-Jul-2003&status=0&spacebal=4.998&bounce=&flmove=
# Multi-frame page, go to the content frame
open mailatt
open /AddressBook/
open /AddressBook/
# Still no action - must be JavaScript.
# Looking at the JavaScript, I know now that I need the
# user number :
eval $self->agent->uri
eval $self->agent->uri=~/userno=(\d+)/; $1
# Go to the page referenced from the JavaScript
get http://www.attachmail.com//cg-bin/am_bring_Addbook.cgi?userno=1057348162&flg=Disp
# Find the correct frame :
open mainFrame
back
open bottomFrame
# More JavaScript interaction:
get http://www.attachmail.com/cg-bin/add_entry.cgi?username=1057348162
# Fill in the values and submit the form
value nam foo
value email bar@example.com
submit