root/contributed_modules/modules/publish.pl

#!/usr/bin/perl

system("which md5sum");
if ($? == 0) {
    $md5_command = 'md5sum';
} else {
  system("which md5");
  if ($? == 0) {
    $md5_command = 'md5 -r';
  } else {
    die "no md5sum command\n";
  }
}

$debug = 0;

my $reldir = "contributed_modules/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);
  # Check the XML integrity using the FreePBX XML parser
  if (system("./check_xml.php $moddir")) {
    die "Fatal syntax error with $moddir module.xml file, aborting\n";
  }
  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, "$md5_command $filename|";
  $md5 = <MD5>;
  close MD5;
  ($md5sum, $null) = split(/ /, $md5);

  unless ($newxml =~ s/<md5sum>.*<\/md5sum>/<md5sum>$md5sum<\/md5sum>/)
    {
    $newxml =~ s|</module>|<md5sum>$md5sum</md5sum>\n</module>|;
    }

  unless ($newxml =~ s/<location>.*<\/location>/<location>$reldir\/$filename<\/location>/)
    {
    $newxml =~ s|</module>|<location>$reldir/$filename</location>\n</module>|;
    }

  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\"");
  }
}