From 23344eda0979f5e23d5fd016ef4903f7dc572e63 Mon Sep 17 00:00:00 2001 From: root Date: Tue, 3 Apr 2007 18:45:31 +0200 Subject: [PATCH] TG07 changes. --- web/dhcpkart.pl | 6 +++--- web/nettkart-telnet.pl | 2 +- web/nettkart-text.pl | 2 +- web/nettkart-web.pl | 2 +- web/overlay.pl | 2 +- web/sendsms.pl | 8 ++++---- web/streaming.pl | 2 +- 7 files changed, 12 insertions(+), 12 deletions(-) diff --git a/web/dhcpkart.pl b/web/dhcpkart.pl index e428eca..e14e0c5 100755 --- a/web/dhcpkart.pl +++ b/web/dhcpkart.pl @@ -12,11 +12,11 @@ my $maxtimeout = $greentimeout*9; my $dbh = nms::db_connect(); GD::Image->trueColor(1); -$img = GD::Image->new('snmp-bg.png'); +$img = GD::Image->new('bg07.png'); my $blk = $img->colorResolve(0, 0, 0); -$img->string(gdMediumBoldFont,0,0,"TG05 - DHCP-lease status",$blk); +$img->string(gdMediumBoldFont,0,0,"TG07 - DHCP-lease status",$blk); $img->string(gdSmallFont,0,20,"Last recieved DHCP-request",$blk); # first 1/5: green (<30 min) @@ -70,7 +70,7 @@ $dbh->disconnect; if (!defined($ARGV[0])) { print $cgi->header(-type=>'image/png', - -refresh=>'10; http://nms.tg05.gathering.org/dhcpkart.pl'); + -refresh=>'10; http://nms.tg07.gathering.org/dhcpkart.pl'); } print $img->png; diff --git a/web/nettkart-telnet.pl b/web/nettkart-telnet.pl index 3a83539..783f53e 100755 --- a/web/nettkart-telnet.pl +++ b/web/nettkart-telnet.pl @@ -6,7 +6,7 @@ use nms; my $cgi = CGI->new; my $dbh = nms::db_connect(); -print $cgi->header(-type=>'text/html', -refresh=>'45; http://nms.tg05.gathering.org/nettkart-telnet.pl'); +print $cgi->header(-type=>'text/html', -refresh=>'45; http://nms.tg07.gathering.org/nettkart-telnet.pl'); print <<"EOF"; diff --git a/web/nettkart-text.pl b/web/nettkart-text.pl index 7255e58..cf198dd 100755 --- a/web/nettkart-text.pl +++ b/web/nettkart-text.pl @@ -6,7 +6,7 @@ use nms; my $cgi = CGI->new; my $dbh = nms::db_connect(); -print $cgi->header(-type=>'text/html', -refresh=>'10; http://nms.tg05.gathering.org/nettkart-text.pl'); +print $cgi->header(-type=>'text/html', -refresh=>'10; http://nms.tg07.gathering.org/nettkart-text.pl'); print <<"EOF"; diff --git a/web/nettkart-web.pl b/web/nettkart-web.pl index 154181f..040d476 100755 --- a/web/nettkart-web.pl +++ b/web/nettkart-web.pl @@ -6,7 +6,7 @@ use nms; my $cgi = CGI->new; my $dbh = nms::db_connect(); -print $cgi->header(-type=>'text/html', -refresh=>'45; http://nms.tg05.gathering.org/nettkart-web.pl'); +print $cgi->header(-type=>'text/html', -refresh=>'45; http://nms.tg07.gathering.org/nettkart-web.pl'); print <<"EOF"; diff --git a/web/overlay.pl b/web/overlay.pl index 95e9198..3265b07 100755 --- a/web/overlay.pl +++ b/web/overlay.pl @@ -146,7 +146,7 @@ for my $y (0..479) { } -print CGI::header(-type=>'image/png', -refresh=>'10; http://nms.tg05.gathering.org/overlay.pl?cam=' . $cam); +print CGI::header(-type=>'image/png', -refresh=>'10; http://nms.tg07.gathering.org/overlay.pl?cam=' . $cam); print $gd->png; sub get_color { 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); diff --git a/web/streaming.pl b/web/streaming.pl index 4b12add..8137de9 100755 --- a/web/streaming.pl +++ b/web/streaming.pl @@ -20,6 +20,6 @@ $img->interlaced('true'); $img->string(gdMediumBoldFont,0,0,"TG05 - Streaming",$blu); print $cgi->header(-type=>'image/png', - -refresh=>'10; http://nms.tg05.gathering.org/streaming.pl'); + -refresh=>'10; http://nms.tg07.gathering.org/streaming.pl'); print $img->png; -- 2.39.2