Subversion Repositories DevTools

Rev

Rev 2476 | Rev 2548 | Go to most recent revision | Show entire file | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 2476 Rev 2489
Line 68... Line 68...
68
my $opt_workDir = '/work';
68
my $opt_workDir = '/work';
69
my $opt_vobMap;
69
my $opt_vobMap;
70
my $opt_preserveProjectBase;
70
my $opt_preserveProjectBase;
71
my $opt_ignoreProjectBaseErrors;
71
my $opt_ignoreProjectBaseErrors;
72
my $opt_ignoreMakeProjectErrors;
72
my $opt_ignoreMakeProjectErrors;
-
 
73
my $opt_forceProjectBase;
73
my $opt_ignoreBadPaths;
74
my $opt_ignoreBadPaths;
74
my $opt_delete;
75
my $opt_delete;
75
my $opt_recentAge = 14;             # Days
76
my $opt_recentAge = 14;             # Days
76
my $opt_relabel = 0;
77
my $opt_relabel = 0;
77
my $opt_protected;
78
my $opt_protected;
Line 159... Line 160...
159
    'WinCEBlocker'            => ',IgnoreMakeProject,',  # Looks OK
160
    'WinCEBlocker'            => ',IgnoreMakeProject,',  # Looks OK
160
    'WinCEDeviceAutoInject'   => ',IgnoreMakeProject,',  # Looks OK
161
    'WinCEDeviceAutoInject'   => ',IgnoreMakeProject,',  # Looks OK
161
    'WinCEReboot'             => ',IgnoreMakeProject,',  # Looks OK
162
    'WinCEReboot'             => ',IgnoreMakeProject,',  # Looks OK
162
 
163
 
163
 
164
 
164
    'ftp'                   => 'SetProjectBase,',
165
    'ftp'                   => ',SetProjectBase,',
165
    'ddu_app_manager'       => 'SetProjectBase,IgnoreMakeProject,',
166
    'ddu_app_manager'       => ',SetProjectBase,IgnoreMakeProject,',
166
    'ddu_afc'               => 'SetProjectBase,IgnoreMakeProject,',
167
    'ddu_afc'               => ',SetProjectBase,IgnoreMakeProject,',
167
    'ddu_dog'               => 'IgnoreMakeProject,',
168
    'ddu_dog'               => ',SetProjectBase,IgnoreMakeProject,',
168
 
169
 
169
    'icl'                   => 'IgnoreProjectBase,',
170
    'icl'                   => 'IgnoreProjectBase,',
170
    'itso'                  => 'IgnoreProjectBase,',
171
    'itso'                  => 'IgnoreProjectBase,',
171
#    'daf_osa_mos'           => 'IgnoreProjectBase,',
172
#    'daf_osa_mos'           => 'IgnoreProjectBase,',
172
    'daf_utils_mos'         => 'IgnoreProjectBase,',
173
    'daf_utils_mos'         => 'IgnoreProjectBase,',
Line 1761... Line 1762...
1761
        $cc_path = '/MASS_Dev_Bus' if ( $cc_path =~ m~/MASS_Dev_Bus/ImageCapture(/|$)~i );
1762
        $cc_path = '/MASS_Dev_Bus' if ( $cc_path =~ m~/MASS_Dev_Bus/ImageCapture(/|$)~i );
1762
        $cc_path = '/MASS_Dev_Bus/CBP/enquiry' if ( $versions{$entry}{name} eq 'EJBEnqPxyConnector');
1763
        $cc_path = '/MASS_Dev_Bus/CBP/enquiry' if ( $versions{$entry}{name} eq 'EJBEnqPxyConnector');
1763
        $cc_path = '/MASS_Dev_Bus/CBP/enquiry' if ( $versions{$entry}{name} eq 'proxyif4j');
1764
        $cc_path = '/MASS_Dev_Bus/CBP/enquiry' if ( $versions{$entry}{name} eq 'proxyif4j');
1764
        $cc_path = '/MASS_Dev_Bus' if ( $versions{$entry}{name} eq 'ImageCaptureTomcatDeployment');
1765
        $cc_path = '/MASS_Dev_Bus' if ( $versions{$entry}{name} eq 'ImageCaptureTomcatDeployment');
1765
        $cc_path = '/MASS_Dev_Bus/WebServices/MassWS' if ( $versions{$entry}{name} eq 'MassWebServicesImpl');
1766
        $cc_path = '/MASS_Dev_Bus/WebServices/MassWS' if ( $versions{$entry}{name} eq 'MassWebServicesImpl');
-
 
1767
        $cc_path = '/DPG_SWCode/projects/seattle/ddu' if ( $versions{$entry}{name} eq 'ddu_dog');
1766
 
1768
 
1767
        if (   $versions{$entry}{name} =~ m/^ERGagency$/i
1769
        if (   $versions{$entry}{name} =~ m/^ERGagency$/i
1768
            || $versions{$entry}{name} =~ m/^ERGavm$/i
1770
            || $versions{$entry}{name} =~ m/^ERGavm$/i
1769
            || $versions{$entry}{name} =~ m/^ERGboi$/i
1771
            || $versions{$entry}{name} =~ m/^ERGboi$/i
1770
            || $versions{$entry}{name} =~ m/^ERGcallcenter$/i
1772
            || $versions{$entry}{name} =~ m/^ERGcallcenter$/i
Line 1838... Line 1840...
1838
    #       Sometimes as 'GMTPE2005/Package/Fred/Jill/Harry'
1840
    #       Sometimes as 'GMTPE2005/Package/Fred/Jill/Harry'
1839
    #
1841
    #
1840
    #   Attempt to suck up empty directories below the specified
1842
    #   Attempt to suck up empty directories below the specified
1841
    #   source path
1843
    #   source path
1842
    #
1844
    #
1843
    unless ( $opt_preserveProjectBase )
1845
    unless ( $opt_preserveProjectBase || $opt_forceProjectBase )
1844
    {
1846
    {
1845
        #
1847
        #
1846
        #   Look in ViewPath
1848
        #   Look in ViewPath
1847
        #   If it contains only ONE directory then we can suck it up
1849
        #   If it contains only ONE directory then we can suck it up
1848
        #
1850
        #