1 files changed, 38 insertions, 0 deletions
diff --git a/web/nms-public.gathering.org/old/uplinkkart-text.pl b/web/nms-public.gathering.org/old/uplinkkart-text.pl
new file mode 100755
index 0000000..c4b31a9
--- /dev/null
+++ b/web/nms-public.gathering.org/old/uplinkkart-text.pl
@@ -0,0 +1,38 @@
+#! /usr/bin/perl
+use CGI;
+use DBI;
+use lib '../../include';
+use nms;
+my $cgi = CGI->new;
+
+my $dbh = nms::db_connect();
+print $cgi->header(-type=>'text/html; charset=utf-8', -refresh=>'10; ' . CGI::url());
+
+print <<"EOF";
+<html>
+  <head>
+    <title>Uplinkkart</title>
+  </head>
+  <body>
+    <map name="switches">
+EOF
+
+my $q = $dbh->prepare("SELECT * FROM switches NATURAL JOIN placements WHERE switchtype = 'ex2200'");
+$q->execute();
+while (my $ref = $q->fetchrow_hashref()) {
+	$ref->{'placement'} =~ /\((\d+),(\d+)\),\((\d+),(\d+)\)/;
+	
+	my $ttext = 'FIXME: Put something here';
+	printf "      <area shape=\"rect\" coords=\"%u,%u,%u,%u\" href=\"switchdiag.pl?id=%u\" alt=\"%s (%s)\" onmouseover=\"window.status='%s (%s)'; return true\" onmouseout=\"window.status=''\" />\n",
+		$3, $4, $1, $2, $ref->{'switch'}, $ref->{'sysname'},
+		$ttext, $ref->{'sysname'}, $ttext;
+}
+$dbh->disconnect;
+
+print <<"EOF";
+    </map>
+
+    <p><img src="uplinkkart.pl" usemap="#switches" /></p>
+  </body>
+</html>
+EOF