#!/pro/bin/perl

use strict;
use warnings;

my $url = "http://svn.perl.org/modules/Tk/trunk";

chdir "/pro/3gl/CPAN/Tk";

my ($revision) = (`svn info $url` =~ m{\s Rev:     \s+            ([0-9]+)  }mx);
my  @tbz = glob "Tk-*-[0-9]*.tbz";
if (@tbz and $tbz[-1] =~ m{.*-([0-9]+)\.tbz$} && $1 == $revision) {
    print STDERR "$tbz[-1] is the most recent already\n";
    exit;
    }

system "svn export $url Tk";

my ($version)  = (`cat Tk/Tk.pm`  =~ m{\b VERSION  \s+ = \s* ["'] ([0-9.]+) }mx); # "

my $tkdir = "Tk-$version-$revision";
rename "Tk", $tkdir;

print "Fetched $tkdir\n";

my $startrev = $revision - 400; # Last 100 changes
qx{svn log -r $startrev:$revision $url >$tkdir/Changelog};
qx{tar -c  -P -f - $tkdir | bzip2 -9 >$tkdir.tbz};
print "See $tkdir/Changelog for the most recent changes\n";
#qx{rm -rf $tkdir};