diff --git a/.gitignore b/.gitignore index cb2520e..31b5e45 100644 --- a/.gitignore +++ b/.gitignore @@ -1,4 +1,4 @@ cache.stor *.swp -logs/*.log +logs/* #*.stor diff --git a/disableapache.pl b/disableapache.pl new file mode 100755 index 0000000..1023d4b --- /dev/null +++ b/disableapache.pl @@ -0,0 +1,16 @@ +#!/usr/bin/env perl + +use 5.24.0; + +use Data::Dumper; +use Storable; + +my $data = retrieve $ARGV[0]; + +for my $mod ($data->{modules}->@*) { + if ($mod =~ /Apache/ && !$data->{jobstatus}{$mod}{tested}) { + $data->{jobstatus}{$mod}={tested => 3, status => "apache failure"}; + } +} + +store $data, $ARGV[0].'.new'; diff --git a/everything.stor b/everything.stor index 835d3e8..9e0c042 100644 Binary files a/everything.stor and b/everything.stor differ diff --git a/showdeps.pl b/showdeps.pl new file mode 100755 index 0000000..f0af9dc --- /dev/null +++ b/showdeps.pl @@ -0,0 +1,17 @@ +#!/usr/bin/env perl + +use 5.24.0; + +use Data::Dumper; +use Storable; +use lib './lib'; +use Dist; +use Module; + +my $cache =retrieve "modcache.stor"; + +my $dist = $Dist::mod_to_dist{$ARGV[0]} || $ARGV[0]; + +if (my $mod = $cache->{$dist}) { + $mod->print_deps(); +}