0,0 → 1,55 |
#!/usr/bin/perl |
# |
# Delete sessions from the radacct table which are older than $back_days |
# Works with mysql and postgresql |
# |
use POSIX; |
use File::Temp qw(tempfile tempdir); |
|
$conf=shift||'/etc/freeradius-web/admin.conf'; |
$back_days = 365; |
|
|
open CONF, "<$conf" |
or die "Could not open configuration file\n"; |
while(<CONF>){ |
chomp; |
($key,$val)=(split /:\s*/,$_); |
$sql_type = $val if ($key eq 'sql_type'); |
$sql_server = $val if ($key eq 'sql_server'); |
$sql_username = $val if ($key eq 'sql_username'); |
$sql_password = $val if ($key eq 'sql_password'); |
$sql_database = $val if ($key eq 'sql_database'); |
$sql_accounting_table = $val if ($key eq 'sql_accounting_table'); |
$sqlcmd = $val if ($key eq 'sql_command'); |
} |
close CONF; |
|
die "sql_command directive is not set in admin.conf\n" if ($sqlcmd eq ''); |
die "sql command '$sqlcmd' not found or does not seem to be executable\n" if (! -x $sqlcmd); |
|
if ($sql_type eq 'mysql'){ |
$sql_password = (!$sql_password) ? '' : "-p$sql_password"; |
} |
$sql_password =~ s/(\W)/\\$1/g; |
|
($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst) = localtime; |
$date = POSIX::strftime("%Y-%m-%d %T",$sec,$min,$hour,($mday - $back_days),$mon,$year,$wday,$yday,$isdst); |
print "$date\n"; |
if (POSIX::strftime("%Y-%m-%d %T",localtime) eq $date){ |
die "Could not set correct back date.\n"; |
} |
$query = ""; |
$query = "LOCK TABLES $sql_accounting_table WRITE;" if ($sql_type eq 'mysql'); |
$query .= "DELETE FROM $sql_accounting_table WHERE AcctStopTime < '$date' AND AcctStopTime IS NOT NULL ;"; |
$query .= "UNLOCK TABLES;" if ($sql_type eq 'mysql'); |
print "$query\n"; |
my ($fh, $tmp_filename) = tempfile() or die "Could not open tmp file\n"; |
print $fh "ALTER SESSION SET NLS_TIMESTAMP_TZ_FORMAT='YYYY-MM-DD HH24:MI:SS.FF TZH:TZM';\n" if ($sql_type eq 'oracle'); |
print $fh $query; |
close $fh; |
$command = "$sqlcmd -h$sql_server -u$sql_username $sql_password $sql_database < $tmp_filename" if ($sql_type eq 'mysql'); |
$command = "$sqlcmd -U $sql_username -f $tmp_filename $sql_database" if ($sql_type eq 'pg'); |
$command = "$sqlcmd $sql_username/$pass" . "@" . "$sql_database <$tmpfile.$server" if ($sql_type eq 'oracle'); |
$command = "$sqlcmd '$sql_server' '$sql_port' '' '$sql_username' '$sql_password' < $tmp_filename" if ($sql_type eq 'sqlrelay'); |
`$command`; |
Property changes: |
Added: svn:executable |
+* |
\ No newline at end of property |