X-Git-Url: https://defaria.com/gitweb/?a=blobdiff_plain;f=clients%2FAmeriquest%2Fbin%2Fccverify.pl;fp=clients%2FAmeriquest%2Fbin%2Fccverify.pl;h=52b39fa99aa2e9304236e2f3c39f9c4a475db816;hb=a8c84d2892f07a6863b68a11eb0a4a79ffd71fb5;hp=0000000000000000000000000000000000000000;hpb=95384f94f88aceeb5eef2d322210ba4a438b6512;p=clearscm.git

diff --git a/clients/Ameriquest/bin/ccverify.pl b/clients/Ameriquest/bin/ccverify.pl
new file mode 100644
index 0000000..52b39fa
--- /dev/null
+++ b/clients/Ameriquest/bin/ccverify.pl
@@ -0,0 +1,152 @@
+#!/usr/bin/perl -w
+#################################################################################
+#
+# File:         ccverify.pl
+# Description:  Verify that Rational Clearcase was installed correctly
+# Author:       Andrew@DeFaria.com
+# Created:      Mon Mar 15 08:48:24 PST 2004
+# Language:     None
+#
+# (c) Copyright 2004, Andrew@DeFaria.com, all rights reserved.
+#
+################################################################################
+use strict;
+
+my $ccverify	= "1.0";
+my $logpath	= "\\\\rtnlprod02\\viewstore\\PMO\\CM_TOOLS\\log";
+my $hostname	= `hostname`; chomp $hostname;
+my $logfile	= "$logpath\\$hostname.log";
+my $status	= 0;
+my $tag		= "ccverify";
+
+open LOGFILE, ">>$logfile"
+  or die "Unable to open logfile: $logfile - $!\n";
+
+sub logmsg {
+  my $message = shift;
+
+  print "$message\n";
+  print LOGFILE "$message\n";
+} # logmsg
+
+sub mktag {
+  my $tag	= shift;
+
+  my $status	= system "cleartool lsvob \\$tag > NUL 2>&1";
+
+  if ($status ne 0) {
+    return system "cleartool mktag -vob -tag \\$tag \\\\rtnlprod01\\vobstore\\$tag.vbs > NUL 2>&1";
+  } # if
+} # mktag
+
+sub rmtag {
+  my $tag = shift;
+
+  return system "cleartool rmtag -vob \\$tag > NUL 2>&1";
+} # rmtag
+
+sub rmview {
+  my $tag = shift;
+
+  return system "cleartool rmview -force -tag $tag > NUL 2>&1";
+} # rmview
+
+sub mkview {
+  my $tag = shift;
+
+  my $status = system "cleartool lsview -short $tag > NUL 2>&1";
+
+  if ($status ne 0) {
+    return system "cleartool mkview -tag $tag -stgloc -auto > NUL 2>&1";
+  } else {
+    rmview $tag;
+    return system "cleartool mkview -tag $tag -stgloc -auto > NUL 2>&1";
+  } # if
+} # mkview
+
+sub mount_vob {
+  my $tag = shift;
+
+  mktag $tag;
+
+  return system "cleartool mount \\$tag > NUL 2>&1";
+} # mount_vob
+
+sub umount_vob {
+  my $tag = shift;
+
+  my $status =  system "cleartool umount \\$tag > NUL 2>&1";
+
+  rmtag $tag;
+
+  return $status;
+} # umount_vob
+
+my $version		= `cleartool -ver`;
+my $primary_group	= $ENV {CLEARCASE_PRIMARY_GROUP};
+
+my @hostinfo = `cleartool hostinfo -long`;
+my $region = "Not Set";
+
+foreach (@hostinfo) {
+  chomp;
+  if (/\s*Registry region:\s*(\S*)/) {
+    $region = $1;
+    last;
+  } # if
+} # foreach
+
+logmsg "CCVerify Version $ccverify";
+logmsg "Verifying Clearcase installation on $hostname (" . scalar (localtime) . ")\n";
+logmsg "Clearcase Version Information\n";
+logmsg "$version\n";
+
+if (!defined $primary_group) {
+  $primary_group = "<not set>";
+  $status++;
+} # if
+
+logmsg "Clearcase Primary Group:\t$primary_group";
+logmsg "Clearcase Region:\t\t$region\n";
+
+if (mkview ($tag) eq 0) {
+  logmsg "Created a dynamic view named $tag";
+} else {
+  $status++;
+  logmsg "Unable to create the $tag dynamic view!";
+} # if
+
+if (mount_vob ($tag) eq 0) {
+  logmsg "Mounted the vob \\$tag";
+} else {
+  $status++;
+  logmsg "Unable to mount the vob \\$tag";
+} # if
+
+if (umount_vob ($tag) eq 0) {
+  logmsg "Unmounted the vob \\$tag";
+} else {
+  $status++;
+  logmsg "Unable to unmount vob \\$tag";
+} # if
+
+if (rmview ($tag) eq 0) {
+  logmsg "Removed view $tag";
+} else {
+  $status++;
+  logmsg "Unable to remove view $tag";
+} # if
+
+if ($status eq 0) {
+  logmsg
+"\n--------------------------------------------
+Clearcase installed and functioning properly
+--------------------------------------------\n";
+} else {
+  logmsg
+"\n------------------------------------------------
+Clearcase NOT installed and functioning properly
+------------------------------------------------\n";
+} # if
+
+exit $status;