Subversion Repositories ALCASAR

Rev

Rev 1808 | Show entire file | Ignore whitespace | Details | Blame | Last modification | View Log

Rev 1808 Rev 3269
Line 1... Line 1...
1 
#!/usr/bin/perl
 1 
#!/usr/bin/perl
2 
#
 2 
#
3 
# Clean stale open sessions from the radacct table.
 3 
# Clean stale open sessions from the radacct table.
4 
# we only clean up sessions which are older than $back_days
 4 
# we only clean up sessions which are older than $back_days
5 
# Works with mysql and postgresql
 5 
# Works with mysql, mariadb and postgresql
6 
#
 6 
#
7 
use POSIX;
 7 
use POSIX;
8 
use File::Temp qw(tempfile tempdir);
 8 
use File::Temp qw(tempfile tempdir);
9 
 
 9 
 
10 
$conf=shift||'/etc/freeradius-web/admin.conf';
 10 
$conf=shift||'/etc/freeradius-web/admin.conf';