Subversion Repositories DevTools

Rev

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

Rev 394 Rev 395
Line 124... Line 124...
124 
my %specialPackages = (
 124 
my %specialPackages = (
125 
#    'core_devl' =>  ',all,protected,',
 125 
#    'core_devl' =>  ',all,protected,',
126 
    'core_devl' =>  ',all,',
 126 
    'core_devl' =>  ',all,',
127 
    'daf_utils_mos' => ',flat,',
 127 
    'daf_utils_mos' => ',flat,',
128 
    'mos_packager'  => ',all,',
 128 
    'mos_packager'  => ',all,',
- 
 
 129 
 
- 
 
 130 
    # Need to be handled in a special manner
- 
 
 131 
    # Not done by this utility
- 
 
 132 
    #
- 
 
 133 
    'linux_drivers_eb5600'  => ',protected,',
- 
 
 134 
    'linux_drivers_viper'   => ',protected,',
- 
 
 135 
    'linux_drivers_cobra'   => ',protected,',
- 
 
 136 
    'linux_drivers_bcp4600' => ',protected,',
- 
 
 137 
    'linux_drivers_etx86'   => ',protected,',
- 
 
 138 
    'linux_drivers_tp5600'  => ',protected,',
- 
 
 139 
 
129 
);
 140 
);
130 
 
 141 
 
131 
my %notCots = (
 142 
my %notCots = (
132 
    'isl'       => 1,
 143 
    'isl'       => 1,
133 
);
 144 
);
Line 2333... Line 2344...
2333 
#
 2344 
#
2334 
# Description     : Cleanup and rewrite a vcstag
 2345 
# Description     : Cleanup and rewrite a vcstag
2335 
#
 2346 
#
2336 
#                   DUPLICATED IN:
 2347 
#                   DUPLICATED IN:
2337 
#                       - cc2svn_procdata
 2348 
#                       - cc2svn_procdata
2338 
#                       - cc2svn_impartpackage
 2349 
#                       - cc2svn_importpackage
2339 
#
 2350 
#
2340 
# Inputs          : vcstag
 2351 
# Inputs          : vcstag
2341 
#
 2352 
#
2342 
# Returns         : Cleaned up vcs tag
 2353 
# Returns         : Cleaned up vcs tag
2343 
#
 2354 
#
Line 2353... Line 2364...
2353 
        $tag =~ s~/MASS_Dev/Infra~MASS_Dev_Infra~i;
 2364 
        $tag =~ s~/MASS_Dev/Infra~MASS_Dev_Infra~i;
2354 
        $tag =~ s~/MASS_Dev/Bus/web~/MASS_Dev_Bus/web~i;
 2365 
        $tag =~ s~/MASS_Dev/Bus/web~/MASS_Dev_Bus/web~i;
2355 
 
 2366 
 
2356 
        $tag =~ s~/Vastraffik/~/Vasttrafik/~;
 2367 
        $tag =~ s~/Vastraffik/~/Vasttrafik/~;
2357 
        $tag =~ s~/MREF_Package/ergpostmongui$~/MREF_Package/ergpostmongui~i;
 2368 
        $tag =~ s~/MREF_Package/ergpostmongui$~/MREF_Package/ergpostmongui~i;
2358 
 
 - 
 
- 
 
 2369 
        $tag =~ s~DPC_SWCode/~DPG_SWCode/~i;
2359 
    }
 2370 
    }
2360 
    return $tag;
 2371 
    return $tag;
2361 
}
 2372 
}
2362 
 
 2373 
 
2363 
#-------------------------------------------------------------------------------
 2374 
#-------------------------------------------------------------------------------
Line 2373... Line 2384...
2373 
sub examineVcsTag
 2384 
sub examineVcsTag
2374 
{
 2385 
{
2375 
    my ($entry) = @_;
 2386 
    my ($entry) = @_;
2376 
    my $bad = 0;
 2387 
    my $bad = 0;
2377 
 
 2388 
 
2378 
    $versions{$entry}{vcsTag} = ($versions{$entry}{vcsTag});
 2389 
    $versions{$entry}{vcsTag} = vcsCleanup($versions{$entry}{vcsTag});
2379 
    my $vcstag $versions{$entry}{vcsTag};
 2390 
    my $vcstag = $versions{$entry}{vcsTag};
2380
2391
2381 
    if ( $vcstag =~ m~^SVN::~ ) {
 2392 
    if ( $vcstag =~ m~^SVN::~ ) {
2382 
        $versions{$entry}{isSvn} = 1;
 2393 
        $versions{$entry}{isSvn} = 1;
2383 
 
 2394 
 
2384 
    } elsif ( $vcstag =~ m~^CC::(.*?)(::(.+))?$~ ) {
 2395 
    } elsif ( $vcstag =~ m~^CC::(.*?)(::(.+))?$~ ) {
Line 2389... Line 2400...
2389 
 
 2400 
 
2390 
        $bad = 1 unless ( $path );
 2401 
        $bad = 1 unless ( $path );
2391 
        $bad = 1 if ( $path =~ m~^N/A$~i || $path  =~ m~^na$~i );
 2402 
        $bad = 1 if ( $path =~ m~^N/A$~i || $path  =~ m~^na$~i );
2392 
        $bad = 1 if ( $path =~ m~^/dpkg_archive~ || $path  =~ m~^dpkg_archive~ );
 2403 
        $bad = 1 if ( $path =~ m~^/dpkg_archive~ || $path  =~ m~^dpkg_archive~ );
2393 
        $bad = 1 if ( $path =~ m~^/devl/~ || $path  =~ m~^devl/~ );
 2404 
        $bad = 1 if ( $path =~ m~^/devl/~ || $path  =~ m~^devl/~ );
- 
 
 2405 
        $bad = 1 if ( $path =~ m~^CVS~ );
2394 
        $bad = 1 if ( $path =~ m~^http:~i );
 2406 
        $bad = 1 if ( $path =~ m~^http:~i );
2395 
        $bad = 1 if ( $path =~ m~^[A-Za-z]\:~ );
 2407 
        $bad = 1 if ( $path =~ m~^[A-Za-z]\:~ );
2396 
        $bad = 1 if ( $path =~ m~^//~ );
 2408 
        $bad = 1 if ( $path =~ m~^//~ );
2397 
        $bad = 1 if ( $path =~ m~^/*none~i );
 2409 
        $bad = 1 if ( $path =~ m~^/*none~i );
2398 
        $bad = 1 if ( $path =~ m~^/*NoWhere~i );
 2410 
        $bad = 1 if ( $path =~ m~^/*NoWhere~i );