Subversion Repositories ALCASAR

#!/usr/bin/perl

#

# Clean stale open sessions from the radacct table.

# we only clean up sessions 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 = 30;

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 = "DELETE FROM $sql_accounting_table WHERE AcctStopTime IS NULL AND AcctStartTime < '$date';";

print "$query\n";

my ($fh, $tmp_filename) = tempfile() or die "Could not open tmp file\n";

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_server' '$sql_port' '' '$sql_username' '$sql_password' < $tmp_filename" if ($sql_type eq 'sqlrelay');

`$command`;