Changeset 5048

Show
Ignore:
Timestamp:
09/19/07 19:25:41 (1 year ago)
Author:
p_lindheimer
Message:

add publish script for contribued modules

Files:

Legend:

Unmodified
Added
Removed
Modified
Copied
Moved

  • contributed_modules/modules/publish.pl

    r4841 r5048  
    11#!/usr/bin/perl 
    22 
    3 #  Developers: Use $debug to keep all svn ci activity from occuring, messages will then be printed. All files will still be created 
    4 #              and module.xml modifications made since these can be reverted. Review carefully if you care concerned that it will 
    5 #              lose work. 
    6 # 
    73$debug = 0; 
    8 $checkphp = 1; 
    9 $rver = "2.3"; 
    10 $fwbranch = "branches/2.3"; 
    11 $framework = "framework"; 
    124 
    135my $reldir = "release/"; 
    …… 
    157while ($moddir = shift @ARGV) { 
    168        next if (!-d $moddir); 
    17         if ($moddir =~ /$framework/) { 
    18  
    19                 # 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 
    20                 # 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 
    21                 # 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. 
    22                 # 
    23                 # TODO: ADD FOP until we can get into a module 
    24                 # 
    25                 if (system("rm -rf $framework/agi-bin $framework/bin $framework/htdocs $framework/htdocs_panel $framework/upgrades $framework/libfreepbx.install.php")) { 
    26                         die "FATAL: failed to remove previoulsly exported directories\n"; 
    27                 } 
    28                 if (system("svn export https://amportal.svn.sourceforge.net/svnroot/amportal/freepbx/$fwbranch/amp_conf/agi-bin $framework/agi-bin")) { 
    29                         die "FATAL: failed to export agi-bin directory\n"; 
    30                 } 
    31                 if (system("svn export https://amportal.svn.sourceforge.net/svnroot/amportal/freepbx/$fwbranch/amp_conf/bin $framework/bin")) { 
    32                         die "FATAL: failed to export bin directory\n"; 
    33                 } 
    34                 if (system("svn export https://amportal.svn.sourceforge.net/svnroot/amportal/freepbx/$fwbranch/amp_conf/htdocs $framework/htdocs")) { 
    35                         die "FATAL: failed to export htdocs directory\n"; 
    36                 } 
    37                 if (system("svn export https://amportal.svn.sourceforge.net/svnroot/amportal/freepbx/$fwbranch/amp_conf/htdocs_panel $framework/htdocs_panel")) { 
    38                         die "FATAL: failed to export htdocs_panel directory\n"; 
    39                 } 
    40                 if (system("svn export https://amportal.svn.sourceforge.net/svnroot/amportal/freepbx/$fwbranch/upgrades $framework/upgrades")) { 
    41                         die "FATAL: failed to export upgrades directory\n"; 
    42                 } 
    43                 # svn doesn't seem to allow for a single file to be checked out so we need to do a kludgey workaround 
    44                 # this is what we wanted: 
    45                 # 
    46                 # if (system("svn export https://amportal.svn.sourceforge.net/svnroot/amportal/freepbx/$fwbranch/libfreepbx.install.php $framework/libfreepbx.install.php")) 
    47                 # 
    48                 if (system("svn co --non-recursive https://amportal.svn.sourceforge.net/svnroot/amportal/freepbx/$fwbranch $framework/tmp")) { 
    49                         die "FATAL: failed to checkout branch with libfreepbx.install.php\n"; 
    50                 } 
    51                 # Create the svnversion information for this framework snapshot 
    52                 # 
    53                 if (system("echo SVN VERSION: `svnversion $framework/tmp` > $framework/svnversion.txt")) { 
    54                         die "FATAL: svnversion failed to create svnversion.txt\n"; 
    55                 } 
    56  
    57                 if (system("mv $framework/tmp/libfreepbx.install.php $framework/")) { 
    58                         die "FATAL: failed to mv libfreepbx.install.php to $framework\n"; 
    59                 } 
    60                 if (system("rm -rf $framework/tmp")) { 
    61                         die "FATAL: failed to remove $framework/tmp\n"; 
    62                 } 
    63  
    64                 # 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 
    65                 # ARI file used for editing paramters and options. 
    66                 # 
    67                 if (system("rm -rf $framework/htdocs/recordings/includes/main.conf.php")) { 
    68                         die "FATAL: failed to trim main.conf.php ARI file\n"; 
    69                 } 
    70                  
    71                 # Remove from htdocs root mainstyle.css and index.html as these are owned by root (need to investigate why these are there 
    72                 # and change that. Also some others 
    73                 # 
    74                 # TODO: check if these are stiff there and need to be special cased 
    75                 # 
    76                 if (system("rm -rf $framework/htdocs/mainstyle.css")) { 
    77                         die "FATAL: failed to trim htdocs/mainstyle.css\n"; 
    78                 } 
    79                 if (system("rm -rf $framework/htdocs/index.html")) { 
    80                         die "FATAL: failed to trim htdocs/index.html\n"; 
    81                 } 
    82                 if (system("rm -rf $framework/htdocs/admin/modules/_cache")) { 
    83                         die "FATAL: failed to trim modules/_cache\n"; 
    84                 } 
    85         } 
    86  
    879        open FH, "$moddir/module.xml";  
    8810        $newxml = ""; 
    …… 
    10123        @arr = <*>; 
    10224        $files = ""; 
    103         if ($moddir =~ /$framework/) { 
    104                 while ($x = shift @arr) { 
    105                         # Excluding module.xml which gets checked in later.. 
    106                         next if ($x =~ /module.xml/); 
    107                         next if ($x =~ /agi-bin/); 
    108                         next if ($x =~ /bin/); 
    109                         next if ($x =~ /htdocs/); 
    110                         next if ($x =~ /htdocs_panel/); 
    111                         next if ($x =~ /upgrades/); 
    112                         next if ($x =~ /libfreepbx.install.php/); 
    113                         next if ($x =~ /svnversion.txt/); 
    114                         $files .= "$x "; 
    115                 } 
    116         } else { 
    117                 while ($x = shift @arr) { 
    118                         # Excluding module.xml which gets checked in later.. 
    119                         next if ($x =~ /module.xml/); 
    120                         $files .= "$x "; 
    121  
    122                         # Quick and dirty check for php syntax errors at the top level of module directories. Should probably 
    123                         # do this recursively in the future. Also - checks all files now but php -l seems to be ok with that. 
    124                         # 
    125                         if (-f $x && $checkphp) { 
    126                                 if (system("php -l $x")) { 
    127                                         die "FATAL: php syntax error detected in $x\n"; 
    128                                 } 
    129                         } 
    130                 } 
     25        while ($x = shift @arr) { 
     26                # Excluding module.xml which gets checked in later.. 
     27                next if ($x =~ /module.xml/); 
     28                $files .= "$x "; 
    13129        } 
    13230        if ($debug) { 
    …… 
    14543        ($md5sum, $null) = split(/ /, $md5); 
    14644        $newxml =~ s/<md5sum>.+<\/md5sum>/<md5sum>$md5sum<\/md5sum>/; 
    147         $newxml =~ s/<location>.+<\/location>/<location>$reldir$rver\/$filename<\/location>/; 
     45        $newxml =~ s/<location>.+<\/location>/<location>$reldir\/$filename<\/location>/; 
    14846        open FH, ">$moddir/module.xml"; 
    14947        print FH $newxml; 
    15048        close FH; 
     49        system("mv $filename ../release/"); 
     50        system("svn add ../release/$filename"); 
     51        system("svn ps svn:mime-type application/tgz ../release/$filename"); 
     52        system("svn ci ../release/$filename $rawname/module.xml -m \"Module Publish Script: $rawname $vers\""); 
    15153        if ($debug) { 
    152                 print "mv $filename ../../release/$rver\n"; 
    153                 print "svn add ../../release/$rver/$filename\n"; 
    154                 print "svn ps svn:mime-type application/tgz ../../release/$rver/$filename\n"; 
    155                 print "svn ci ../../release/$rver/$filename $rawname/module.xml -m \"Module Publish Script: $rawname $vers\"\n"; 
     54                print "mv $filename ../release/\n"; 
     55                print "svn add ../release/$filename\n"; 
     56                print "svn ps svn:mime-type application/tgz ../release/$filename\n"; 
     57                print "svn ci ../release/$filename $rawname/module.xml -m \"Module Publish Script: $rawname $vers\"\n"; 
    15658        } else { 
    157                 system("mv $filename ../../release/$rver"); 
    158                 system("svn add ../../release/$rver/$filename"); 
    159                 system("svn ps svn:mime-type application/tgz ../../release/$rver/$filename"); 
    160                 system("svn ci ../../release/$rver/$filename $rawname/module.xml -m \"Module Publish Script: $rawname $vers\""); 
     59                system("mv $filename ../release/"); 
     60                system("svn add ../release/$filename"); 
     61                system("svn ps svn:mime-type application/tgz ../release/$filename"); 
     62                system("svn ci ../release/$filename $rawname/module.xml -m \"Module Publish Script: $rawname $vers\""); 
    16163        } 
    16264} 
Donate



Support
Download
Develop
Forums
News
Documentation
Paid Support
About

Paid Ads