[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