X-Git-Url: https://git.sesse.net/?a=blobdiff_plain;f=web%2Fsendsms.pl;h=2f1bea2cd7ccbc5bd9c84e95ddf685ec94f267ff;hb=065361daac62b4cdb33cf19caa534e29ac1dfde0;hp=86b80effda0fc0856115b9e59eb552fc8a218fbb;hpb=d6cfbb682b3492d24b6623fbf1345c5b2b95f230;p=nms diff --git a/web/sendsms.pl b/web/sendsms.pl index 86b80ef..2f1bea2 100755 --- a/web/sendsms.pl +++ b/web/sendsms.pl @@ -14,17 +14,17 @@ my $ua = new LWP::UserAgent; $ua->timeout(15); $ua->agent('Mozilla/5.0'); -#$ua->credentials( "http://zepo.tg05.gathering.org", "/", $uname, $pass ); +#$ua->credentials( "http://zepo.tg07.gathering.org", "/", $uname, $pass ); my $content; my %form; $form{'userid'} = $uname; $form{'next'} = "Look me up"; -#my $content = $ua->get("http://zepo.tg05.gathering.org/"); +#my $content = $ua->get("http://zepo.tg07.gathering.org/"); -$content = $ua->post("http://zepo.tg05.gathering.org/login", \%form); +$content = $ua->post("http://zepo.tg07.gathering.org/login", \%form); if (!defined($content->{'_headers'}{'location'})) { die "Could not find dudes"; @@ -41,7 +41,7 @@ print Dumper($content); $form{'password'} = $pass; $form{'userid'} = 39457; $form{'next'} = "Log in"; -$content = $ua->post("https://zepo.tg05.gathering.org/enter&got=it", "cookie" => "SID=".$sessioncookie, \%form); +$content = $ua->post("https://zepo.tg07.gathering.org/enter&got=it", "cookie" => "SID=".$sessioncookie, \%form); print Dumper($content);