root/freepbx/branches/experimental/publish.php

#!/usr/bin/php
<?php

$rver = "2.2";
$reldir = "release/";
$schema = "module.xsd";

$out = NULL;
$ret = NULL;

$xmlschema = @file_get_contents($schema);
if (!$xmlschema)
        die ("Cannot open XML Schema file: $schema\n");


libxml_use_internal_errors(True);

for ($i = $_SERVER['argc']; $i > 1; $i--) {
        $module = $_SERVER['argv'][$i - 1];
        printf ("Processing module $module...\n");

        $modulexml = @file_get_contents($module.'/module.xml'); 

        if (!$modulexml) {
                print("\tCannot open: $module/module.xml\n");
                print("\tSkipping module: $module \n\n");
                continue;
        }

        $dom = new DomDocument();
        $dom->strictErrorChecking = TRUE;
        $dom->formatOutput = TRUE;

        // Well-formedness
        if (!$dom->loadXML($modulexml)) {
                print("\tXML not well-formed: $module/module.xml\n");
                $errors = libxml_get_errors();
                foreach ($errors as $error) {
                        print display_xml_error($error);
                }
                libxml_clear_errors();
                unset($dom);
                print("\tSkipping module: $module \n\n");
                continue;
        }

        print("\tXML is well formed\n");        

        // Validation
        if (!$dom->schemaValidateSource($xmlschema)) {
                print("\tXML not validated: $module/module.xml\n");
                $errors = libxml_get_errors();
                foreach ($errors as $error) {
                        print display_xml_error($error);
                }
                libxml_clear_errors();
                unset($dom);
                print("\tSkipping module: $module \n\n");
                continue;
        }

        print("\tXML is valid\n");      

        $version = $dom->documentElement->getAttribute('version');
        $rawname = $dom->documentElement->getAttribute('rawname');

        if ($rawname != $module) {
                printf("\tModule name doesn't match directory name\n");
                printf("\tSkipping module\n");
                continue;
        }
                
        printf("\tPublishing module %s version %s\n", $rawname, $version);      

        #exec("svn ci -m \"Auto Check-in of any outstanding patches\" $moddir", $out, $ret);
        $filename = "$rawname-$version.tgz";
        exec("tar zcf $filename --exclude .svn $rawname", $out, $ret);

        $tgz = file_get_contents($filename);
        $md5 = md5($tgz);

        $dom->documentElement->setAttribute('md5sum', $md5);
        $dom->documentElement->setAttribute('location', 'X');
        $dom->save($module.'/module.xml');
        
        exec("mv $filename ../../release/$rver", $out, $ret);
        exec("svn add ../../release/$rver/$filename", $out, $ret);
        exec("svn ps svn:mime-type application/tgz ../../release/$rver/$filename", $out, $ret);
        exec("svn ci ../../release/$rver/$filename $rawname/module.xml -m \"Module Publish Script: $rawname $version\"", $out, $ret);
                        
        print ("\tDone\n\n");
        
}

function display_xml_error($error)      {
   
   switch ($error->level) {
       case LIBXML_ERR_WARNING:
           $return .= "\t\tWarning $error->code: ";
           break;
         case LIBXML_ERR_ERROR:
           $return .= "\t\tError $error->code: ";
           break;
       case LIBXML_ERR_FATAL:
           $return .= "\t\tFatal Error $error->code: ";
           break;
   }

   $return .= trim($error->message) .
               "at line $error->line\n";


   return "$return";
}


?>