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
45
46
47
48
49
50
51
|
#!/usr/bin/perl -w
# vnstat-json.cgi -- example cgi for vnStat json output
# copyright (c) 2015-2021 Teemu Toivola <tst at iki dot fi>
# released under the GNU General Public License
use strict;
# location of vnstat binary
my $vnstat_cmd = '/usr/bin/vnstat';
# individually accessible interfaces with ?interface=N or /interfacename suffix
# for static list, uncomment first line below, update the list and comment out second line
#my @interfaces = ('eth0', 'eth1');
my @interfaces = `$vnstat_cmd --dbiflist 1`;
################
my $iface = "";
chomp @interfaces;
if (defined $ENV{PATH_INFO}) {
my @fields = split(/\//, $ENV{PATH_INFO});
my $interface = $fields[-1];
for my $i (0..$#interfaces) {
if ($interfaces[${i}] eq $interface) {
$iface = "-i $interface";
last;
}
}
}
if (length($iface) == 0 and defined $ENV{QUERY_STRING}) {
my $getiface = "";
my @values = split(/&/, $ENV{QUERY_STRING});
foreach my $i (@values) {
my ($varname, $varvalue) = split(/=/, $i);
if ($varname eq 'interface' && $varvalue =~ /^(\d+)$/) {
$getiface = $varvalue;
}
}
if (length($getiface) > 0 && $getiface >= 0 && $getiface <= $#interfaces) {
$iface = "-i @interfaces[int($getiface)]";
}
}
print "Content-Type: application/json\n\n";
exec("$vnstat_cmd --json $iface");
|
