[Box Backup-commit] COMMIT r2242 - box/trunk/infrastructure

boxbackup-dev@fluffy.co.uk boxbackup-dev@fluffy.co.uk
Thu, 21 Aug 2008 11:11:27 +0100 (BST)


Author: chris
Date: 2008-08-21 11:11:27 +0100 (Thu, 21 Aug 2008)
New Revision: 2242

Modified:
   box/trunk/infrastructure/BoxPlatform.pm.in
Log:
Understand Boxi SVN URLs and build an appropriate version string for Box 
Backup from them.


Modified: box/trunk/infrastructure/BoxPlatform.pm.in
===================================================================
--- box/trunk/infrastructure/BoxPlatform.pm.in	2008-08-21 10:10:56 UTC (rev 2241)
+++ box/trunk/infrastructure/BoxPlatform.pm.in	2008-08-21 10:11:27 UTC (rev 2242)
@@ -68,8 +68,17 @@
 			}
 		}
 		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;
 	}