webadmin/bpfire
1
0
Fork 0
mirror of https://github.com/vincentmli/bpfire.git synced 2026-04-28 03:33:25 +02:00
Code Issues Packages Projects Releases Wiki Activity

OpenVPN Log: Add connection duration

Browse Source 
Signed-off-by: Michael Tremer <michael.tremer@ipfire.org>
Signed-off-by: Arne Fitzenreiter <arne_f@ipfire.org>
This commit is contained in:
Michael Tremer
2020-04-13 09:45:47 +02:00
committed by Arne Fitzenreiter
parent 3a684078b5
commit 186c0ddd91
1 changed files with 10 additions and 6 deletions
Download Patch File Download Diff File Expand all files Collapse all files

16
html/cgi-bin/logs.cgi/ovpnclients.dat
View File

@@ -128,7 +128,8 @@ my $database_query = qq(
if ($cgiparams{'CONNECTION_NAME'}) { if ($cgiparams{'CONNECTION_NAME'}) {
$database_query = qq( $database_query = qq(
SELECT common_name, DATETIME(connected_at, 'localtime'), DATETIME(disconnected_at, 'localtime'), bytes_received, bytes_sent FROM sessions SELECT common_name, DATETIME(connected_at, 'localtime'), DATETIME(disconnected_at, 'localtime'), bytes_received, bytes_sent,
STRFTIME('%s', DATETIME(disconnected_at)) - STRFTIME('%s', DATETIME(connected_at)) AS duration FROM sessions
WHERE WHERE
common_name = '$cgiparams{"CONNECTION_NAME"}' common_name = '$cgiparams{"CONNECTION_NAME"}'
AND ( AND (
@@ -260,8 +261,9 @@ my $col = "bgcolor='$color{'color20'}'";
print "<td width='40%' $col><b>$Lang::tr{'ovpn connection name'}</b></td>\n"; print "<td width='40%' $col><b>$Lang::tr{'ovpn connection name'}</b></td>\n";
if ($cgiparams{'CONNECTION_NAME'}) { if ($cgiparams{'CONNECTION_NAME'}) {
print "<td width='20%' $col><b>$Lang::tr{'connected'}</b></td>\n"; print "<td width='15%' $col><b>$Lang::tr{'connected'}</b></td>\n";
print "<td width='20%' $col><b>$Lang::tr{'disconnected'}</b></td>\n"; print "<td width='15%' $col><b>$Lang::tr{'disconnected'}</b></td>\n";
print "<td width='10%' align='right' $col><b>$Lang::tr{'duration'}</b></td>\n";
print "<td width='10%' align='right' $col><b>$Lang::tr{'received'}</b></td>\n"; print "<td width='10%' align='right' $col><b>$Lang::tr{'received'}</b></td>\n";
print "<td width='10%' align='right' $col><b>$Lang::tr{'sent'}</b></td>\n"; print "<td width='10%' align='right' $col><b>$Lang::tr{'sent'}</b></td>\n";
} else { } else {
@@ -279,6 +281,7 @@ unless ($errormessage) {
my $connection_close_time = $row[2]; my $connection_close_time = $row[2];
my $connection_bytes_recieved = &General::formatBytes($row[3]); my $connection_bytes_recieved = &General::formatBytes($row[3]);
my $connection_bytes_sent = &General::formatBytes($row[4]); my $connection_bytes_sent = &General::formatBytes($row[4]);
my $duration = &General::format_time($row[5]);
# Colorize columns. # Colorize columns.
if ($lines % 2) { if ($lines % 2) {
@@ -291,8 +294,9 @@ unless ($errormessage) {
print "<td width='40%' $col>$connection_name</td>\n"; print "<td width='40%' $col>$connection_name</td>\n";
if ($cgiparams{'CONNECTION_NAME'}) { if ($cgiparams{'CONNECTION_NAME'}) {
print "<td width='20%' $col>$connection_open_time</td>\n"; print "<td width='15%' $col>$connection_open_time</td>\n";
print "<td width='20%' $col>$connection_close_time</td>\n"; print "<td width='15%' $col>$connection_close_time</td>\n";
print "<td width='10%' align='right' $col>$duration</td>\n";
print "<td width='10%' align='right' $col>$connection_bytes_recieved</td>\n"; print "<td width='10%' align='right' $col>$connection_bytes_recieved</td>\n";
print "<td width='10%' align='right' $col>$connection_bytes_sent</td>\n"; print "<td width='10%' align='right' $col>$connection_bytes_sent</td>\n";
} else { } else {
@@ -312,7 +316,7 @@ unless ($errormessage) {
# If nothing has been fetched, the amount of lines is still zero. # If nothing has been fetched, the amount of lines is still zero.
# In this case display a hint about no data. # In this case display a hint about no data.
unless ($lines) { unless ($lines) {
print "<tr><td bgcolor='$color{'color22'}' colspan='5' align='center'>$Lang::tr{'no entries'}</td></tr>\n"; print "<tr><td bgcolor='$color{'color22'}' colspan='6' align='center'>$Lang::tr{'no entries'}</td></tr>\n";
} }
print "</table><br>\n"; print "</table><br>\n";