[svk-commit] r2493 - branches/2.0-releng/utils

[nobody at bestpractical.com]

Author: clkao
Date: Tue Jul 17 12:00:15 2007
New Revision: 2493

Modified:
   branches/2.0-releng/utils/pullyu

Log:
merge from trunk:

 r2401 at trunk:  clkao | 2007-06-04 23:57:32 +0100
 Fix pullyu for translating "included" records, which are replaced entries.
 
 Reported by: David Morton <mortonda at dgrmm.net>
 
 r2402 at trunk:  jesse | 2007-06-05 17:30:18 +0100
  r57997 at pinglin:  jesse | 2007-06-05 12:29:43 -0400
   * pullyu documentation updates from David Morton <mortonda at dgrmm.net>
 


Modified: branches/2.0-releng/utils/pullyu
==============================================================================
--- branches/2.0-releng/utils/pullyu	(original)
+++ branches/2.0-releng/utils/pullyu	Tue Jul 17 12:00:15 2007
@@ -8,12 +8,26 @@
 
 my $revspec;
 
+sub usage {
+        print <<EOUSAGE;
+Usage:  pullyu [-r=revision] repopath mirrorpath
+    Prints out a svn dump file from a complete mirrored svk depot.  
+    repopath is the path to your local svk repository, usually ~/.svk/local
+    mirrorpath is the path to the mirror, such as /mirrors/myproject
+    
+    Example: ./pullyu ~/.svk/local /mirrors/myproject > myproject-svn-dumpfile
+    
+EOUSAGE
+exit;
+}
+
+
 die unless GetOptions ("r|revision=s@" => \$revspec);
 
 use SVN::Dump 0.03;
 
-my $repospath = shift or die "repospath required.\n";
-my $path      = shift or die "path required.\n";
+my $repospath = shift or usage();
+my $path      = shift or usage();
 
 my $repos = SVN::Repos::open($repospath) or die $!;
 my $depot = SVK::Depot->new({ depotname => '', repos => $repos, repospath => $repospath});
@@ -101,7 +115,8 @@
 
         };
         $translate->( $record );
-	$translate->( $record->{included} ) if $record->{included};
+        my $inc = $record->get_included_record;
+        $translate->( $inc ) if $inc;
 
         print $record->as_string;
     }