Show
Ignore:
Timestamp:
09/07/06 07:05:36 (7 years ago)
Author:
qldrob
Message:

Avoid possible naming conflicts

Files:

Legend:

Unmodified
Added
Removed
Modified
Copied
Moved

  • modules/branches/2.1/publish.pl

    r1800 r2302  
    11#!/usr/bin/perl 
    22 
     3$rver = "2.2"; 
    34 
    45my $reldir = "release/"; 
    …… 
    2627  ($md5sum, $null) = split(/ /, $md5); 
    2728  $newxml =~ s/<md5sum>.+<\/md5sum>/<md5sum>$md5sum<\/md5sum>/; 
    28   $newxml =~ s/<location>.+<\/location>/<location>$reldir$filename<\/location>/; 
     29  $newxml =~ s/<location>.+<\/location>/<location>$reldir/$rver/$filename<\/location>/; 
    2930  open FH, ">$moddir/module.xml"; 
    3031  print FH $newxml; 
    3132  close FH; 
    32   system("mv $filename ../../release/"); 
    33   system("svn add ../../release/$filename"); 
    34   system("svn ps svn:mime-type application/tgz ../../release/$filename"); 
    35   system("svn ci ../../release/$filename $rawname/module.xml -m \"Module Publish Script: $rawname\""); 
     33  system("mv $filename ../../release/$rver"); 
     34  system("svn add ../../release/$rver/$filename"); 
     35  system("svn ps svn:mime-type application/tgz ../../release/$rver/$filename"); 
     36  system("svn ci ../../release/$rver/$filename $rawname/module.xml -m \"Module Publish Script: $rawname\""); 
    3637} 
    3738