| 1 | #!/usr/bin/perl |
| 2 | ################################################################################ |
| 3 | # |
| 4 | # File: RemoveEmptyBranch.pl,v |
| 5 | # Revision: 1.1.1.1 |
| 6 | # Description: This trigger script is remove empty branches. If a branch has |
| 7 | # no elements (except the 0 element of course) after an uncheckout |
| 8 | # remove it and the branch. |
| 9 | # Trigger Type: All element |
| 10 | # Operation: Postop rmbranch, uncheckout |
| 11 | # Author: Andrew@DeFaria.com |
| 12 | # Created: Fri Mar 12 10:17:44 PST 2004 |
| 13 | # Modified: 2007/05/17 07:45:48 |
| 14 | # Language: Perl |
| 15 | # |
| 16 | # (c) Copyright 2004, ClearSCM, Inc., all rights reserved |
| 17 | # |
| 18 | ################################################################################ |
| 19 | use strict; |
| 20 | use warnings; |
| 21 | |
| 22 | use Carp; |
| 23 | |
| 24 | my $debug = $ENV{TRIGGER_DEBUG}; |
| 25 | my $windows = ($^O || $ENV{OS}) =~ /MSWin32|Windows_NT/i ? "yes" : "no"; |
| 26 | my $SEPARATOR = $windows eq "yes" ? "\\" : "/"; |
| 27 | my $null = $windows eq "yes" ? "NUL" : "/dev/null"; |
| 28 | my $trigger_file; |
| 29 | |
| 30 | sub InitDebug { |
| 31 | my $tmpdir = $ENV{TMP}; |
| 32 | my $trigger_debug_log = "$tmpdir/trigger_debug.log"; |
| 33 | |
| 34 | open my $debugLog, '>>', $trigger_debug_log |
| 35 | or croak "Unable to open $trigger_debug_log"; |
| 36 | |
| 37 | return $debugLog |
| 38 | } # InitDebug |
| 39 | |
| 40 | sub debug { |
| 41 | my ($msg) = @_; |
| 42 | |
| 43 | return if !defined $debug; |
| 44 | |
| 45 | $trigger_file = InitDebug if !defined $trigger_file; |
| 46 | |
| 47 | print $trigger_file "$msg\n"; |
| 48 | |
| 49 | return; |
| 50 | } # debug |
| 51 | |
| 52 | # The following environment variables are set by Clearcase when this |
| 53 | # trigger is called |
| 54 | my $xname = $ENV{CLEARCASE_XPN}; |
| 55 | my $xn_sfx = $ENV{CLEARCASE_XN_SFX}; |
| 56 | my $opkind = $ENV{CLEARCASE_OP_KIND}; |
| 57 | my $brtype = $ENV{CLEARCASE_BRTYPE}; |
| 58 | my $view_type = $ENV{CLEARCASE_VIEW_KIND}; |
| 59 | |
| 60 | debug "RM_EMPTY_BRANCH Trigger:"; |
| 61 | debug "CLEARCASE_XPN = $xname"; |
| 62 | debug "CLEARCASE_XN_SFX = $xn_sfx"; |
| 63 | debug "CLEARCASE_OP_KIND = $opkind"; |
| 64 | debug "CLEARCASE_BRTYPE = $brtype"; |
| 65 | debug "CLEARCASE_VIEW_KIND = $view_type"; |
| 66 | |
| 67 | $xname =~ s/\\/\//g if $windows eq "yes"; |
| 68 | |
| 69 | # For uncheckout, if the remaining version is not 0 then we are done - |
| 70 | # the most common case... |
| 71 | exit 0 if ($opkind eq "uncheckout" && $xname !~ m/\/0$/); |
| 72 | |
| 73 | my $branch = $xname; |
| 74 | |
| 75 | if ($opkind eq "uncheckout") { |
| 76 | # Remove the last component |
| 77 | $branch =~ s/\/[^\/]*$//; |
| 78 | } # if |
| 79 | |
| 80 | # Don't try to remove the /main branch |
| 81 | exit 0 if $branch =~ m/$xn_sfx\/main$/; |
| 82 | |
| 83 | # Check if there are other versions, branches, labels or checked out versions |
| 84 | # on this branch. If so don't do anything. |
| 85 | if ($view_type eq "dynamic") { |
| 86 | opendir (DIR, $branch); |
| 87 | my @entries = readdir (DIR); |
| 88 | closedir (DIR); |
| 89 | |
| 90 | # In an empty branch there are four things: ".", "..", "0" an d"LATEST". |
| 91 | # If there are more then it isn't an empty branch |
| 92 | exit 0 if (scalar (@entries) != 4); |
| 93 | } else { |
| 94 | # Snapshot views. |
| 95 | my ($pname, $brpath) = split ($xn_sfx, $branch); |
| 96 | |
| 97 | # The rmbranch will not reload the element. This shows as "special |
| 98 | # selection, deleted version" in snapshot views This cleans that up. |
| 99 | if ($opkind eq "rmbranch") { |
| 100 | system "cleartool update -log $null \"$pname\"" if ($opkind eq "rmbranch"); |
| 101 | exit 0; # Nothing else to do here... |
| 102 | } # if |
| 103 | |
| 104 | my @vtree = `cleartool lsvtree -branch $brpath \"$pname\"`; |
| 105 | my $latest; |
| 106 | chomp ($latest = pop (@vtree)); |
| 107 | $latest =~ tr/\\/\// if $windows eq "yes"; |
| 108 | |
| 109 | exit 0 unless $latest =~ m/$brpath\/0$/; |
| 110 | } # if |
| 111 | |
| 112 | # Remove the branch! |
| 113 | debug "Removing empty branch $branch"; |
| 114 | system "cleartool rmbranch -force -nc \"$branch\""; |
| 115 | |
| 116 | exit 0; |