+ if ( $@ && $@ eq "_timeout\n" ) {
+ #warn "search timed out; reconnecting and restarting\n";
+ warn "search timed out\n";
+ dbh->clone()->do("KILL QUERY ". dbh->{"mysql_thread_id"})
+ if driver_name eq 'mysql';
+ dbh->rollback; #or die dbh->errstr;
+ #adminsuidsetup($user);
+ #next SERVICEID; #MAIN;
+ exit;
+ } elsif ( $@ ) {
+ die $@;
+ }
+
+ warn "search for $serviceid finished; checking results\n" if $DEBUG;
+
+ my $prev = 0;
+ while ( my $row = $sth->fetchrow_arrayref ) {
+ last if sigterm() || sigint();
+
+ my( $srv_date, $srv_time ) = @$row;
+ my $cur = str2time( "$srv_date $srv_time" );
+ next if $cur-$prev <= 60;
+ last if time - $cur <= 300;
+
+ warn "no $serviceid for $srv_date $srv_time; adding\n"
+ if $DEBUG;
+ $found++;
+
+ for my $dir ('_IN', '_OUT') {
+
+ my $sin = join(',', map dbh->quote("$_$dir"), @serviceids);
+
+ my $sum = "
+ SELECT COALESCE(SUM(value),0) FROM srvexport AS other
+ WHERE other.serviceid IN ($sin)
+ AND ABS( $cur - $other_date ) <= 60
+ ";
+
+ my $isql = "
+ INSERT INTO srvexport ( srv_date, srv_time, serviceid, value, intvl )
+ VALUES ( ?, ?, ?, ($sum), ? )
+ ";
+ my @param = ( time2str('%Y-%m-%d', $cur), #srv_date
+ time2str('%X', $cur), #srv_time
+ "$serviceid$dir",
+ 300, #intvl ...
+ );
+ warn $isql. ' with param '. join(',',@param). "\n"
+ if $DEBUG > 2;
+
+ my $isth = dbh->prepare($isql) or die $DBI::errstr; #better recovery?
+
+ #stupid mysql deadlocks all the time on insert, so we need to recover
+ unless ( $isth->execute(@param) ) {
+ #warn "Error inserting data for $serviceid$dir (restarting): ".
+ # $isth->errstr;
+ warn "Error inserting data for $serviceid$dir: ". $isth->errstr;
+ dbh->rollback; #or die dbh->errstr;
+ #sleep 5;
+ #next SERVICEID; #MAIN;
+ exit;
+ }
+
+ }
+
+ if ( $srv_date ne $torrus_srvderive->last_srv_date ) {
+ warn "updating last_srv_date of $serviceid to $srv_date\n" if $DEBUG;
+ $torrus_srvderive->last_srv_date($srv_date);
+ my $error = $torrus_srvderive->replace;
+ die $error if $error;
+ }
+ dbh->commit or die dbh->errstr;
+
+ $prev = $cur;
+ }
+ warn "done with $serviceid\n" if $DEBUG;
+
+ exit;
+ #end-of-kid