hjp
/
simba
1
0
Fork 0
Code Issues 2 Pull Requests Releases Wiki Activity

Check for gzipped files, too.

This commit is contained in:
hjp 2013-11-26 21:50:11 +00:00
parent 2bc5967e10
commit d5e1e04495
1 changed files with 2 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
scripts/simba_export
View File

@ -15,7 +15,8 @@ my $dbh = $ca->{dbh};
my $sessions = $dbh->selectcol_arrayref("select id from sessions order by id"); my $sessions = $dbh->selectcol_arrayref("select id from sessions order by id");
for my $session_id (@$sessions) { for my $session_id (@$sessions) {
next if (-f "$basedir/$session_id.tsv"); next if (-f "$basedir/$session_id.tsv"
|| -f "$basedir/$session_id.tsv.gz");
$ca->log(3, "exporting session $session_id"); $ca->log(3, "exporting session $session_id");
my $sth my $sth
= $dbh->prepare( = $dbh->prepare(