[freeside-commits] freeside/FS/bin freeside-torrus-srvderive, 1.44, 1.45

[Ivan,,,]

Update of /home/cvs/cvsroot/freeside/FS/bin
In directory wavetail.420.am:/tmp/cvs-serv21298

Modified Files:
	freeside-torrus-srvderive 
Log Message:
try at a multiprocess torrus-srvderive to hopefully catch/keep up, RT#10574

Index: freeside-torrus-srvderive
===================================================================
RCS file: /home/cvs/cvsroot/freeside/FS/bin/freeside-torrus-srvderive,v
retrieving revision 1.44
retrieving revision 1.45
diff -u -w -d -r1.44 -r1.45
--- freeside-torrus-srvderive	17 Apr 2011 18:24:29 -0000	1.44
+++ freeside-torrus-srvderive	17 Apr 2011 18:48:25 -0000	1.45
@@ -59,8 +59,8 @@
 
 my $orderlimit = "
     ORDER BY srv_date, srv_time
-    LIMIT 50
-";
+    LIMIT 100
+"; #50?
 
 our $kids = 0;
 
@@ -99,6 +99,10 @@
       my @serviceids = $torrus_srvderive->component_serviceids;
       exit unless @serviceids; #don't try to search for empty virtual ports
 
+      #nonlocking select statements; rows in this table never change
+      dbh->do('SET SESSION TRANSACTION ISOLATION LEVEL READ UNCOMMITTED')
+        if driver_name eq 'mysql';
+
       my @in = ();
       for my $dir ('_IN', '_OUT') {
         push @in, map dbh->quote("$_$dir"), @serviceids;
@@ -163,7 +167,7 @@
         die $@;
       }
 
-      warn "search finished; checking results\n" if $DEBUG;
+      warn "search for $serviceid finished; checking results\n" if $DEBUG;
 
       my $prev = 0;
       while ( my $row = $sth->fetchrow_arrayref ) {