$config_flags = '{' . join(',',@config_flags) . '}' ;
}
+my $scm = $client_conf->{scm} || 'cvs';
my $logst = <<EOSQL;
insert into build_status
(sysname, snapshot,status, stage, log,conf_sum, branch,
changed_this_run, changed_since_success,
- log_archive_filenames , log_archive, build_flags)
- values(?,?,?,?,?,?,?,?,?,?,?,?)
+ log_archive_filenames , log_archive, build_flags, scm)
+ values(?,?,?,?,?,?,?,?,?,?,?,?,?)
EOSQL
;
$sth=$db->prepare($logst);
#$sth->bind_param(11,$log_archive,{ pg_type => DBD::Pg::PG_BYTEA });
$sth->bind_param(11,undef,{ pg_type => DBD::Pg::PG_BYTEA });
$sth->bind_param(12,$config_flags);
+$sth->bind_param(13,$scm);
$sth->execute;
$sth->finish;
$stage_start = $mtime;
my $ltext = <$handle>;
close($handle);
+ $ltext =~ s/\x00/\\0/g;
$sth->execute($animal,$dbdate,$branch,$log_file,$ltext,
"$stage_interval seconds");
}
$db->begin_work;
-$db->do("delete from dashboard_mat");
+$db->do("truncate dashboard_mat");
$db->do("insert into dashboard_mat select * from dashboard_mat_data");
$db->commit;