Subversion Repositories DevTools

Rev

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

Rev 313 Rev 315
Line 505... Line 505...
505
#-------------------------------------------------------------------------------
505
#-------------------------------------------------------------------------------
506
#   Process command
506
#   Process command
507
#       Display Label information
507
#       Display Label information
508
if ( $opt_info )
508
if ( $opt_info )
509
{
509
{
510
    Verbose ("describe label");
510
    Verbose ("Describe label");
511
    system (QuoteCommand("cleartool", "describe", "-long", "lbtype:$label$vob_desc" )) unless $opt_test;
511
    my $cmd = 'cleartool ' . QuoteCommand('describe', '-long', "lbtype:$label$vob_desc" );
-
 
512
    Verbose2 $cmd;
-
 
513
    my $rv = system ($cmd);
512
    Error ("Program Terminated") if ( @error_list );
514
    Error ("Program Terminated") if ( $rv / 256 );
513
    $opr_done = 1;
515
    $opr_done = 1;
514
}
516
}
515
 
517
 
-
 
518
#-------------------------------------------------------------------------------
-
 
519
#   End of all operations
-
 
520
#   If nothing has been done, then let the user know
516
 
521
#
517
Error ("No valid operations specified. Try -h") unless ( $opr_done );
522
Error ("No valid operations specified. Try -h") unless ( $opr_done );
518
if ( $opt_test )
-
 
519
{
-
 
520
    print ("End program [Test Mode]\n");
-
 
521
}
-
 
522
else
-
 
523
{
-
 
524
    print ("End program\n");
-
 
525
}
-
 
526
 
523
 
-
 
524
#
-
 
525
#   End of program
-
 
526
#   Highlight test mode if its been active
-
 
527
#
-
 
528
print ("End program", $opt_test ? " [Test Mode]":'' ,"\n");
527
exit 0;
529
exit 0;
528
 
530
 
529
#-------------------------------------------------------------------------------
531
#-------------------------------------------------------------------------------
530
# Function        : determine_dirs_to_label
532
# Function        : determine_dirs_to_label
531
#
533
#