#! /usr/bin/perl
# vim:ts=8:sw=8
use lib '../../../../include';
use nms::web;
use strict;
use warnings;
use Data::Dumper;
#my $query = $nms::web::dbh->prepare("select * from switches where '185.110.150.7' << subnet4");
my $query = $nms::web::dbh->prepare("select * from switches where ? << subnet4 or ? << subnet6");
print "Cache-Control: max-age=0";
print "Content-Type: text/html";
print "\n\n";
# get user ip from somewhere.
# HTTP_X_FORWARDED_FOR is set by varnish. When using varnish, the REMOTE_ADDR will always be localhost.
my @xff = split(",",$ENV{HTTP_X_FORWARDED_FOR});
my $addr = $xff[0] // $ENV{REMOTE_ADDR};
$query->execute($addr,$addr);
# add start html: header + body etc.
print "
";
# print address
print "" . $addr ."
";
# print switch name and distroname.
while ( my $ref = $query->fetchrow_hashref() ) {
print $ref->{sysname}. " @ " . $ref->{distro};
print "
";
}
# add end html
print "
";