root/modules/branches/2.1/publish.pl

#!/usr/bin/perl

$rver = "2.1";

my $reldir = "release/";

while ($moddir = shift @ARGV) {
  open FH, "$moddir/module.xml"; 
  $newxml = "";
  $vers = "unset";
  $rawname = "unset";
  while (<FH>) {
    if (/<version>(.+)<\/version>/) { $vers = $1; }
    if (/<rawname>(.+)<\/rawname>/) { $rawname = $1; }
    $newxml .= $_;
  }
  close FH;
  die "Don't know version of $moddir" if ($vers eq "unset");
  die "Don't know rawname of $moddir" if ($rawname eq "unset");
  system("svn ci -m \"Auto Check-in of any outstanding patches\" $moddir");
  # Now we know the version. Create the tar.gz
  $filename = "$rawname-$vers.tgz";
  system("tar zcf $filename --exclude .svn $rawname");
  # Update the md5 info
  open MD5, "md5sum $filename|";
  $md5 = <MD5>;
  close MD5;
  ($md5sum, $null) = split(/ /, $md5);
  $newxml =~ s/<md5sum>.+<\/md5sum>/<md5sum>$md5sum<\/md5sum>/;
  $newxml =~ s/<location>.+<\/location>/<location>$reldir$rver\/$filename<\/location>/;
  open FH, ">$moddir/module.xml";
  print FH $newxml;
  close FH;
  system("mv $filename ../../release/$rver");
  system("svn add ../../release/$rver/$filename");
  system("svn ps svn:mime-type application/tgz ../../release/$rver/$filename");
  system("svn ci ../../release/$rver/$filename $rawname/module.xml -m \"Module Publish Script: $rawname $vers\"");
}