diff --git a/dumpstor.pl b/dumpstor.pl index f89a7f6..5a11bd6 100755 --- a/dumpstor.pl +++ b/dumpstor.pl @@ -4,5 +4,7 @@ use 5.24.0; use Data::Dumper; use Storable; -#$Data::Dumper::Terse = 1; -print Dumper([keys ((retrieve $ARGV[0])->%*)]); + + +print Dumper(retrieve $ARGV[0]); + diff --git a/everything.stor b/everything.stor index d8403b2..b4f0b8b 100644 Binary files a/everything.stor and b/everything.stor differ diff --git a/resetjobstats.pl b/resetjobstats.pl new file mode 100755 index 0000000..0fffb6d --- /dev/null +++ b/resetjobstats.pl @@ -0,0 +1,12 @@ +#!/usr/bin/env perl + +use 5.24.0; + +use Data::Dumper; +use Storable; + +my $data = retrieve $ARGV[0]; + +$data->{jobstatus} = {}; + +store $data, $ARGV[0].'.new';