root/modules/branches/2.6/publish.pl

#!/usr/bin/perl

#  Developers: Use $debug to keep all svn ci activity from occuring, messages will then be printed. All files will still be created
#              and module.xml modifications made since these can be reverted. Review carefully if you care concerned that it will
#              lose work.
#
$debug = 0;
$checkphp = 1;
$rver = "2.6";
$fwbranch = "trunk";
$framework = "framework";
$fw_fop = "fw_fop";
$fw_ari = "fw_ari";
$fw_langpacks = "fw_langpacks";

my $reldir = "release/";

while ($moddir = shift @ARGV) {
  next if (!-d $moddir);
  if ($moddir =~ /$framework/) {

    # Framework module is special case. We export and pull in all the files of framework that we are going to want to udpate. For now this is
    # all files under htdocs, agi-bin and bin. We have not included astetc since such files should be done with core modules. We have also
    # temporarily chosen not to include FOP since it is likely FOP may be handled by a FOP module going forward. Othewise we will add it here.
    #
    #
    if (system("rm -rf $framework/agi-bin $framework/bin $framework/htdocs $framework/htdocs_panel $framework/upgrades $framework/libfreepbx.install.php $framework/CHANGES")) {
      die "FATAL: failed to remove previoulsly exported directories\n";
    }
    if (system("svn export http://svn.freepbx.org/freepbx/$fwbranch/amp_conf/agi-bin $framework/agi-bin")) {
      die "FATAL: failed to export agi-bin directory\n";
    }
    if (system("svn export http://svn.freepbx.org/freepbx/$fwbranch/amp_conf/bin $framework/bin")) {
      die "FATAL: failed to export bin directory\n";
    }
    if (system("svn export http://svn.freepbx.org/freepbx/$fwbranch/amp_conf/htdocs $framework/htdocs")) {
      die "FATAL: failed to export htdocs directory\n";
    }
    if (system("svn export http://svn.freepbx.org/freepbx/$fwbranch/upgrades $framework/upgrades")) {
      die "FATAL: failed to export upgrades directory\n";
    }
    # svn doesn't seem to allow for a single file to be checked out so we need to do a kludgey workaround
    # this is what we wanted:
    #
    # if (system("svn export http://svn.freepbx.org/freepbx/$fwbranch/libfreepbx.install.php $framework/libfreepbx.install.php"))
    #
    if (system("svn co --non-recursive http://svn.freepbx.org/freepbx/$fwbranch $framework/tmp")) {
      die "FATAL: failed to checkout branch with libfreepbx.install.php\n";
    }
    # Create the svnversion information for this framework snapshot
    #
    if (system("echo SVN VERSION: `svnversion $framework/tmp` > $framework/svnversion.txt")) {
      die "FATAL: svnversion failed to create svnversion.txt\n";
    }

    if (system("mv $framework/tmp/libfreepbx.install.php $framework/")) {
      die "FATAL: failed to mv libfreepbx.install.php to $framework\n";
    }
    if (system("mv $framework/tmp/CHANGES $framework/")) {
      die "FATAL: failed to mv CHANGES to $framework\n";
    }
    if (system("rm -rf $framework/tmp")) {
      die "FATAL: failed to remove $framework/tmp\n";
    }

    # Now we must remove a few files which users may have legitimately edited. For now, all of ARI moved to new module
    # ARI file used for editing paramters and options.
    #
    if (system("rm -rf $framework/htdocs/recordings")) {
      die "FATAL: failed to trim main.conf.php ARI file\n";
    }
    
    # Remove from htdocs root mainstyle.css and index.html as these are owned by root (need to investigate why these are there
    # and change that. Remove retrieve_op_conf_from_mysql.pl now handled by fw_fop. Also some others.
    #
    # TODO: check if these are stiff there and need to be special cased
    #
    if (system("rm -rf $framework/htdocs/mainstyle.css")) {
      die "FATAL: failed to trim htdocs/mainstyle.css\n";
    }
    if (system("rm -rf $framework/htdocs/index.html")) {
      die "FATAL: failed to trim htdocs/index.html\n";
    }
    if (system("rm -rf $framework/htdocs/admin/modules/_cache")) {
      die "FATAL: failed to trim modules/_cache\n";
    }
    if (system("rm -rf $framework/bin/retrieve_op_conf_from_mysql.pl")) {
      die "FATAL: failed to trim bin/retrieve_op_conf_from_mysql.pl\n";
    }
  }
  if ($moddir =~ /$fw_fop/) {
    if (system("rm -rf $fw_fop/bin $fw_fop/htdocs_panel")) {
      die "FATAL: failed to remove previoulsly exported directories\n";
    }
    if (system("svn export http://svn.freepbx.org/freepbx/$fwbranch/amp_conf/htdocs_panel $fw_fop/htdocs_panel")) {
      die "FATAL: failed to export htdocs_panel directory\n";
    }
    if (system("svn co --non-recursive http://svn.freepbx.org/freepbx/$fwbranch/amp_conf/bin $fw_fop/tmp")) {
      die "FATAL: failed to checkout bin\n";
    }
    if (system("mkdir $fw_fop/bin")) {
      die "FATAL: failed to create $fw_fop/bin\n";
    }
    if (system("mv $fw_fop/tmp/retrieve_op_conf_from_mysql.pl $fw_fop/bin")) {
      die "FATAL: failed to mv retrieve_op_conf_from_mysql.pl to $fw_fop/bin\n";
    }
    if (system("rm -rf $fw_fop/tmp")) {
      die "FATAL: failed to remove $fw_fop/tmp\n";
    }

    # Create the svnversion information for this framework snapshot
    #
    if (system("echo SVN VERSION: `svn log -q -r HEAD http://svn.freepbx.org/ | cut -s -f 1 -d ' ' | cut -b '2-'` > $fw_fop/svnversion.txt")) {
      die "FATAL: svnversion failed to create svnversion.txt\n";
    }

  }
  if ($moddir =~ /$fw_ari/) {

    if (system("rm -rf $fw_ari/htdocs_ari")) {
      die "FATAL: failed to remove previoulsly exported directories\n";
    }

    # Create the svnversion information for this framework snapshot
    #
    if (system("echo SVN VERSION: `svn log -q -r HEAD http://svn.freepbx.org/ | cut -s -f 1 -d ' ' | cut -b '2-'` > $fw_ari/svnversion.txt")) {
      die "FATAL: svnversion failed to create svnversion.txt\n";
    }

    if (system("svn export http://svn.freepbx.org/freepbx/$fwbranch/amp_conf/htdocs/recordings $fw_ari/htdocs_ari")) {
      die "FATAL: failed to export htdocs directory\n";
    }

    # Now we must remove a few files which users may have legitimately edited. For now this is the main.conf.php file which is the current
    # ARI file used for editing paramters and options.
    #
    if (system("rm -rf $fw_ari/htdocs_ari/includes/main.conf.php")) {
      die "FATAL: failed to trim main.conf.php ARI file\n";
    }

  }
  if ($moddir =~ /$fw_langpacks/) {

    my $module_url="http://svn.freepbx.org/modules/branches/$rver";
    my $base_url="http://svn.freepbx.org/freepbx/$fwbranch/amp_conf/htdocs";
    my $framework_url="$base_url/admin";
    my $recordings_url="$base_url/recordings";

    @modules=`svn list $module_url | grep '/'`;

    if (system("rm -rf $fw_langpacks/htdocs")) {
      die "FATAL: failed to remove old htdocs dir\n";
    }
    if (system("mkdir -p $fw_langpacks/htdocs/admin/modules")) {
      die "FATAL: failed to create htdocs/admin/modules\n";
    }
    if (system("mkdir -p $fw_langpacks/htdocs/recordings")) {
      die "FATAL: failed to create htdocs/recordings\n";
    }

    if (system("svn export $framework_url/i18n $fw_langpacks/htdocs/admin/i18n")) {
      die "FATAL: failed to export $framework_url/i18n\n";
    }
    if (system("svn export $recordings_url/locale $fw_langpacks/htdocs/recordings/locale")) {
      die "FATAL: failed to export $recurdings_url/locale\n";
    }
    foreach my $module ( @modules ) {
      chomp($module);
      if (system("rm -rf $fw_langpacks/i18n-tmp")) {
        die "FATAL: failed to remove temp i18n-tmp dir\n";
      }
      system("svn export $module_url/$module"."i18n $fw_langpacks/i18n-tmp 2> /dev/null");
      if (($? != -1) && (-d "$fw_langpacks/i18n-tmp")) {
        if (system("mkdir $fw_langpacks/htdocs/admin/modules/$module")) {
          die "FATAL: failed to create htdocs/admin/modules/$module\n";
        }
        if (system("mv $fw_langpacks/i18n-tmp $fw_langpacks/htdocs/admin/modules/$module/i18n")) {
          die "FATAL: failed to move i18n-tmp to htdocs/admin/modules/$module/i18n\n";
        }
      } else {
        print "No i18n files for $module"."\n";
      }
    }


    # Create the svnversion information for this framework snapshot
    #
    if (system("echo SVN VERSION: `svn log -q -r HEAD http://svn.freepbx.org/ | cut -s -f 1 -d ' ' | cut -b '2-'` > $fw_langpacks/svnversion.txt")) {
      die "FATAL: svnversion failed to create svnversion.txt\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 = "";
  if ($moddir =~ /$framework/) {
    while ($x = shift @arr) {
      # Excluding module.xml which gets checked in later..
      next if ($x =~ /module.xml/);
      next if ($x =~ /agi-bin/);
      next if ($x =~ /bin/);
      next if ($x =~ /htdocs/);
      next if ($x =~ /htdocs_panel/);
      next if ($x =~ /upgrades/);
      next if ($x =~ /libfreepbx.install.php/);
      next if ($x =~ /svnversion.txt/);
      $files .= "$x ";
      if (-f $x && $checkphp) {
        if (system("php -l $x")) {
          die "FATAL: php syntax error detected in $x\n";
        }
      }
    }
  } elsif ($moddir =~ /$fw_fop/) {
    while ($x = shift @arr) {
      next if ($x =~ /module.xml/);
      next if ($x =~ /htdocs_panel/);
      next if ($x =~ /svnversion.txt/);
      $files .= "$x ";
      if (-f $x && $checkphp) {
        if (system("php -l $x")) {
          die "FATAL: php syntax error detected in $x\n";
        }
      }
    }
  } elsif ($moddir =~ /$fw_ari/) {
    while ($x = shift @arr) {
      next if ($x =~ /module.xml/);
      next if ($x =~ /htdocs_ari/);
      next if ($x =~ /svnversion.txt/);
      $files .= "$x ";
      if (-f $x && $checkphp) {
        if (system("php -l $x")) {
          die "FATAL: php syntax error detected in $x\n";
        }
      }
    }
  } elsif ($moddir =~ /$fw_langpacks/) {
    while ($x = shift @arr) {
      next if ($x =~ /module.xml/);
      next if ($x =~ /htdocs/);
      next if ($x =~ /svnversion.txt/);
      $files .= "$x ";
      if (-f $x && $checkphp) {
        if (system("php -l $x")) {
          die "FATAL: php syntax error detected in $x\n";
        }
      }
    }
  } else {
    while ($x = shift @arr) {
      # Excluding module.xml which gets checked in later..
      next if ($x =~ /module.xml/);
      $files .= "$x ";

      # Quick and dirty check for php syntax errors at the top level of module directories. Should probably
      # do this recursively in the future. Also - checks all files now but php -l seems to be ok with that.
      #
      if (-f $x && $checkphp) {
        if (!($x =~ /.*\.jar/) && system("php -l $x") ) {
          die "FATAL: php syntax error detected in $x\n";
        }
      }
    }
  }
  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$rver\/$filename<\/location>/;
  open FH, ">$moddir/module.xml";
  print FH $newxml;
  close FH;

  system("svn update $rawname");
  my $lastpublish = `svn info $rawname | grep Revision: | cut -f 2 -d ' '`;
  chomp($lastpublish);

  if ($debug) {
    print "mv $filename ../../release/$rver\n";
    print "svn add ../../release/$rver/$filename\n";
    print "svn ps svn:mime-type application/tgz ../../release/$rver/$filename\n";
    print "svn ps lastpublish '$lastpublish' $moddir\n";
    print "svn ci ../../release/$rver/$filename $rawname/module.xml -m \"Module Publish Script: $rawname $vers\"\n";
  } else {
    system("mv $filename ../../release/$rver");
    system("svn add ../../release/$rver/$filename");
    system("svn ps svn:mime-type application/tgz ../../release/$rver/$filename");
    system("svn ps lastpublish '$lastpublish' $rawname");
    system("svn ci ../../release/$rver/$filename $rawname/module.xml ./$rawname -m \"Module Publish Script: $rawname $vers\"");
  }
}