← Back to branch summary

~yolanda.robla/ubuntu/saucy/freeradius/dep-8-tests

« back to all changes in this revision

Viewing changes to dialup_admin/bin/truncate_radacct

  • Committer: Bazaar Package Importer
  • Author(s): Josip Rodin
  • Date: 2009-11-23 03:57:37 UTC
  • mto: This revision was merged to the branch mainline in revision 7.
  • Revision ID: james.westby@ubuntu.com-20091123035737-snauioz5r9tf8sdr
Tags: upstream-2.1.7+dfsg
Import upstream version 2.1.7+dfsg

Show diffs side-by-side

added added

removed removed

Lines of Context:
dialup_admin/bin/truncate_radacct
5
5
# Works with mysql and postgresql
6
6
#
7
7
use POSIX;
 
8
use File::Temp;
8
9
 
9
10
$conf=shift||'/usr/local/dialup_admin/conf/admin.conf';
10
11
$back_days = 90;
44
45
$query .= "DELETE FROM $sql_accounting_table WHERE AcctStopTime < '$date' AND AcctStopTime IS NOT NULL ;";
45
46
$query .= "UNLOCK TABLES;" if ($sql_type eq 'mysql');
46
47
print "$query\n";
47
 
open TMP, ">/tmp/truncate_radacct.query"
48
 
        or die "Could not open tmp file\n";
49
 
print TMP "ALTER SESSION SET NLS_TIMESTAMP_TZ_FORMAT='YYYY-MM-DD HH24:MI:SS.FF TZH:TZM';\n" if ($sql_type eq 'oracle');
50
 
print TMP $query;
51
 
close TMP;
52
 
$command = "$sqlcmd -h$sql_server -u$sql_username $sql_password $sql_database </tmp/truncate_radacct.query" if ($sql_type eq 'mysql');
53
 
$command = "$sqlcmd  -U $sql_username -f /tmp/truncate_radacct.query $sql_database" if ($sql_type eq 'pg');
 
48
my ($fh, $tmp_filename) = tempfile() or die "Could not open tmp file\n";
 
49
print $fh "ALTER SESSION SET NLS_TIMESTAMP_TZ_FORMAT='YYYY-MM-DD HH24:MI:SS.FF TZH:TZM';\n" if ($sql_type eq 'oracle');
 
50
print $fh $query;
 
51
close $fh;
 
52
$command = "$sqlcmd -h$sql_server -u$sql_username $sql_password $sql_database < $tmp_filename" if ($sql_type eq 'mysql');
 
53
$command = "$sqlcmd  -U $sql_username -f  $tmp_filename $sql_database" if ($sql_type eq 'pg');
54
54
$command = "$sqlcmd  $sql_username/$pass" . "@" . "$sql_database <$tmpfile.$server" if ($sql_type eq 'oracle');
55
 
$command = "$sqlcmd '$sql_server' '$sql_port' '' '$sql_username' '$sql_password' </tmp/truncate_radacct.query" if ($sql_type eq 'sqlrelay');
 
55
$command = "$sqlcmd '$sql_server' '$sql_port' '' '$sql_username' '$sql_password' < $tmp_filename" if ($sql_type eq 'sqlrelay');
56
56
`$command`;