Subversion Repositories DevTools

Rev

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

Rev 2429 Rev 2764
Line 80... Line 80...
80 
#
 80 
#
81 
my $result = GetOptions (
 81 
my $result = GetOptions (
82 
                "help:+"        => \$opt_help,
 82 
                "help:+"        => \$opt_help,
83 
                "manual:3"      => \$opt_help,
 83 
                "manual:3"      => \$opt_help,
84 
                "verbose:+"     => \$opt_verbose,
 84 
                "verbose:+"     => \$opt_verbose,
85 
                "label"         => \$opt_label,
 85 
                "label:s"       => \$opt_label,
86 
                'vob:s'         => \$opt_vob,
 86 
                'vob:s'         => \$opt_vob,
87 
                'test!'         => \$opt_test,
 87 
                'test!'         => \$opt_test,
88 
                );
 88 
                );
89 
 
 89 
 
90 
                #
 90 
                #
Line 95... Line 95...
95 
#   Process help and manual options
 95 
#   Process help and manual options
96 
#
 96 
#
97 
pod2usage(-verbose => 0, -message => "Version: $VERSION") if ($opt_help == 1 || ! $result);
 97 
pod2usage(-verbose => 0, -message => "Version: $VERSION") if ($opt_help == 1 || ! $result);
98 
pod2usage(-verbose => 1) if ( $opt_help == 2 );
 98 
pod2usage(-verbose => 1) if ( $opt_help == 2 );
99 
pod2usage(-verbose => 2) if ( $opt_help > 2 );
 99 
pod2usage(-verbose => 2) if ( $opt_help > 2 );
100 
pod2usage(-verbose => 0, -message => "Version: $VERSION") if ( $#ARGV < 0 );
 - 
 
101 
 
 100 
 
102 
#
 101 
#
103 
#   Configure the error reporting process now that we have the user options
 102 
#   Configure the error reporting process now that we have the user options
104 
#
 103 
#
105 
ErrorConfig( 'name'    =>'LABELDIRS',
 104 
ErrorConfig( 'name'    =>'LABELDIRS',
Line 108... Line 107...
108 
            );
 107 
            );
109 
 
 108 
 
110 
#
 109 
#
111 
#   Sanity test
 110 
#   Sanity test
112 
#
 111 
#
113 
Error ("No labels provided") if ( $#ARGV < 0);
 112 
Error ("No labels provided") if ( $#ARGV < 0 && ! $opt_label);
- 
 
 113 
Error ("Too many labels provided") if ( $#ARGV >= 0 && $opt_label);
114 
Error ("Too many labels provided") if ( $#ARGV > 0);
 114 
Error ("Too many labels provided") if ( $#ARGV > 0);
115 
$opt_label = $ARGV[0];
 115 
$opt_label = $ARGV[0] unless $opt_label;
116 
 
 116 
 
117 
#
 117 
#
118 
#   Convert label with embedded VCS information into a 'normal' form.
 118 
#   Convert label with embedded VCS information into a 'normal' form.
119 
#   Form:
 119 
#   Form:
120 
#       CC::label
 120 
#       CC::label
Line 146... Line 146...
146 
    $opt_label = $ll;
 146 
    $opt_label = $ll;
147 
    Verbose ("Clean URL: $opt_vob, $opt_label");
 147 
    Verbose ("Clean URL: $opt_vob, $opt_label");
148 
}
 148 
}
149 
else
 149 
else
150 
{
 150 
{
- 
 
 151 
    Error ("No VOB specified") unless $opt_vob;
151 
    $opt_vob =~ s~^/~~;
 152 
    $opt_vob =~ s~^/~~;
152 
    $opt_vob =~ s~/.*?$~~;
 153 
    $opt_vob =~ s~/.*?$~~;
153 
}
 154 
}
154 
Error ("No VOB specified") unless ( $opt_vob );
 155 
Error ("No VOB specified") unless ( $opt_vob );
155 
 
 156 
 
Line 493... Line 494...
493 
 
 494 
 
494 
    smartLock();
 495 
    smartLock();
495 
    return 1;
 496 
    return 1;
496 
}
 497 
}
497 
 
 498 
 
- 
 
 499 
#-------------------------------------------------------------------------------
- 
 
 500 
#   Documentation
- 
 
 501 
#
- 
 
 502 
 
- 
 
 503 
=pod
- 
 
 504 
 
- 
 
 505 
=for htmltoc    SYSUTIL::cc2svn::
- 
 
 506 
 
- 
 
 507 
=head1 NAME
- 
 
 508 
 
- 
 
 509 
cc2svn_labeldirs - Locate directories that have not been labeled in ClearCase
- 
 
 510 
 
- 
 
 511 
=head1 SYNOPSIS
- 
 
 512 
 
- 
 
 513 
  jats cc2svn_labeldirs [options] [CC::/vob::label]
- 
 
 514 
 
- 
 
 515 
 Options:
- 
 
 516 
    -help              - brief help message
- 
 
 517 
    -help -help        - Detailed help message
- 
 
 518 
    -man               - Full documentation
- 
 
 519 
    -[no]test          - Only display missing labels. Default:test
- 
 
 520 
    -label=label       - Specify the label
- 
 
 521 
    -vob=vob           - Specify VOB
- 
 
 522 
 
- 
 
 523 
=head1 OPTIONS
- 
 
 524 
 
- 
 
 525 
=over 8
498 
 
 526 
 
- 
 
 527 
=back