blob: 0d3f2b4688a2e1e3acf06cf029ebbe0d707f77be (
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
|
#! /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 '88.92.5.67' << subnet4");
$query->execute();
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 $addr = $ENV{HTTP_X_FORWARDED_FOR} // $ENV{REMOTE_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};
}
# add end html
print "
</body>
</html>
";
|
