Subversion Repositories DevTools

#

#   Convert label with embedded VCS information into a 'normal' form.

#   Form:

#       CC::label

#       CC::path::label

#       CC::::label

#

if ( $label =~ m~^(.+?)::(.*?)(::(.+))?$~ )

{

    Error ("Label contains invalid Version Control Identifier($1): $_")

        if ( $1 ne 'CC' );

    my $ll = $2;

    my $path;

    if ( $3 )

    {

        $ll = $4;

        my @pelements = split( m'/+', $2);

        $path = $pelements[1] || '';

        if ( $path  )

        {

            Error ("Multiple conflicting Embedded Vobs",

                   "Vob: $opt_vob",

                   "VCS Spec: $label" ) if ( $opt_vob && $path ne $opt_vob );

            $opt_vob = $path;

        }

    }

    $label = $ll;

    Verbose ("Clean URL: $opt_vob, $label");

}

The 'label' command line parameter may be a ClearCase VCS specification, in

which case the VOB and the ClearCase label will be extracted and used.

This command will create the label 'daf_br_23.0.0.syd', then label all files and

folders in and below the current directory with that label, and then lock the label.

jats label -info CC::/MASS_Dev/COTS/cots_netbula::netbula_2.10.1.cots

This command will process the 'label' as a ClearCase VCS tag and extract the

vob (MASS_Dev) and the ClearCase label (netbula_2.10.1.cots). It will then

provide information on that label in the MASS_Dev vob.