diff options
author | Chris Wilson <chris+github@qwirx.com> | 2008-08-21 10:11:27 +0000 |
---|---|---|
committer | Chris Wilson <chris+github@qwirx.com> | 2008-08-21 10:11:27 +0000 |
commit | 41076a64073619188b6d073464f0334208113c73 (patch) | |
tree | c9b440b7ea0774b9a3a39b25e0b37caff6c1100a /infrastructure/BoxPlatform.pm.in | |
parent | 616e3411c7c1ea9aa98b80b4a77ecefbc1ca4a20 (diff) |
Understand Boxi SVN URLs and build an appropriate version string for Box
Backup from them.
Diffstat (limited to 'infrastructure/BoxPlatform.pm.in')
-rw-r--r-- | infrastructure/BoxPlatform.pm.in | 13 |
1 files changed, 11 insertions, 2 deletions
diff --git a/infrastructure/BoxPlatform.pm.in b/infrastructure/BoxPlatform.pm.in index ef2340fb..f5c55f25 100644 --- a/infrastructure/BoxPlatform.pm.in +++ b/infrastructure/BoxPlatform.pm.in @@ -68,8 +68,17 @@ BEGIN } } close INFO; - $svnurl =~ m!box/(.+)$!; - my $svndir = $1; + + my $svndir; + if ($svnurl =~ m!/box/(.+)$!) + { + $svndir = $1; + } + elsif ($svnurl =~ m'/(boxi/.+)/boxi/boxbackup') + { + $svndir = $1; + } + $svndir =~ tr/0-9A-Za-z/_/c; $product_version =~ s/USE_SVN_VERSION/$svndir.'_'.$svnversion/e; } |