Changeset 231

Show
Ignore:
Timestamp:
05/24/2006 04:54:16 PM
Author:
luedi
Message:

merged trunk:r189-r219

Files:

Legend:

Unmodified
Added
Removed
Modified
Copied
Moved
  • branches/Dirk/pin_handler/Vss2Svn/Dumpfile.pm

    r229 r231  
    524524    my $newpath = $itempath; 
    525525 
    526     if ($data->{itemtype} == 1) {  
    527         $newpath =~ s:(.*/)?.+$:$1$newname:;  
    528     } else {  
    529         $newpath =~ s:(.*/)?.*:$1$newname:;  
    530     }  
     526    if ($data->{itemtype} == 1) { 
     527        $newpath =~ s:(.*/)?.+$:$1$newname:; 
     528    } else { 
     529        $newpath =~ s:(.*/)?.*:$1$newname:; 
     530    } 
    531531 
    532532    my $node = Vss2Svn::Dumpfile::Node->new(); 
  • branches/Dirk/pin_handler/vss2svn.pl

    r230 r231  
    924924SSPHYS exe   : $gCfg{ssphys} 
    925925SSPHYS ver   : $ssversion 
     926XML Parser   : $gCfg{xmlParser} 
    926927 
    927928EOTXT 
     
    11021103############################################################################### 
    11031104sub GetSsVersion { 
    1104     my $out = `\"$gCfg{ssphys}\" -v 2>&1`; 
     1105    my $out = `\"$gCfg{ssphys}\" --version 2>&1`; 
    11051106    $out =~ m/^(ssphys .*?)[:\n]/m; 
    11061107 
     
    12601261                                            . "to be a valid VSS database"); 
    12611262 
    1262     my($id, $type, $action); 
    1263     while(<DATA>) { 
    1264         chomp; 
    1265         ($id, $type, $action) = split "\t"; 
    1266         $gActionType{$id} = {type => $type, action => $action}; 
    1267     } 
     1263    &SetupActionTypes; 
    12681264 
    12691265    Vss2Svn::DataCache->SetCacheDir($gCfg{tempdir}); 
     
    12751271 
    12761272}  #  End SetupGlobals 
     1273 
     1274############################################################################### 
     1275#  SetupActionTypes 
     1276############################################################################### 
     1277sub SetupActionTypes { 
     1278    # RollBack is only seen in combiation with a BranchFile activity, so actually 
     1279    # RollBack is the item view on the activity and BranchFile is the parent side 
     1280    # ==> map RollBack to BRANCH, so that we can join the two actions in the 
     1281    # MergeParentData step 
     1282 
     1283    %gActionType = ( 
     1284        CreatedProject => {type => 1, action => 'ADD'}, 
     1285        AddedProject => {type => 1, action => 'ADD'}, 
     1286        RenamedProject => {type => 1, action => 'RENAME'}, 
     1287        MovedProjectTo => {type => 1, action => 'MOVE'}, 
     1288        MovedProjectFrom => {type => 1, action => 'MOVE_FROM'}, 
     1289        DeletedProject => {type => 1, action => 'DELETE'}, 
     1290        DestroyedProject => {type => 1, action => 'DELETE'}, 
     1291        RecoveredProject => {type => 1, action => 'RECOVER'}, 
     1292        CheckedIn => {type => 2, action => 'COMMIT'}, 
     1293        CreatedFile => {type => 2, action => 'ADD'}, 
     1294        AddedFile => {type => 2, action => 'ADD'}, 
     1295        RenamedFile => {type => 2, action => 'RENAME'}, 
     1296        DeletedFile => {type => 2, action => 'DELETE'}, 
     1297        DestroyedFile => {type => 2, action => 'DELETE'}, 
     1298        RecoveredFile => {type => 2, action => 'RECOVER'}, 
     1299        SharedFile => {type => 2, action => 'SHARE'}, 
     1300        BranchFile => {type => 2, action => 'BRANCH'}, 
     1301        PinnedFile => {type => 2, action => 'PIN'}, 
     1302        RollBack => {type => 2, action => 'BRANCH'}, 
     1303        UnpinnedFile => {type => 2, action => 'PIN'}, 
     1304        Labeled => {type => 2, action => 'LABEL'}, 
     1305    ); 
     1306 
     1307}  #  End SetupActionTypes 
    12771308 
    12781309############################################################################### 
     
    15311562    $gCfg{errortasks} = []; 
    15321563 
     1564    &ConfigureXmlParser(); 
     1565 
    15331566    ### Don't go past here if resuming a previous run ### 
    15341567    if ($gCfg{resume}) { 
     
    15451578    $gCfg{step} = 0; 
    15461579}  #  End Initialize 
     1580 
     1581############################################################################### 
     1582#  ConfigureXmlParser 
     1583############################################################################### 
     1584sub ConfigureXmlParser { 
     1585 
     1586    if(defined($ENV{XML_SIMPLE_PREFERRED_PARSER})) { 
     1587        # user has defined a preferred parser; don't mess with it 
     1588        $gCfg{xmlParser} = $ENV{XML_SIMPLE_PREFERRED_PARSER}; 
     1589        return 1; 
     1590    } 
     1591 
     1592    $gCfg{xmlParser} = 'XML::Simple'; 
     1593 
     1594    eval { require XML::SAX; }; 
     1595    if($@) { 
     1596        # no XML::SAX; let XML::Simple use its own parser 
     1597        return 1; 
     1598    } 
     1599 
     1600    $gCfg{xmlParser} = 'XML::SAX::Expat'; 
     1601    $XML::SAX::ParserPackage = $gCfg{xmlParser}; 
     1602 
     1603    my $p; 
     1604 
     1605    eval { $p = XML::SAX::ParserFactory->parser(); }; 
     1606 
     1607    if(!$@) { 
     1608        # XML::SAX::Expat installed; use it 
     1609 
     1610        # for exe version, XML::Parser::Expat needs help finding its encmaps 
     1611        no warnings 'once'; 
     1612        push(@XML::Parser::Expat::Encoding_Path, @INC); 
     1613        return 1; 
     1614    } 
     1615 
     1616    undef $XML::SAX::ParserPackage; 
     1617    eval { $p = XML::SAX::ParserFactory->parser(); }; 
     1618 
     1619    if(!$@) { 
     1620        $gCfg{xmlParser} = ref $p; 
     1621        return 1; 
     1622    } 
     1623 
     1624    # couldn't find a better package; go back to XML::Simple 
     1625    $gCfg{'xmlParser'} = 'XML::Simple'; 
     1626    return 1; 
     1627 
     1628}  #  End ConfigureXmlParser 
    15471629 
    15481630############################################################################### 
     
    15861668    exit(1); 
    15871669}  #  End GiveHelp 
    1588  
    1589 # Following is the data for %gActionType. First field is the node type from 
    1590 # ssphys; second field is item type (1=project, 2=file); third field is the 
    1591 # generic action it should be mapped to (loosely mapped to SVN actions) 
    1592  
    1593 # RollBack is only seen in combiation with a BranchFile activity, so actually 
    1594 # RollBack is the item view on the activity and BranchFile is the parent side 
    1595 # ==> map RollBack to BRANCH, so that we can join the two actions in the 
    1596 # MergeParentData step 
    1597  
    1598 __DATA__ 
    1599 CreatedProject  1       ADD 
    1600 AddedProject    1       ADD 
    1601 RenamedProject  1       RENAME 
    1602 MovedProjectTo  1       MOVE 
    1603 MovedProjectFrom        1       MOVE_FROM 
    1604 DeletedProject  1       DELETE 
    1605 DestroyedProject        1       DELETE 
    1606 RecoveredProject        1       RECOVER 
    1607 CheckedIn       2       COMMIT 
    1608 CreatedFile     2       ADD 
    1609 AddedFile       2       ADD 
    1610 RenamedFile     2       RENAME 
    1611 DeletedFile     2       DELETE 
    1612 DestroyedFile   2       DELETE 
    1613 RecoveredFile   2       RECOVER 
    1614 SharedFile      2       SHARE 
    1615 BranchFile      2       BRANCH 
    1616 PinnedFile      2       PIN 
    1617 RollBack        2       BRANCH 
    1618 UnpinnedFile    2       PIN 
    1619 Labeled 2       LABEL 

These ads are automatically generated by Google based on the content of this page. Revenue from these ads helps to pay for hosting fees of this site; however, these ads do not constitute an endorsement by PumaCode.org.