dialup_admin/bin/monthly_tot_stats

   1 #!/usr/bin/perl
   2 use POSIX;
   3
   4 # Log in the mtotacct table aggregated accounting information for
   5 # each user spaning in one month period.
   6 # If the current month has not ended it will log information up to
   7 # the current month day
   8 # Works only with mysql and postgresql
   9 #
  10
  11 $conf=shift||'/usr/local/dialup_admin/conf/admin.conf';
  12
  13
  14 open CONF, "<$conf"
  15         or die "Could not open configuration file\n";
  16 while(<CONF>){
  17         chomp;
  18         ($key,$val)=(split /:\s*/,$_);
  19         $sql_type = $val if ($key eq 'sql_type');
  20         $sql_server = $val if ($key eq 'sql_server');
  21         $sql_username = $val if ($key eq 'sql_username');
  22         $sql_password = $val if ($key eq 'sql_password');
  23         $sql_database = $val if ($key eq 'sql_database');
  24         $sql_accounting_table = $val if ($key eq 'sql_accounting_table');
  25         $sqlcmd = $val if ($key eq 'sql_command');
  26 }
  27 close CONF;
  28
  29 die "sql_command directive is not set in admin.conf\n" if ($sqlcmd eq '');
  30 die "sql command '$sqlcmd' not found or does not seem to be executable\n" if (! -x $sqlcmd);
  31
  32 if ($sql_type eq 'mysql'){
  33         $sql_password = ($sql_password eq '') ? '' : "-p$sql_password";
  34 }
  35 $sql_password =~ s/(\W)/\\$1/g;
  36
  37 ($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst) = localtime;
  38 if ($mday == 1){
  39         $mon--;
  40 }
  41 $date_start = POSIX::strftime("%Y-%m-%d",0,0,0,1,$mon,$year,$wday,$yday,$isdst);
  42 $date_end = POSIX::strftime("%Y-%m-%d",0,0,0,$mday,$mon,$year,$wday,$yday,$isdst);
  43
  44 $query1 = "DELETE FROM mtotacct WHERE AcctDate = '$date_start';";
  45 $query2 = "INSERT INTO mtotacct (UserName,AcctDate,ConnNum,ConnTotDuration,
  46         ConnMaxDuration,ConnMinDuration,InputOctets,OutputOctets,NASIPAddress)
  47         SELECT UserName,'$date_start',SUM(ConnNum),SUM(ConnTotDuration),
  48         MAX(ConnMaxDuration),MIN(ConnMinDuration),SUM(InputOctets),
  49         SUM(OutputOctets),NASIPAddress FROM totacct
  50         WHERE AcctDate >= '$date_start' AND
  51         AcctDate <= '$date_end' GROUP BY UserName,NASIPAddress;";
  52 print "$query1\n";
  53 print "$query2\n";
  54 open TMP, ">/tmp/tot_stats.query"
  55         or die "Could not open tmp file\n";
  56 print TMP "ALTER SESSION SET NLS_TIMESTAMP_TZ_FORMAT='YYYY-MM-DD HH24:MI:SS.FF TZH:TZM';\n" if ($sql_type eq 'oracle');
  57 print TMP $query1;
  58 print TMP $query2;
  59 close TMP;
  60 $command = "$sqlcmd -h $sql_server -u $sql_username $sql_password $sql_database </tmp/tot_stats.query" if ($sql_type eq 'mysql');
  61 $command = "$sqlcmd  -U $sql_username -f /tmp/tot_stats.query $sql_database" if ($sql_type eq 'pg');
  62 $command = "$sqlcmd  $sql_username/$pass" . "@" . "$sql_database <$tmpfile.$server" if ($sql_type eq 'oracle');
  63 $command = "$sqlcmd '$sql_server' '$sql_port' '' '$sql_username' '$sql_password' </tmp/tot_stats.query" if ($sql_type eq 'sqlrelay');
  64 `$command`;