root/contributed_modules/modules/publish.pl

#!/usr/bin/perl

$debug = 0;

my $reldir = "release";

while ($moddir = shift @ARGV) {
        if (($moddir eq "-h") || ($moddir eq "-help") || ($moddir eq "--h") || ($moddir eq "--help")) {
                die "Usage: publish <moduledirectory> [moduledirectory]\n";
        }
        next if (!-d $moddir);
        open FH, "$moddir/module.xml"; 
        $newxml = "";
        $vers = "unset";
        $rawname = "unset";
        while (<FH>) {
                if ($vers == 'unset' && /<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");
        # Automatically check in any files that were modified but weren't checked into SVN
        chdir($moddir);
        @arr = <*>;
        $files = "";
        while ($x = shift @arr) {
                # Excluding module.xml which gets checked in later..
                next if ($x =~ /module.xml/);
                $files .= "$x ";
        }
        if ($debug) {
                print "svn ci -m \"Auto Check-in of any outstanding patches\" $files\n";
        } else {
                system("svn ci -m \"Auto Check-in of any outstanding patches\" $files");
        }
        chdir("..");
        # 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\/$filename<\/location>/;
        open FH, ">$moddir/module.xml";
        print FH $newxml;
        close FH;
        if ($debug) {
                print "mv $filename ../release/\n";
                print "svn add ../release/$filename\n";
                print "svn ps svn:mime-type application/tgz ../release/$filename\n";
                print "svn ci ../release/$filename $rawname/module.xml -m \"Module Publish Script: $rawname $vers\"\n";
        } else {
                system("mv $filename ../release/");
                system("svn add ../release/$filename");
                system("svn ps svn:mime-type application/tgz ../release/$filename");
                system("svn ci ../release/$filename $rawname/module.xml -m \"Module Publish Script: $rawname $vers\"");
        }
}