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() ...@@ -261,7 +261,7 @@ sub parse_batchfile()
$pid = $1; $pid = $1;
next; next;
} }
if ($_ =~ /^name:\s+([-\@\w.]*)/) { if ($_ =~ /^name:\s+([-\@\w. ]*)/) {
$longname = $1; $longname = $1;
next; next;
} }
...@@ -281,12 +281,13 @@ sub parse_batchfile() ...@@ -281,12 +281,13 @@ sub parse_batchfile()
sub DBquery() sub DBquery()
{ {
my($query) = $_[0]; my($query) = $_[0];
my($result);
$query_result = $DB->query($query); $result = $DB->query($query);
if (! $query_result) { if (! $result) {
fatal("DB Error: $query"); fatal("DB Error: $query");
} }
return $query_result; return $result;
} }
...@@ -157,12 +157,13 @@ sub fatal($) ...@@ -157,12 +157,13 @@ sub fatal($)
sub DBquery() sub DBquery()
{ {
my($query) = $_[0]; my($query) = $_[0];
my($result);
$query_result = $DB->query($query); $result = $DB->query($query);
if (! $query_result) { if (! $result) {
fatal("DB Error: $query"); 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