From: kkalev <kkalev>
Date: Sun, 27 Oct 2002 22:45:08 +0000 (+0000)
Subject: Add a configuration directive about how many days back we should clean the db
X-Git-Url: https://git.entuzijast.net/?a=commitdiff_plain;h=224d55cbf3e6e3de2fa33f7e4a3546efd2ce8efb;p=freeradius-dialup-admin.git

Add a configuration directive about how many days back we should clean the db
---

diff --git a/bin/clean_radacct b/bin/clean_radacct
index e3652f1..cc794f9 100755
--- a/bin/clean_radacct
+++ b/bin/clean_radacct
@@ -3,6 +3,7 @@ use DBI;
 use POSIX;
 
 $conf=shift||'/usr/local/dialup_admin/conf/admin.conf';
+$back_days = 35;
 
 open CONF, "<$conf"
 	or die "Could not open configuration file\n";
@@ -18,7 +19,7 @@ while(<CONF>){
 close CONF;
 
 ($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst) = localtime;
-$date = POSIX::strftime("%Y-%m-%d %T",$sec,$min,$hour,($mday - 1),$mon,$year,$wday,$yday,$isdst);
+$date = POSIX::strftime("%Y-%m-%d %T",$sec,$min,$hour,($mday - $back_days),$mon,$year,$wday,$yday,$isdst);
 print "$date\n";
 
 $dbh = DBI->connect("DBI:mysql:$sql_database:$sql_server","$sql_username","$sql_password");