blob: 82436ea095b68b8ef1dabd1e9f7a2335ef09794f (
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
|
#! /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};
print "-:" . $addr ."\n";
# add start html: header + body etc.
while ( my $ref = $query->fetchrow_hashref() ) {
print $ref->{sysname}. " @ " . $ref->{distro};
}
# add end html
|