Gecko [ www.blackthorn-inc.com ]

Name	Size	Permission	Date
GitUtils.pm	2.38 KB	-r--r--r--	2014-12-27 11:48
Glossary	205.51 KB	-r--r--r--	2014-12-27 11:49
Maintainers	194 B	-r--r--r--	2014-12-27 11:48
Maintainers.pl	45.95 KB	-r-xr-xr-x	2015-01-31 21:59
Maintainers.pm	8.68 KB	-r--r--r--	2014-12-27 11:48
README.pod	10.3 KB	-r--r--r--	2014-12-27 11:49
README.y2038	3.46 KB	-r--r--r--	2014-12-27 11:48
acknowledgements.pl	5.05 KB	-r--r--r--	2014-12-27 11:48
add-package.pl	17.12 KB	-r-xr-xr-x	2014-12-27 11:49
bisect-example.sh	1.25 KB	-r-xr-xr-x	2014-12-27 11:48
bisect-runner.pl	116.34 KB	-r-xr-xr-x	2014-12-27 11:49
bisect.pl	7.44 KB	-r-xr-xr-x	2014-12-27 11:49
bump-perl-version	9.93 KB	-r--r--r--	2014-12-27 11:49
check-cpan-pollution	6.24 KB	-r--r--r--	2014-12-27 11:48
check83.pl	2.22 KB	-r-xr-xr-x	2014-12-27 11:48
checkAUTHORS.pl	44.08 KB	-r-xr-xr-x	2014-12-27 11:49
checkURL.pl	15.01 KB	-r-xr-xr-x	2014-12-27 11:48
checkVERSION.pl	975 B	-r-xr-xr-x	2014-12-27 11:48
checkansi.pl	2 KB	-r-xr-xr-x	2014-12-27 11:48
checkcfgvar.pl	4.21 KB	-r-xr-xr-x	2014-12-27 11:49
checkpodencoding.pl	1.41 KB	-r-xr-xr-x	2014-12-27 11:48
cherrymaint	2.46 KB	-r--r--r--	2014-12-27 11:48
cmpVERSION.pl	6.84 KB	-r-xr-xr-x	2015-01-31 22:11
config.sh	36.38 KB	-r--r--r--	2015-01-28 21:08
config_H	142.35 KB	-r--r--r--	2015-01-28 21:08
config_h.pl	1.85 KB	-r-xr-xr-x	2014-12-27 11:48
core-cpan-diff	23.37 KB	-r--r--r--	2014-12-27 11:48
corecpan.pl	4.52 KB	-r-xr-xr-x	2014-12-27 11:48
corelist-diff	644 B	-r--r--r--	2014-12-27 11:48
corelist-perldelta.pl	30.44 KB	-r-xr-xr-x	2014-12-27 11:49
corelist.pl	15.51 KB	-r-xr-xr-x	2015-01-31 13:38
epigraphs.pod	128.86 KB	-r--r--r--	2015-02-01 03:54
exec-bit.txt	1.28 KB	-r--r--r--	2014-12-27 11:49
exercise_makedef.pl	2.27 KB	-r--r--r--	2014-12-27 11:48
expand-macro.pl	3.68 KB	-r-xr-xr-x	2014-12-27 11:48
findrfuncs	3.07 KB	-r-xr-xr-x	2014-12-27 11:48
git-deltatool	21.11 KB	-r--r--r--	2014-12-27 11:48
git-find-p4-change	905 B	-r--r--r--	2014-12-27 11:48
git-make-p4-refs	405 B	-r--r--r--	2014-12-27 11:48
how_to_write_a_perldelta.pod	7.83 KB	-r--r--r--	2014-12-27 11:48
leakfinder.pl	6.06 KB	-r--r--r--	2014-12-27 11:48
make-rmg-checklist	2.82 KB	-r--r--r--	2014-12-27 11:48
make_dot_patch.pl	1022 B	-r-xr-xr-x	2014-12-27 11:48
make_modlib_cpan.pl	1.93 KB	-r--r--r--	2014-12-27 11:48
make_snapshot.pl	2.33 KB	-r-xr-xr-x	2014-12-27 11:48
makemeta	3.29 KB	-r--r--r--	2014-12-27 11:49
makerel	6.88 KB	-r-xr-xr-x	2014-12-27 11:49
manicheck	644 B	-r--r--r--	2014-12-27 11:48
manisort	1.71 KB	-r--r--r--	2014-12-27 11:48
new-perldelta.pl	3.23 KB	-r--r--r--	2014-12-27 11:48
newtests-perldelta.pl	1.78 KB	-r-xr-xr-x	2014-12-27 11:48
perldelta_template.pod	9.35 KB	-r--r--r--	2015-01-28 21:08
perlhist_calculate.pl	2.65 KB	-r-xr-xr-x	2014-12-27 11:49
pod_lib.pl	17.62 KB	-r--r--r--	2014-12-27 11:49
pod_rules.pl	7.27 KB	-r--r--r--	2014-12-27 11:48
podtidy	303 B	-r--r--r--	2014-12-27 11:48
pumpkin.pod	51.48 KB	-r--r--r--	2014-12-27 11:49
release_announcement_template.txt	845 B	-r--r--r--	2015-01-15 22:12
release_managers_guide.pod	47.51 KB	-r--r--r--	2015-02-01 00:05
release_schedule.pod	3.39 KB	-r--r--r--	2015-01-31 17:19
rt_list_patches	678 B	-r--r--r--	2014-12-27 11:48
sort_perldiag.pl	1.38 KB	-r-xr-xr-x	2014-12-27 11:48
sync-with-cpan	11.7 KB	-r-xr-xr-x	2014-12-27 11:49
timecheck.c	3.52 KB	-r--r--r--	2014-12-27 11:48
timecheck2.c	2.69 KB	-r--r--r--	2014-12-27 11:48
todo.pod	47.26 KB	-r--r--r--	2015-01-28 21:08
valgrindpp.pl	9.44 KB	-r-xr-xr-x	2014-12-27 11:48

Rename

#!/usr/bin/perl
use strict;
use warnings;
use File::Path;
use Cwd;

# This is a quick and dirty snapshot generator for the perl5.git.perl.org web page
# to use to generate the snapshot files. Yes it is ugly and contains hard coded crap
# and could use some love. But for this todo I am out of time now. -- Yves

$ENV{PATH}="/usr/local/bin:/bin/";

use POSIX qw(strftime);
sub isotime { strftime "%Y-%m-%d.%H:%M:%S",gmtime(shift||time) }

my ($abbr,$sha1,$tstamp);
$sha1= shift || "HEAD";
my $zip_root= $ENV{PERL_SNAPSHOT_ZIP_ROOT} || "/gitcommon/snapshot/tgz";
my $gitdir= shift || `git rev-parse --git-dir`
    or die "Not a git repo!\n";
chomp( $gitdir,$sha1);
my $workdir= $gitdir;
my $is_bare;
if ( $workdir =~ s!/\.git\z!! ) {

chdir $workdir
        or die "Failed to chdir to $workdir\n";
} else {
    $is_bare= 1;
    chdir $workdir
        or die "Failed to chdir to bare repo $workdir\n";
}
#'die $workdir;

($sha1, $abbr,$tstamp)= split /\s+/, `git log --pretty='format:%H %h %ct' -1 $sha1`
    or die "Failed to parse '$sha1'\n";
chomp($sha1,$abbr,$tstamp);

#die "'$sha1','$abbr'\n";

my $path= join "/", $zip_root, substr($sha1,0,2), substr($sha1,0,4);
my $tar_file= "$sha1.tar.$$";
my $gz_file= "$sha1.tar.gz";
my $prefix= "perl-$abbr/";

if (!-e "$path/$gz_file") {
    mkpath $path if !-d $path;

system("git archive --format=tar --prefix=$prefix $sha1 > $path/$tar_file");
    my @branches=map { $is_bare ? $_ : "origin/$_" } (
              'blead',
              'maint-5.10',
              'maint-5.8',
              'maint-5.8-dor',
              'maint-5.6',
              'maint-5.005',
              'maint-5.004',
    );
    my $branch;
    foreach my $b (@branches) {
        $branch= $b and last
            if `git log --pretty='format:%H' $b | grep $sha1`;
    }

$branch ||= "unknown-branch";
    chomp(my $describe= `git describe`);
    chdir $path;
    {
        open my $fh,">","$path/$$.patch" or die "Failed to open $$.patch for writing\n";
        print $fh join(" ", $branch, isotime($tstamp), $sha1, $describe) . "\n";
        close $fh;
    }
    system("tar -f $tar_file --transform='s,^$$,$prefix,g' --owner=root --group=root --mode=664 --append $$.patch");
    unlink "$$.patch";
    system("gzip -S .gz -9 $tar_file");
    rename "$tar_file.gz", "$gz_file";
}
print "ok\tperl-$abbr.tar.gz\t$path/$gz_file", -t STDOUT ? "\n" :"";