Skip to content
Browse files

add tool to make new PAUSE and index one dist

  • Loading branch information...
rjbs authored and andk committed Apr 19, 2015
1 parent 9ab7758 commit 2f316987dcc1a3eb43c96a749e789f49fdff4e85
Showing with 39 additions and 0 deletions.
  1. +39 −0 one-off-utils/index-one-dist
@@ -0,0 +1,39 @@
#!/usr/bin/env perl
use strict;
use warnings;
use lib 'lib';
use lib 't/lib';

use File::Temp ();
use Path::Class;

use Email::Sender::Transport::Test;

my $dist = shift;
die "usage: index-one-dist DIST DIR\n" unless $dist and -e $dist;

my $dir = shift;
unless ($dir) {
my $tmpdir = File::Temp->newdir;
$dir = "$tmpdir";

my $pause = PAUSE::TestPAUSE->init_new({ tmpdir => dir($dir) });

open my $log_fh, '>', "$dir/pause.log"
or die "can't open $dir/pause.log for writing: $!\n";

$pause->pause_config_overrides->{LOG_CALLBACK} = sub {
my (undef, undef, @what) = @_;
push @what, "\n" unless $what[-1] =~ m{\n$};
print {$log_fh} @what;

$pause->upload_author_file(LOCAL => $dist);

my $result = $pause->test_reindex;

chdir $dir;

0 comments on commit 2f31698

Please sign in to comment.
You can’t perform that action at this time.