]> git.sesse.net Git - nms/commitdiff
projects / nms / commitdiff
? search:
summary | shortlog | log | commit | commitdiff | tree
raw | patch | inline | side by side (from parent 1: 028bd0b)
TG07 changes.
authorroot <root@space>
Tue, 3 Apr 2007 16:45:31 +0000 (18:45 +0200)
committerroot <root@space>
Tue, 3 Apr 2007 16:45:31 +0000 (18:45 +0200)
web/dhcpkart.pl patch | blob | history
web/nettkart-telnet.pl patch | blob | history
web/nettkart-text.pl patch | blob | history
web/nettkart-web.pl patch | blob | history
web/overlay.pl patch | blob | history
web/sendsms.pl patch | blob | history
web/streaming.pl patch | blob | history

diff --git a/web/dhcpkart.pl b/web/dhcpkart.pl
index e428eca776b6cc3042de3267969aede1f12f4eea..e14e0c5a8bbfa356cf7811fee777f7023400d093 100755 (executable)
--- 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 3a8353907051aeef652e0c7ed2b2c160b51545aa..783f53ebf8e71bd68db213523d2ca389bc3b51ef 100755 (executable)
--- 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";
 <html>
diff --git a/web/nettkart-text.pl b/web/nettkart-text.pl
index 7255e581de5874a7af31ea7530be33a9b3041969..cf198dd36ee20fca507bfd27403172215b0aa73c 100755 (executable)
--- 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";
 <html>
diff --git a/web/nettkart-web.pl b/web/nettkart-web.pl
index 154181f3814b977de41fc99df35187aaf3eda886..040d4767865e5ee2a5566a60ff079caf0be4933f 100755 (executable)
--- 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";
 <html>
diff --git a/web/overlay.pl b/web/overlay.pl
index 95e91989ace2745bcc5e5bf0c37089388130705e..3265b070e7b6e71be10f36fe327c28631ecf28bb 100755 (executable)
--- 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 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);
 
diff --git a/web/streaming.pl b/web/streaming.pl
index 4b12add6d321960188540b954befacd8ebedd17b..8137de9791db675921d8dfc0d51e1fe0186c7226 100755 (executable)
--- 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;
 
Unnamed repository; edit this file 'description' to name the repository.