Commit 87282541 authored by Leigh B. Stoller's avatar Leigh B. Stoller

Redo the batch mode stuff. Much improved.

parent a68ed84c
This diff is collapsed.
......@@ -261,7 +261,7 @@ sub parse_batchfile()
$pid = $1;
next;
}
if ($_ =~ /^name:\s+([-\@\w.]*)/) {
if ($_ =~ /^name:\s+([-\@\w. ]*)/) {
$longname = $1;
next;
}
......@@ -281,12 +281,13 @@ sub parse_batchfile()
sub DBquery()
{
my($query) = $_[0];
my($result);
$query_result = $DB->query($query);
$result = $DB->query($query);
if (! $query_result) {
if (! $result) {
fatal("DB Error: $query");
}
return $query_result;
return $result;
}
......@@ -157,12 +157,13 @@ sub fatal($)
sub DBquery()
{
my($query) = $_[0];
my($result);
$query_result = $DB->query($query);
$result = $DB->query($query);
if (! $query_result) {
if (! $result) {
fatal("DB Error: $query");
}
return $query_result;
return $result;
}
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment