TG07 changes.

[nms] / web / sendsms.pl

diff --git a/web/sendsms.pl b/web/sendsms.pl
index 86b80effda0fc0856115b9e59eb552fc8a218fbb..2f1bea2cd7ccbc5bd9c84e95ddf685ec94f267ff 100755 (executable)
--- 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);