+
+ #don't bother trying today's immediately
+ warn "done with $serviceid for now\n" if $DEBUG;
+ exit; #end-of-kid
+
+ }
+
+ my $ssql = "
+ $sql AND EXISTS (
+ SELECT 1 FROM srvexport AS other
+ WHERE other.serviceid IN ($in)
+ AND srvexport.srv_date = other.srv_date
+ AND ABS( $_date - $other_date ) <= 60
+ )
+ ";
+
+ $ssql .= " AND srv_date >= '". $torrus_srvderive->last_srv_date. "' "
+ if $torrus_srvderive->last_srv_date;
+
+ $ssql .= $orderlimit;
+
+ 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 here?
+
+ eval {
+ my $h = set_sig_handler( 'ALRM', sub { die "_timeout\n"; } );
+ alarm($search_timeout);
+ $sth->execute($serviceid, $serviceid) or die $sth->errstr;
+ alarm(0);
+ };
+ alarm(0);
+
+ 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 =~ /mysql/i;
+ 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 $srv_date = time2str('%Y-%m-%d', $cur);
+
+ my $sum = "
+ SELECT COALESCE(SUM(value),0) FROM srvexport AS other
+ WHERE other.serviceid IN ($sin)
+ AND other.srv_date = '$srv_date'
+ AND ABS( $cur - $other_date ) <= 60
+ ";
+ my $ssth = dbh->prepare($sum) or die $DBI::errstr;
+ $ssth->execute or die $ssth->errstr; #better recovery?
+ my $value = $ssth->fetchrow_arrayref->[0];
+
+ my $isql = "
+ INSERT INTO srvexport (srv_date, srv_time, serviceid, value, intvl)
+ VALUES ( ?, ?, ?, ?, ? )
+ ";
+ my @param = ( $srv_date,
+ time2str('%X', $cur), #srv_time
+ "$serviceid$dir", #serviceid
+ $value,
+ 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;