mysql query with perl

[reefbum]

I'm very new to perl and am in need of a bit of help with a perl script that is doing query to mysql DB for radius. Currently the script is doing a sum of octects from DB by username only. My issue is that it is doing the sum for ALL entries from that username. What i need it to do is sum all database entries by username for the current date only. So that database entries for previous days are not included in the sum.

This is the portion of the script in question.



$cursor = $dbh->prepare("SELECT SUM(AcctInputOctets), SUM(AcctOutputOctets), SUM(AcctSessionTime)
FROM radacct
WHERE username='$ARGV[0]'")
or die("Couldn't prepare");
$cursor->execute;


Thanks for any help you can offer

 

[MillerH]

It sounds like you need MySQL help, not perl help. The sql forum is here:

http://www.tek-tips.com/threadminder.cfm?pid=220

You should let them know what your schema is. They at least need to know what the name of the date-like field in "radacct" is, and preferable what type it is. DATETIME, TIMESTAMP, DATE, or some other custom datatype?

All you'll need though is the CURDATE() function:

http://dev.mysql.com/doc/refman/5.1/en/date-and-time-functions.html