Rev 237 | Blame | Last modification | View Log | RSS feed
#! /usr/bin/perl######################################################################### Copyright (C) 1998-2004 ERG Limited, All rights reserved## Module name : jats_label.pl# Module type : Makefile system# Compiler(s) : n/a# Environment(s):## Description : A script to perform a number of labeling operations# The script will:# create a label# lock a label# unlock a label# label all files below the current directory and# all directories above the current directory## Version Who Date Description# 1.0.0 DDP 04-Feb-05 Created#......................................................................#require 5.006_001;use strict;use warnings;use JatsError;use JatsSystem;use Pod::Usage; # required for help supportuse Getopt::Long;use Cwd;my $VERSION = "1.2.2"; # Update this## Options#my $opt_debug = $ENV{'GBE_DEBUG'}; # Allow global debugmy $opt_verbose = $ENV{'GBE_VERBOSE'}; # Allow global verbosemy $opt_help = 0;my $opt_manual = 0;my $opt_label;my $opt_replace;my $opt_create;my $opt_lock;my $opt_unlock;my $opt_show;my $opt_all;my $opt_remove;my $opt_delete;my @opt_exclude;my $opt_test;my $opt_rename;my $opt_auto;my $opt_clone;my $opt_recurse = 1;my $opt_mine;my $opt_info;my $opt_up = 0;my $opt_smartlock;my $opt_checkout = 2;my @opt_files;my @opt_dirs;my $opt_comment;my $opt_vob;my $opt_user;my $label;my $user_cwd;my @error_list;my $last_result;my $opr_done;my $label_exists = 0;my $build_count = 0;my $vob_desc ='';## Globals#my $USER = $ENV{'USER'};my $UNIX = $ENV{'GBE_UNIX'};my $autobuild = $ENV{'GBE_ABT'};my $UNIX_VOB_PREFIX = '/vobs';my $VOB_SEP = $UNIX ? '/' : '\\';#-------------------------------------------------------------------------------# Function : Mainline Entry Point## Description :## Inputs :#my $result = GetOptions ("help+" => \$opt_help, # flag, multiple use allowed"manual" => \$opt_manual, # flag"verbose+" => \$opt_verbose, # flag, multiple use allowed"label" => \$opt_label, # Flag"replace" => \$opt_replace, # Flag"create" => \$opt_create, # Flag"lock" => \$opt_lock, # Flag"unlock" => \$opt_unlock, # Flag"smartlock" => \$opt_smartlock, # Flag"show" => \$opt_show, # Flag"remove" => \$opt_remove, # Flag"delete" => \$opt_delete, # Flag"all" => \$opt_all, # Flag"test" => \$opt_test, # Flag"exclude=s" => \@opt_exclude, # Multiple strings"rename=s" => \$opt_rename, # String"clone=s" => \$opt_clone, # String"auto" => \$opt_auto, # Flag"recurse!", => \$opt_recurse, # [No]Flag"mine!", => \$opt_mine, # Flag"info", => \$opt_info, # Flag"up", => \$opt_up, # Flag"checkout!", => \$opt_checkout, # [No]Flag"files=s" => \@opt_files, # Multiple strings"dirs=s" => \@opt_dirs, # Multiple strings"comment=s" => \$opt_comment, # String"vob=s" => \$opt_vob, # String"user=s" => \$opt_user, # String);## UPDATE THE DOCUMENTATION AT THE END OF THIS FILE !!!### Process help and manual options#pod2usage(-verbose => 0, -message => "Version: $VERSION") if ($opt_help == 1 || ! $result);pod2usage(-verbose => 1) if ($opt_help == 2 );pod2usage(-verbose => 2) if ($opt_manual || ($opt_help > 2));pod2usage(-verbose => 0, -message => "Version: $VERSION") if ( $#ARGV < 0 );## Configure the error reporting process now that we have the user options#ErrorConfig( 'name' =>'LABEL','verbose' => $opt_verbose,'on_exit' => \&display_error_list);## Validate user options# Use either -spec or one command line argument#Error ("No labels provided") if ( $#ARGV < 0);Error ("Too many labels provided") if ( $#ARGV > 0);Error ("Conflicting options") if ( $opt_clone && $opt_label );$label = $ARGV[0];## Allow the exclude list to contain comma seperated names#@opt_exclude = split( /,/,join(',',@opt_exclude));@opt_files = split( /,/,join(',',@opt_files));@opt_dirs = split( /,/,join(',',@opt_dirs));## Determine the user#Error ("USER name not determined" )unless ( $USER );$opt_user = $USER unless ( $opt_user );## Ensure that the 'cleartool' program can be located#Verbose ("Locate clearcase utility in users path");Error ("Cannot locate the 'cleartool' utility in the users PATH")unless ( LocateProgInPath('cleartool', '--All') );#-------------------------------------------------------------------------------# Construct a vob descriptor, if required#if ( $opt_vob ){Error ("-vob option cannot be used with this command")if ( $opt_clone || $opt_label || $opt_show || $opt_remove );$vob_desc = $UNIX_VOB_PREFIX if ( $UNIX );$vob_desc = '@/' . $vob_desc . '/' . $opt_vob;$vob_desc =~ s~//~/~g;$vob_desc =~ s~/~$VOB_SEP~g;}#-------------------------------------------------------------------------------# Check to see if the clone source label exists# Create a label#if ( $opt_clone ){Verbose ("Check clone label");ClearCmd ("describe", "-short", "lbtype:$opt_clone" );Error ("Clone source label does not exist") if ( @error_list );}#-------------------------------------------------------------------------------# Check to see if the label exists#Verbose ("Check label");ClearCmd ("describe", "-short", "lbtype:$label$vob_desc" ) unless $opt_test;$label_exists = 1 unless( $opt_test || grep ( /Label type not found/, @error_list ));Verbose ("Check label: $label_exists");#-------------------------------------------------------------------------------# Process command# Create a label#if ( $opt_create || ( $opt_auto && ! $label_exists ) ){Verbose ("Create label");Error ("Label already exists") if ( $label_exists );my $opts = '-nc';$opts = '-c "' . $opt_comment . '"' if ( $opt_comment );ClearCmd ("mklbtype", $opts, "$label$vob_desc" ) unless $opt_test;Error ("Program Terminated") if ( @error_list );$opr_done = 1;}#-------------------------------------------------------------------------------# Ensure that the specified label exists#Verbose ("Check label");ClearCmd ("describe", "-short", "lbtype:$label$vob_desc" ) unless $opt_test;Error ("Program Terminated") if ( @error_list );#-------------------------------------------------------------------------------# Process command# Unlock a label - if it was locked#if ( $opt_unlock || $opt_smartlock ){Verbose ("Unlock label");ClearCmd ("describe", "-fmt", "%[locked]p", "lbtype:$label$vob_desc" );unless ( $last_result && $last_result =~ m~unlocked~ ){ClearCmd ("unlock", "lbtype:$label$vob_desc" ) unless $opt_test;Error ("Program Terminated") if ( @error_list );$opt_lock = 1 if ( $opt_smartlock );}$opr_done = 1;}#-------------------------------------------------------------------------------# Process command# Rename a labelif ( $opt_rename ){Verbose ("Rename label");ClearCmd ("rename", "lbtype:$label$vob_desc", "lbtype:$opt_rename$vob_desc" ) unless $opt_test;Error ("Program Terminated") if ( @error_list );$label = $opt_rename;## Also rename the owner of the label# This facility is used by the build process to rename WIP labels# The idea is to prevent the original owner from modifying the label#$opt_mine = 1if ( $opt_mine && ($opt_mine != 0) );$opr_done = 1;}#-------------------------------------------------------------------------------# Change label ownership#if ( $opt_mine ){Verbose ("Change label owner: $opt_user");ClearCmd ("protect", "-chown", $opt_user, "lbtype:$label$vob_desc" ) unless $opt_test;Error ("Program Terminated") if ( @error_list );$opr_done = 1;}#-------------------------------------------------------------------------------# Process command# Label files and directoriesif ( $opt_label || ( $opt_auto && ! $opt_clone ) ){Verbose ("Label files and directories");my $element0_count = 0;my $label_error = 0;my @label_these;my @check_these;my @parent_list;my $checked_out_count_dir = 0;my $checked_out_count = 0;my $missing_file_count = 0;my $is_symlink;my @cmd_opt;push @cmd_opt, "-replace" if ( $opt_replace );## Figure out what to do# Label dirs upwards if requested, or we are not doing files or dirs# Label the current directory unless asked to do files/dirs or up-only#my $do_files = scalar @opt_files;my $do_dirs = scalar @opt_dirs;my $do_up = $opt_up || ( ! $do_files && ! $do_dirs );push @opt_dirs, '.' unless ($opt_up || $do_files || $do_dirs);## Build up a list of parent directories up to the root of the VOB# that do not have the desired label#if ( $do_up ){Verbose ("Examine parent directories");my $path = getcwd();while ( 1 ){my $cmd = QuoteCommand ("cleartool", "describe", $path);my $has_label;my $is_versioned;my $start_labels;my $link;my $is_checkedout;Verbose($cmd);open(CMD, "$cmd 2>&1 |") || Error( "Can't run command: $!");while (<CMD>){## Filter output from the user#chomp;Verbose2($_);push @error_list, $_ if ( m~Error:~ );$link = $1 if ( m~^symbolic link.* -> (.*)~ );$is_versioned = 1 if ( m~^directory version ~ );$start_labels = 1 if ( m~^\s+Labels:$~ );$is_checkedout = 1 if ( m~[\\/]CHECKEDOUT"~ );next unless ( $start_labels );$has_label = 1 if ( m~^\s+$label$~ );}close(CMD);## Symbolic link located# Resolve the link and continue# The link cannot be labeled. If we can label the resolved link then# all is good, otherwise we have a a problem#if ( $link ){$is_symlink = 1;$path =~ s~[/][^/]*$~~;$path = $path . '/' . $link;$path =~ s~/[^/]+/\.\./~/~;Verbose("Symbolic link: $link, Path: $path" );next;}## Parent directory checked out. Options:# 0: Don't Label checkedout elements# 1: Do Label only checkout elements# 2: Label both#if ( $is_checkedout ){next find if ( $opt_checkout == 0 );$checked_out_count_dir++;}else{next find if ( $opt_checkout == 1 );}last unless ( $is_versioned );push @parent_list, $path unless ( $has_label );## Versioned directory seen# If the previous one loop was a symlink, then we have labeled# the link correctly#$is_symlink = 0;## Calculate the path of the parent directory# Stop when we get to the top ( ie z: is not good )#last unless ($path =~ s~[/][^/]*$~~);last unless ( $path =~ m~/~ );}Verbose ("parent directories to label: @parent_list");## Label all the parent directories#if ( @parent_list ){foreach ( @parent_list ){print "Label: $_\n";}ClearCmd ("mklabel", @cmd_opt, $label, @parent_list ) unless $opt_test;if ( @error_list ){display_error_list();@error_list = ();$label_error = 1;}}}if ( @opt_files ){my $file_error;## Process the user specified list of files#Verbose ("Examine specified files");foreach my $file ( @opt_files ){ClearCmd ("describe", "-short", $file );if ( @error_list ){display_error_list();@error_list = ();$file_error++;next;}push @check_these, $last_result;}Error ("Program Terminated") if ( $file_error );}foreach my $dir ( @opt_dirs ){## Label everything in and below the current directory# Be smart and only attempt to label stuff that does not have a label### Remove possible trailing / from user specified directory as# clearcase doesn't handle these too well.#$dir =~ tr~\\/~/~s;$dir =~ s~/+$~~;$dir = '/' unless ( $dir );Verbose ("Examine subdirectory: $dir");my $find_arg = $opt_recurse ? '' : '-nrecurse';my $cmd = QuoteCommand ("cleartool", "find", "$dir", "-cview", $find_arg, "-version", "{!lbtype($label)}", "-print");Verbose2($cmd);open(CMD, "$cmd 2>&1 |") || Error( "can't run command: $!");while (<CMD>){## Filter output from the user#chomp;Verbose2($_);if ( m~Error:~ ){## In AutoBuild Mode allow the error "Not a vob object"# This may be cause by generated directory that has been checked in# If the directory gets re-generated then the Find gets confused.#if ( $autobuild && m~Not a vob object:~ ){Warning( "AutoBuildTool surpessed: $_" );next;}push @error_list, $_;next;}push @check_these, $_;}close(CMD);Error ("Program Terminated") if ( @error_list );}## Have a list of files to examine to see if we really want to label them#find:foreach ( @check_these ){( my $file = $_ ) =~ s~@@.*~~;## If we are not recursing - then skip directories#next findif ( ! $opt_recurse && -d $file );tr~\\/~/~s;## Exclude files and directories that are the /main/0 element# These may be in a view due to branching rules# The contents will be empty. Labeling them will create uglyness# it simplifies life if we don't label them#if ( m~/main/0$~ ){$element0_count++;print "Exclude(/main/0): $_\n";next find;}## Has it been excluded#foreach my $name ( @opt_exclude ){if ( m~/$name[/@]~ ){print "Exclude: $_\n";next find;}}## Ensure that the file is really present# In a static sandbox CC retains memory of files that have been# deleted. This may be intentional it may be an error#if ( ! -e $file && ! $opt_all ){print ("WARNING: File missing from view. Not labeled: $file \n");$missing_file_count++;next find;}## Count build.pl files#if ( m~/build.pl@~i ){$build_count++;}## Handle Checked out files#if ( m/CHECKEDOUT$/ ){next find if ( $opt_checkout == 0 );$checked_out_count++;}else{next find if ( $opt_checkout == 1 );}push @label_these, $_ ;}if ( @label_these ){foreach ( @label_these){print "Label: $_\n";}## Process the labels in groups# The command line does have a finite length#my $base = 0;my $num = $#label_these;while ( $base <= $num ){my $end = $base + 10;$end = $num if ( $end > $num );print ".";ClearCmd ("mklabel", @cmd_opt, $label, @label_these[$base .. $end] ) unless ( $opt_test );if ( @error_list ){display_error_list();$label_error = 1;@error_list = ();}$base = $end + 1;}print "\n";}print "Labels applied: ". (scalar(@label_these) + scalar(@parent_list)) ."\n";print "WARNING: Labels applied to checked out parent directories: $checked_out_count_dir\n" if ( $checked_out_count_dir );print "WARNING: Labels applied to checked out files: $checked_out_count\n" if ( $checked_out_count );print "WARNING: Labels NOT applied to missing files: $missing_file_count\n" if ( $missing_file_count );print "WARNING: Labels NOT applied to element-0 of files: $element0_count\n" if ( $element0_count );print "WARNING: Path to the VOB root contains a symbolic link. Labeling incomplete.\n" if ( $is_symlink );print "WARNING: Multiple build.pl files labeled: $build_count.\n" if ( $build_count > 1 );Error ("Program Terminated") if ( $label_error );$opr_done = 1;}#-------------------------------------------------------------------------------# Process command# Cloneif ( $opt_clone ){Verbose ("Clone Label");my @cmd_opt;push @cmd_opt, "-all" if ($opt_all);my @cmd2_opt;push @cmd2_opt, "-replace" if ( $opt_replace );my $count = 0;my $checked_out_count = 0;my $cmd = QuoteCommand ("cleartool", "find", ".", @cmd_opt, "-version", "lbtype($opt_clone)", "-print");Verbose2($cmd);open(CLONECMD, "$cmd 2>&1 |") || Error( "can't run command: $!");while (<CLONECMD>){chomp;print($_ . "\n");$count++;$checked_out_count++ if ( m/CHECKEDOUT$/ );ClearCmd ("mklabel", @cmd2_opt, $label, $_ ) unless ( $opt_test );last if ( @error_list )}close(CLONECMD);Error ("Program Terminated") if ( @error_list );print "Labels applied: $count\n";print "WARNING: Labels applied to checked out files: $checked_out_count\n" if ( $checked_out_count );$opr_done = 1;}#-------------------------------------------------------------------------------# Process command# Show labeled files and directories# Remove labelsif ( $opt_show || $opt_remove ){Verbose ("Show Label");my @cmd_opt;push @cmd_opt, "-all" if ($opt_all);my $cmd = QuoteCommand("cleartool", "find", ".", @cmd_opt, "-version", "lbtype($label)", "-print");Verbose2($cmd);open(SHOWCMD, "$cmd 2>&1 |") || Error( "can't run command: $!");while (<SHOWCMD>){## Filter output from the user#chomp;print($_ . "\n");if ( $opt_remove ){ClearCmd ( "rmlabel", $label, $_ ) unless $opt_test;}}close(SHOWCMD);$opr_done = 1;}#-------------------------------------------------------------------------------# Process command# Delete a labelif ( $opt_delete ){Verbose ("Delete label");ClearCmd ("rmtype", "-force", "-rmall", "lbtype:$label$vob_desc" ) unless $opt_test;Error ("Program Terminated") if ( @error_list );$opr_done = 1;}#-------------------------------------------------------------------------------# Process command# Lock a label - if not already lockedif ( $opt_lock ){Verbose ("Lock label");ClearCmd ("describe", "-fmt", "%[locked]p", "lbtype:$label$vob_desc" );if ( $last_result =~ m~unlocked~ ){ClearCmd ("lock", "lbtype:$label$vob_desc" ) unless $opt_test;Error ("Program Terminated") if ( @error_list );}$opr_done = 1;}#-------------------------------------------------------------------------------# Process command# Display Label informationif ( $opt_info ){Verbose ("describe label");system (QuoteCommand("cleartool", "describe", "-long", "lbtype:$label$vob_desc" )) unless $opt_test;Error ("Program Terminated") if ( @error_list );$opr_done = 1;}Error ("No valid operations specified. Try -h") unless ( $opr_done );if ( $opt_test ){print ("End program [Test Mode]\n");}else{print ("End program\n");}exit 0;#-------------------------------------------------------------------------------# Function : display_error_list## Description : Display the error list# This function is registered as an Error callback function# it will be called on error exit## Inputs :## Returns :#sub display_error_list{foreach ( @error_list ){print "$_\n";}}#-------------------------------------------------------------------------------# Function : ClearCmd## Description : Similar to the system command# Does allow standard output and standard error to be captured# to a log file## Used since I was having problems with calling other programs# and control-C. It could hang the terminal session.## Inputs :## Returns :#sub ClearCmd{my $cmd = QuoteCommand (@_);Verbose2 "cleartool $cmd";@error_list = ();open(CMD, "cleartool $cmd 2>&1 |") || Error "can't run command: $!";while (<CMD>){chomp;$last_result = $_;Verbose ( "cleartool resp:" . $_);push @error_list, $_ if ( m~Error:~ );}close(CMD);Verbose2 "Exit Status: $?";return $? / 256;}#-------------------------------------------------------------------------------# Documentation#=pod=head1 NAMEjats_label - Clearcase label operations=head1 SYNOPSISjats label [options] C<label>Options:-help - brief help message-help -help - Detailed help message-man - Full documentation-auto - Auto create and label-clone=xxx - Apply new label to objects with label xxx-create - Create a label-label - Labels a directory tree-lock - Lock the label-remove - Remove label from elements-delete - Delete label label from elements and vob-rename=xxx - Rename a label-show - Show elements with the label-unlock - Unlock the label-[no]mine - Set label owner to user.-info - Provide label information-smartlock - Unlock and Relock label, if it was lockedModifiers-all - Process all the VOB. Use with -show and -remove.-replace - Replace existing labels. Use with -label-exclude=n1,n2 - Exclude files and directories from the -label process.-files=f1,f2,... - Label only the named files.-dirs=d1,d2,... - Label only the named dirs.-[no]recurse - Exclude all subdirectories from the -label process.-[no]checkout - Don't/Do label checked out files. Default - label both-up - Only label directories upwards. Do not label files/dirs-test - Just show the labels that would be added.-comment=text - Comment to add to label when created.-user=name - Used with -mine to specify user-vob=name - Specify VOB name when manipulating label.Not allowed with -label, -clone, -remove and -show=head1 OPTIONS=over 8=item B<-help>Print a brief help message and exits.=item B<-help -help>Print a detailed help message with an explanation for each option.=item B<-man>Prints the manual page and exits.=item B<-all>This option modifies the operation of the -show, -remove and -label operations.With this option the processing extends to the entire VOB. This is a slower, butmore complete operation.With this option the -label will label files that are not currently present in astatic view.=item B<-auto>This option will create the label if the label does not exist and then label thecurrent directory.This option is a combination of a -create and a -label, except that it willnot fail if the label already exists.=item B<-clone=xxx>This option will apply a new label to all objects that have the label xxx.The effect is that the specified label is clone of label xxx.This operation may be used to initiate a new build label by first cloning anexisting build before tailoring the file set.=item B<-create>This option will create the specified label. The operations will fail if thelabel is already present in the current VOB.The label will be created in the current VOB with a comment if one is provided.=item B<-delete>This option will delete the specified label from all objects with the labeland remove the label from the VOB. You need to be the owner of this label inorder for the operation to occur without error.=item B<-exclude name>Exclude specific files and directories from the labeling process.The names may be comma separated, or the option may be specified multiple times.Wildcards are supported in the form of regular expressions. All .hfiles may be excluded with the command "-exclude=.*\.h".examples:-exclude=test will exclude all directory trees called test-exclude=test,play will exclude all directory trees called 'test' and 'play'-exclude=test/seattle will exclude all directory trees called test/seattle=item B<-files=name>Label only the specified files. The names may be comma separated, or the optionmay be specified multiple times.The use of this option overrides the default operation of the label utilityand the entire file tree will not be scanned. Only the specified files will belabeled.Wildcards are not supported.Directories will not be recursed, but may be labeled.=item B<-dirs=name>Label only the specified directories. The names may be comma separated, or theoption may be specified multiple times.The use of this option overrides the default operation of the label utilityand the entire file tree will not be scanned. Only the specified directorieswill be labeled.Wildcards are not supported.=item B<-label>This option will label all the files in, and below, the current directory andall the parent directories.The -replace option may be used to force labels to be moved.The -norecurse option may be used to prevent recursion into all subdirectories,and the labeling of any directories.=item B<-lock>This option will lock the specified label. This operation will be done after anyother operations have been performed. If the label is already locked thenthis operation will not attempt to lock the label.=item B<-remove>This option will remove the specified label from all objects with the label.If the -all option is present then all elements in the entire VOB will beexamined, otherwise just this in and below the current directory will beexamined.The -all operation may take some time.=item B<-rename=xxx>This option will rename a label. The new name of the label is provided as theargument after the option. If any further operation are to be performed thenew label name will be used.By default, the owner of the label will be set to the current user. Thismechanism is used in the build process. This -nomine option changes thisbehaviour.=item B<-replace>This option may be used with the -label command to force labels to be moved tothe file or directory in the current view.=item B<-[no]recurse>This option modifies the behaviour of the B<-label> operation. The defaultbehaviour is to label all files and directories in and below the currentdirectory.The B<-norecurse> option prevents recursion into subdirectories and the labelingof subdirectories. Only files in the current directory will be labeled. -together with parent directories as required.=item B<-show>This operation will show all clearcase elements with the specified label.If the -all option is present then all elements in the entire VOB will be shown,otherwise just this in and below the current directory will be displayed.The -all operation may take some time.=item B<-test>This operation will prevent the program from performing any destructiveoperation. It may be used to show what operation would be done.=item B<-unlock>This option will unlock the specified label. This operation will be done beforeany other operations have been performed. If the label is not locked thenthis operation will not attempt to unlock the label.=item B<-[no]mine>This option will set the owner of the label to the current user. Thisoperation is performed automatically when a -rename operation occurs. The"no" option allows this behaviour to be modified.=item B<-up>This option will prevent the utility for labeling files and directories belowthe current directory. Only directories above the current directory will belabeled.This option may be specifically used with -dirs and -files to label the nameddirectories and files as well as the directoires up, from the current directory.=item B<-info>This option will provide label information. It uses the clearcase describecommand.=item B<-smartlock>This option will unlock the label for the duration of the operations and thenlock the label again - if it was locked to start with. Smart locking allowslabel operations while retaining the lock state of the label.=item B<-[no]checkout>This option affects the processing of checked out files. There are three modes ofoperation.:1) -nocheckout Checked out files are not labeled2) -checkout Only checked out files are labeled3) Neither All files are labeled.=item B<-comment=text>This option allows a comment to be added to a label when it is created. Theoption has no effect if the label is not created.=item B<-vob=name>This option is used by commands that do not acutally place labels on files tomanipulate when the user's current directry is not within a view. This allows lables to be created,locked and unlocked without having a view present.=back=head1 DESCRIPTIONThis program provides a number of useful ClearCase labeling operations. Theseare:=over 8=item create - create a label=item unlock - unlock the specified label=item rename - rename a label=item mine - change ownership of a label=item label - label a directory tree=item remove - remove the label from all labeled objects=item show - show all objects tagged with the label=item lock - lock a label=item delete - delete all instances of a label and the label=item info - describe the labels properties=backThe various operations may be mixed in the one command. The order of theoperations is: create, unlock, rename, mine, label, show, remove, delete, lockand info.Thus it is possible to create a label, label a directory tree and then lock thelabel.=head1 EXAMPLEjats label -create -label -lock daf_br_23.0.0.syd=cut