diff options
| author | ivan <ivan> | 2011-04-07 23:46:58 +0000 |
|---|---|---|
| committer | ivan <ivan> | 2011-04-07 23:46:58 +0000 |
| commit | 484dbc5f3c541abd4e81cdbd38c87f12d69552f3 (patch) | |
| tree | 697aebaba8e9db50a954cb78120e08a1d1cc7eae | |
| parent | 7158dc63b1acfc65b7b856a9f58821f6242ece31 (diff) | |
more debugging to hopefully find out where mysql is hanging, RT#10574
| -rw-r--r-- | FS/bin/freeside-torrus-srvderive | 3 |
1 files changed, 3 insertions, 0 deletions
diff --git a/FS/bin/freeside-torrus-srvderive b/FS/bin/freeside-torrus-srvderive index 38dfdbbe8..71c1874d9 100644 --- a/FS/bin/freeside-torrus-srvderive +++ b/FS/bin/freeside-torrus-srvderive @@ -92,7 +92,10 @@ MAIN: while (1) { warn "searching for times to add $serviceid\n" if $DEBUG; warn $ssql if $DEBUG > 2; my $sth = dbh->prepare($ssql) or die $DBI::errstr; #better recovery? + + warn "executing search" if $DEBUG; $sth->execute($serviceid, $serviceid) or die $sth->errstr; + warn "search executed; checking results" if $DEBUG; my $prev = 0; while ( my $row = $sth->fetchrow_arrayref ) { |