diff options
Diffstat (limited to 'make_combined_log.pl')
| -rwxr-xr-x | make_combined_log.pl | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/make_combined_log.pl b/make_combined_log.pl index cefc728..1741dbf 100755 --- a/make_combined_log.pl +++ b/make_combined_log.pl | |||
| @@ -1,6 +1,6 @@ | |||
| 1 | #!/usr/bin/perl | 1 | #!/usr/bin/perl |
| 2 | 2 | ||
| 3 | # $Id: make_combined_log.pl,v 1.4 2002/01/02 20:47:44 helios Exp $ | 3 | # $Id: make_combined_log.pl,v 1.5 2002/11/14 03:51:34 helios Exp $ |
| 4 | # | 4 | # |
| 5 | # make_combined_log.pl | 5 | # make_combined_log.pl |
| 6 | # | 6 | # |
| @@ -69,7 +69,7 @@ if (not $dbh) { | |||
| 69 | die "Unable to connect to the database. Please check your connection variables. (Bad password? Incorrect perms?)"; | 69 | die "Unable to connect to the database. Please check your connection variables. (Bad password? Incorrect perms?)"; |
| 70 | } | 70 | } |
| 71 | 71 | ||
| 72 | $records = $dbh->prepare("select remote_host,remote_user,request_uri,time_stamp,status,bytes_sent,referer,agent,request_method,request_protocol from $serverTbl where virtual_host='$virthost' and time_stamp >= $start"); | 72 | $records = $dbh->prepare("select remote_host,remote_user,request_uri,time_stamp,status,bytes_sent,referer,agent,request_method,request_protocol from `$serverTbl` where virtual_host='$virthost' and time_stamp >= $start order by time_stamp"); |
| 73 | $records->execute; | 73 | $records->execute; |
| 74 | if (not $records) { | 74 | if (not $records) { |
| 75 | die "No such table or the select returned no records." | 75 | die "No such table or the select returned no records." |