Subversion Repositories DevTools

Rev

Rev 309 | Show entire file | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 309 Rev 313
Line 363... Line 363...
363 
    }
 363 
    }
364 
 
 364 
 
365 
    print "Exclude: $_\n" foreach @{$info{'exclude_list'}};
 365 
    print "Exclude: $_\n" foreach @{$info{'exclude_list'}};
366 
    print "Exclude(/main/0): $_\n" foreach @{$info{'element0_list'}};
 366 
    print "Exclude(/main/0): $_\n" foreach @{$info{'element0_list'}};
367 
    print "Missing File: $_\n" foreach @{$info{'missing_files'}};
 367 
    print "Missing File: $_\n" foreach @{$info{'missing_files'}};
- 
 
 368 
    print "Checkedout File: $_\n" foreach @{$info{'checked_out_files'}};
- 
 
 369 
    print "Checkedout Dir: $_\n" foreach @{$info{'checked_out_dirs'}};
368 
 
 370 
 
369 
    print        ("Labels applied:", scalar(@{$info{'label_list'}}) + scalar(@{$info{'dir_list'}}), "\n" );
 371 
    print        ("Labels applied:", scalar(@{$info{'label_list'}}) + scalar(@{$info{'dir_list'}}), "\n" );
370 
    show_warning ("WARNING: Labels applied to checked out parent directories", 'checked_out_pdirs' );
 372 
    show_warning ("WARNING: Labels applied to checked out parent directories", 'checked_out_pdirs' );
371 
    show_warning ("WARNING: Labels applied to checked out files", 'checked_out_files' );
 373 
    show_warning ("WARNING: Labels applied to checked out files", 'checked_out_files' );
372 
    show_warning ("WARNING: Labels applied to checked out dirs", 'checked_out_dirs' );
 374 
    show_warning ("WARNING: Labels applied to checked out dirs", 'checked_out_dirs' );
Line 381... Line 383...
381 
    #   Double check the label process
 383 
    #   Double check the label process
382 
    #   We are seeing issues with ClearCase where a file, or dir, is not being
 384 
    #   We are seeing issues with ClearCase where a file, or dir, is not being
383 
    #   labeled. The following is a quick check. See if there is any thing to
 385 
    #   labeled. The following is a quick check. See if there is any thing to
384 
    #   label again
 386 
    #   label again
385 
    #
 387 
    #
386 
    %info = ();
 388 
    unless ( $opt_test )
387 
    determine_dirs_to_label ( \%info );
 - 
 
388 
    determine_files_to_label( \%info );
 - 
 
389 
    if ( @{$info{'dir_list'}}  || @{$info{'label_list'}} )
 - 
 
390 
    {
 389 
    {
- 
 
 390 
        %info = ();
- 
 
 391 
        determine_dirs_to_label ( \%info );
- 
 
 392 
        determine_files_to_label( \%info );
- 
 
 393 
        if ( @{$info{'dir_list'}}  || @{$info{'label_list'}} )
- 
 
 394 
        {
391 
        DebugDumpData("DoubleCheck Data", \%info );
 395 
            DebugDumpData("DoubleCheck Data", \%info );
392 
        Error ('ClearCase label problem detected',
 396 
            Error ('ClearCase label problem detected',
393 
               'Please report to david.purdie@vix-erg.com',
 397 
                   'Please report to david.purdie@vix-erg.com',
394 
               'Directories and Files not labled as requested:',
 398 
                   'Directories and Files not labled as requested:',
395 
               @{$info{'dir_list'}},
 399 
                   @{$info{'dir_list'}},
396 
               @{$info{'label_list'}}
 400 
                   @{$info{'label_list'}}
397 
               );
 401 
                   );
- 
 
 402 
        }
398 
    }
 403 
    }
399 
 
 404 
 
400 
 
 - 
 
401 
    $opr_done = 1;
 405 
    $opr_done = 1;
402 
}
 406 
}
403 
 
 407 
 
404 
#-------------------------------------------------------------------------------
 408 
#-------------------------------------------------------------------------------
405 
#   Process command
 409 
#   Process command
Line 773... Line 777...
773 
        #
 777 
        #
774 
        #   Has it been excluded
 778 
        #   Has it been excluded
775 
        #
 779 
        #
776 
        foreach my $name ( @opt_exclude )
 780 
        foreach my $name ( @opt_exclude )
777 
        {
 781 
        {
778 
            if ( m~/$name[/@]~ )
 782 
            if ( m~(^|/)$name[/@]~ )
779 
            {
 783 
            {
780 
                push @{$data->{'exclude_list'}}, $_;
 784 
                push @{$data->{'exclude_list'}}, $_;
781 
                next find;
 785 
                next find;
782 
            }
 786 
            }
783 
        }
 787 
        }
Line 795... Line 799...
795 
 
 799 
 
796 
        #
 800 
        #
797 
        #   Count build.pl files
 801 
        #   Count build.pl files
798 
        #   Not really useful for Ant Builds
802 
        #   Not really useful for Ant Builds
799 
        #
 803 
        #
800 
        if ( m~/build.pl@~i )
 804 
        if ( m~(^|/)build.pl@~i )
801 
        {
 805 
        {
802 
            push @{$data->{'build_files'}}, $_
 806 
            push @{$data->{'build_files'}}, $_
803 
        }
 807 
        }
804 
 
 808 
 
805 
        #
 809 
        #