diff options
author | 2008-01-05 04:19:08 +0000 | |
---|---|---|
committer | 2008-01-05 04:19:08 +0000 | |
commit | c7bf256c204118beb9f207e6f487fc7f53e00a2f (patch) | |
tree | 299169cbeaeeda35642dfca9b03eab21c6e42075 | |
parent | don't stick 'script' in the hash (diff) | |
download | scire-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
-rwxr-xr-x | server/scireserver.pl | 5 |
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; |