hi all,
Can someone put me thru this?
when I run the script..it bring no error.. however, the table radacct is
not updated.
what have i done wrong.
Goksie
#!/usr/bin/perl
use strict;
use warnings;
use DBI;
my ($fn, @x);
#define the file
$fn = 'lost.csv';
$/ = "\n";
#prepare a database connection source;
my ($data_source, $user, $pass, $ret, $sql, $dbh, $sth, $row, $port,
$hostname, $database);
$data_source='dbi:mysql:radonet:localhost';
$user='root';
$pass='junkh1a';
$database='radius';
$hostname='localhost';
$port='3306';
$dbh = DBI->connect($data_source, $user, $pass);
$sql = "UPDATE radacct SET AcctSessionTime = ?, TrunkIdOut = ?,
TrunkIdIn = ? where AcctUniqueId = ?";
$sth = $dbh->prepare($sql);
#Open the file
open FH, '<', $fn or die "The File $fn Could not be opened: $! \n";
while(<FH>)
{
#split the file into variables
@x =(split/,/)[0,1,2,3,4,5,6];
$sth->execute($x[2], $x[5], $x[4], $x[6]);
}
# extract from the lost.csv file
19736873001," """"",1,4/18/2007 22:59, 192.168.44.38, 10.0.11.79,
1a88e00c34cb30fa
2.34803E+12,2087316954,0,4/18/2007 23:00, 10.0.11.76, 0.0.0.0,
1ebd35b17bd867f9
2.34803E+12,2087316954,0,4/18/2007 23:00, 10.0.11.76, 0.0.0.0,
ab3b78424358b27d
12024227659," """"",0,4/18/2007 23:00, 192.168.44.38, 10.0.11.76,
5a31b839bfc95cd5
4.47904E+11," """"",21,4/18/2007 23:00, 192.168.44.38, 10.0.11.79,
9e95a7a7b6937ff8
12024227659," """"",0,4/18/2007 23:00, 192.168.44.38, 10.0.11.76,
0ef7c2048870a6ef
14506708893," """"",211,4/18/2007 22:57, 192.168.44.38, 10.0.11.79,
6a0056401dcb56a7
12024227659," """"",0,4/18/2007 23:01, 192.168.44.38, 10.0.11.76,
d6b154140636378b
19736873001," """"",30,4/18/2007 23:00, 192.168.44.38, 10.0.11.79,
b744ff188ed3c7fc
16304971578," """"",0,4/18/2007 23:01, 192.168.44.38, 10.0.11.76,
d5d103f66de65ad7
71508831681," """"",0,4/18/2007 23:02, 192.168.44.38, 10.0.11.76,
a7b2a292af151634
18137318836," """"",0,4/18/2007 23:02, 192.168.44.38, 10.0.11.76,
e166c3a40a08df26
16304971578," """"",0,4/18/2007 23:02, 192.168.44.38, 10.0.11.76,
b889cae3a64c3a68
4.47904E+11," """"",81,4/18/2007 23:01, 192.168.44.38, 10.0.11.79,
2f9d50e741fe5f65
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
http://learn.perl.org/
