blob: b94000749c1bf245efce9ca1729fd396974eb7ac (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
|
#! /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 "
<html>
<body style=\"text-align: center; font-size: 50pt;\">
";
# print address
print "" . $addr ."<br \>";
# print switch name and distroname.
while ( my $ref = $query->fetchrow_hashref() ) {
print $ref->{sysname}. " @ " . $ref->{distro};
print "<br />";
}
# add end html
print "
</body>
</html>
";
|
