|
@@ -12,6 +12,8 @@ use HTTP::Status;
|
|
|
# location of vnstat binary
|
|
# location of vnstat binary
|
|
|
my $vnstat_cmd = '/usr/bin/vnstat';
|
|
my $vnstat_cmd = '/usr/bin/vnstat';
|
|
|
|
|
|
|
|
|
|
+my @data_resolutions = ('fiveminute', 'hour', 'day', 'month', 'year');
|
|
|
|
|
+
|
|
|
# Create an HTTP::Daemon instance listening on port 9955
|
|
# Create an HTTP::Daemon instance listening on port 9955
|
|
|
my $d = HTTP::Daemon->new(
|
|
my $d = HTTP::Daemon->new(
|
|
|
LocalAddr => 'localhost',
|
|
LocalAddr => 'localhost',
|
|
@@ -142,8 +144,6 @@ sub print_data_resolution
|
|
|
}
|
|
}
|
|
|
}
|
|
}
|
|
|
|
|
|
|
|
-my @data_resolutions = ('fiveminute', 'hour', 'day', 'month', 'year');
|
|
|
|
|
-
|
|
|
|
|
print "Content-Type: text/plain\n\n";
|
|
print "Content-Type: text/plain\n\n";
|
|
|
|
|
|
|
|
my $json_data = `$vnstat_cmd --json s 1`;
|
|
my $json_data = `$vnstat_cmd --json s 1`;
|