[svk-commit] r2530 - branches/mirror-boostrap/utils

nobody at bestpractical.com nobody at bestpractical.com
Wed Aug 8 10:27:10 EDT 2007


Author: clsung
Date: Wed Aug  8 10:27:04 2007
New Revision: 2530

Modified:
   branches/mirror-boostrap/utils/mipush

Log:
- previous version use solid path, fix it.

Modified: branches/mirror-boostrap/utils/mipush
==============================================================================
--- branches/mirror-boostrap/utils/mipush	(original)
+++ branches/mirror-boostrap/utils/mipush	Wed Aug  8 10:27:04 2007
@@ -16,10 +16,10 @@
 
 sub usage {
         print <<EOUSAGE;
-Usage:  mipush svn_dump_file
+Usage:  mipush repopath depotpath svn_dump_file
     Reverse version of pullyu
     
-    Example: ./mipush myproject-svn-dumpfile
+    Example: ./mipush ./.svk/local //mirror/svk myproject-svn-dumpfile
     
 EOUSAGE
 exit;
@@ -30,13 +30,13 @@
 
 use SVN::Dump 0.03;
 
+my $repospath = shift or usage();
+my $depotpath = shift or usage();
+my ($depotname, $path) = $depotpath =~ m|^/([^/]*)(/.*?)/?$|;
 my $file = shift or usage();
-my $repospath = $ENV{HOME}.'/.svk/misvk';
-my $path = '/mirror/svk';
-my $url = 'http://code.bestpractical.com/svk';
 
 my $repos = SVN::Repos::open($repospath) or die $!;
-my $depot = SVK::Depot->new({ depotname => 'misvk', repos => $repos, repospath => $repospath});
+my $depot = SVK::Depot->new({ depotname => $depotname, repos => $repos, repospath => $repospath});
 # TODO: for exists mirror, maybe we should remove it and create a new one?
 my $t  = SVK::Path->real_new({ depot => $depot, path => $path })
     ->refresh_revision;


More information about the svk-commit mailing list