dialup_admin/bin/backup_radacct

   1 #!/usr/bin/perl
   2 use POSIX;
   3
   4 $conf=shift||'/data/local/dialupadmin/conf/admin.conf';
   5 $back_days = 80;
   6 $backup_directory = "/logs/radiusd/accounting";
   7
   8 open CONF, "<$conf"
   9         or die "Could not open configuration file\n";
  10 while(<CONF>){
  11         chomp;
  12         ($key,$val)=(split /:\s*/,$_);
  13         $sql_server = $val if ($key eq 'sql_server');
  14         $sql_type = $val if ($key eq 'sql_type');
  15         $sql_port = $val if ($key eq 'sql_port');
  16         $sql_username = $val if ($key eq 'sql_username');
  17         $sql_password = $val if ($key eq 'sql_password');
  18         $sql_database = $val if ($key eq 'sql_database');
  19         $sql_accounting_table = $val if ($key eq 'sql_accounting_table');
  20         $sqlcmd = $val if ($key eq 'sql_command');
  21 }
  22 close CONF;
  23
  24 die "sql_command directive is not set in admin.conf\n" if ($sqlcmd eq '');
  25 die "sql command '$sqlcmd' not found or does not seem to be executable\n" if (! -x $sqlcmd);
  26 if ($sql_type eq 'mysql'){
  27         $sql_password = ($sql_password eq '') ? '' : "-p$sql_password";
  28 }
  29 $sql_password =~ s/(\W)/\\$1/g;
  30
  31 ($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst) = localtime;
  32 $date = POSIX::strftime("%Y-%m-%d",$sec,$min,$hour,($mday - ($back_days - 1)),$mon,$year,$wday,$yday,$isdst);
  33 $date2 = POSIX::strftime("%Y-%m-%d",$sec,$min,$hour,($mday - ($back_days + 1)),$mon,$year,$wday,$yday,$isdst);
  34 $date3 = POSIX::strftime("%Y%m%d",$sec,$min,$hour,($mday - $back_days),$mon,$year,$wday,$yday,$isdst);
  35 if (POSIX::strftime("%Y-%m-%d %T",localtime) eq $date){
  36         die "Could not set correct back date.\n";
  37 }
  38
  39 $query = "SELECT * FROM $sql_accounting_table WHERE AcctStopTime < '$date' AND AcctStopTime > '$date2';";
  40 print "$query\n";
  41 open TMP, ">/tmp/backup_radacct.query"
  42         or die "Could not open tmp file\n";
  43 print TMP $query;
  44 close TMP;
  45 $comm = "$sqlcmd -B -h $sql_server -u $sql_username $sql_password $sql_database </tmp/backup_radacct.query >$backup_directory/$date3" if ($sql_type eq 'mysql');
  46 $comm = "$sqlcmd  -U $sql_username -f /tmp/backup_radacct.query $sql_database >$backup_directory/$date3" if ($sql_type eq 'pg');
  47 $command = "$sqlcmd '$sql_server' '$sql_port' '' '$sql_username' '$sql_password' </tmp/backup_radacct.query >$backup_directory/$date3" if ($sql_type eq 'sqlrelay');
  48 `$comm`;
  49 `/usr/local/bin/gzip -9 $backup_directory/$date3`;