查詢bulletin visa

原程序如下：

#!/usr/bin/perl

use Sybase::DBlib;
use Net::SMTP;
use Mail::Sender;
use HTTP::Lite;
use MIME::Base64;

#use HTTP::ProxySelector;
#use LWP::UserAgent;




my $counter=0;

while($counter<100){

$http = new HTTP::Lite;
$http->proxy('proxy.***.com:8180');
$encoded = encode_base64('user1:user1password');
$http->add_req_header("Authorization", $encoded);


$req = $http->request("http://travel.state.gov/visa/frvi/bulletin/bulletin_1770.html")
or die "Unable to get document: $!";
my $content=$http->body();

if($content =~ /July 2006/){

print 'Yes';

my $sender = new Mail::Sender {smtp => 'mail.***.com', from => 'visalooker@***.com', auth => 'LOGIN',
authid => 'user1',authpwd => 'uuser1password',};
$sender->MailFile({to => 'xyz@***.com', subject => "July 2006 Visa is avaiable",
msg => " ",
file => 'message.txt'});

exit 0;

}

sleep 60;
$counter ++;

}



my $sender = new Mail::Sender {smtp => 'mail.***.com', from => 'visalooker@***.com', auth => 'LOGIN',
authid => 'user1',authpwd => 'uuser1password',};
$sender->MailFile({to => 'xyz@***.com', subject => "No July 2006 Visa is avaiable today",
msg => " ",
file => 'message.txt'});

所有跟帖： 

• I am running my program to automatically check... -peter2006- ♀ (0 bytes) () 07/14/2006 postreply 14:42:14

• They might have put a wrong link. Does your program -n3v4- ♀ (65 bytes) () 07/14/2006 postreply 15:09:38

• 你在查7月的，要改成8月了 -thingumajig- ♂ (28 bytes) () 07/14/2006 postreply 15:40:53