aboutsummaryrefslogtreecommitdiffstats
path: root/web/nms.gathering.org/api/private/which-switch-am-i-on
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