Added:
   trunk/irstats/makedist.pl
Log:
 * Simple distribution making script

Added: trunk/irstats/makedist.pl
===================================================================
--- trunk/irstats/makedist.pl                           (rev 0)
+++ trunk/irstats/makedist.pl   2007-11-28 13:35:29 UTC (rev 59)
@@ -0,0 +1,38 @@
+#!/usr/bin/perl
+
+use strict;
+
+use Getopt::Long;
+
+use constant {
+       PACKAGE_NAME => 'irstats',
+       EXT => '.tar.gz',
+       REPOSITORY => 'http://svn.eprints.org/irstats'
+};
+
+my( $opt_version );
+
+$opt_version = shift @ARGV or die "Usage: $0 <version>\n";
+
+my $path;
+
+if( $opt_version =~ /x$/ )
+{
+       $path = "branches/stable-$opt_version";
+}
+else
+{
+       $path = "tags/$opt_version";
+}
+
+my $tarball = &PACKAGE_NAME."-$opt_version";
+
+system('rm','-rf',$tarball);
+system('svn','export','--quiet',REPOSITORY."/$path",$tarball);
+chdir($tarball);
+system('autoconf');
+chdir('..');
+system('tar','-czf',$tarball.EXT,$tarball);
+system('rm','-rf',$tarball);
+
+print $tarball.EXT.$/;