summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorAndrew Gaffney <agaffney@gentoo.org>2008-01-05 04:19:08 +0000
committerAndrew Gaffney <agaffney@gentoo.org>2008-01-05 04:19:08 +0000
commitc7bf256c204118beb9f207e6f487fc7f53e00a2f (patch)
tree299169cbeaeeda35642dfca9b03eab21c6e42075 /server/scireserver.pl
parentdon't stick 'script' in the hash (diff)
downloadscire-c7bf256c204118beb9f207e6f487fc7f53e00a2f.tar.gz
scire-c7bf256c204118beb9f207e6f487fc7f53e00a2f.tar.bz2
scire-c7bf256c204118beb9f207e6f487fc7f53e00a2f.zip
switch back to Data::Dumper for job output
svn path=/branches/new-fu/; revision=322
Diffstat (limited to 'server/scireserver.pl')
-rwxr-xr-xserver/scireserver.pl5
1 files changed, 2 insertions, 3 deletions
diff --git a/server/scireserver.pl b/server/scireserver.pl
index db05d43..ca256bd 100755
--- a/server/scireserver.pl
+++ b/server/scireserver.pl
@@ -8,7 +8,6 @@ use DBI;
use Data::Dumper;
use Digest::MD5 qw(md5 md5_hex );
use File::Path;
-use XML::Dumper;
$| = 1;
@@ -253,8 +252,8 @@ sub get_job {
or die("Couldn't make $path w/ perms 0660: $!");
}
open(FH, ">$filename") or die("Couldn't open $filename: $!");
- my $xml = pl2xml( $job );
- print FH $xml."\n";
+ my $jobdata = Dumper($job);
+ print FH $jobdata . "\n";
close(FH) or die("Couldn't close $filename : $!");
debug("OK $filename");
return $filename;