[Amavisadmin-svn] SF.net SVN: amavisadmin: [48] amavisadmin/trunk/tools/build_script.pl

[<str...@us...>]

Revision: 48
          http://amavisadmin.svn.sourceforge.net/amavisadmin/?rev=48&view=rev
Author:   streindl
Date:     2007-01-24 13:32:40 -0800 (Wed, 24 Jan 2007)

Log Message:
-----------
More changes to build script

Modified Paths:
--------------
    amavisadmin/trunk/tools/build_script.pl

Modified: amavisadmin/trunk/tools/build_script.pl
===================================================================
--- amavisadmin/trunk/tools/build_script.pl	2007-01-24 21:32:13 UTC (rev 47)
+++ amavisadmin/trunk/tools/build_script.pl	2007-01-24 21:32:40 UTC (rev 48)
@@ -12,7 +12,10 @@
 use Pod::Usage;
 use File::Path;
 use File::stat;
+use Cwd;
+use SVN::Client;
 
+sub replaceParams();
 
 my $distdir = "dist";
 my $cleandir = 0;
@@ -28,6 +31,42 @@
 pod2usage(1) if ($help);
 pod2usage(-exitstatus => 0, -verbose => 2) if ($man);
 
+my $_info;
+
+sub funcRev {
+    my( $path, $info, $pool ) = @_;
+    $_info = $info;
+};
+
+my $modified = 0;
+
+my $funcStatus = sub {
+    $modified = "-modified";
+};
+
+my $ctx = SVN::Client->new();
+
+my $cwd = getcwd();
+$ctx->info( $cwd, undef, undef, \&funcRev, 0 );
+$ctx->status( $cwd, undef, $funcStatus, 1, 0, 0, 0);
+my $revision = $_info->rev;
+my $branch="unknown";
+
+my $url = $_info->URL;
+if ($url =~ /trunk/) {
+    $branch="trunk";
+} elsif ($url =~ /branches\/([^\/]+)/) {
+    $branch="b-$1";
+} elsif ($url =~ /tags\/([^\/]+)/) {
+    $branch="$1";
+}
+
+replaceParams();
+
+print $distdir, "\n";
+
+exit 0;
+
 if (-d "$distdir")  {
     if ($cleandir) {
 	my $stat = stat($distdir);
@@ -43,8 +82,18 @@
     }
 }
 
-mkpath ($destdir) or die "Cannot create directory $destdir";
+mkpath ($distdir) or die "Cannot create directory $distdir";
 
+sub replaceParams() {
+    $distdir =~ s/\%V/\%v-r\%r-\%T\%m/g;
+    $distdir =~ s/\%v/1.0/g;
+    $distdir =~ s/\%r/$revision/g;
+    $distdir =~ s/\%d/YYYY-MM-DD/g;
+    $distdir =~ s/\%t/YYYYMMDDhhmmss/g;
+    $distdir =~ s/\%T/$branch/g;
+    $distdir =~ s/\%m/$modified/g;
+    $distdir =~ s/\%p/AmavisAdmin/g;
+}
 
 
 __END__


This was sent by the SourceForge.net collaborative development platform, the world's largest Open Source development site.