clients/Ameriquest/bin/cqverify.pl

   1 #!/usr/bin/perl -w
   2 #################################################################################
   3 #
   4 # File:         cqverify.pl
   5 # Description:  Verify that Rational Clearquest was installed correctly
   6 # Author:       Andrew@DeFaria.com
   7 # Created:      Mon Mar 15 08:48:24 PST 2004
   8 # Language:     Perl
   9 #
  10 ################################################################################
  11 use strict;
  12 use CQPerlExt;
  13
  14 my $cqverify    = "1.0";
  15 my $logpath     = "\\\\rtnlprod02\\viewstore\\PMO\\CM_TOOLS\\log";
  16 my $hostname    = `hostname`; chomp $hostname;
  17 my $logfile     = "$logpath\\$hostname.log";
  18 my $status      = 0;
  19
  20 open LOGFILE, ">>$logfile"
  21   or die "Unable to open logfile: $logfile - $!\n";
  22
  23 sub logmsg {
  24   my $message = shift;
  25
  26   print "$message\n";
  27   print LOGFILE "$message\n";
  28 } # logmsg
  29
  30 # Log in to CQ as guest
  31 logmsg "CQVerify Version $cqverify";
  32 logmsg "Verifying Clearquest/TUP installation on $hostname (" . scalar (localtime) . ")";
  33
  34 my $CQsession = CQPerlExt::CQSession_Build ()
  35   or logmsg "Unable to establish CQSession", die;
  36
  37 my ($queryDef, $resultSet, $result);
  38 eval {
  39   $CQsession->UserLogon ("guest", "guest", "AMQST", "AMQST");
  40   # Construct a CQ query that will return the ID of the first CQ record
  41   $queryDef = $CQsession->BuildQuery ("defect");
  42   $queryDef->BuildField ("id");
  43   $resultSet = $CQsession->BuildResultSet ($queryDef);
  44   $resultSet->Execute;
  45   $resultSet->GetNumberOfColumns;
  46   $status = $resultSet->MoveNext;
  47   $result = $resultSet->GetColumnValue ("1");
  48   CQSession::Unbuild ($CQsession);
  49 };
  50
  51 if ($@) {
  52   logmsg $@;
  53   logmsg
  54 "-----------------------------------------------------
  55 Clearquest/TUP NOT installed and functioning properly
  56 -----------------------------------------------------";
  57   exit 1;
  58 } else {
  59   if ($result =~ m/^AMQST/) {
  60     logmsg "Clearquest query succeeded";
  61     logmsg
  62 "-------------------------------------------------
  63 Clearquest/TUP installed and functioning properly
  64 -------------------------------------------------";
  65     exit 0;
  66   } else {
  67     logmsg "Value returned not was not expected: $result";
  68     logmsg
  69 "-----------------------------------------------------
  70 Clearquest/TUP NOT installed and functioning properly
  71 -----------------------------------------------------";
  72     exit 1;
  73   } # if
  74 } # if