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 
#