#!/usr/bin/perl -w
$user = "myusername";
$pass = "mypass";
$action="login";
$curl = "/path_to_curl/curl -b headers -U $user:$pass -D authcookie -A
\"Mozilla/4.0 (compatible; MSIE 5.01; Windows NT 5.0)\" -d
\"action=$action\" https://rr-n1-tor.opensrs.net/~vpop/resellers/index";
system($curl);
$action = "view_completed";
$curl = "/path_to_curl/curl -b authcookie -U $user:$pass -D authcookie -A
\"Mozilla/4.0 (compatible; MSIE 5.01; Windows NT 5.0)\" -o
completed.html -d \"action=$action\"
https://rr-n1-tor.opensrs.net/~vpop/resellers/index";
system($curl);
send_dan_a_beer(guiness);
exit;
8)
/================================================\
| Dan Bertrand E-MAIL: [EMAIL PROTECTED]
| Smartcanuk Internet Services Ltd.
| President & CTO FAX: (403) 258-0267
\================================================/
