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 
# Delete sessions from the radacct table which are older than $back_days
 3 
# Delete sessions from the radacct table which are older than $back_days
4 
# Works with mysql and postgresql
 4 
# Works with mysql, mariadb and postgresql
5 
#
 5 
#
6 
use POSIX;
 6 
use POSIX;
7 
use File::Temp qw(tempfile tempdir);
 7 
use File::Temp qw(tempfile tempdir);
8 
 
 8 
 
9 
$conf=shift||'/etc/freeradius-web/admin.conf';
 9 
$conf=shift||'/etc/freeradius-web/admin.conf';