Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with HTTPS or Subversion.

Download ZIP
branch: exoracle
Fetching contributors…

Cannot retrieve contributors at this time

executable file 28 lines (21 sloc) 0.547 kb
#! /usr/bin/env perl
use strict;
use warnings;
use Henzell::Config qw/%CONFIG @LOGS @MILESTONES/;
use Henzell::Utils;
my $verbose = -t STDIN;
sub fetch_file($) {
my $file = shift;
unless ($$file{url}) {
print "Skipping $$file{path}, no URL\n" if $verbose;
return;
}
print "Fetching $$file{url} -> $$file{path}\n" if $verbose;
system(qq{wget -q -c $$file{url} -O $$file{path} >/dev/null 2>&1});
}
sub main() {
Henzell::Utils::lock_or_exit();
Henzell::Config::read();
fetch_file($_) for (@LOGS, @MILESTONES);
}
main();
Jump to Line
Something went wrong with that request. Please try again.