#! /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"; Uplinkkart 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 " \"%s\n", $3, $4, $1, $2, $ref->{'switch'}, $ref->{'sysname'}, $ttext, $ref->{'sysname'}, $ttext; } $dbh->disconnect; print <<"EOF";

EOF