#!/usr/local/bin/perl -w use strict; use VCP::Debug qw( :debug ); BEGIN { enable_debug ".*"; } use VCP::MainBranchIdDB; my $db = VCP::MainBranchIdDB->new( @ARGV ? ( StoreLoc => shift ) : () ); $db->open_existing_db; $db->dump( \*STDOUT ); $db->close_db;
# | Change | User | Description | Committed | |
---|---|---|---|---|---|
#1 | 4040 | timothee_besset | guest branch | ||
//guest/perforce_software/revml/bin/dump_main_branch_id | |||||
#2 | 2959 | John Fetkovich |
added dump method to lib/VCP/DB_File/sdbm.pm to dump keys => values from a sdbm file. removed similar code from bin/dump_head_revs, bin/dump_rev_map and bin/dump_main_branch_id and called this method instead. also made parse_files_and_revids_from_head_revs_db sub in TestUtils to use in test suites instead of parse_files_and_revids_from_p4_files et. al. |
||
#1 | 2873 | Barrie Slaymaker | Add MainBranchIdDB and a dump util. |