--- /dev/null
+@echo off
+rem -------------------------------------------------------------------------
+rem -
+rem - File: PMO-CM.cmd
+rem - Description: This script is designed to be called when the user
+rem - logs into his/her desktop. The purpose of this
+rem - script is to do start up type things. Currently this
+rem - means nothing but in the future we may add things.
+rem - Author: Andrew@DeFaria.com
+rem - Created: Mon Mar 27 14:00:00 PST 2004
+rem - Language: Dumb CMD stuff! :-(
+rem -
+rem -------------------------------------------------------------------------
--- /dev/null
+#!/usr/bin/perl
+#################################################################################
+#
+# File: backup.pl
+# Description: This script performs backups of vobs. By backup we mean that it
+# will lock a vob then copy that vobs storage area to another area
+# on disk then unlock the vob.
+# Author: Andrew@DeFaria.com
+# Created: June 23, 2004
+# Language: Perl
+# Warnings: Since we use Windows commands like xcopy this script will only
+# work under Windows.
+#
+# (c) Copyright 2004, Andrew@DeFaria.com, all rights reserved.
+#
+################################################################################
+use strict;
+use warnings;
+
+my $me = $0;
+
+$me =~ s/\.\///;
+
+my $backup_loc = "d:\\backup";
+my $history_loc = "d:\\vobstore\\backup";
+my $from_loc = "d:\\";
+my $vob_server = "rtnlprod01";
+my $day_nbr = (localtime ()) [6]; # Day # of week.
+my $total_size;
+
+# Options
+my $verbose = "no";
+
+sub Duration {
+ use integer;
+
+ my $start_time = shift;
+ my $end_time = shift;
+
+ my $hours;
+ my $minutes;
+ my $seconds = $end_time - $start_time;
+
+ if ($seconds eq 0) {
+ return "less than a second";
+ } elsif ($seconds eq 1) {
+ return "a second";
+ } elsif ($seconds < 60) {
+ return "$seconds seconds";
+ } elsif ($seconds < (60 * 60)) {
+ $minutes = $seconds / 60;
+ $seconds = $seconds % 60;
+ my $minutes_string = ($minutes eq 1) ? "minute" : "minutes";
+ my $seconds_string = ($seconds eq 1) ? "second" : "seconds";
+ return "$minutes $minutes_string $seconds $seconds_string";
+ } else {
+ $hours = $seconds / (60 * 60);
+ $seconds = $seconds % (60 * 60);
+ $minutes = $seconds / 60;
+ $seconds = $seconds % 60;
+ my $hours_string = ($hours eq 1) ? "hour" : "hours";
+ my $minutes_string = ($minutes eq 1) ? "minute" : "minutes";
+ my $seconds_string = ($seconds eq 1) ? "second" : "seconds";
+ return "$hours $hours_string $minutes $minutes_string $seconds $seconds_string";
+ } # fi
+} # Duration
+
+sub Usage {
+ print "Usage $me: [-v]";
+ print "\nWhere:\n";
+ print "\t-v\tVerbose\n";
+ exit 1;
+} # Usage
+
+sub verbose {
+ my $msg = shift;
+
+ print "$msg\n" if $verbose eq "yes";
+} # verbose
+
+sub warning {
+ my $msg = shift;
+
+ print "$me: WARNING: $msg\n";
+} # warning
+
+sub error {
+ my $msg = shift;
+ my $errno = shift;
+
+ print "$me: ERROR ";
+ print "# $errno: " if defined $errno;
+ print "$msg\n";
+
+ exit $errno if defined $errno;
+} # error
+
+sub VobSize {
+ my $vob = shift;
+
+ my $size = 0;
+ my $cleartext = 0;
+ my @space = `cleartool space $vob 2> NUL`;
+
+ foreach (@space) {
+ if (/Subtotal $/) {
+ ($size) = split;
+ } # if
+ if (/cleartext/) {
+ ($cleartext) = split;
+ } # if
+ } # foreach
+
+ return $size - $cleartext;
+} # VobSize
+
+sub LockVobs {
+ my @vobs = @_;
+
+ my $status = 0;
+
+ foreach (@vobs) {
+ chomp;
+ my $return_code = system "cleartool lock vob:$_ > NUL 2>&1";
+ warning "Unable to lock vob $_" if $return_code ne 0;
+ $status += $return_code;
+ } # foreach
+
+ return $status;
+} # LockVobs
+
+sub UnlockVobs {
+ my @vobs = @_;
+
+ my $status = 0;
+
+ foreach (@vobs) {
+ my $return_code = system "cleartool unlock vob:$_ > NUL 2>&1";
+ warning "Unable to unlock vob $_" if $return_code ne 0;
+ $status += $return_code;
+ } # foreach
+
+ return $status;
+} # UnlockVobs
+
+sub MoveOldStorage {
+ my $vob_storage_basename = shift;
+
+ my $storage = "$backup_loc\\$vob_storage_basename";
+ my $old_storage_loc = "$history_loc\\$day_nbr\\$vob_storage_basename";
+ my @output;
+
+ if (-e $old_storage_loc) {
+ @output = `rmdir /s /q $old_storage_loc`;
+
+ if ($? ne 0) {
+ error "Error in removing old storage area $old_storage_loc";
+ error (join "\n", @output);
+ } else {
+ verbose "Removed old storage area $old_storage_loc";
+ } # if
+ } # if
+
+ @output = `move $storage $old_storage_loc`;
+
+ if ($? ne 0) {
+ error "Error in moving storage area $storage to $old_storage_loc";
+ error (join "\n", @output);
+ } else {
+ verbose "Moved old storage $storage to $old_storage_loc";
+ } # if
+} # MoveOldStorage
+
+sub CopyStorage {
+ my $vob = shift;
+ my $from = shift;
+ my $vob_storage_basename = shift;
+
+ my $to = "$backup_loc\\$vob_storage_basename";
+ my $size = VobSize $vob;
+
+ $total_size += $size;
+ verbose "Copying $vob ($size meg) from $from -> $to";
+
+ my $start_time = time;
+
+ MoveOldStorage $vob_storage_basename if -e $to;
+
+ # Copy storage but exclude any file containing strings found in the
+ # d:\backup\exclude.strings file See
+ # http://www-1.ibm.com/support/docview.wss?rs=0&q1=being-deleted&uid=swg21129318&loc=en_US&cs=utf-8&cc=us&lang=en
+ # for more info.
+ my @output = `xcopy $from $to /q /e /i /h /k /x /exclude:d:\\backup\\exclude.strings`;
+
+ my $end_time = time;
+
+ if ($? ne 0) {
+ print "Error in copy of vob $vob\n";
+ print @output;
+ } else {
+ verbose "Copying of $vob ($size meg) took " . Duration $start_time, $end_time;
+ } # if
+} # CopyStorage
+
+# Get parms
+while ($#ARGV >= 0) {
+ if ($ARGV [0] eq "-v") {
+ $verbose = "yes";
+ shift;
+ next;
+ } # if
+
+ if ($ARGV [0] ne "") {
+ error "Unknown option: \"" . $ARGV [0] . "\"\n";
+ Usage;
+ } # if
+} # while
+
+# Iterrate through the list of vobs
+my $start_time = time;
+
+my @vobs = `cleartool lsvob -short -host $vob_server 2> NUL`;
+
+warning "Unable to lock all vobs" if (LockVobs @vobs) ne 0;
+
+foreach (@vobs) {
+ chomp;
+ my $line = `cleartool lsvob $_ 2> NUL`;
+ chomp $line;
+ $line =~ s/\//\\/g;
+
+ my $storage;
+
+ if ($line =~ m/(\\\\\S*)/) {
+ $storage = $1;
+ } # if
+
+ $storage =~ s/\\\\$vob_server\\/$from_loc/;
+
+ my $vob_storage_basename = substr ($storage, rindex ($storage, "\\") + 1);
+
+ CopyStorage $_, $storage, $vob_storage_basename;
+} # foreach
+
+warning "Unable to unlock all vobs" if (UnlockVobs @vobs) ne 0;
+
+my $end_time = time;
+
+verbose "Total of $total_size meg copied in: " . Duration $start_time, $end_time;
+# All done...
+exit 0;
--- /dev/null
+@echo off
+
+set view_server=rtnlprod02
+set view_share=viewstore
+set view=PMO
+set vob=CM_TOOLS
+set bin_path=\\%view_server%\%view_share%\%view%\%vob%\bin
+
+"%CLEARCASEHOME%\bin\ccperl.exe" "%bin_path%\lockvobs.pl"
--- /dev/null
+@echo off
+
+set view_server=rtnlprod02
+set view_share=viewstore
+set view=PMO
+set vob=CM_TOOLS
+set bin_path=\\%view_server%\%view_share%\%view%\%vob%\bin
+
+"%CLEARCASEHOME%\bin\ccperl.exe" "%bin_path%\lockvobs.pl" -u
--- /dev/null
+#!/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;
--- /dev/null
+@echo off\r
+rem -------------------------------------------------------------------------\r
+rem -\r
+rem - File: verify.cmd\r
+rem - Description: This command verifies the installation of Rational\r
+rem - tools.\r
+rem - Author: Andrew@DeFaria.com\r
+rem - Created: Mon Mar 28 14:52:00 PST 2004\r
+rem - Language: Dumb CMD stuff! :-(\r
+rem - Parameters: There is only one parameter that is taken and that is\r
+rem - the number of seconds that cqverify should wait \r
+rem - before starting. This is only needed if this cmvery\r
+rem - command is run from the various install scripts.\r
+rem -\r
+rem -------------------------------------------------------------------------\r
+set ccperl=C:\Program Files\Rational\Clearcase\bin\ccperl.exe\r
+set cqperl=C:\Program Files\Rational\Common\cqperl.exe\r
+set ccverify=\\rtnlprod02\viewstore\PMO\CM_TOOLS\bin\ccverify.pl\r
+set cqverify=\\rtnlprod02\viewstore\PMO\CM_TOOLS\bin\cqverify.pl\r
+set wait=\\rtnlprod02\viewstore\PMO\CM_TOOLS\bin\wait.pl\r
+set logfile=\\rtnlprod02\viewstore\PMO\CM_TOOLS\log\%COMPUTERNAME%.log\r
+\r
+rem Clear out logfile\r
+if exist %logfile% del /q /f %logfile%\r
+\r
+rem Check for necessary tools\r
+set msg=\r
+if not exist "%ccperl%" set msg=Clearcase is not installed\r
+if not exist "%ccverify%" set msg=Unable to find ccverify script (%ccverify%)!\r
+\r
+if not "%msg%" == "" goto Error\r
+\r
+rem Since we found ccperl assume that the installation was done so now\r
+rem we'll check the configuration\r
+"%ccperl%" %ccverify%\r
+\r
+rem Wait for Clearquest/TUP install to finish\r
+if not "%1" == "" echo Waitng for Clearquest/TUP installation to finish&& "%ccperl%" %wait% %1\r
+\r
+rem Now check cq\r
+if not exist "%cqperl%" set msg=Clearquest/TUP is not installed\r
+if not exist "%cqverify%" set msg=Unable to find cqverify script (%cqverify%)!\r
+\r
+if not "%msg%" == "" goto Error\r
+\r
+"%cqperl%" %cqverify%\r
+goto EXIT\r
+\r
+:Error\r
+echo %msg%\r
+echo %msg% >> %logfile%\r
+\r
+:EXIT
\ No newline at end of file
--- /dev/null
+#!/usr/bin/perl -w
+#################################################################################
+#
+# File: cqverify.pl
+# Description: Verify that Rational Clearquest was installed correctly
+# Author: Andrew@DeFaria.com
+# Created: Mon Mar 15 08:48:24 PST 2004
+# Language: Perl
+#
+################################################################################
+use strict;
+use CQPerlExt;
+
+my $cqverify = "1.0";
+my $logpath = "\\\\rtnlprod02\\viewstore\\PMO\\CM_TOOLS\\log";
+my $hostname = `hostname`; chomp $hostname;
+my $logfile = "$logpath\\$hostname.log";
+my $status = 0;
+
+open LOGFILE, ">>$logfile"
+ or die "Unable to open logfile: $logfile - $!\n";
+
+sub logmsg {
+ my $message = shift;
+
+ print "$message\n";
+ print LOGFILE "$message\n";
+} # logmsg
+
+# Log in to CQ as guest
+logmsg "CQVerify Version $cqverify";
+logmsg "Verifying Clearquest/TUP installation on $hostname (" . scalar (localtime) . ")";
+
+my $CQsession = CQPerlExt::CQSession_Build ()
+ or logmsg "Unable to establish CQSession", die;
+
+my ($queryDef, $resultSet, $result);
+eval {
+ $CQsession->UserLogon ("guest", "guest", "AMQST", "AMQST");
+ # Construct a CQ query that will return the ID of the first CQ record
+ $queryDef = $CQsession->BuildQuery ("defect");
+ $queryDef->BuildField ("id");
+ $resultSet = $CQsession->BuildResultSet ($queryDef);
+ $resultSet->Execute;
+ $resultSet->GetNumberOfColumns;
+ $status = $resultSet->MoveNext;
+ $result = $resultSet->GetColumnValue ("1");
+ CQSession::Unbuild ($CQsession);
+};
+
+if ($@) {
+ logmsg $@;
+ logmsg
+"-----------------------------------------------------
+Clearquest/TUP NOT installed and functioning properly
+-----------------------------------------------------";
+ exit 1;
+} else {
+ if ($result =~ m/^AMQST/) {
+ logmsg "Clearquest query succeeded";
+ logmsg
+"-------------------------------------------------
+Clearquest/TUP installed and functioning properly
+-------------------------------------------------";
+ exit 0;
+ } else {
+ logmsg "Value returned not was not expected: $result";
+ logmsg
+"-----------------------------------------------------
+Clearquest/TUP NOT installed and functioning properly
+-----------------------------------------------------";
+ exit 1;
+ } # if
+} # if
--- /dev/null
+On Error Resume Next\r
+\r
+Set WshShell = WScript.CreateObject ("WScript.Shell")\r
+Set fso = CreateObject ("Scripting.FileSystemObject")\r
+\r
+groups_file = "\\rtnlprod02\viewstore\PMO\CM_TOOLS\etc\groups.dat"\r
+\r
+' Simple routine to shorten WScript.Echo!\r
+Sub echo (msg)\r
+ WScript.Echo msg\r
+End Sub ' echo\r
+\r
+Sub Email_Owner (sendTo, groupname, members)\r
+ sch = "http://schemas.microsoft.com/cdo/configuration/"\r
+\r
+ Set cdoConfig = CreateObject ("CDO.Configuration")\r
+\r
+ With cdoConfig.Fields\r
+ .Item (sch & "sendusing") = 2 ' cdoSendUsingPort\r
+ .Item (sch & "smtpserver") = "appsmtp.ameriquest.net"\r
+ .Update\r
+ End With\r
+\r
+ Set email_msg = CreateObject ("CDO.Message")\r
+\r
+ email_msg.Configuration = cdoConfig\r
+ email_msg.From = "PMO-CM@Ameriquest.net"\r
+ email_msg.To = sendTo\r
+ email_msg.Subject = "Members of the " & UCase (groupname) & " Group"\r
+ email_msg.HTMLBody = "<h3>Members of the " & UCase (groupname) & " Group</h3><p> </p><ol>"\r
+\r
+ previous_member = ""\r
+ For Each member in members\r
+ If member <> previous_member Then\r
+ email_msg.HTMLBody = email_msg.HTMLBody & "<li>" & member & "</li>"\r
+ previous_member = member\r
+ End If\r
+ Next\r
+\r
+ email_msg.HTMLBody = email_msg.HTMLBody & "</ol>"\r
+ email_msg.Send\r
+End Sub \r
+\r
+' Routine to push things onto an array\r
+Sub pushArray (a, e)\r
+ On Error Resume Next\r
+ size = UBound (a)\r
+\r
+ If Err.Number <> 0 Then\r
+ size = 0\r
+ Else\r
+ size = size + 1\r
+ End If\r
+ \r
+ ReDim preserve a (size)\r
+\r
+ a (UBound (a)) = e\r
+End Sub 'pushArray\r
+\r
+' The famous QuickSort!\r
+Sub QuickSort (vec, loBound, hiBound)\r
+ Dim pivot\r
+ Dim loSwap\r
+ Dim hiSwap\r
+ Dim temp\r
+\r
+ ' This procedure is adapted from the algorithm given in:\r
+ ' Data Abstractions & Structures using C++ by\r
+ ' Mark Headington and David Riley, pg. 586\r
+ ' Quicksort is the fastest array sorting routine for\r
+ ' unordered arrays. Its big O is n log n\r
+\r
+ ' Two items to sort\r
+ If hiBound - loBound = 1 Then\r
+ If vec(loBound) > vec(hiBound) Then\r
+ temp = vec (loBound)\r
+ vec (loBound) = vec (hiBound)\r
+ vec (hiBound) = temp\r
+ End If\r
+ End If\r
+\r
+ ' Three or more items to sort\r
+ pivot = vec (Int ((loBound + hiBound) / 2))\r
+ vec (Int ((loBound + hiBound) / 2)) = vec (loBound)\r
+ vec (loBound) = pivot\r
+ loSwap = loBound + 1\r
+ hiSwap = hiBound\r
+ \r
+ Do\r
+ ' Find the right loSwap\r
+ While loSwap < hiSwap and vec (loSwap) <= pivot\r
+ loSwap = loSwap + 1\r
+ Wend\r
+ \r
+ ' Find the right hiSwap\r
+ While vec (hiSwap) > pivot\r
+ hiSwap = hiSwap - 1\r
+ Wend\r
+ \r
+ ' Swap values if loSwap is less then hiSwap\r
+ If loSwap < hiSwap Then\r
+ temp = vec (loSwap)\r
+ vec (loSwap) = vec (hiSwap)\r
+ vec (hiSwap) = temp\r
+ End If\r
+ Loop While loSwap < hiSwap\r
+ \r
+ vec (loBound) = vec(hiSwap)\r
+ vec (hiSwap) = pivot\r
+ \r
+ ' Recursively call function .. the beauty of Quicksort\r
+ ' 2 or more items in first section\r
+ If loBound < (hiSwap - 1) Then\r
+ QuickSort vec, loBound, hiSwap - 1\r
+ End If\r
+ \r
+ ' 2 or more items in second section\r
+ If hiSwap + 1 < hibound Then\r
+ QuickSort vec, hiSwap+1, hiBound\r
+ End If\r
+End Sub ' QuickSort\r
+\r
+' Get the group members out of Active Directory and push them\r
+' onto the grp_mbrs array\r
+Sub DumpGroup (groupname)\r
+ ' Create an LDAP object and set up the search for groupname\r
+ On Error Resume Next\r
+ Err.Clear\r
+ Set LDAPGroups = GetObject ( _\r
+ "LDAP://cn=" & _\r
+ groupname & _ \r
+ ",ou=apps,ou=Groups,ou=Corp,dc=ameriquest,dc=net" _\r
+ )\r
+ \r
+ If Err.Number <> 0 Then\r
+ Err.Clear\r
+ echo "Warning: " & UCase (groupname) & " is empty!"\r
+ Exit Sub\r
+ End If\r
+\r
+ LDAPGroups.GetInfo\r
+\r
+ ' Get an array of members\r
+ members = LDAPGroups.GetEx ("member")\r
+\r
+ ' For each member get their displayName and push it onto the array\r
+ For Each member in members\r
+ Set user = GetObject ("LDAP://"& member)\r
+ LDAPGroups.filter = array ("user")\r
+ user.GetInfo\r
+\r
+ ' Kludgy way to check to see if this is a group: We attempt\r
+ ' to get groupType which should only be in a group type \r
+ ' record. If this fails then process the member as an\r
+ ' individual member, otherwise recurse to process the\r
+ ' group within the group...\r
+ Err.Clear\r
+ user.Get ("groupType")\r
+\r
+ if Err.Number = 0 Then\r
+ Err.Clear\r
+ groupname = LCase (user.Get ("cn"))\r
+ DumpGroup (groupname)\r
+ Else\r
+ name = user.Get ("displayName")\r
+ pushArray grp_mbrs, name\r
+ End If\r
+ Next\r
+End Sub \r
+\r
+' Open the groups definition file\r
+Set groups = fso.OpenTextFile (groups_file)\r
+\r
+Do While Not groups.AtEndOfStream\r
+ line = groups.ReadLine\r
+\r
+ ' *** Need to also skip blank lines\r
+ If Line <> "" Then\r
+ If InStr (line, "#") <> 1 Then\r
+ With New RegExp\r
+ .Pattern = "\s+"\r
+ .Global = True\r
+ line = Trim (.replace (line, " "))\r
+ End With\r
+\r
+ ' Split out fields\r
+ groupname = ""\r
+ owner = ""\r
+ fields = Split (line)\r
+ groupname = LCase (fields (0))\r
+ owner = LCase (fields (1))\r
+\r
+ echo "Processing group " & UCase (groupname) & " (" & owner & ")"\r
+\r
+ Dim grp_mbrs ()\r
+\r
+ ' Get members of this group\r
+ DumpGroup (groupname)\r
+\r
+ If UBound (grp_mbrs) > 0 Then\r
+ ' Sort them\r
+ QuickSort grp_mbrs, LBound (grp_mbrs), UBound (grp_mbrs)\r
+\r
+ ' Output them\r
+ If owner <> "" Then\r
+ Email_Owner owner, groupname, grp_mbrs\r
+ Else\r
+ echo "Group: " & UCase (groupname) & " has no owner email in " & groups_file\r
+ End If\r
+\r
+ Erase grp_mbrs\r
+ End If\r
+ End If\r
+ End If\r
+Loop\r
--- /dev/null
+#!/usr/bin/perl -w
+#################################################################################
+#
+# File: tagit
+# Description: Script to tag views or vobs into the current region. The main
+# motivation for this script is to be able to tag things quickly
+# and easily. As such we employ heuristics to find these objects.
+# Author: Andrew@DeFaria.com
+# Created: Fri Apr 9 12:19:04 PDT 2004
+# Language: Perl
+#
+# (c) Copyright 2004, Andrew@DeFaria.com, all rights reserved.
+#
+################################################################################
+use strict;
+use File::Spec;
+
+my $me;
+
+BEGIN {
+ # Extract relative path and basename from script name.
+ $0 =~ /.*[\/\\](.*)/;
+ $me = (!defined $1) ? $0 : $1;
+} # BEGIN
+
+# Check to see if we are running on Windows
+my $windows = ($^O =~ /MSWin/) ? "yes" : "no";
+my $null = $windows eq "yes" ? "NUL" : "/dev/null";
+my $backslashes = $windows eq "yes" ? "\\" : "\\\\";
+
+sub Usage {
+ print "Usage $me: [[ -view ] <view_tag> ] [ -vob <vob_tag> ]\n";
+ print "\nWhere:\n";
+ print "\t-view\tView tag to tag in current region\n";
+ print "\t-vob\tVob tag to tag in current region\n";
+ exit 1;
+} # Usage
+
+sub GetCurrentRegion {
+ my @lines = `cleartool hostinfo -l`;
+
+ foreach (@lines) {
+ chomp; chop $_ if /\r/;
+
+ if (/Registry region: (\S+)/) {
+ return $1;
+ } # if
+ } # foreach
+
+ return undef;
+} # GetCurrentRegion
+
+my $current_region = GetCurrentRegion;
+my @regions = `cleartool lsregion`;
+
+sub FindView {
+ my $view_tag = shift;
+
+ foreach (@regions) {
+ chomp; chop if /\r/;
+
+ my $output = `cleartool lsview -region $_ $view_tag 2> $null`;
+ chomp $output; chop $output if /\r/;
+
+ if ($output =~ /$view_tag\s*(.*)/) {
+ my $view_storage = $1;
+ $view_storage =~ tr /\\/\/\//;
+ return ($view_storage, $_);
+ } # if
+ } # foreach
+
+ return;
+} # FindView
+
+sub FindVob {
+ my $vob_tag = shift;
+
+ foreach (@regions) {
+ chomp; chop if /\r/;
+
+ my $output = `cleartool lsvob -region $_ $backslashes$vob_tag 2> $null`;
+ chomp $output; chop $output if /\r/;
+
+ if ($output =~ /$vob_tag\s*(\S*)/) {
+ my $vob_storage = $1;
+ $vob_storage =~ tr /\\/\/\//;
+ return ($vob_storage, $_);
+ } # if
+ } # foreach
+
+ return;
+} # FindVob
+
+sub MkViewTag {
+ my $view_tag = shift;
+ my $view_storage = shift;
+
+ # Check to see if view tag already exists
+ if (!system "cleartool lsview $view_tag > $null 2>&1") {
+ print "$view_tag already exists in $current_region\n";
+ return 0;
+ } else {
+ if (system "cleartool mktag -view -tag $view_tag $view_storage") {
+ die "Unable to make view tag: $view_tag in $current_region\n";
+ } # if
+ return 1;
+ } # if
+} # MkViewTag
+
+sub MkVobTag {
+ my $vob_tag = shift;
+ my $vob_storage = shift;
+
+ # Check to see if vob tag already exists
+ if (!system "cleartool lsvob $backslashes$vob_tag > $null 2>&1") {
+ print "$vob_tag already exists in $current_region\n";
+ return 1;
+ } else {
+ print "cleartool mktag -vob -tag $backslashes$vob_tag $vob_storage\n";
+ if (system "cleartool mktag -vob -tag $backslashes$vob_tag $vob_storage") {
+ die "Unable to make vob tag: $vob_tag in $current_region\n";
+ } # if
+ return 0;
+ } # if
+} # MkVobTag
+
+my $view_tag;
+my $vob_tag;
+
+# Get parms
+while ($#ARGV >= 0) {
+ if ($ARGV [0] eq "-u" or $ARGV [0] eq "-usage") {
+ Usage;
+ } # if
+
+ if ($ARGV [0] eq "-vob") {
+ shift;
+ $vob_tag = $ARGV [0];
+ # Script all backslashes - we'll re-add them when needed...
+ $vob_tag =~ s/\\//;
+ shift;
+ next;
+ } # if
+
+ if ($ARGV [0] eq "-view") {
+ shift;
+ $view_tag = $ARGV [0];
+ next;
+ } # if
+} # while
+
+if (!(defined $view_tag or defined $vob_tag)) {
+ Usage "Must specify a view or a vob to tag!";
+} # if
+
+if (defined $view_tag) {
+ my ($view_storage, $view_region) = FindView $view_tag;
+
+ die "Unable to find view $view_tag in any region!\n" if !defined $view_region;
+ die "Unable to find storage area for $view_tag\n" if !defined $view_storage;
+
+ if ($view_region eq $current_region) {
+ print "$view_tag already exists in $current_region\n";
+ } else {
+ print "$view_tag, from $view_region region, added to $current_region region\n" if MkViewTag $view_tag, $view_storage;;
+ } # if
+} # if
+
+if (defined $vob_tag) {
+ my ($vob_storage, $vob_region) = FindVob $vob_tag;
+
+ die "Unable to find vob $vob_tag in any region!\n" if !defined $vob_region;
+ die "Unable to find storage area for $vob_tag\n" if !defined $vob_storage;
+
+ if ($vob_region eq $current_region) {
+ print "$vob_tag already exists in $current_region\n";
+ } else {
+ print "$vob_tag, from $vob_region, added to $current_region region\n" if MkVobTag $vob_tag, $vob_storage;;
+ } # if
+} # if
+
+exit 0;
+
--- /dev/null
+#!/usr/bin/perl
+use strict;
+use warnings;
+
+my $windows = $^O =~ /MSWin/ ? "yes" : "no";
+my $vob_server = "rtnlprod01";
+
+sub VobSize {
+ my $vob = shift;
+
+ my @space;
+
+ if ($windows eq "yes") {
+ @space = `cleartool space $vob 2>&1`;
+ } else {
+ @space = `cleartool space \\$vob 2>&1`;
+ } # if
+
+ foreach (@space) {
+ chomp; chop if /\r/;
+ if (/Subtotal $/) {
+ my ($size) = split;
+ return $size;
+ } # if
+ } # foreach
+
+ return 0;
+} # VobSize
+
+my (
+ $vob,
+ $size,
+ $count,
+ $total_size
+);
+
+format STDOUT_TOP =
+ Nbr VOB Size
+---- ----------------------- -----------
+.
+format STDOUT =
+@>>) @<<<<<<<<<<<<<<<<<<<<<< @>>>>>> Meg
+$count,$vob,$size
+.
+
+format TOTAL_TOP =
+---- ----------------------- -----------
+.
+
+format TOTAL_LINE =
+Total vob size: @>>>>>> Meg
+$total_size
+.
+
+my @vobs = `cleartool lsvob -short -host $vob_server`;
+
+foreach $vob (sort (@vobs)) {
+ $count++;
+ chomp $vob; chop $vob if $vob =~ /\r/;
+
+ $size = VobSize $vob;
+
+ $total_size += $size;
+
+ write; $- = 1;
+} # foreach
+
+$~ = "TOTAL_TOP";
+write; $- = 1;
+
+$~ = "TOTAL_LINE";
+write; $- = 1;
--- /dev/null
+@echo off
+set CM_TOOLS=\\rtnlprod02\viewstore\PMO\CM_TOOLS
+cscript /nologo "%CM_TOOLS%\bin\whosin.vbs" %*
\ No newline at end of file
--- /dev/null
+On Error Resume Next\r
+\r
+Set WshShell = WScript.CreateObject ("WScript.Shell")\r
+Set fso = CreateObject ("Scripting.FileSystemObject")\r
+\r
+' Argument vector\r
+Set ARGV = Wscript.Arguments\r
+\r
+' Simple routine to shorten WScript.Echo!\r
+Sub echo (msg)\r
+ WScript.Echo msg\r
+End Sub ' echo\r
+\r
+Sub Display_Members (sendTo, groupname, members)\r
+ echo "Members of the " & UCase (groupname) & " Group"\r
+\r
+ previous_member = ""\r
+ For Each member in members\r
+ If member <> previous_member Then\r
+ echo vbTAB & member\r
+ previous_member = member\r
+ End If\r
+ Next\r
+End Sub \r
+\r
+' Routine to push things onto an array\r
+Sub pushArray (a, e)\r
+ On Error Resume Next\r
+ size = UBound (a)\r
+\r
+ If Err.Number <> 0 Then\r
+ size = 0\r
+ Else\r
+ size = size + 1\r
+ End If\r
+ \r
+ ReDim preserve a (size)\r
+\r
+ a (UBound (a)) = e\r
+End Sub 'pushArray\r
+\r
+' The famous QuickSort!\r
+Sub QuickSort (vec, loBound, hiBound)\r
+ Dim pivot\r
+ Dim loSwap\r
+ Dim hiSwap\r
+ Dim temp\r
+\r
+ ' This procedure is adapted from the algorithm given in:\r
+ ' Data Abstractions & Structures using C++ by\r
+ ' Mark Headington and David Riley, pg. 586\r
+ ' Quicksort is the fastest array sorting routine for\r
+ ' unordered arrays. Its big O is n log n\r
+\r
+ ' Two items to sort\r
+ If hiBound - loBound = 1 Then\r
+ If vec(loBound) > vec(hiBound) Then\r
+ temp = vec (loBound)\r
+ vec (loBound) = vec (hiBound)\r
+ vec (hiBound) = temp\r
+ End If\r
+ End If\r
+\r
+ ' Three or more items to sort\r
+ pivot = vec (Int ((loBound + hiBound) / 2))\r
+ vec (Int ((loBound + hiBound) / 2)) = vec (loBound)\r
+ vec (loBound) = pivot\r
+ loSwap = loBound + 1\r
+ hiSwap = hiBound\r
+ \r
+ Do\r
+ ' Find the right loSwap\r
+ While loSwap < hiSwap and vec (loSwap) <= pivot\r
+ loSwap = loSwap + 1\r
+ Wend\r
+ \r
+ ' Find the right hiSwap\r
+ While vec (hiSwap) > pivot\r
+ hiSwap = hiSwap - 1\r
+ Wend\r
+ \r
+ ' Swap values if loSwap is less then hiSwap\r
+ If loSwap < hiSwap Then\r
+ temp = vec (loSwap)\r
+ vec (loSwap) = vec (hiSwap)\r
+ vec (hiSwap) = temp\r
+ End If\r
+ Loop While loSwap < hiSwap\r
+ \r
+ vec (loBound) = vec(hiSwap)\r
+ vec (hiSwap) = pivot\r
+ \r
+ ' Recursively call function .. the beauty of Quicksort\r
+ ' 2 or more items in first section\r
+ If loBound < (hiSwap - 1) Then\r
+ QuickSort vec, loBound, hiSwap - 1\r
+ End If\r
+ \r
+ ' 2 or more items in second section\r
+ If hiSwap + 1 < hibound Then\r
+ QuickSort vec, hiSwap+1, hiBound\r
+ End If\r
+End Sub ' QuickSort\r
+\r
+' Get the group members out of Active Directory and push them\r
+' onto the grp_mbrs array\r
+Sub DumpGroup (groupname)\r
+ ' Create an LDAP object and set up the search for groupname\r
+ On Error Resume Next\r
+ Err.Clear\r
+ Set LDAPGroups = GetObject ( _\r
+ "LDAP://cn=" & _\r
+ groupname & _ \r
+ ",ou=apps,ou=Groups,ou=Corp,dc=ameriquest,dc=net" _\r
+ )\r
+ \r
+ If Err.Number <> 0 Then\r
+ Err.Clear\r
+ echo "Warning: " & UCase (groupname) & " is empty!"\r
+ Exit Sub\r
+ End If\r
+\r
+ LDAPGroups.GetInfo\r
+\r
+ ' Get an array of members\r
+ members = LDAPGroups.GetEx ("member")\r
+\r
+ ' For each member get their displayName and push it onto the array\r
+ For Each member in members\r
+ Set user = GetObject ("LDAP://"& member)\r
+ LDAPGroups.filter = array ("user")\r
+ user.GetInfo\r
+\r
+ ' Kludgy way to check to see if this is a group: We attempt\r
+ ' to get groupType which should only be in a group type \r
+ ' record. If this fails then process the member as an\r
+ ' individual member, otherwise recurse to process the\r
+ ' group within the group...\r
+ Err.Clear\r
+ user.Get ("groupType")\r
+\r
+ if Err.Number = 0 Then\r
+ Err.Clear\r
+ groupname = LCase (user.Get ("cn"))\r
+ DumpGroup (groupname)\r
+ Else\r
+ name = user.Get ("displayName")\r
+ pushArray grp_mbrs, name\r
+ End If\r
+ Next\r
+End Sub\r
+\r
+For Each ARG in ARGV\r
+ Dim grp_mbrs ()\r
+\r
+ ' Get members of this group\r
+ DumpGroup (ARG)\r
+ \r
+ If UBound (grp_mbrs) > 0 Then\r
+ ' Sort them\r
+ QuickSort grp_mbrs, LBound (grp_mbrs), UBound (grp_mbrs)\r
+ \r
+ ' Output them\r
+ Display_Members owner, ARG, grp_mbrs\r
+\r
+ Erase grp_mbrs\r
+ echo\r
+ End If\r
+Next
\ No newline at end of file
--- /dev/null
+From: ASAP Adm <ASAPAdm@Ameriquest.net>\r
+To: GSaha@Ameriquest.com, RRao@Amerquest.com\r
+Subject: $CLEARCASE_OP_KIND: $CLEARCASE_PN\r
+--\r
+This is a notification that a $CLEARCASE_OP_KIND has occurred:\r
+\r
+Element: $CLEARCASE_PN\r
+Branch: $CLEARCASE_BRTYPE\r
+Operation: $CLEARCASE_OP_KIND\r
+User: $CLEARCASE_USER\r
+View: $CLEARCASE_VIEW_TAG\r
+Comments: \r
+\r
+$CLEARCASE_COMMENT\r
+\r
+For information about recent activity see http://asapcm.ameriquest.net/logs\r
--- /dev/null
+From: ASAP Adm <ASAPAdm@Ameriquest.net>\r
+To: MMonterrey@Ameriquest.com, GSaha@Ameriquest.com, RRao@Amerquest.com, abhijit.bhide@tavant.com\r
+Subject: $CLEARCASE_OP_KIND: $CLEARCASE_PN\r
+--\r
+This is a notification that a $CLEARCASE_OP_KIND has occurred:\r
+\r
+Element: $CLEARCASE_PN\r
+Branch: $CLEARCASE_BRTYPE\r
+Operation: $CLEARCASE_OP_KIND\r
+User: $CLEARCASE_USER\r
+View: $CLEARCASE_VIEW_TAG\r
+Comments: \r
+\r
+$CLEARCASE_COMMENT\r
+\r
+For information about recent activity see http://asapcm.ameriquest.net/logs\r
--- /dev/null
+#!/usr/bin/perl
+################################################################################
+#
+# File: AddExecute.pl
+# Description: This trigger script simply adds execute permission to an element
+# when it is created in Clearcase
+# Trigger Type: All element
+# Operation: Postop mkelem
+# Author: Andrew@DeFaria.com
+# Created: Fri Mar 12 10:17:44 PST 2004
+# Language: Perl
+# Modifications:
+#
+# (c) Copyright 2004, Andrew@DeFaria.com, all rights reserved
+#
+################################################################################
+use strict;
+use warnings;
+
+my $element = $ENV{CLEARCASE_PN};
+
+system "cleartool protect -chmod +x \"$element\"";
+
+exit 0;
--- /dev/null
+#!/usr/bin/perl
+################################################################################
+#
+# File: CommentSQLCode.pl
+# Description: This trigger script will gather certain information and write
+# that information into the element being checked in in the form
+# of a comment.
+#
+# Here are the requirements as I understand them for the
+# trigger that Steve Lipson wants for the SQL
+# checkins. Basically he desires a trigger that will
+# capture the checkin comment and other information and
+# insert that information in the form of a comment at
+# the top of the checked in element. This trigger will:
+#
+# * Be a postop trigger for the checkin action
+# * Not be an all element trigger rather it will
+# be attached to certain file elements in the
+# vob
+# * Be made for the <fill in vob name here> vob
+# * Only work on file elements - directory
+# elements are to be skipped
+# * Only work on file elements that have an
+# extension of .sql - other elements will be
+# skipped
+#
+# Author: Andrew@DeFaria.com
+# Created: Mon Jul 19 10:54:01 PDT 2004
+# Language: Perl
+# Modifications:Wed Aug 4 12:41:47 PDT 2004
+#
+# (c) Copyright 2004, Andrew@DeFaria.com, all rights reserved
+#
+################################################################################
+use strict;
+use warnings;
+use File::Spec;
+
+# This will be set in the BEGIN block but by putting them here the become
+# available for the whole script.
+my (
+ $abs_path,
+ $lib_path,
+ $log_path,
+ $me,
+ $triggers_path
+);
+
+BEGIN {
+ # Extract relative path and basename from script name.
+ $0 =~ /(.*)[\/\\](.*)/;
+
+ $abs_path = (!defined $1) ? "." : File::Spec->rel2abs ($1);
+ $me = (!defined $2) ? $0 : $2;
+
+ # Setup paths
+ $lib_path = "$abs_path/../lib";
+ $log_path = "$abs_path/../log";
+ $triggers_path = "$abs_path/../triggers";
+
+ # Add the appropriate path to our modules to @INC array.
+ unshift (@INC, "$lib_path");
+} # BEGIN
+
+use TriggerUtils;
+
+sub getCurrentTime {
+ my ($sec, $min, $hour, $mday, $mon, $year, $wday, $yday, $isdst) = localtime (time);
+ $mon++;
+ $year += 1900;
+ $hour = "0" . $hour if $hour < 10;
+ $min = "0" . $min if $min < 10;
+ return "$mon/$mday/$year\@$hour:$min";
+} # getCurrentTime
+
+sub parseLSActivity {
+ my ($activity_id, $activity_title, $activity_owner);
+
+ my @output = `cleartool lsactivity -cact -long`;
+
+ if ($? ne 0 || $#output eq -1) {
+ clearmsg "You are not set to an activity!";
+ exit 1;
+ } # if
+
+ foreach (@output) {
+ if (/^activity \"(\S*)\"/) {
+ $activity_id = $1;
+ next;
+ } elsif (/owner: AMERIQUEST\\(\S*)/) {
+ $activity_owner = $1;
+ next;
+ } elsif (/title: (.*)/) {
+ $_ = $1;
+ chomp; chop if /\r/;
+ $activity_title = $_;
+ next;
+ } # if
+ } # foreach
+
+ return ($activity_id, $activity_owner, $activity_title);
+} # parseLSActivity
+
+# Get name of element and its type
+my $pname = $ENV{CLEARCASE_PN};
+my $element_type = $ENV{CLEARCASE_ELTYPE};
+
+# Skip directories and elements that aren't .sql
+exit if $element_type =~ /directory/i || $pname !~ /\.sql$/i;
+
+# Get comment and user
+my $comment = $ENV{CLEARCASE_COMMENT};
+my $userid = $ENV{CLEARCASE_USER};
+
+# Format timestamp
+my $timestamp = getCurrentTime;
+
+# Parse output of lsactivity -cact -long
+my ($activity_id, $activity_owner, $activity_title) = parseLSActivity;
+
+# Open up $pname for reading and $pname.trig for writting
+open PNAME_IN, $pname
+ or clearlogmsg "Unable to open $pname for reading - $!\n", exit 1;
+
+open PNAME_OUT, ">$pname.trig"
+ or clearlogmsg "Unable to open $pname.trig for writing - $!\n", exit 1;
+
+# Add comment to top of file
+my $activity_str = "$activity_id: $activity_title";
+my $owner_str = $activity_owner =~ /\$userid/i ? "$activity_owner ($userid)" : "$activity_owner";
+
+print PNAME_OUT <<END;
+-- Date:\t$timestamp
+-- Activity:\t$activity_str
+-- Owner:\t$owner_str
+-- Comment:\t$comment
+--------------------------------------------------------------------------------\n
+END
+
+# Append $pname
+while (<PNAME_IN>) {
+ print PNAME_OUT $_;
+} # while
+
+close PNAME_IN;
+close PNAME_OUT;
+
+# Switch $pname.trig -> $pname
+rename "$pname.trig", $pname
+ or clearlogmsg "Internal error - Unable to rename $pname.trig to $pname", exit 1;
+
+# Allow checkin to proceed
+exit 0;
--- /dev/null
+#!/usr/bin/perl
+################################################################################
+#
+# File: LogActivity.pl
+# Description: This trigger will log all activity into a "log" file of HTML
+# format. Logfiles are kept per day thus the date appears as
+# part of their names.
+#
+# This script requires one parameter, which is a path to a
+# folder where to store the log files. Generally this is a UNC
+# path to an area under some web server's DocumentRoot.
+#
+# Author: Andrew@DeFaria.com
+# Created: May 18, 2004
+# Language: Perl
+# Modifications:
+#
+# (c) Copyright 2004, Andrew@DeFaria.com, all rights reserved
+#
+################################################################################
+use strict;
+use warnings;
+use File::Spec;
+
+# This will be set in the BEGIN block but by putting them here the become
+# available for the whole script.
+my (
+ $abs_path,
+ $me,
+ $bin_path,
+ $triggers_path,
+ $lib_path,
+ $log_path,
+ $windows
+);
+
+BEGIN {
+ # Extract relative path and basename from script name.
+ $0 =~ /(.*)[\/\\](.*)/;
+
+ $abs_path = (!defined $1) ? "." : File::Spec->rel2abs ($1);
+ $me = (!defined $2) ? $0 : $2;
+
+ # Check to see if we are running on Windows
+ $windows = ($^O =~ /MSWin/) ? "yes" : "no";
+
+ # Setup paths
+ $bin_path = "$abs_path";
+ $triggers_path = "$abs_path/../triggers";
+ $lib_path = "$abs_path/../lib";
+ $log_path = "$abs_path/../log";
+
+ # Add the appropriate path to our modules to @INC array.
+ unshift (@INC, "$lib_path");
+} # BEGIN
+
+use TriggerUtils;
+
+use Time::localtime;
+
+if (!defined $ARGV [0]) {
+ clearlogmsg "Must specify a logpath!";
+ exit 1;
+} # if
+
+my $logpath = $ARGV [0];
+
+sub Log {
+ my $logfile = shift;
+ my $vob = shift;
+ my $title = shift;
+ my $time = shift;
+ my $user = shift;
+ my $type = shift;
+ my $action = shift;
+ my $path = shift;
+ my $element = shift;
+ my $version = shift;
+ my $comments = shift;
+
+ $logfile = $logpath . "\\" . $logfile;
+
+ if (-e "$logfile") {
+ my $status = open LOG, ">>$logfile";
+
+ if (!defined $status) {
+ clearlogmsg "Unable to open log file $logfile - $!";
+ return 1;
+ } # if
+
+ print LOG <<END;
+<tr>
+ <td><font size=-1>$time</font></td>
+ <td><font size=-1>$user</font></td>
+ <td><font size=-1>$type</font></td>
+ <td><font size=-1>$action</font></td>
+ <td><font size=-1>$path</font></td>
+ <td><font size=-1>$element</font></td>
+ <td><font size=-1>$version</font></td>
+ <td><font size=-1>$comments</font></td>
+</tr>
+END
+ } else {
+ my $status = open LOG, ">>$logfile";
+
+ if (!defined $status) {
+ clearlogmsg "Unable to open log file $logfile - $!";
+ return 1;
+ } # if
+
+ print LOG <<END;
+<html>
+ <head>
+ <title>$title</title>
+ </head>
+ <body>
+ <h2 align=center>$title</h2>
+ <table align=center border=1 cellspacing=0 cellpadding=2>
+ <tr bgcolor="teal" align="center">
+ <th><font color="white" size=-1>Time</font></th>
+ <th><font color="white" size=-1>User</font></th>
+ <th><font color="white" size=-1>Type</font></th>
+ <th><font color="white" size=-1>Action</font></th>
+ <th><font color="white" size=-1>Path</font></th>
+ <th><font color="white" size=-1>Name</font></th>
+ <th><font color="white" size=-1>Version</font></td>
+ <th><font color="white" size=-1>Comment</font></th>
+ </tr>
+ <tr>
+ <td><font size=-1>$time</font></td>
+ <td><font size=-1>$user</font></td>
+ <td><font size=-1>$type</font></td>
+ <td><font size=-1>$action</font></td>
+ <td><font size=-1>$path</font></td>
+ <td><font size=-1>$element</font></td>
+ <td><font size=-1>$version</font></td>
+ <td><font size=-1>$comments</font></td>
+ </tr>
+END
+ } # if
+
+ close LOG;
+
+ return 0;
+} # Log
+
+# Format $curdate as yyyy-mm-dd and $curtime as hh:mm [AP]m
+my $time = localtime;
+my $year = $time->year + 1900;
+my $month = ($time->mon < 9) ? "0" . ($time->mon + 1) : $time->mon + 1;
+my $day = ($time->mday < 10) ? "0" . $time->mday : $time->mday;
+my $hours = $time->hour;
+my $minutes = ($time->min < 10) ? "0" . $time->min : $time->min;
+my $ampm = "Am";
+
+if ($hours > 12) {
+ $ampm = "Pm";
+ $hours -= 12;
+} elsif ($hours eq 12) {
+ $ampm = "Pm";
+} # if
+
+my $curtime = $hours . ":" . $minutes . " $ampm";
+my $curdate = $year . "-" . $month . "-" . $day;
+
+# Get Clearcase environment variables that we'll need
+my $type = $ENV {CLEARCASE_ELTYPE};
+my $user = $ENV {CLEARCASE_USER};
+my $vob = $ENV {CLEARCASE_VOB_PN};
+
+# Remove leading "\" from vob, just cause it looks ugly! :-)
+$vob =~ s/^\\//;
+
+my $version = $ENV {CLEARCASE_ID_STR};
+
+# $version is N/A for mkelem and rmname
+$version = "<font color=#666666>N/A</font>" if (!defined $version);
+
+my $comments = $ENV {CLEARCASE_COMMENT};
+
+# $comments is N/A for rmname
+$comments = "<font color=#666666>N/A</font>" if (!defined $comments);
+
+my $pname = $ENV {CLEARCASE_PN};
+my $action = $ENV {CLEARCASE_OP_KIND};
+
+my $title = "Activity in vob $vob on $month/$day/$year";
+
+# Extract element
+my $element = substr ($pname, rindex ($pname, "\\") + 1);
+my $path = substr ($pname, rindex ($pname, $vob) + length ($vob) + 1);
+
+$path = ($path eq $element) ? ".\\" : substr ($path, 0, rindex ($path, $element) - 1);
+
+my $logfile = "${vob}_$curdate.html";
+
+# Create/Add to HTML logfile.
+exit (Log $logfile, $vob, $title, $curtime, $user, $type, $action, $path, $element, $version, $comments);
--- /dev/null
+#!/usr/bin/perl
+################################################################################
+#
+# File: NoPBLs.pl
+# Description: This trigger stops all users except for vobadm and Steve Lipson
+# (userid to be specified) from checking in PBLs which are
+# PowerBuilder libraries and should never be checked into a vob.
+# Why Steve Lipson would want this capability is unknown.
+#
+# Author: Andrew@DeFaria.com
+# Created: May 18, 2004
+# Language: Perl
+# Modifications:
+#
+# (c) Copyright 2004, Andrew@DeFaria.com, all rights reserved
+#
+################################################################################
+use strict;
+use warnings;
+use File::Spec;
+
+# This will be set in the BEGIN block but by putting them here the become
+# available for the whole script.
+my (
+ $abs_path,
+ $me,
+ $bin_path,
+ $triggers_path,
+ $lib_path,
+ $log_path,
+ $windows
+);
+
+BEGIN {
+ # Extract relative path and basename from script name.
+ $0 =~ /(.*)[\/\\](.*)/;
+
+ $abs_path = (!defined $1) ? "." : File::Spec->rel2abs ($1);
+ $me = (!defined $2) ? $0 : $2;
+
+ # Check to see if we are running on Windows
+ $windows = ($^O =~ /MSWin/) ? "yes" : "no";
+
+ # Setup paths
+ $bin_path = "$abs_path";
+ $triggers_path = "$abs_path/../triggers";
+ $lib_path = "$abs_path/../lib";
+ $log_path = "$abs_path/../log";
+
+ # Add the appropriate path to our modules to @INC array.
+ unshift (@INC, "$lib_path");
+} # BEGIN
+
+use TriggerUtils;
+
+my $steve_lipson = "sl020353";
+my $user = $ENV {CLEARCASE_USER};
+my $pname = $ENV {CLEARCASE_PN};
+
+if ($pname =~ /\.pbl$/i and lc ($user) !~ $steve_lipson) {
+ clearmsg "Check in's of pbl's are not allowed except for administrators";
+ exit 1;
+} # if
+
+exit 0;
--- /dev/null
+#!/usr/bin/perl
+################################################################################
+#
+# File: Permissions.pl
+# Description: This trigger script implements additional permissions checking.
+# The general idea is to open up permissions at the group level
+# and to control who gets to checkout elements at the folder
+# level. You do this by making an element named
+# $permissions_element which contains group names of which
+# groups have "checkout" permissions in that folder downward.
+# Author: Andrew@DeFaria.com
+# Created: Mon Jul 19 10:54:01 PDT 2004
+# Language: Perl
+# Modifications:
+#
+# (c) Copyright 2004, Andrew@DeFaria.com, all rights reserved
+#
+################################################################################
+use strict;
+use warnings;
+use File::Spec;
+
+# This will be set in the BEGIN block but by putting them here the become
+# available for the whole script.
+my (
+ $abs_path,
+ $lib_path,
+ $log_path,
+ $me,
+ $triggers_path
+);
+
+BEGIN {
+ # Extract relative path and basename from script name.
+ $0 =~ /(.*)[\/\\](.*)/;
+
+ $abs_path = (!defined $1) ? "." : File::Spec->rel2abs ($1);
+ $me = (!defined $2) ? $0 : $2;
+
+ # Setup paths
+ $lib_path = "$abs_path/../lib";
+ $log_path = "$abs_path/../log";
+ $triggers_path = "$abs_path/../triggers";
+
+ # Add the appropriate path to our modules to @INC array.
+ unshift (@INC, "$lib_path");
+} # BEGIN
+
+use TriggerUtils;
+
+# Name of permissions element to search for
+my $permissions_element = ".perms";
+
+# Trigger environment variables used
+my $pname = $ENV{CLEARCASE_PN};
+my $user = $ENV{CLEARCASE_USER};
+my $vob = $ENV{CLEARCASE_VOB_PN};
+
+sub ParentDir {
+ my $path = shift;
+
+ $path =~ m/(.*)[\/\\].*/;
+
+ return $1;
+} # ParentDir
+
+# Returns the current group owner of the vob. This is the first group listed, not the'
+# "Additional groups".
+sub GetGroupOwner {
+ my $vob = shift;
+
+ my @output = `cleartool describe vob:$vob 2>&1`;
+
+ foreach (@output) {
+ chomp; chop if /\r/;
+ if (/group AMERIQUEST\\(.*)/) {
+ return $1;
+ } # if
+ } # foreach
+
+ return "Unknown";
+} # GetGroupOwner
+
+# Returns the primary group using creds
+sub GetPrimaryGroup {
+ my @output = `"C:\\Program Files\\Rational\\Clearcase\\etc\\utils\\creds.exe" 2>&1`;
+
+ foreach (@output) {
+ chomp; chop if /\r/;
+ if (/Primary group: AMERIQUEST\\(\S*).*/) {
+ return $1;
+ } # if
+ } # foreach
+
+ return "Domain Users";
+} # GetPrimaryGroup
+
+# Parsed the $permissions_element returning a list of permitted groups.
+sub Parse {
+ my $permissions_element = shift;
+
+ open PERMISSIONS_ELEMENT, $permissions_element
+ or clearlogmsg "Unable to open $permissions_element - $!\n", exit 1;
+
+ my @lines = <PERMISSIONS_ELEMENT>;
+ my @tidy_lines;
+
+ foreach (@lines) {
+ chomp; chop if /\r/;
+ next if $_ eq "";
+ push @tidy_lines, $_;
+ } # foreach
+
+ return @tidy_lines;
+} # Parse
+
+# Compare the two string arrays and return 1 if there are any matches.
+sub IsAMember {
+ my $set1 = shift;
+ my $set2 = shift;
+
+ # Convert two array references to actual arrays
+ my @set1 = @{$set1};
+ my @set2 = @{$set2};
+
+ foreach my $item1 (@set1) {
+ foreach my $item2 (@set2) {
+ return 1 if $item1 eq $item2;
+ } # foreach
+ } # foreach
+
+ return 0;
+} # IsAMember
+
+# Returns an array of (AMERIQUEST) group names for the user using creds.
+sub GetUserGroups {
+ my @output = `"C:\\Program Files\\Rational\\Clearcase\\etc\\utils\\creds.exe" 2>&1`;
+ my @groups;
+ my $found = 0;
+
+ foreach (@output) {
+ chomp; chop if /\r/;
+
+ # We should first see the Primary Grou
+ if (/Primary group: AMERIQUEST\\(.*) \(/) {
+ push @groups, $1;
+ } # if
+
+ # When we hit the "Groups:" line then what follows is a list of groups
+ if (/^Groups:/) {
+ $found = 1;
+ next
+ } # if
+
+ # Select only those that are specifically in the AMERIQUEST domain
+ if ($found eq 1 and /\s*AMERIQUEST\\(.*) \(/) {
+ push @groups, $1;
+ } # if
+ } # foreach
+
+ return @groups
+} # GetUserGroups
+
+# This routine will check to see if any of the user's groups are in the
+# $permissions_element(s) by recursing up the directory looking for
+# $permissions_element(s) then comparing those groups to the user's groups.
+sub Permitted {
+ my $vob = shift;
+ my $pname = shift;
+ my @user_groups = @_;
+
+ # User may be attemptign to Add to Source Control in the current
+ # directory and have permissions to do so. When Add to Source
+ # Control runs it checks out the parent directory. The user
+ # typically will NOT have permissions to check out the parent
+ # directory! So for directory elements first check if the user is
+ # permitted as per $pname/$permissions_element BEFORE traversing up
+ # to the parent directory.
+ my @permitted_groups;
+ my $element_type = $ENV{CLEARCASE_ELTYPE};
+
+ if ($element_type =~ /directory/i) {
+ if (-e "$pname/$permissions_element") {
+ @permitted_groups = Parse ("$pname/$permissions_element");
+ return 1 if (IsAMember (\@user_groups, \@permitted_groups));
+ } # if
+ } # if
+
+ # Get parent directory
+ $pname = ParentDir $pname;
+
+ # Exhausted $pname
+ return 0 if !defined $pname;
+
+ if (-e "$pname/$permissions_element") {
+ @permitted_groups = Parse ("$pname/$permissions_element");
+ return 1 if (IsAMember (\@user_groups, \@permitted_groups));
+ } # if
+
+ # Recurse up to parent directory
+ return Permitted ($vob, $pname, @user_groups);
+} # Permitted
+
+# Main
+my $vob_group_owner = GetGroupOwner $vob;
+my $group = GetPrimaryGroup;
+my @user_groups = GetUserGroups;
+my $msg;
+
+if ($vob_group_owner eq $group) {
+ # Vob group openers are always permitted
+ exit 0;
+} elsif ($pname =~ m/$permissions_element$/) {
+ # User trying to check out the $permissions_element!
+ $msg .= "Only members of the vob's initial group owners,\\n";
+ $msg .= "$vob_group_owner, may checkout the $permissions_element element!";
+ clearmsg $msg;
+ exit 1;
+} elsif (Permitted ($vob, $pname, @user_groups)) {
+ exit 0;
+} else {
+ $msg .= "The userid of $user is not a member of a group who is\\n";
+ $msg .= "permitted to check out elements from the folder\\n";
+ $msg .= ParentDir $pname;
+ $msg .= " of the $vob vob.";
+ clearmsg $msg;
+ exit 1;
+} # if
--- /dev/null
+From: ASAP Adm <ASAPAdm@Ameriquest.net>\r
+To: ADeFaria@Ameriquest.net\r
+Subject: $CLEARCASE_OP_KIND: $CLEARCASE_PN\r
+--\r
+This is a notification that a $CLEARCASE_OP_KIND has occurred:\r
+\r
+Element: $CLEARCASE_PN\r
+Branch: $CLEARCASE_BRTYPE\r
+Operation: $CLEARCASE_OP_KIND\r
+User: $CLEARCASE_USER\r
+View: $CLEARCASE_VIEW_TAG\r
+Comments: \r
+\r
+$CLEARCASE_COMMENT\r
+\r
+For information about recent activity see http://asapcm.ameriquest.net/logs\r
--- /dev/null
+=pod
+
+=head2 NAME $RCSfile: FileSystem.pm,v $
+
+Object oriented interface to filesystems
+
+=head2 VERSION
+
+=over
+
+=item Author:
+
+Andrew DeFaria <Andrew@ClearSCM.com>
+
+=item Revision:
+
+$Revision: $
+
+=item Created:
+
+Thu Dec 11 10:39:12 MST 2008
+
+=item Modified:
+
+$Date:$
+
+=back
+
+=head2 SYNOPSIS
+
+This module implements a FileSystem object.
+
+ $fs = new FileSystem ("hosta");
+
+ while ($fs->filesystem) {
+ display "Filesystem: $_";
+ display "\tSize:\t$fs{$_}->size";
+ display "\tUsed:$fs{$_}->used";
+ display "\tFree:$fs{$_}->free";
+ display "\tUsed %:$fs{$_}->usedPct";
+ display "\tMounted on:$fs{$_}->mount";
+ } # while
+
+=head2 DESCRIPTION
+
+Filesystem creates a filesystem object that encapsulates information
+about the file system as a whole.
+
+=head2 ROUTINES
+
+The following routines are exported:
+
+=over
+
+=cut
+
+use strict;
+use warnings;
+
+package Filesystem;
+
+use base "Exporter";
+
+use OSDep;
+use Display;
+use Utils;
+use Rexec;
+
+=pod
+
+=head3 new (<parms>)
+
+Construct a new Filesystem object. The following OO style arguments are
+supported:
+
+Parameters:
+
+=for html <blockquote>
+
+=over
+
+=item none
+
+Returns:
+
+=for html <blockquote>
+
+=over
+
+=item Filesystem object
+
+=back
+
+=for html </blockquote>
+
+=cut
+
+sub new ($;$$$$) {
+ my ($class, $system, $ostype, $username, $password, $prompt, $shellstyle) = @_;
+
+ # Set prompt if not passed in
+ $prompt ||= $Rexec::default_prompt;
+
+ # Connect to remote machine
+ my $remote = new Rexec (
+ host => $system,
+ username => $username,
+ password => $password,
+ prompt => $prompt,
+ shellstyle => $shellstyle,
+ );
+
+ unless ($remote) {
+ error "Unable to connect to $system";
+
+ return undef;
+ } # if
+
+ my (@fs, %fs);
+
+ # Sun is so braindead!
+ if ($ostype eq "Unix") {
+ foreach ("ufs", "vxfs") {
+ my $cmd = "/usr/bin/df -k -F $_";
+
+ my @unixfs = $remote->exec ($cmd);
+
+ if ($remote->status != 0) {
+ error ("Unable to determine fsinfo on $system ($cmd)\n" . join ("\n", @fs));;
+ return undef;
+ } # if
+
+ # Skip heading
+ shift @unixfs;
+
+ for (my $i = 0; $i < scalar @unixfs; $i++) {
+ my (%fsinfo, $firstField);
+
+ # Trim leading and trailing spaces
+ $unixfs[$i] =~ s/^\s+//;
+ $unixfs[$i] =~ s/\s+$//;
+
+ my @fields = split /\s+/, $unixfs[$i];
+
+ if (scalar @fields == 1) {
+ $fsinfo{fs} = $fields[0];
+ $firstField = 0;
+ $i++;
+
+ # Trim leading and trailing spaces
+ $unixfs[$i] =~ s/^\s+//;
+ $unixfs[$i] =~ s/\s+$//;
+
+ @fields = split /\s+/, $unixfs[$i];;
+ } else {
+ $fsinfo{fs} = $fields[0];
+ $firstField = 1;
+ } #if
+
+ $fsinfo{size} = $fields[$firstField] * 1024;
+ $fsinfo{used} = $fields[$firstField + 1] * 1024;
+ $fsinfo{free} = $fields[$firstField + 2] * 1024;
+ $fsinfo{reserve} = $fsinfo{size} - $fsinfo{used} - $fsinfo{free};
+
+ $fs{$fields[$firstField + 4]} = \%fsinfo;
+ } # for
+ } # foreach
+ } elsif ($ostype eq "Linux") {
+ foreach ("ext3") {
+ my $cmd = "/bin/df --block-size=1 -t $_";
+
+ my @linuxfs = $remote->exec ($cmd);
+
+ if ($remote->status != 0) {
+ error ("Unable to determine fsinfo on $system ($cmd)\n" . join ("\n", @fs));;
+ return undef;
+ } # if
+
+ # Skip heading
+ shift @linuxfs;
+
+ foreach (@linuxfs) {
+ my %fsinfo;
+ my @fields = split;
+
+ $fsinfo{fs} = $fields[0];
+ $fsinfo{size} = $fields[1];
+ $fsinfo{used} = $fields[2];
+ $fsinfo{free} = $fields[3];
+ $fsinfo{reserve} = $fsinfo{size} - $fsinfo{used} - $fsinfo{free};
+
+ $fs{$fields[5]} = \%fsinfo;
+ } # foreach
+ } # foreach
+ } else {
+ error "Can't handle $ostype", 1;
+ } # if
+
+ bless \%fs, $class;
+} # new
+
+=pod
+
+=head3 mounts ()
+
+Returns an array of mount points
+
+Parameters:
+
+=for html <blockquote>
+
+=over
+
+=item none
+
+None
+
+=back
+
+=for html </blockquote>
+
+Returns:
+
+=for html <blockquote>
+
+=over
+
+=item Array of mount points
+
+=back
+
+=for html </blockquote>
+
+=cut
+
+sub mounts () {
+ my ($self) = shift;
+
+ return keys %{$self}
+} # mounts
+
+=pod
+
+=head3 getFSInfo ($mount)
+
+Returns a hash of filesystem info for a mount point
+
+Parameters:
+
+=for html <blockquote>
+
+=over
+
+=item $mount: Mount point
+
+None
+
+=back
+
+=for html </blockquote>
+
+Returns:
+
+=for html <blockquote>
+
+=over
+
+=item Hash of filesystem info
+
+=back
+
+=for html </blockquote>
+
+=cut
+
+sub getFSInfo ($) {
+ my ($self, $mount) = @_;
+
+ return %{$self->{$mount}};
+} # getFSInfo
+
+1;
+
+=back
+
+=head2 CONFIGURATION AND ENVIRONMENT
+
+None
+
+=head2 DEPENDENCIES
+
+ Display
+ OSDep
+ Utils
+
+=head2 INCOMPATABILITIES
+
+None yet...
+
+=head2 BUGS AND LIMITATIONS
+
+There are no known bugs in this module.
+
+Please report problems to Andrew DeFaria (Andrew@ClearSCM.com).
+
+=head2 LICENSE AND COPYRIGHT
+
+This Perl Module is freely available; you can redistribute it and/or
+modify it under the terms of the GNU General Public License as
+published by the Free Software Foundation; either version 2 of the
+License, or (at your option) any later version.
+
+This Perl Module is distributed in the hope that it will be useful,
+but WITHOUT ANY WARRANTY; without even the implied warranty of
+MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
+General Public License (L<http://www.gnu.org/copyleft/gpl.html>) for more
+details.
+
+You should have received a copy of the GNU General Public License
+along with this Perl Module; if not, write to the Free Software Foundation,
+Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA.
+reserved.
+
+=cut
--- /dev/null
+<?php
+////////////////////////////////////////////////////////////////////////////////
+//
+// File: FsmonDB.php
+// Description: PHP Module to access the fsmon database
+// Author: Andrew@ClearSCm.com
+// Created: Mon Apr 28 15:20:06 MST 2008
+// Modified:
+// Language: PHP
+//
+// (c) Copyright 2008, ClearSCM Inc., all rights reserved.
+//
+////////////////////////////////////////////////////////////////////////////////
+include_once ("Fsutils.php");
+
+// DEBUG Flag
+$debug = 1;
+
+// Read only access
+$userid = "fsmon";
+$password = "fsmon";
+$dbserver = "seast1";
+$dbname = "fsmon";
+
+// N/A
+$na = "<font color=#999999>N/A</font>";
+
+function dbError ($msg, $statement) {
+ $errno = mysql_errno ();
+ $errmsg = mysql_error ();
+
+ print <<<END
+<h2><font color="red">ERROR:</font> $msg</h2>
+<b>Error #$errno:</b><br>
+<blockquote>$errmsg</blockquote>
+<b>SQL Statement:</b><br>
+<blockquote>$statement</blockquote>
+END;
+
+ exit ($errno);
+} // dbError
+
+function openDB () {
+ global $dbserver, $userid, $password, $dbname;
+
+ $db = mysql_connect ($dbserver, $userid, $password)
+ or dbError (__FUNCTION__ . ": Unable to connect to database server $dbserver", "Connect");
+
+ mysql_select_db ($dbname)
+ or dbError (__FUNCTION__ . ": Unable to select the $dbname database", "$dbname");
+} // openDB
+
+function getFSInfo ($system = "", $mount = "", $period = "daily") {
+ $sysCondition = (isset ($system)) ? "where sysname = \"$system\"" : "";
+ $mountCondition = (isset ($mount)) ? " and mount = \"$mount\"" : "";
+
+ if (!($period == "hourly" or
+ $period == "daily" or
+ $period == "weekly" or
+ $period == "monthly")) {
+ error ("Invalid period - $period - specified", 1);
+ } // if
+
+ $statement = <<<END
+select
+ sysname,
+ mount,
+ timestamp,
+ size,
+ used,
+ free,
+ reserve
+from
+ fs
+ $sysCondition
+ $mountCondition
+order by
+ timestamp
+END;
+
+ $result = mysql_query ($statement)
+ or DBError ("Unable to execute query: ", $statement);
+
+ $data = array ();
+
+ $lastPeriod = "";
+ $maxUsed = 0;
+
+ while ($row = mysql_fetch_array ($result)) {
+ $line["sysname"] = $row["sysname"];
+ $line["mount"] = $row["mount"];
+ $line["timestamp"] = $row["timestamp"];
+
+ // Snapshot's finest granularity is 1 hour intervals. If hourly
+ // therefore just capture the data an move on.
+ if ($period == "hourly") {
+ $line["size"] = $row["size"];
+ $line["used"] = $row["used"];
+ $line["free"] = $row["free"];
+ $line["reserve"] = $row["reserve"];
+ } elseif ($period == "daily") {
+ $thisPeriod = substr ($row["timestamp"], 0, 10);
+
+ if ($lastPeriod == "") {
+ $lastPeriod = $thisPeriod;
+ } elseif ($lastPeriod == $thisPeriod) {
+ continue;
+ } // if
+
+ $lastPeriod = $thisPeriod;
+
+ if ($row["used"] > $maxUsed) {
+ $maxUsed = $row["used"];
+ $line["size"] = $row["size"];
+ $line["used"] = $row["used"];
+ $line["free"] = $row["free"];
+ $line["reserve"] = $row["reserve"];
+ } else {
+ continue;
+ } // if
+ } elseif ($period == "weekly") {
+ error ("Weekly not handled yet", 1);
+ } elseif ($period == "monthly") {
+ $thisPeriod = substr ($row["timestamp"], 0, 7);
+ if ($lastPeriod == "") {
+ $lastPeriod = $thisPeriod;
+ } elseif ($lastPeriod == $thisPeriod) {
+ continue;
+ } // if
+
+ if ($row["used"] > $maxUsed) {
+ $maxUsed = $row["used"];
+ $line["size"] = $row["size"];
+ $line["used"] = $row["used"];
+ $line["free"] = $row["free"];
+ $line["reserve"] = $row["reserve"];
+ } else {
+ continue;
+ } // if
+ } // if
+
+ array_push ($data, $line);
+ } // while
+
+ return $data;
+} // getFSInfo
+
+function getSystem ($system = "") {
+ $statement = "select * from system";
+
+ if (isset ($system) and $system != "") {
+ $statement .= " where name = \"$system\"";
+ } // if
+
+ $result = mysql_query ($statement)
+ or DBError ("Unable to execute query: ", $statement);
+
+ $data = array ();
+
+ while ($row = mysql_fetch_array ($result, MYSQL_ASSOC)) {
+ array_push ($data, $row);
+ } // while
+
+ return $data;
+} // getSystem
+
+function getMounts ($system) {
+ $statement = "select mount from filesystems where sysname = \"$system\" order by mount";
+
+ $result = mysql_query ($statement)
+ or DBError ("Unable to execute query: ", $statement);
+
+ $data = array ();
+
+ while ($row = mysql_fetch_array ($result)) {
+ array_push ($data, $row["mount"]);
+ } // while
+
+ return $data;
+} // getMounts
+?>
--- /dev/null
+=pod
+
+=head2 NAME $RCSfile: FsmonDB.pm,v $
+
+Object oriented interface to filesystems
+
+=head2 VERSION
+
+=over
+
+=item Author:
+
+Andrew DeFaria <Andrew@ClearSCM.com>
+
+=item Revision:
+
+$Revision: $
+
+=item Created:
+
+Thu Dec 11 10:39:12 MST 2008
+
+=item Modified:
+
+$Date:$
+
+=back
+
+=head2 SYNOPSIS
+
+=head1 SYNOPSIS
+
+ use FsmonDB;
+
+ my $username = "fsmonadm";
+ my $password = "<password>";
+
+ my $fsmondb = new FsmonDB ($username, $password);
+
+ my ($errno, $errmsg) = $fsmondb->addSystem (
+ name => hostname,
+ owner => "root",
+ description => "Database server",
+ ostype => "Unix",
+ osversion => `uname -a`,
+ monitorAllFS => 1,
+ );
+
+ $status = $fsmondb->fsSnapshot (hostname);
+
+=head2 DESCRIPTION
+
+Filesystem creates a filesystem object that encapsulates information
+about the file system as a whole.
+
+=head2 ROUTINES
+
+The following routines are exported:
+
+=over
+
+=cut
+
+use strict;
+use warnings;
+
+package FsmonDB;
+
+use Carp;
+use DBI;
+
+use DateUtils;
+use Display;
+use Filesystem;
+
+############################################################################
+#
+# insert: Construct SQL insert statement based on passed in table
+# name and hash values.
+#
+# Parms:
+# table Table name
+# record Name value hash
+#
+# Returns:
+# status ($errno, $errmsg)
+#
+############################################################################
+sub insert ($%) {
+ my ($self, $table, %values) = @_;
+
+ my $first = 1;
+ my $fields;
+ my $values;
+
+ foreach (keys %values) {
+ if ($first) {
+ $first = 0;
+ } else {
+ $fields .= ",";
+ $values .= ",";
+ } # if
+
+ if (!defined $_) {
+ $values .= "NULL";
+ } else {
+ $fields .= $_;
+ $values .= "\"" . quotemeta ($values{$_}) . "\"";
+ } # if
+ } # foreach
+
+ my $statement = "insert into $table ($fields) values ($values)";
+
+ $self->{db}->do ($statement)
+ or return $self->_dberror ("Unable to add system", $statement);
+
+ return (0, undef);
+} # insert
+
+############################################################################
+#
+# _dberror: Output the DB error message and exit (Internal)
+#
+# Parms:
+# msg User defined message to output
+# statement SQL Statement attempted (optional)
+#
+# Returns:
+# Nothing
+#
+############################################################################
+sub _dberror ($;$) {
+ my ($self, $msg, $statement) = @_;
+
+ my $caller = (caller (1))[3];
+
+ my $returnMsg = "$caller: DBError: "
+ . $msg
+ . "\nError #"
+ . $self->{db}->err
+ . " "
+ . $self->{db}->errstr;
+
+ $returnMsg .= "\nSQL Statement: $statement\n" if $statement;
+
+ return ($self->{db}->err, $returnMsg);
+} # _dberror
+
+############################################################################
+#
+# _exists: Return 1 if the value exists in the table otherwise 0
+#
+# Parms:
+# table Name of table to search
+# column Column name to search
+# value Value to look for
+# column2 Secondary column to search for
+# value2 Secondary value to search for
+#
+# Returns:
+# 1 if found, 0 if not
+#
+############################################################################
+sub _exists ($$$;$$) {
+ my ($self, $table, $column, $value, $column2, $value2) = @_;
+
+ my $statement = "select count(*) from $table where $column = \""
+ . quotemeta ($value)
+ . "\"";
+
+ $statement .= " and $column2 = \""
+ . quotemeta ($value2)
+ . "\"" if $column2;
+
+ my $sth;
+
+ unless ($sth = $self->{db}->prepare ($statement)) {
+ my ($errNo, $errMsg) = $self->_dberror ("Unable to prepare statement", $statement);
+ display $errMsg;
+ return 0;
+ } # unless
+
+ unless ($sth->execute) {
+ my ($errNo, $errMsg) = $self->_dberror ("Unable to execute statement", $statement);
+ display $errMsg;
+ return 0;
+ } # unless
+
+ my @row = $sth->fetchrow_array;
+
+ $sth->finish;
+
+ if ($row[0]) {
+ return $row[0]
+ } else {
+ return 0;
+ } # if
+} # _exists
+
+############################################################################
+#
+# _count: Returns the number of entries in a table that qualify for
+# the given condition.
+#
+# Parms:
+# table Name of table to search
+# id condition (Default: All entries in the table)
+#
+# Returns:
+# Count of qualifying entries
+#
+############################################################################
+sub _count ($;$) {
+ my ($self, $table, $condition) = @_;
+
+ $condition = $condition ? "where $condition" : "";
+
+ my $statement = "select count(*) from $table $condition";
+
+ my $sth;
+
+ unless ($sth = $self->{db}->prepare ($statement)) {
+ my ($errNo, $errMsg) = $self->_dberror ("Unable to prepare statement", $statement);
+ display $errMsg;
+ return -1;
+ } # unless
+
+ unless ($sth->execute) {
+ my ($errNo, $errMsg) = $self->_dberror ("Unable to execute statement", $statement);
+ display $errMsg;
+ return -1;
+ } # unless
+
+ my @row = $sth->fetchrow_array;
+
+ $sth->finish;
+
+ if ($row[0]) {
+ return $row[0]
+ } else {
+ return 0;
+ } # if
+} # _count
+
+=pod
+
+=head3 new ()
+
+Construct a new FsmonDB object. The following OO style arguments are
+supported:
+
+Parameters:
+
+=for html <blockquote>
+
+=over
+
+=item none
+
+Returns:
+
+=for html <blockquote>
+
+=over
+
+=item FsmonDB object
+
+=back
+
+=for html </blockquote>
+
+=cut
+
+sub new (;$$) {
+ my ($class, $username, $password) = @_;
+
+ $username = $username ? $username : "fsmon";
+ $password = $password ? $password : "fsmon";
+
+ my $dbname = $ENV{FSMON_DBNAME}
+ ? $ENV{FSMON_DBNAME}
+ : "fsmon";
+ my $dbserver = $ENV{FSMON_DBSERVER}
+ ? $ENV{FSMON_DBSERVER}
+ : "seast1";
+ my $dbdriver = "mysql";
+
+ my $db = DBI->connect ("DBI:$dbdriver:$dbname:$dbserver", $username,
+ $password, {PrintError => 0})
+ or croak "Unable to connect to $dbname database as $username";
+
+ return bless {
+ db => $db,
+ username => $username,
+ password => $password,
+ }, $class;
+} # new
+
+=pod
+
+=head3 addSystem (%system)
+
+Add a system record
+
+Parameters:
+
+=for html <blockquote>
+
+=over
+
+%system is a hash containing the following keys:
+
+=item $name (required)
+
+Name of the system
+
+=item $owner (optional)
+
+Person or persons responsible for this system
+
+=item $description (optional)
+
+Description of this system
+
+=item $ostype (required)
+
+An enumeration of "Linux", "Unix" or "Windows" (default Linux)
+
+=item $osversion (optional)
+
+String representing an OS version
+
+Returns:
+
+=for html <blockquote>
+
+=over
+
+=item FsmonDB object
+
+=back
+
+=for html </blockquote>
+
+=cut
+
+sub addSystem (%) {
+ my ($self, %record) = @_;
+
+ return $self->insert ("system", %record);
+} # addSystem
+
+=pod
+
+=head3 getSystem ($system)
+
+Get a system record
+
+Parameters:
+
+=for html <blockquote>
+
+=over
+
+=item $system (option)
+
+Name of the system to return information about. If not specified then
+getSystem returns all systems
+
+Returns:
+
+=for html <blockquote>
+
+=over
+
+=item If $system was specified, a hash of that system's
+information. If $system is not specified then an array of hashes
+containing information on all systems.
+
+=back
+
+=for html </blockquote>
+
+=cut
+
+sub getSystem (;$) {
+ my ($self, $system) = @_;
+
+ my ($statement, $sth);
+
+ if ($system) {
+ $statement = "select * from system where name = \"$system\"";
+ } else {
+ $statement = "select name from system";
+ } # unless
+
+ unless ($sth = $self->{db}->prepare ($statement)) {
+ my ($errno, $errmsg) = $self->_dberror ("Unable to prepare statement", $statement);
+ error $errmsg, $errno;
+ } # unless
+
+ unless ($sth->execute) {
+ my ($errno, $errmsg) = $self->_dberror ("Unable to execute statement", $statement);
+ error $errmsg, $errno;
+ } # unless
+
+ if ($system) {
+ return %{my $row = $sth->fetchrow_hashref};
+ } else {
+ my @records;
+
+ while (my @record = $sth->fetchrow_array) {
+ push @records, pop @record;
+ } # while
+
+ return @records;
+ } # if
+} # addSystem
+
+=pod
+
+=head3 addFilesystem ($system, $mount)
+
+Add monitoring of a filesytem identified by $mount from a $system
+
+Parameters:
+
+=for html <blockquote>
+
+=over
+
+=item $system (required)
+
+Name of the system that this filesystem is local to
+
+=item mount (optional)
+
+Mount point for this file system. If undef then add all local file systems.
+
+Returns:
+
+=for html <blockquote>
+
+=over
+
+=item ($errno, $errmsg)
+
+=back
+
+=for html </blockquote>
+
+=cut
+
+sub addFilesystem ($;$) {
+ my ($self, $system, $mount) = @_;
+
+ my $fs = new Filesystem;
+
+ foreach ($fs->mounts ()) {
+ my %fsinfo = $fs->getFSInfo ($_);
+ my %filesystem = (
+ "sysname" => $system,
+ "mount" => $_,
+ "fs" => $fsinfo{fs},
+ );
+ my ($errno, $errmsg);
+
+ if ($mount) {
+ if ($mount eq $_) {
+ ($errno, $errmsg) = $self->insert ("filesystems", %filesystem);
+
+ return ($errno, $errmsg) if $errno != 0;
+ } # if
+ } else {
+ ($errno, $errmsg) = $self->insert ("filesystems", %filesystem);
+
+ return ($errno, $errmsg) if $errno != 0;
+ } # if
+ } # foreach
+
+ return (0, undef);
+} # addFilesystem
+
+=pod
+
+=head3 addSnapshot (%snapshot)
+
+Add a snapshot record of a filesystem
+
+Parameters:
+
+=for html <blockquote>
+
+=over
+
+%snapshot is a hash containing the following keys:
+
+=item sysname (required)
+
+Name of the system that this filesystem is local to
+
+=item mount (required)
+
+Mount point for this file system
+
+=item timestamp (required)
+
+Timestamp representing the time that the snapshot of the filesystem
+was taken.
+
+=item size (optional)
+
+Total size of the filesystem in bytes
+
+=item used (optional)
+
+Number of bytes of used space
+
+=item free (optional)
+
+Number of bytes free or available for use
+
+=item reserve (optional)
+
+Number of bytes held in reserve
+
+Returns:
+
+=for html <blockquote>
+
+=over
+
+=item ($errno, $errmsg)
+
+=back
+
+=for html </blockquote>
+
+=cut
+
+sub addSnapshot (%) {
+ my ($self, %snapshot) = @_;
+
+ return $self->insert ("fs", %snapshot);
+} # addSnapshot
+
+=pod
+
+=head3 snapshot ($system)
+
+Take a snapshot of all configured file systems for a given system
+
+Parameters:
+
+=for html <blockquote>
+
+=over
+
+=item $system
+
+Name of the system to snapshot
+
+Returns:
+
+=for html <blockquote>
+
+=over
+
+=item ($errno, $errmsg)
+
+=back
+
+=for html </blockquote>
+
+=cut
+
+sub snapshot ($;$) {
+ my ($self, $system) = @_;
+
+ my %system = $self->getSystem ($system);
+ my $fs = new Filesystem (
+ $system,
+ $system{ostype},
+ $system{username},
+ $system{password},
+ qr "$system{prompt}",
+ $system{shellstyle},
+ );
+
+ if ($fs) {
+ foreach ($fs->mounts ()) {
+ my %fsinfo = $fs->getFSInfo ($_);
+ my %fs;
+
+ # Format record
+ $fs{sysname} = $system;
+ $fs{mount} = $_;
+ $fs{timestamp} = Today2SQLDatetime;
+ $fs{size} = $fsinfo{size};
+ $fs{used} = $fsinfo{used};
+ $fs{free} = $fsinfo{free};
+ $fs{reserve} = $fsinfo{reserve};
+
+ my ($errno, $errmsg) = $self->addSnapshot (%fs);
+
+ return ($errno, $errmsg) if $errno != 0;
+ } # foreach
+ } # if
+
+ return (0, "");
+} # snapshot
+
+1;
+
+=head1 NAME
+
+FsmonDB - Access routines to the fsmon SQL database
+
+=head1 VERSION
+
+Version 1.0
+
+=head1 DESCRIPTION
+
+This module provides for access routines to the fsmon SQL database.
+
+=head1 METHODS
+
+=head2 new ($username, $password)
+
+Opens the fsmon SQL database for the specified $username and
+$password and returns a FsmonDB object
+
+Parameters:
+
+=over
+
+=item username:
+
+Username to connect to the database. At this time "fsmonadm" is the R/W
+user and "fsmon" (password "reader") has R/O access (Default:
+fsmon).
+
+=item password:
+
+Password to use. (Default: "fsmon").
+
+=item Returns FsmonDB object
+
+=back
+
+=head2 addSystem (%testrun)
+
+Adds the system record. Pass in a hash of field name/value pairs.
+
+=over
+
+=item ($errno, $errmsg)
+
+=back
+
+=back
+
+=head2 CONFIGURATION AND ENVIRONMENT
+
+None
+
+=head2 DEPENDENCIES
+
+ ...
+
+=head2 INCOMPATABILITIES
+
+None yet...
+
+=head2 BUGS AND LIMITATIONS
+
+There are no known bugs in this module.
+
+Please report problems to Andrew DeFaria (Andrew@ClearSCM.com).
+
+=head2 LICENSE AND COPYRIGHT
+
+This Perl Module is freely available; you can redistribute it and/or
+modify it under the terms of the GNU General Public License as
+published by the Free Software Foundation; either version 2 of the
+License, or (at your option) any later version.
+
+This Perl Module is distributed in the hope that it will be useful,
+but WITHOUT ANY WARRANTY; without even the implied warranty of
+MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
+General Public License (L<http://www.gnu.org/copyleft/gpl.html>) for more
+details.
+
+You should have received a copy of the GNU General Public License
+along with this Perl Module; if not, write to the Free Software Foundation,
+Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA.
+reserved.
+
+=cut
--- /dev/null
+--------------------------------------------------------------------------------
+--
+-- File: FsmonDB.sql
+-- Revision: 0.1
+-- Description: Database definition for fsmon
+-- Author: Andrew@ClearSCM.com
+-- Created: Thu Dec 11 13:43:06 MST 2008
+-- Modified:
+-- Language: SQL
+--
+-- Copyright (c) 2008, General Dynamics, all rights reserved
+--
+--------------------------------------------------------------------------------
+-- Warning: The following line will delete the old database!
+drop database if exists fsmon;
+
+-- Create a new database
+create database fsmon;
+
+-- Now let's focus on this new database
+use fsmon;
+
+-- system: Contains information about the various machines that we are
+-- monitoring file systems on
+
+create table system (
+ name varchar(255) not null,
+ owner tinytext,
+ description text,
+ ostype enum (
+ "Linux",
+ "Unix",
+ "Windows"
+ ) not null,
+ osversion tinytext,
+ username tinytext,
+ password tinytext,
+ prompt tinytext,
+ shellstyle enum (
+ "sh",
+ "csh"
+ ) not null,
+
+ primary key (name)
+) engine = InnoDB;
+
+-- filesystems: Describes the filesystems for a system
+create table filesystems (
+ sysname varchar(255) not null,
+ mount varchar(255) not null,
+ fs tinytext not null,
+
+ primary key (sysname, mount)
+) engine = InnoDB;
+
+-- fs: Contains a snapshot reading of a filesystem at a given date and time
+create table fs (
+ sysname varchar(255) not null,
+ mount varchar(255) not null,
+ timestamp datetime not null,
+ size bigint,
+ used bigint,
+ free bigint,
+ reserve bigint,
+
+ primary key (sysname, mount, timestamp),
+ foreign key (sysname, mount)
+ references filesystems (sysname, mount)
+ on delete cascade
+ on update cascade
+) engine = InnoDB;
+
+grant all privileges
+ on fsmon.*
+ to fsmonadm@"%"
+ identified by "fsmonadm" with grant option;
+
+grant select
+ on fsmon.*
+ to fsmon@"%"
+ identified by "fsmon";
--- /dev/null
+<?php
+////////////////////////////////////////////////////////////////////////////////
+//
+// File: Fsutils.php
+// Description: Utility funcitons
+// Author: Andrew@ClearSCM.com
+// Created: Mon Apr 28 15:20:06 MST 2008
+// Modified:
+// Language: PHP
+//
+// (c) Copyright 2008, ClearSCM, Inc., all rights reserved.
+//
+////////////////////////////////////////////////////////////////////////////////
+// Constants
+define (VERSION, "1.0");
+
+define ("BYTE", 1);
+define ("KBYTE", BYTE * 1024);
+define ("MEG", KBYTE * 1024);
+define ("GIG", MEG * 1024);
+
+function debug ($msg) {
+ global $debug;
+
+ if ($debug == 1) {
+ print "<font color=red>DEBUG:</font> $msg<br>";
+ } // if
+} // debug
+
+function dumpObject ($object) {
+ print "<pre>";
+ print_r ($object);
+ print "</pre>";
+} // dumpObject
+
+function error ($msg, $errno = 0) {
+ print "<p><font color=\"red\">ERROR:</font> $msg";
+
+ if ($errno != 0) {
+ print " ($errno)</p>";
+ exit;
+ } else {
+ print "</p>";
+ } // if
+} // error
+
+function banner () {
+ return $banner;
+} // banner
+
+function YMD2MDY ($date) {
+ return substr ($date, 5, 2) . "/" .
+ substr ($date, 8, 2) . "/" .
+ substr ($date, 0, 4);
+} // YMD2MDY
+
+function MDY2YMD ($date) {
+ return substr ($date, 6, 4) . "-" .
+ substr ($date, 0, 2) . "-" .
+ substr ($date, 3, 2);
+} // MDY2YMD
+
+function copyright () {
+ $year = date ("Y");
+
+ $thisFile = "$_SERVER[DOCUMENT_ROOT]/$_SERVER[PHP_SELF]";
+ $lastModified = date ("F d Y @ g:i a", filemtime ($thisFile));
+
+ $copyright .= <<<END
+<div class=copyright>
+Fsmon Version
+END;
+ $copyright .= VERSION;
+ $copyright .= <<<END
+<br>Last Modified: $lastModified<br>
+Copyright $year © <a href="http://clearscm.com">ClearSCM, Inc.</a>, all rights reserved<br>
+<a href="/"><img border=0 src="/images/HomeSmall.gif">Home</a>
+</div>
+END;
+
+ return $copyright;
+} // copyright
+
+function Today2SQLDatetime () {
+ return date ("Y-m-d H:i:s");
+} // Today2SQLDatetime
+
+function getPeriods () {
+ return array (
+ "hourly",
+ "daily",
+ "weekly",
+ "monthly"
+ );
+} // getPeriods
+
+function getScales () {
+ return array (
+ "byte",
+ "kbyte",
+ "meg",
+ "gig"
+ );
+} // getScales
+?>
\ No newline at end of file
--- /dev/null
+#!/bin/env /usr/local/bin/perl
+################################################################################
+#
+# File: fsmon
+# Revision: 0.1
+# Description: Monitor filesystem growth
+#
+# Author: Andrew@ClearSCM.com
+# Created: Thu Dec 11 10:39:12 MST 2008
+# Modified:
+# Language: Perl
+#
+# (c) Copyright 2008, ClearSCM, Inc., all rights reserved.
+#
+#################################################################################
+use strict;
+use warnings;
+
+use FindBin;
+use Getopt::Long;
+use Net::Domain qw(hostname);
+
+use lib ($FindBin::Bin, "/cleartrig/ent/SNSD/muos/ccadm_tools/vobs/ranccadm/scripts/lib");
+
+use Display;
+use Rexec;
+use Filesystem;
+use FsmonDB;
+
+# This is a non-standard, but commonly used prompt around here. For
+# EAST systems they use a terminator of "]$" as in "[p6258c@ceast1
+# p6258c]$ " however on ranray it's more like "[ranray/home/pwit]
+# ". So we look for both.
+use constant PROMPT => qr'(\]\$|\] $)';
+
+my %_opts;
+
+sub usage (;$) {
+ my ($msg) = $_;
+
+ my $usage = "ERROR: $msg\n\n" if $msg;
+
+ $usage .= <<END;
+Usage: $FindBin::Script\t[-us|age] [-v|erbose] [-d|ebug]
+
+ -us|age: Display usage
+ -ve|rbose: Turn on verbose mode
+ -d|ebug: Turn on debug mode
+END
+
+ my $pager = $ENV{PAGER} ? $ENV{PAGER} : "more";
+
+ system "echo \"$usage\" | $pager";
+
+ exit 1 if $msg;
+} # usage
+
+# Main
+
+GetOptions (
+ \%_opts,
+ verbose => sub { set_verbose },
+ debug => sub { set_debug },
+ usage => sub { usage; exit 0 },
+);
+
+# Connect to database
+my $fsmondb = new FsmonDB ("fsmonadm", "fsmonadm");
+
+# Take a snapshot of all systems
+verbose "Taking snapshots...";
+
+foreach ($fsmondb->getSystem) {
+ verbose "Snapshotting $_";
+
+# my ($errno, $errmsg) = $fsmondb->snapshot ($_, PROMPT);
+ my ($errno, $errmsg) = $fsmondb->snapshot ($_);
+
+ warning "Unable to take snapshot of $_\n$errmsg"
+ if $errno != 0;
+} # foreach
+
+verbose "Done";
--- /dev/null
+<?php
+////////////////////////////////////////////////////////////////////////////////
+//
+// File: fsmon.php
+// Description: Produce a graph of filesystem usage
+// Author: Andrew@ClearSCM.com
+// Created: Mon Apr 28 15:20:06 MST 2008
+// Modified:
+// Language: PHP
+//
+// (c) Copyright 2008, ClearSCM Inc., all rights reserved.
+//
+////////////////////////////////////////////////////////////////////////////////
+$script = basename ($_SERVER["PHP_SELF"]);
+
+include_once "FsmonDB.php";
+include_once "Fsutils.php";
+
+$version = VERSION;
+
+$system = $_REQUEST["system"];
+$mount = $_REQUEST["mount"];
+$period = $_REQUEST["period"];
+$scale = $_REQUEST["scale"];
+
+function createHeader () {
+ global $version, $system, $mount;
+
+ $sysLabel = (empty ($system)) ? "All Systems" : $system;
+ $mountLabel = (empty ($mount)) ? "All Filesystems" : $mount;
+
+ $header = <<<END
+<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01//EN"
+ "http://www.w3.org/TR/html4/strict.dtd">
+<html>
+<head>
+ <meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
+ <link rel="stylesheet" type="text/css" media="screen" href="/css/Testing.css">
+ <link rel="stylesheet" type="text/css" media="screen" href="/css/Tables.css">
+ <title>FSMon v($version) $sysLabel - $mountLabel</title>
+</head>
+<body>
+END;
+
+ $header .= banner ();
+ $header .= <<<END
+<h1 align="center">Filesystem Monitor</h1>
+END;
+
+ return $header;
+} // createHeader
+
+function createPage ($system, $mount = "", $period = "daily", $scale = "gig") {
+ $data = getFSInfo ($system, $mount, $period);
+
+ $page .= <<<END
+<table align=center>
+ <thead>
+ <tr>
+ <th class="left">System</th>
+ <th>Mount Point</th>
+ <th>Timestamp</th>
+ <th>Size</th>
+ <th>Used</th>
+ <th>Free</th>
+ <th class="right">Reserve</th>
+ </tr>
+ </thead>
+ <tbody>
+END;
+
+ foreach ($data as $line) {
+ $page .= <<<END
+ <tr class="white">
+ <td>$line[sysname]</td>
+ <td>$line[mount]</td>
+ <td>$line[timestamp]</td>
+ <td align="right">$line[size]</td>
+ <td align="right">$line[used]</td>
+ <td align="right">$line[free]</td>
+ <td align="right">$line[reserve]</td>
+ </tr>
+END;
+ } // foreach
+
+ $page .=<<<END
+ </tbody>
+</table>
+END;
+
+ return $page;
+} // createPage
+
+function displayReport ($system = "", $mount = "", $period = "daily", $scale = "gig") {
+ print createPage ($system, $mount, $period, $scale);
+} // displayReport
+
+function displayMount ($system = "", $mount = "", $period = "daily", $scale = "gig") {
+ global $script;
+
+ print <<<END
+<table cellspacing="0" align="center">
+ <tr>
+ <form action="$script">
+ <td align="center">System:
+ <select name="system" class="inputfield">
+END;
+
+ foreach (getSystem () as $item) {
+ print "<option";
+
+ if ($item["name"] == $system) {
+ print " selected=\"selected\"";
+ } // if
+
+ print ">$item[name]</option>";
+ } // foreach
+
+ print <<<END
+ </select>
+ Mount:
+ <select name="mount" class="inputfield">
+END;
+
+ foreach (getMounts ($system) as $item) {
+ print "<option";
+
+ if ($item == $mount) {
+ print " selected=\"selected\"";
+ } // if
+
+ print ">$item</option>";
+ } // foreach
+
+ print <<<END
+ </select>
+ Period:
+ <select name="period" class="inputfield">
+END;
+
+ foreach (getPeriods () as $item) {
+ print "<option";
+
+ if ($item == $period) {
+ print " selected=\"selected\"";
+ } // if
+
+ print ">$item</option>";
+ } // foreach
+
+ print <<<END
+ </select>
+ Scale:
+ <select name="scale" class="inputfield">
+END;
+
+ foreach (getScales () as $item) {
+ print "<option";
+
+ if ($item == $scale) {
+ print " selected=\"selected\"";
+ } // if
+
+ print ">$item</option>";
+ } // foreach
+
+ print <<<END
+ </select>
+ <input type="submit" value="Graph" /></form>
+ </td>
+ </tr>
+ <tr>
+ <td align="center">
+ <img src="graphFS.php?system=$system&mount=$mount&period=$period&scale=$scale">
+ </td>
+ </tr>
+</table>
+END;
+// displayReport ($system, $mount, $period, $scale);
+} // displayMount
+
+function displayFilesystems ($system = "", $mount = "", $period = "daily", $scale = "gig") {
+ if (empty ($mount)) {
+ foreach (getMounts ($system) as $mount) {
+ displayMount ($system, $mount, $period, $scale);
+ print "<p></p>";
+ } // foreach
+ } else {
+ displayMount ($system, $mount, $period, $scale);
+ } // if
+} // displayFilesystems
+
+function displayGraph ($system = "", $mount = "", $period = "daily", $scale = "gig") {
+ print createHeader ();
+
+ if (empty ($system)) {
+ foreach (getSystem () as $system) {
+ displayFilesystems ($system["name"], $mount, $period, $scale);
+ } // foreach
+ } else {
+ displayFilesystems ($system, $mount, $period, $scale);
+ } // if
+} // displayGraph
+
+openDB ();
+
+if (empty ($system)) {
+ print createHeader ();
+ print "<ul>";
+
+ foreach (getSystem () as $system) {
+ print "<li><a href=$script?system=$system[name]>$system[name]</a></li>";
+
+// print "<ul>";
+
+// $mounts = getMounts ($system["name"]);
+
+// foreach ($mounts as $mount) {
+// print "<li><a href=$script?system=$system[name]&mount=$mount>$mount</a></li>";
+// } // foreach
+
+// print "</ul>";
+ } // foreach
+
+ print "</ul>";
+} else {
+ displayGraph ($system, $mount, $period, $scale);
+} // if
+
+print copyright ();
+?>
+</body>
+</html>
--- /dev/null
+<?php
+////////////////////////////////////////////////////////////////////////////////
+//
+// File: graphFS.php
+// Revision: 0.1
+// Description: Produce a graph showing file system sizes
+// date range.
+// Author: Andrew@ClearSCM.com
+// Created: Mon Apr 28 15:20:06 MST 2008
+// Modified:
+// Language: PHP
+//
+// (c) Copyright 2008, ClearSCM Inc., all rights reserved.
+//
+////////////////////////////////////////////////////////////////////////////////
+$script = basename ($_SERVER["PHP_SELF"]);
+//$inc = $_SERVER["DOCUMENT_ROOT"];
+$inc = "/var/www/html/Fsmon";
+
+include_once "$inc/FsmonDB.php";
+include_once "$inc/Fsutils.php";
+
+include_once "$inc/pChart/pData.class";
+include_once "$inc/pChart/pChart.class";
+
+$system = $_REQUEST["system"];
+$mount = $_REQUEST["mount"];
+
+$debug;
+
+function mydebug ($msg) {
+ $debug = fopen ("/tmp/debug.log", "a");
+
+ fwrite ($debug, "$msg\n");
+} // mydebug
+
+function setScaling () {
+ if ($_REQUEST["scale"] == "byte") {
+ return BYTE;
+ } elseif ($_REQUEST["scale"] == "kbyte") {
+ return KBYTE;
+ } elseif ($_REQUEST["scale"] == "meg") {
+ return MEG;
+ } else {
+ return GIG;
+ } // if
+} // if
+
+function setPeriod () {
+ if ($_REQUEST["period"] == "hourly") {
+ return $_REQUEST["period"];
+ } elseif ($_REQUEST["period"] == "weekly") {
+ return $_REQUEST["period"];
+ } elseif ($_REQUEST["period"] == "monthly") {
+ return $_REQUEST["period"];
+ } else {
+ return "daily";
+ } // if
+} // if
+
+openDB ();
+
+$scaling = setScaling ();
+$period = setPeriod ();
+
+$data = getFSInfo ($system, $mount, $period);
+
+$fonts = "$inc/Fonts";
+
+// Dataset definition
+$DataSet = new pData;
+
+$system = "Unknown";
+$mount = "Unknown";
+
+foreach ($data as $result) {
+ $system = $result["sysname"];
+ $mount = $result["mount"];
+
+ // Set X Axis label properly
+ if ($period == "hourly") {
+ $hours = substr ($result["timestamp"], 11, 2);
+ $minutes = substr ($result["timestamp"], 14, 2);
+ $ampm = "Am";
+
+ if ($hours > 12) {
+ $hours = $hours - 12;
+ $ampm = "Pm";
+ } elseif ($hours < 10) {
+ $hours = substr ($hours, 1, 1);
+ } // if
+
+ $Xlabel = "$hours:$minutes $ampm";
+ } elseif ($period == "daily") {
+ $day = substr ($result["timestamp"], 8, 2);
+
+ if ($day < 10) {
+ $day = substr ($day, 1, 1);
+ } // if
+
+ $month = substr ($result["timestamp"], 5, 2);
+
+ if ($month < 10) {
+ $month = substr ($month, 1, 1);
+ } // if
+
+ $year = substr ($result["timestamp"], 0, 4);
+ $Xlabel = "$month/$day/$year";
+ } elseif ($period == "weekly") {
+ $Xlabel = "Weekly not implemented";
+ } elseif ($period == "monthly") {
+ $month = substr ($result["timestamp"], 5, 2);
+
+ if ($month < 10) {
+ $month = substr ($month, 1, 1);
+ } // if
+
+ $year = substr ($result["timestamp"], 0, 4);
+ $Xlabel = "$month/$year";
+ } else {
+ $Xlabel = $result["timestamp"];
+ } // if
+
+ $DataSet->AddPoint ($result["used"] / $scaling, "Used", $Xlabel);
+ $DataSet->AddPoint ($result["free"] / $scaling, "Free", $Xlabel);
+} // foreach
+
+$DataSet->AddAllSeries();
+$DataSet->SetAbsciseLabelSerie();
+
+$DataSet->SetXAxisName ("Time");
+
+// Initialise the graph
+$Test = new pChart (700, 280);
+
+$Test->setColorPalette (1, 0, 255, 0);
+$Test->setColorPalette (0, 255, 0, 0);
+
+$Test->drawGraphAreaGradient (100, 150, 175, 100, TARGET_BACKGROUND);
+$Test->setFontProperties ("$fonts/tahoma.ttf", 8);
+
+if ($scaling == BYTE) {
+ $Test->setGraphArea (110, 30, 680, 200);
+ $DataSet->SetYAxisName ("Bytes");
+} elseif ($scaling == KBYTE) {
+ $Test->setGraphArea (90, 30, 680, 200);
+ $DataSet->SetYAxisName ("Kbytes");
+} elseif ($scaling == MEG) {
+ $Test->setGraphArea (70, 30, 680, 200);
+ $DataSet->SetYAxisName ("Meg");
+} else {
+ $Test->setGraphArea (55, 30, 680, 200);
+ $DataSet->SetYAxisName ("Gig");
+} // if
+
+$Test->drawRoundedRectangle (5, 5, 695, 275, 5, 230, 230, 230);
+$Test->drawGraphAreaGradient (162, 183, 202, 50);
+$Test->drawScale ($DataSet->GetData (), $DataSet->GetDataDescription (), SCALE_ADDALLSTART0, 200, 200, 200, true, 70, 2, true);
+$Test->drawGrid (4, true, 230, 230, 230, 50);
+
+// Draw the 0 line
+$Test->setFontProperties ("$fonts/tahoma.ttf", 6);
+$Test->drawTreshold (0, 143, 55, 72, true, true);
+
+// Draw the bar graph
+$Test->drawStackedBarGraph ($DataSet->GetData (), $DataSet->GetDataDescription (), 75);
+
+// Finish the graph
+$Test->setFontProperties ("$fonts/tahoma.ttf",8);
+$Test->drawLegend (610, 35, $DataSet->GetDataDescription (), 130, 180, 205);
+$Test->setFontProperties ("$fonts/tahoma.ttf", 10);
+$Test->drawTitle (50, 22, "$system:$mount ($period)", 255, 255, 255, 675);
+$Test->Stroke ();
+?>
\ No newline at end of file
--- /dev/null
+<?php\r
+ /*\r
+ pCache - Faster renderding using data cache\r
+ Copyright (C) 2008 Jean-Damien POGOLOTTI\r
+ Version 1.1.2 last updated on 06/17/08\r
+\r
+ http://pchart.sourceforge.net\r
+\r
+ This program is free software: you can redistribute it and/or modify\r
+ it under the terms of the GNU General Public License as published by\r
+ the Free Software Foundation, either version 1,2,3 of the License, or\r
+ (at your option) any later version.\r
+\r
+ This program is distributed in the hope that it will be useful,\r
+ but WITHOUT ANY WARRANTY; without even the implied warranty of\r
+ MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the\r
+ GNU General Public License for more details.\r
+\r
+ You should have received a copy of the GNU General Public License\r
+ along with this program. If not, see <http://www.gnu.org/licenses/>.\r
+\r
+ Class initialisation :\r
+ pCache($CacheFolder="Cache/")\r
+ Cache management :\r
+ IsInCache($Data)\r
+ GetFromCache($ID,$Data)\r
+ WriteToCache($ID,$Data,$Picture)\r
+ DeleteFromCache($ID,$Data)\r
+ ClearCache()\r
+ Inner functions :\r
+ GetHash($ID,$Data)\r
+ */\r
+\r
+ /* pCache class definition */\r
+ class pCache\r
+ {\r
+ var $HashKey = "";\r
+ var $CacheFolder = "Cache/";\r
+\r
+ /* Create the pCache object */\r
+ function pCache($CacheFolder="Cache/")\r
+ {\r
+ $this->CacheFolder = $CacheFolder;\r
+ }\r
+\r
+ /* This function is clearing the cache folder */\r
+ function ClearCache()\r
+ {\r
+ if ($handle = opendir($this->CacheFolder))\r
+ {\r
+ while (false !== ($file = readdir($handle)))\r
+ {\r
+ if ( $file != "." && $file != ".." )\r
+ unlink($this->CacheFolder.$file);\r
+ }\r
+ closedir($handle);\r
+ }\r
+ }\r
+\r
+ /* This function is checking if we have an offline version of this chart */\r
+ function IsInCache($ID,$Data,$Hash="")\r
+ {\r
+ if ( $Hash == "" )\r
+ $Hash = $this->GetHash($ID,$Data);\r
+\r
+ if ( file_exists($this->CacheFolder.$Hash) )\r
+ return(TRUE);\r
+ else\r
+ return(FALSE);\r
+ }\r
+\r
+ /* This function is making a copy of drawn chart in the cache folder */\r
+ function WriteToCache($ID,$Data,$Picture)\r
+ {\r
+ $Hash = $this->GetHash($ID,$Data);\r
+ $FileName = $this->CacheFolder.$Hash;\r
+\r
+ imagepng($Picture->Picture,$FileName);\r
+ }\r
+\r
+ /* This function is removing any cached copy of this chart */\r
+ function DeleteFromCache($ID,$Data)\r
+ {\r
+ $Hash = $this->GetHash($ID,$Data);\r
+ $FileName = $this->CacheFolder.$Hash;\r
+\r
+ if ( file_exists($FileName ) )\r
+ unlink($FileName);\r
+ }\r
+\r
+ /* This function is retrieving the cached picture if applicable */\r
+ function GetFromCache($ID,$Data)\r
+ {\r
+ $Hash = $this->GetHash($ID,$Data);\r
+ if ( $this->IsInCache("","",$Hash ) )\r
+ {\r
+ $FileName = $this->CacheFolder.$Hash;\r
+\r
+ header('Content-type: image/png');\r
+ @readfile($FileName);\r
+ exit();\r
+ }\r
+ }\r
+\r
+ /* This function is building the graph unique hash key */\r
+ function GetHash($ID,$Data)\r
+ {\r
+ $mKey = "$ID";\r
+ foreach($Data as $key => $Values)\r
+ {\r
+ $tKey = "";\r
+ foreach($Values as $Serie => $Value)\r
+ $tKey = $tKey.$Serie.$Value;\r
+ $mKey = $mKey.md5($tKey);\r
+ }\r
+ return(md5($mKey));\r
+ }\r
+ }\r
+?>
\ No newline at end of file
--- /dev/null
+<?php\r
+ /*\r
+ pChart - a PHP class to build charts!\r
+ Copyright (C) 2008 Jean-Damien POGOLOTTI\r
+ Version 1.27b last updated on 08/21/08\r
+\r
+ http://pchart.sourceforge.net\r
+\r
+ This program is free software: you can redistribute it and/or modify\r
+ it under the terms of the GNU General Public License as published by\r
+ the Free Software Foundation, either version 1,2,3 of the License, or\r
+ (at your option) any later version.\r
+\r
+ This program is distributed in the hope that it will be useful,\r
+ but WITHOUT ANY WARRANTY; without even the implied warranty of\r
+ MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the\r
+ GNU General Public License for more details.\r
+\r
+ You should have received a copy of the GNU General Public License\r
+ along with this program. If not, see <http://www.gnu.org/licenses/>.\r
+\r
+ Class initialisation :\r
+ pChart($XSize,$YSize)\r
+ Draw methods :\r
+ drawBackground($R,$G,$B)\r
+ drawRectangle($X1,$Y1,$X2,$Y2,$R,$G,$B)\r
+ drawFilledRectangle($X1,$Y1,$X2,$Y2,$R,$G,$B,$DrawBorder=TRUE,$Alpha=100)\r
+ drawRoundedRectangle($X1,$Y1,$X2,$Y2,$Radius,$R,$G,$B)\r
+ drawFilledRoundedRectangle($X1,$Y1,$X2,$Y2,$Radius,$R,$G,$B)\r
+ drawCircle($Xc,$Yc,$Height,$R,$G,$B,$Width=0)\r
+ drawFilledCircle($Xc,$Yc,$Height,$R,$G,$B,$Width=0)\r
+ drawEllipse($Xc,$Yc,$Height,$Width,$R,$G,$B)\r
+ drawFilledEllipse($Xc,$Yc,$Height,$Width,$R,$G,$B)\r
+ drawLine($X1,$Y1,$X2,$Y2,$R,$G,$B,$GraphFunction=FALSE)\r
+ drawDottedLine($X1,$Y1,$X2,$Y2,$DotSize,$R,$G,$B)\r
+ drawAlphaPixel($X,$Y,$Alpha,$R,$G,$B)\r
+ drawFromPNG($FileName,$X,$Y,$Alpha=100)\r
+ drawFromGIF($FileName,$X,$Y,$Alpha=100)\r
+ drawFromJPG($FileName,$X,$Y,$Alpha=100)\r
+ Graph setup methods :\r
+ addBorder($Width=3,$R=0,$G=0,$B=0)\r
+ drawGraphArea($R,$G,$B,$Stripe=FALSE)\r
+ drawScale(&$Data,&$DataDescription,$ScaleMode,$R,$G,$B,$DrawTicks=TRUE,$Angle=0,$Decimals=1,$WithMargin=FALSE,$SkipLabels=1)\r
+ drawGrid($LineWidth,$Mosaic=TRUE,$R=220,$G=220,$B=220,$Alpha=100)\r
+ drawLegend($XPos,$YPos,&$DataDescription,$R,$G,$B,$Rs=-1,$Gs=-1,$Bs=-1)\r
+ drawPieLegend($XPos,$YPos,$Data,$DataDescription,$R,$G,$B)\r
+ drawTitle($XPos,$YPos,$Value,$R,$G,$B,$XPos2=-1,$YPos2=-1)\r
+ drawTreshold($Value,$R,$G,$B,$ShowLabel=FALSE,$ShowOnRight=FALSE,$TickWidth=4,$FreeText=NULL)\r
+ drawArea(&$Data,$Serie1,$Serie2,$R,$G,$B,$Alpha = 50)\r
+ drawRadarAxis(&$Data,&$DataDescription,$Mosaic=TRUE,$BorderOffset=10,$A_R=60,$A_G=60,$A_B=60,$S_R=200,$S_G=200,$S_B=200,$MaxValue=-1)\r
+ drawGraphAreaGradient($R,$G,$B,$Decay,$Target=TARGET_GRAPHAREA)\r
+ drawTextBox($X1,$Y1,$X2,$Y2,$Text,$Angle=0,$R=255,$G=255,$B=255,$Align=ALIGN_LEFT,$Shadow=TRUE,$BgR=-1,$BgG=-1,$BgB=-1,$Alpha=100)\r
+ getLegendBoxSize($DataDescription)\r
+ loadColorPalette($FileName,$Delimiter=",")\r
+ reportWarnings($Interface="CLI")\r
+ setGraphArea($X1,$Y1,$X2,$Y2)\r
+ setFixedScale($VMin,$VMax)\r
+ setLabel(&$Data,&$DataDescription,$SerieName,$ValueName,$Caption,$R=210,$G=210,$B=210)\r
+ setColorPalette($ID,$R,$G,$B)\r
+ setDateFormat($Format)\r
+ setFontProperties($FontName,$FontSize)\r
+ setLineStyle($Width=1,$DotSize=0)\r
+ setFixedScale($VMin,$VMax,$Divisions=5)\r
+ writeValues(&$Data,&$DataDescription,$Series)\r
+ Graphs methods :\r
+ drawPlotGraph(&$Data,&$DataDescription,$BigRadius=5,$SmallRadius=2,$R2=-1,$G2=-1,$B2=-1)\r
+ drawLineGraph(&$Data,&$DataDescription,$SerieName="")\r
+ drawFilledLineGraph(&$Data,&$DataDescription,$Alpha=100,$AroundZero=FALSE)\r
+ drawCubicCurve(&$Data,&$DataDescription,$Accuracy=.1,$SerieName="")\r
+ drawFilledCubicCurve(&$Data,&$DataDescription,$Accuracy=.1,$Alpha=100,$AroundZero=FALSE)\r
+ drawOverlayBarGraph(&$Data,&$DataDescription,$Alpha=50)\r
+ drawBarGraph(&$Data,&$DataDescription,$Shadow=FALSE)\r
+ drawStackedBarGraph(&$Data,&$DataDescription,$Alpha=50)\r
+ drawLimitsGraph(&$Data,&$DataDescription,$R=0,$G=0,$B=0)\r
+ drawRadar(&$Data,&$DataDescription,$BorderOffset=10,$MaxValue=-1)\r
+ drawFilledRadar(&$Data,&$DataDescription,$Alpha=50,$BorderOffset=10,$MaxValue=-1)\r
+ drawBasicPieGraph(&$Data,&$DataDescription,$XPos,$YPos,$Radius=100,$DrawLabels=PIE_NOLABEL,$R=255,$G=255,$B=255,$Decimals=0)\r
+ drawFlatPieGraph(&$Data,&$DataDescription,$XPos,$YPos,$Radius=100,$DrawLabels=PIE_NOLABEL,$SpliceDistance=0,$Decimals = 0)\r
+ drawPieGraph(&$Data,&$DataDescription,$XPos,$YPos,$Radius=100,$DrawLabels=PIE_NOLABEL,$EnhanceColors=TRUE,$Skew=60,$SpliceHeight=20,$SpliceDistance=0,$Decimals=0)\r
+ Other methods :\r
+ setImageMap($Mode=TRUE,$GraphID="MyGraph")\r
+ getImageMap($MapName,$Flush=TRUE)\r
+ Render($FileName)\r
+ Stroke()\r
+ */\r
+ \r
+ /* Andrew@DeFaria.com: Empty array for imageftbbox call\r
+ See http://bugs.php.net/bug.php?id=26309\r
+ */\r
+ /* Declare some script wide constants */\r
+ define("SCALE_NORMAL",1);\r
+ define("SCALE_ADDALL",2);\r
+ define("SCALE_START0",3);\r
+ define("SCALE_ADDALLSTART0",4);\r
+ define("PIE_PERCENTAGE", 1);\r
+ define("PIE_LABELS",2);\r
+ define("PIE_NOLABEL",3);\r
+ define("TARGET_GRAPHAREA",1);\r
+ define("TARGET_BACKGROUND",2);\r
+ define("ALIGN_TOP_LEFT",1);\r
+ define("ALIGN_TOP_CENTER",2);\r
+ define("ALIGN_TOP_RIGHT",3);\r
+ define("ALIGN_LEFT",4);\r
+ define("ALIGN_CENTER",5);\r
+ define("ALIGN_RIGHT",6);\r
+ define("ALIGN_BOTTOM_LEFT",7);\r
+ define("ALIGN_BOTTOM_CENTER",8);\r
+ define("ALIGN_BOTTOM_RIGHT",9);\r
+\r
+ /* pChart class definition */\r
+ class pChart\r
+ {\r
+ /* Palettes definition */\r
+ var $Palette = array("0"=>array("R"=>188,"G"=>224,"B"=>46),\r
+ "1"=>array("R"=>224,"G"=>100,"B"=>46),\r
+ "2"=>array("R"=>224,"G"=>214,"B"=>46),\r
+ "3"=>array("R"=>46,"G"=>151,"B"=>224),\r
+ "4"=>array("R"=>176,"G"=>46,"B"=>224),\r
+ "5"=>array("R"=>224,"G"=>46,"B"=>117),\r
+ "6"=>array("R"=>92,"G"=>224,"B"=>46),\r
+ "7"=>array("R"=>224,"G"=>176,"B"=>46));\r
+\r
+ /* Some static vars used in the class */\r
+ var $XSize = NULL;\r
+ var $YSize = NULL;\r
+ var $Picture = NULL;\r
+ var $ImageMap = NULL;\r
+\r
+ /* Error management */\r
+ var $ErrorReporting = FALSE;\r
+ var $ErrorInterface = "CLI";\r
+ var $Errors = NULL;\r
+ var $ErrorFontName = "Fonts/pf_arma_five.ttf";\r
+ var $ErrorFontSize = 6;\r
+\r
+ /* vars related to the graphing area */\r
+ var $GArea_X1 = NULL;\r
+ var $GArea_Y1 = NULL;\r
+ var $GArea_X2 = NULL;\r
+ var $GArea_Y2 = NULL;\r
+ var $GAreaXOffset = NULL;\r
+ var $VMax = NULL;\r
+ var $VMin = NULL;\r
+ var $Divisions = NULL;\r
+ var $DivisionHeight = NULL;\r
+ var $DivisionCount = NULL;\r
+ var $DivisionRatio = NULL;\r
+ var $DivisionWidth = NULL;\r
+ var $DataCount = NULL;\r
+\r
+ /* Text format related vars */\r
+ var $FontName = NULL;\r
+ var $FontSize = NULL;\r
+ var $DateFormat = "d/m/Y";\r
+\r
+ /* Lines format related vars */\r
+ var $LineWidth = 1;\r
+ var $LineDotSize = 0;\r
+\r
+ /* Layer related vars */\r
+ var $Layers = NULL;\r
+\r
+ /* Set antialias quality : 0 is maximum, 100 minimum*/\r
+ var $AntialiasQuality = 10;\r
+\r
+ /* Image Map settings */\r
+ var $BuildMap = FALSE;\r
+ var $MapFunction = NULL;\r
+ var $tmpFolder = "tmp/";\r
+ var $MapID = NULL;\r
+\r
+ /* This function create the background picture */\r
+ function pChart($XSize,$YSize)\r
+ {\r
+ $this->XSize = $XSize;\r
+ $this->YSize = $YSize;\r
+ $this->Picture = imagecreatetruecolor($XSize,$YSize);\r
+\r
+ $C_White = imagecolorallocate($this->Picture,255,255,255);\r
+ imagefilledrectangle($this->Picture,0,0,$XSize,$YSize,$C_White);\r
+ imagecolortransparent($this->Picture,$C_White);\r
+\r
+ $this->setFontProperties("tahoma.ttf",8);\r
+ }\r
+\r
+ /* Set if warnings should be reported */\r
+ function reportWarnings($Interface="CLI")\r
+ {\r
+ $this->ErrorReporting = TRUE;\r
+ $this->ErrorInterface = $Interface;\r
+ }\r
+\r
+ /* Set the font properties */\r
+ function setFontProperties($FontName,$FontSize)\r
+ {\r
+ $this->FontName = $FontName;\r
+ $this->FontSize = $FontSize;\r
+ }\r
+\r
+ /* Set Palette color */\r
+ function setColorPalette($ID,$R,$G,$B)\r
+ {\r
+ if ( $R < 0 ) { $R = 0; } if ( $R > 255 ) { $R = 255; }\r
+ if ( $G < 0 ) { $G = 0; } if ( $G > 255 ) { $G = 255; }\r
+ if ( $B < 0 ) { $B = 0; } if ( $B > 255 ) { $B = 255; }\r
+\r
+ $this->Palette[$ID]["R"] = $R;\r
+ $this->Palette[$ID]["G"] = $G;\r
+ $this->Palette[$ID]["B"] = $B;\r
+ }\r
+\r
+ /* Load Color Palette from file */\r
+ function loadColorPalette($FileName,$Delimiter=",")\r
+ {\r
+ $handle = @fopen($FileName,"r");\r
+ $ColorID = 0;\r
+ if ($handle)\r
+ {\r
+ while (!feof($handle))\r
+ {\r
+ $buffer = fgets($handle, 4096);\r
+ $buffer = str_replace(chr(10),"",$buffer);\r
+ $buffer = str_replace(chr(13),"",$buffer);\r
+ $Values = split($Delimiter,$buffer);\r
+ if ( count($Values) == 3 )\r
+ {\r
+ $this->Palette[$ColorID]["R"] = $Values[0];\r
+ $this->Palette[$ColorID]["G"] = $Values[1];\r
+ $this->Palette[$ColorID]["B"] = $Values[2];\r
+ $ColorID++;\r
+ }\r
+ }\r
+ }\r
+ }\r
+\r
+ /* Set line style */\r
+ function setLineStyle($Width=1,$DotSize=0)\r
+ {\r
+ $this->LineWidth = $Width;\r
+ $this->LineDotSize = $DotSize;\r
+ }\r
+\r
+ /* Set the graph area location */\r
+ function setGraphArea($X1,$Y1,$X2,$Y2)\r
+ {\r
+ $this->GArea_X1 = $X1;\r
+ $this->GArea_Y1 = $Y1;\r
+ $this->GArea_X2 = $X2;\r
+ $this->GArea_Y2 = $Y2;\r
+ }\r
+\r
+ /* Prepare the graph area */\r
+ function drawGraphArea($R,$G,$B,$Stripe=FALSE)\r
+ {\r
+ $this->drawFilledRectangle($this->GArea_X1,$this->GArea_Y1,$this->GArea_X2,$this->GArea_Y2,$R,$G,$B,FALSE);\r
+ $this->drawRectangle($this->GArea_X1,$this->GArea_Y1,$this->GArea_X2,$this->GArea_Y2,$R-40,$G-40,$B-40);\r
+\r
+ if ( $Stripe )\r
+ {\r
+ $R2 = $R-15; if ( $R2 < 0 ) { $R2 = 0; }\r
+ $G2 = $R-15; if ( $G2 < 0 ) { $G2 = 0; }\r
+ $B2 = $R-15; if ( $B2 < 0 ) { $B2 = 0; }\r
+\r
+ $LineColor = imagecolorallocate($this->Picture,$R2,$G2,$B2);\r
+ $SkewWidth = $this->GArea_Y2-$this->GArea_Y1-1;\r
+\r
+ for($i=$this->GArea_X1-$SkewWidth;$i<=$this->GArea_X2;$i=$i+4)\r
+ {\r
+ $X1 = $i; $Y1 = $this->GArea_Y2;\r
+ $X2 = $i+$SkewWidth; $Y2 = $this->GArea_Y1;\r
+\r
+\r
+ if ( $X1 < $this->GArea_X1 )\r
+ { $X1 = $this->GArea_X1; $Y1 = $this->GArea_Y1 + $X2 - $this->GArea_X1 + 1; }\r
+\r
+ if ( $X2 >= $this->GArea_X2 )\r
+ { $Y2 = $this->GArea_Y1 + $X2 - $this->GArea_X2 +1; $X2 = $this->GArea_X2 - 1; }\r
+// * Fixed in 1.27 * { $X2 = $this->GArea_X2 - 1; $Y2 = $this->GArea_Y2 - ($this->GArea_X2 - $X1); }\r
+\r
+ imageline($this->Picture,$X1,$Y1,$X2,$Y2+1,$LineColor);\r
+ }\r
+ }\r
+ }\r
+\r
+ /* Allow you to fix the scale, use this to bypass the automatic scaling */\r
+ function setFixedScale($VMin,$VMax,$Divisions=5)\r
+ {\r
+ $this->VMin = $VMin;\r
+ $this->VMax = $VMax;\r
+ $this->Divisions = $Divisions;\r
+ }\r
+\r
+ /* Compute and draw the scale */\r
+ function drawScale(&$Data,&$DataDescription,$ScaleMode,$R,$G,$B,$DrawTicks=TRUE,$Angle=0,$Decimals=1,$WithMargin=FALSE,$SkipLabels=1)\r
+ {\r
+ /* Validate the Data and DataDescription array */\r
+ $this->validateData("drawScale",$Data);\r
+\r
+ $C_TextColor = imagecolorallocate($this->Picture,$R,$G,$B);\r
+\r
+ $this->drawLine($this->GArea_X1,$this->GArea_Y1,$this->GArea_X1,$this->GArea_Y2,$R,$G,$B);\r
+ $this->drawLine($this->GArea_X1,$this->GArea_Y2,$this->GArea_X2,$this->GArea_Y2,$R,$G,$B);\r
+\r
+ if ( $this->VMin == NULL && $this->VMax == NULL)\r
+ {\r
+ if (isset($DataDescription["Values"][0]))\r
+ {\r
+ $this->VMin = $Data[0][$DataDescription["Values"][0]];\r
+ $this->VMax = $Data[0][$DataDescription["Values"][0]];\r
+ }\r
+ else { $this->VMin = 2147483647; $this->VMax = -2147483647; }\r
+\r
+ /* Compute Min and Max values */\r
+ if ( $ScaleMode == SCALE_NORMAL || $ScaleMode == SCALE_START0 )\r
+ {\r
+ if ( $ScaleMode == SCALE_START0 ) { $this->VMin = 0; }\r
+\r
+ foreach ( $Data as $Key => $Values )\r
+ {\r
+ foreach ( $DataDescription["Values"] as $Key2 => $ColName )\r
+ {\r
+ if (isset($Data[$Key][$ColName]))\r
+ {\r
+ $Value = $Data[$Key][$ColName];\r
+\r
+ if ( is_numeric($Value) )\r
+ {\r
+ if ( $this->VMax < $Value) { $this->VMax = $Value; }\r
+ if ( $this->VMin > $Value) { $this->VMin = $Value; }\r
+ }\r
+ }\r
+ }\r
+ }\r
+ }\r
+ elseif ( $ScaleMode == SCALE_ADDALL || $ScaleMode == SCALE_ADDALLSTART0 ) /* Experimental */\r
+ {\r
+ if ( $ScaleMode == SCALE_ADDALLSTART0 ) { $this->VMin = 0; }\r
+\r
+ foreach ( $Data as $Key => $Values )\r
+ {\r
+ $Sum = 0;\r
+ foreach ( $DataDescription["Values"] as $Key2 => $ColName )\r
+ {\r
+ if (isset($Data[$Key][$ColName]))\r
+ {\r
+ $Value = $Data[$Key][$ColName];\r
+ if ( is_numeric($Value) )\r
+ $Sum += $Value;\r
+ }\r
+ }\r
+ if ( $this->VMax < $Sum) { $this->VMax = $Sum; }\r
+ if ( $this->VMin > $Sum) { $this->VMin = $Sum; }\r
+ }\r
+ }\r
+\r
+ $DataRange = $this->VMax - $this->VMin;\r
+ if ( $DataRange == 0 ) { $DataRange = .1; }\r
+\r
+ /* Compute automatic scaling */\r
+ $ScaleOk = FALSE; $Factor = 1;\r
+ $MinDivHeight = 25; $MaxDivs = ($this->GArea_Y2 - $this->GArea_Y1) / $MinDivHeight;\r
+ if ($MaxDivs > 1)\r
+ {\r
+ while(!$ScaleOk)\r
+ {\r
+ $Scale1 = ( $this->VMax - $this->VMin ) / $Factor;\r
+ $Scale2 = ( $this->VMax - $this->VMin ) / $Factor / 2;\r
+ $Scale4 = ( $this->VMax - $this->VMin ) / $Factor / 4;\r
+\r
+ if ( $Scale1 > 1 && $Scale1 <= $MaxDivs && !$ScaleOk) { $ScaleOk = TRUE; $Divisions = floor($Scale1); $Scale = 1;}\r
+ if ( $Scale2 > 1 && $Scale2 <= $MaxDivs && !$ScaleOk) { $ScaleOk = TRUE; $Divisions = floor($Scale2); $Scale = 2;}\r
+ if (!$ScaleOk)\r
+ {\r
+ if ( $Scale2 > 1 ) { $Factor = $Factor * 10; }\r
+ if ( $Scale2 < 1 ) { $Factor = $Factor / 10; }\r
+ }\r
+ }\r
+\r
+ if ( floor($this->VMax / $Scale / $Factor) != $this->VMax / $Scale / $Factor)\r
+ {\r
+ $GridID = floor ( $this->VMax / $Scale / $Factor) + 1;\r
+ $this->VMax = $GridID * $Scale * $Factor;\r
+ $Divisions++;\r
+ }\r
+\r
+ if ( floor($this->VMin / $Scale / $Factor) != $this->VMin / $Scale / $Factor)\r
+ {\r
+ $GridID = floor( $this->VMin / $Scale / $Factor);\r
+ $this->VMin = $GridID * $Scale * $Factor;\r
+ $Divisions++;\r
+ }\r
+ }\r
+ else /* Can occurs for small graphs */\r
+ $Scale = 1;\r
+\r
+ if ( !isset($Divisions) )\r
+ $Divisions = 2;\r
+\r
+ if ($Scale == 1 && $Divisions%2 == 1)\r
+ $Divisions--;\r
+ }\r
+ else\r
+ $Divisions = $this->Divisions;\r
+\r
+ $this->DivisionCount = $Divisions;\r
+\r
+ $DataRange = $this->VMax - $this->VMin;\r
+ if ( $DataRange == 0 ) { $DataRange = .1; }\r
+\r
+ $this->DivisionHeight = ( $this->GArea_Y2 - $this->GArea_Y1 ) / $Divisions;\r
+ $this->DivisionRatio = ( $this->GArea_Y2 - $this->GArea_Y1 ) / $DataRange;\r
+\r
+ $this->GAreaXOffset = 0;\r
+ if ( count($Data) > 1 )\r
+ {\r
+ if ( $WithMargin == FALSE )\r
+ $this->DivisionWidth = ( $this->GArea_X2 - $this->GArea_X1 ) / (count($Data)-1);\r
+ else\r
+ {\r
+ $this->DivisionWidth = ( $this->GArea_X2 - $this->GArea_X1 ) / (count($Data));\r
+ $this->GAreaXOffset = $this->DivisionWidth / 2;\r
+ }\r
+ }\r
+ else\r
+ {\r
+ $this->DivisionWidth = $this->GArea_X2 - $this->GArea_X1;\r
+ $this->GAreaXOffset = $this->DivisionWidth / 2;\r
+ }\r
+\r
+ $this->DataCount = count($Data);\r
+\r
+ if ( $DrawTicks == FALSE )\r
+ return(0);\r
+\r
+ $YPos = $this->GArea_Y2; $XMin = NULL;\r
+ for($i=1;$i<=$Divisions+1;$i++)\r
+ {\r
+ $this->drawLine($this->GArea_X1,$YPos,$this->GArea_X1-5,$YPos,$R,$G,$B);\r
+ $Value = $this->VMin + ($i-1) * (( $this->VMax - $this->VMin ) / $Divisions);\r
+ $Value = round($Value * pow(10,$Decimals)) / pow(10,$Decimals);\r
+ if ( $DataDescription["Format"]["Y"] == "number" )\r
+ $Value = $Value.$DataDescription["Unit"]["Y"];\r
+ if ( $DataDescription["Format"]["Y"] == "time" )\r
+ $Value = $this->ToTime($Value); \r
+ if ( $DataDescription["Format"]["Y"] == "date" )\r
+ $Value = $this->ToDate($Value); \r
+ if ( $DataDescription["Format"]["Y"] == "metric" )\r
+ $Value = $this->ToMetric($Value); \r
+\r
+ $Position = imageftbbox($this->FontSize,0,$this->FontName,$Value,$bogus);\r
+ $TextWidth = $Position[2]-$Position[0];\r
+ imagettftext($this->Picture,$this->FontSize,0,$this->GArea_X1-10-$TextWidth,$YPos+($this->FontSize/2),$C_TextColor,$this->FontName,$Value);\r
+\r
+ if ( $XMin > $this->GArea_X1-10-$TextWidth || $XMin == NULL ) { $XMin = $this->GArea_X1-10-$TextWidth; }\r
+\r
+ $YPos = $YPos - $this->DivisionHeight;\r
+ }\r
+\r
+ /* Write the Y Axis caption if set */ \r
+ if ( isset($DataDescription["Axis"]["Y"]) )\r
+ {\r
+ $Position = imageftbbox($this->FontSize,90,$this->FontName,$DataDescription["Axis"]["Y"],$bogus);\r
+ $TextHeight = abs($Position[1])+abs($Position[3]);\r
+ $TextTop = (($this->GArea_Y2 - $this->GArea_Y1) / 2) + $this->GArea_Y1 + ($TextHeight/2);\r
+ imagettftext($this->Picture,$this->FontSize,90,$XMin-$this->FontSize,$TextTop,$C_TextColor,$this->FontName,$DataDescription["Axis"]["Y"]);\r
+ }\r
+\r
+ /* Horizontal Axis */\r
+ $XPos = $this->GArea_X1 + $this->GAreaXOffset;\r
+ $ID = 1; $YMax = NULL;\r
+ foreach ( $Data as $Key => $Values )\r
+ {\r
+ if ( $ID % $SkipLabels == 0 )\r
+ {\r
+ $this->drawLine(floor($XPos),$this->GArea_Y2,floor($XPos),$this->GArea_Y2+5,$R,$G,$B);\r
+ $Value = $Data[$Key][$DataDescription["Position"]];\r
+ if ( $DataDescription["Format"]["X"] == "number" )\r
+ $Value = $Value.$DataDescription["Unit"]["X"];\r
+ if ( $DataDescription["Format"]["X"] == "time" )\r
+ $Value = $this->ToTime($Value); \r
+ if ( $DataDescription["Format"]["X"] == "date" )\r
+ $Value = $this->ToDate($Value); \r
+ if ( $DataDescription["Format"]["X"] == "metric" )\r
+ $Value = $this->ToMetric($Value); \r
+\r
+ $Position = imageftbbox($this->FontSize,$Angle,$this->FontName,$Value,$bogus);\r
+ $TextWidth = abs($Position[2])+abs($Position[0]);\r
+ $TextHeight = abs($Position[1])+abs($Position[3]);\r
+\r
+ if ( $Angle == 0 )\r
+ {\r
+ $YPos = $this->GArea_Y2+18;\r
+ imagettftext($this->Picture,$this->FontSize,$Angle,floor($XPos)-floor($TextWidth/2),$YPos,$C_TextColor,$this->FontName,$Value);\r
+ }\r
+ else\r
+ {\r
+ $YPos = $this->GArea_Y2+10+$TextHeight;\r
+ if ( $Angle <= 90 )\r
+ imagettftext($this->Picture,$this->FontSize,$Angle,floor($XPos)-$TextWidth+5,$YPos,$C_TextColor,$this->FontName,$Value);\r
+ else\r
+ imagettftext($this->Picture,$this->FontSize,$Angle,floor($XPos)+$TextWidth+5,$YPos,$C_TextColor,$this->FontName,$Value);\r
+ }\r
+ if ( $YMax < $YPos || $YMax == NULL ) { $YMax = $YPos; }\r
+ }\r
+\r
+ $XPos = $XPos + $this->DivisionWidth;\r
+ $ID++;\r
+ }\r
+\r
+ /* Write the X Axis caption if set */ \r
+ if ( isset($DataDescription["Axis"]["X"]) )\r
+ {\r
+ $Position = imageftbbox($this->FontSize,90,$this->FontName,$DataDescription["Axis"]["X"],$bogus);\r
+ $TextWidth = abs($Position[2])+abs($Position[0]);\r
+ $TextLeft = (($this->GArea_X2 - $this->GArea_X1) / 2) + $this->GArea_X1 + ($TextWidth/2);\r
+ imagettftext($this->Picture,$this->FontSize,0,$TextLeft,$YMax+$this->FontSize+5,$C_TextColor,$this->FontName,$DataDescription["Axis"]["X"]);\r
+ }\r
+ }\r
+\r
+ /* Compute and draw the scale */\r
+ function drawGrid($LineWidth,$Mosaic=TRUE,$R=220,$G=220,$B=220,$Alpha=100)\r
+ {\r
+ /* Draw mosaic */\r
+ if ( $Mosaic )\r
+ {\r
+ $LayerWidth = $this->GArea_X2-$this->GArea_X1;\r
+ $LayerHeight = $this->GArea_Y2-$this->GArea_Y1;\r
+\r
+ $this->Layers[0] = imagecreatetruecolor($LayerWidth,$LayerHeight);\r
+ $C_White = imagecolorallocate($this->Layers[0],255,255,255);\r
+ imagefilledrectangle($this->Layers[0],0,0,$LayerWidth,$LayerHeight,$C_White);\r
+ imagecolortransparent($this->Layers[0],$C_White);\r
+\r
+ $C_Rectangle = imagecolorallocate($this->Layers[0],250,250,250);\r
+\r
+ $YPos = $LayerHeight; //$this->GArea_Y2-1;\r
+ $LastY = $YPos;\r
+ for($i=0;$i<=$this->DivisionCount;$i++)\r
+ {\r
+ $LastY = $YPos;\r
+ $YPos = $YPos - $this->DivisionHeight;\r
+\r
+ if ( $YPos <= 0 ) { $YPos = 1; }\r
+\r
+ if ( $i % 2 == 0 )\r
+ {\r
+ imagefilledrectangle($this->Layers[0],1,$YPos,$LayerWidth-1,$LastY,$C_Rectangle);\r
+ }\r
+ }\r
+ imagecopymerge($this->Picture,$this->Layers[0],$this->GArea_X1,$this->GArea_Y1,0,0,$LayerWidth,$LayerHeight,$Alpha);\r
+ imagedestroy($this->Layers[0]);\r
+ }\r
+\r
+ /* Horizontal lines */\r
+ $YPos = $this->GArea_Y2 - $this->DivisionHeight;\r
+ for($i=1;$i<=$this->DivisionCount;$i++)\r
+ {\r
+ if ( $YPos > $this->GArea_Y1 && $YPos < $this->GArea_Y2 )\r
+ $this->drawDottedLine($this->GArea_X1,$YPos,$this->GArea_X2,$YPos,$LineWidth,$R,$G,$B);\r
+ \r
+ $YPos = $YPos - $this->DivisionHeight;\r
+ }\r
+\r
+ /* Vertical lines */\r
+ if ( $this->GAreaXOffset == 0 )\r
+ { $XPos = $this->GArea_X1 + $this->DivisionWidth + $this->GAreaXOffset; $ColCount = $this->DataCount-2; }\r
+ else\r
+ { $XPos = $this->GArea_X1 + $this->GAreaXOffset; $ColCount = $this->DataCount; }\r
+\r
+ for($i=1;$i<=$ColCount;$i++)\r
+ {\r
+ if ( $XPos > $this->GArea_X1 && $XPos < $this->GArea_X2 )\r
+ $this->drawDottedLine(floor($XPos),$this->GArea_Y1,floor($XPos),$this->GArea_Y2,$LineWidth,$R,$G,$B);\r
+ $XPos = $XPos + $this->DivisionWidth;\r
+ }\r
+ }\r
+\r
+ /* retrieve the legends size */\r
+ function getLegendBoxSize($DataDescription)\r
+ {\r
+ if ( !isset($DataDescription["Description"]) )\r
+ return(-1);\r
+\r
+ /* <-10->[8]<-4->Text<-10-> */\r
+ $MaxWidth = 0; $MaxHeight = 8;\r
+ foreach($DataDescription["Description"] as $Key => $Value)\r
+ {\r
+ $Position = imageftbbox($this->FontSize,0,$this->FontName,$Value,$bogus);\r
+ $TextWidth = $Position[2]-$Position[0];\r
+ $TextHeight = $Position[1]-$Position[7];\r
+ if ( $TextWidth > $MaxWidth) { $MaxWidth = $TextWidth; }\r
+ $MaxHeight = $MaxHeight + $TextHeight + 4;\r
+ }\r
+ $MaxHeight = $MaxHeight - 3;\r
+ $MaxWidth = $MaxWidth + 32;\r
+\r
+ return(array($MaxWidth,$MaxHeight));\r
+ }\r
+\r
+ /* Draw the data legends */\r
+ function drawLegend($XPos,$YPos,&$DataDescription,$R,$G,$B,$Rs=-1,$Gs=-1,$Bs=-1)\r
+ {\r
+ /* Validate the Data and DataDescription array */\r
+ $this->validateDataDescription("drawLegend",$DataDescription);\r
+\r
+ if ( !isset($DataDescription["Description"]) )\r
+ return(-1);\r
+\r
+ $C_TextColor = imagecolorallocate($this->Picture,0,0,0);\r
+\r
+ /* <-10->[8]<-4->Text<-10-> */\r
+ $MaxWidth = 0; $MaxHeight = 8;\r
+ foreach($DataDescription["Description"] as $Key => $Value)\r
+ {\r
+ $Position = imageftbbox($this->FontSize,0,$this->FontName,$Value,$bogus);\r
+ $TextWidth = $Position[2]-$Position[0];\r
+ $TextHeight = $Position[1]-$Position[7];\r
+ if ( $TextWidth > $MaxWidth) { $MaxWidth = $TextWidth; }\r
+ $MaxHeight = $MaxHeight + $TextHeight + 4;\r
+ }\r
+ $MaxHeight = $MaxHeight - 5;\r
+ $MaxWidth = $MaxWidth + 32;\r
+\r
+ if ( $Rs == -1 || $Gs == -1 || $Bs == -1 )\r
+ { $Rs = $R-30; $Gs = $G-30; $Bs = $B-30; }\r
+\r
+ $this->drawFilledRoundedRectangle($XPos+1,$YPos+1,$XPos+$MaxWidth+1,$YPos+$MaxHeight+1,5,$Rs,$Gs,$Bs);\r
+ $this->drawFilledRoundedRectangle($XPos,$YPos,$XPos+$MaxWidth,$YPos+$MaxHeight,5,$R,$G,$B);\r
+\r
+ $YOffset = 4 + $this->FontSize; $ID = 0;\r
+ foreach($DataDescription["Description"] as $Key => $Value)\r
+ {\r
+ $this->drawFilledRoundedRectangle($XPos+10,$YPos+$YOffset-4,$XPos+14,$YPos+$YOffset-4,2,$this->Palette[$ID]["R"],$this->Palette[$ID]["G"],$this->Palette[$ID]["B"]);\r
+ imagettftext($this->Picture,$this->FontSize,0,$XPos+22,$YPos+$YOffset,$C_TextColor,$this->FontName,$Value);\r
+\r
+ $Position = imageftbbox($this->FontSize,0,$this->FontName,$Value,$bogus);\r
+ $TextHeight = $Position[1]-$Position[7];\r
+\r
+ $YOffset = $YOffset + $TextHeight + 4;\r
+ $ID++;\r
+ }\r
+ }\r
+\r
+ /* Draw the data legends */\r
+ function drawPieLegend($XPos,$YPos,&$Data,&$DataDescription,$R,$G,$B)\r
+ {\r
+ /* Validate the Data and DataDescription array */\r
+ $this->validateDataDescription("drawPieLegend",$DataDescription,FALSE);\r
+ $this->validateData("drawPieLegend",$Data);\r
+\r
+ if ( !isset($DataDescription["Position"]) )\r
+ return(-1);\r
+\r
+ $C_TextColor = imagecolorallocate($this->Picture,0,0,0);\r
+\r
+ /* <-10->[8]<-4->Text<-10-> */\r
+ $MaxWidth = 0; $MaxHeight = 8;\r
+ foreach($Data as $Key => $Value)\r
+ {\r
+ $Value2 = $Value[$DataDescription["Position"]];\r
+ $Position = imageftbbox($this->FontSize,0,$this->FontName,$Value2,$bogus);\r
+ $TextWidth = $Position[2]-$Position[0];\r
+ $TextHeight = $Position[1]-$Position[7];\r
+ if ( $TextWidth > $MaxWidth) { $MaxWidth = $TextWidth; }\r
+\r
+ $MaxHeight = $MaxHeight + $TextHeight + 4;\r
+ }\r
+ $MaxHeight = $MaxHeight - 3;\r
+ $MaxWidth = $MaxWidth + 32;\r
+\r
+ $this->drawFilledRoundedRectangle($XPos+1,$YPos+1,$XPos+$MaxWidth+1,$YPos+$MaxHeight+1,5,$R-30,$G-30,$B-30);\r
+ $this->drawFilledRoundedRectangle($XPos,$YPos,$XPos+$MaxWidth,$YPos+$MaxHeight,5,$R,$G,$B);\r
+\r
+ $YOffset = 4 + $this->FontSize; $ID = 0;\r
+ foreach($Data as $Key => $Value)\r
+ {\r
+ $Value2 = $Value[$DataDescription["Position"]];\r
+ $Position = imageftbbox($this->FontSize,0,$this->FontName,$Value2,$bogus);\r
+ $TextHeight = $Position[1]-$Position[7];\r
+ $this->drawFilledRectangle($XPos+10,$YPos+$YOffset-6,$XPos+14,$YPos+$YOffset-2,$this->Palette[$ID]["R"],$this->Palette[$ID]["G"],$this->Palette[$ID]["B"]);\r
+\r
+ imagettftext($this->Picture,$this->FontSize,0,$XPos+22,$YPos+$YOffset,$C_TextColor,$this->FontName,$Value2);\r
+ $YOffset = $YOffset + $TextHeight + 4;\r
+ $ID++;\r
+ }\r
+ }\r
+\r
+ /* Draw the graph title */\r
+ function drawTitle($XPos,$YPos,$Value,$R,$G,$B,$XPos2 = -1, $YPos2 = -1)\r
+ {\r
+ $C_TextColor = imagecolorallocate($this->Picture,$R,$G,$B);\r
+\r
+ if ( $XPos2 != -1 )\r
+ {\r
+ $Position = imageftbbox($this->FontSize,0,$this->FontName,$Value,$bogus);\r
+ $TextWidth = $Position[2]-$Position[0];\r
+ $XPos = floor(( $XPos2 - $XPos - $TextWidth ) / 2 ) + $XPos;\r
+ }\r
+\r
+ if ( $YPos2 != -1 )\r
+ {\r
+ $Position = imageftbbox($this->FontSize,0,$this->FontName,$Value,$bogus);\r
+ $TextHeight = $Position[5]-$Position[3];\r
+ $YPos = floor(( $YPos2 - $YPos - $TextHeight ) / 2 ) + $YPos;\r
+ }\r
+\r
+ imagettftext($this->Picture,$this->FontSize,0,$XPos,$YPos,$C_TextColor,$this->FontName,$Value); \r
+ }\r
+\r
+ /* Draw a text box with text align & alpha properties */\r
+ function drawTextBox($X1,$Y1,$X2,$Y2,$Text,$Angle=0,$R=255,$G=255,$B=255,$Align=ALIGN_LEFT,$Shadow=TRUE,$BgR=-1,$BgG=-1,$BgB=-1,$Alpha=100)\r
+ {\r
+ $Position = imageftbbox($this->FontSize,$Angle,$this->FontName,$Text,$bogus);\r
+ $TextWidth = $Position[2]-$Position[0];\r
+ $TextHeight = $Position[5]-$Position[3];\r
+ $AreaWidth = $X2 - $X1;\r
+ $AreaHeight = $Y2 - $Y1;\r
+\r
+ if ( $BgR != -1 && $BgG != -1 && $BgB != -1 )\r
+ $this->drawFilledRectangle($X1,$Y1,$X2,$Y2,$BgR,$BgG,$BgB,FALSE,$Alpha);\r
+\r
+ if ( $Align == ALIGN_TOP_LEFT ) { $X = $X1+1; $Y = $Y1+$this->FontSize+1; }\r
+ if ( $Align == ALIGN_TOP_CENTER ) { $X = $X1+($AreaWidth/2)-($TextWidth/2); $Y = $Y1+$this->FontSize+1; }\r
+ if ( $Align == ALIGN_TOP_RIGHT ) { $X = $X2-$TextWidth-1; $Y = $Y1+$this->FontSize+1; }\r
+ if ( $Align == ALIGN_LEFT ) { $X = $X1+1; $Y = $Y1+($AreaHeight/2)-($TextHeight/2); }\r
+ if ( $Align == ALIGN_CENTER ) { $X = $X1+($AreaWidth/2)-($TextWidth/2); $Y = $Y1+($AreaHeight/2)-($TextHeight/2); }\r
+ if ( $Align == ALIGN_RIGHT ) { $X = $X2-$TextWidth-1; $Y = $Y1+($AreaHeight/2)-($TextHeight/2); }\r
+ if ( $Align == ALIGN_BOTTOM_LEFT ) { $X = $X1+1; $Y = $Y2-1; }\r
+ if ( $Align == ALIGN_BOTTOM_CENTER ) { $X = $X1+($AreaWidth/2)-($TextWidth/2); $Y = $Y2-1; }\r
+ if ( $Align == ALIGN_BOTTOM_RIGHT ) { $X = $X2-$TextWidth-1; $Y = $Y2-1; }\r
+\r
+ $C_TextColor = imagecolorallocate($this->Picture,$R,$G,$B);\r
+ $C_ShadowColor = imagecolorallocate($this->Picture,0,0,0);\r
+ if ( $Shadow )\r
+ imagettftext($this->Picture,$this->FontSize,$Angle,$X+1,$Y+1,$C_ShadowColor,$this->FontName,$Text); \r
+\r
+ imagettftext($this->Picture,$this->FontSize,$Angle,$X,$Y,$C_TextColor,$this->FontName,$Text); \r
+ }\r
+\r
+ /* Compute and draw the scale */\r
+ function drawTreshold($Value,$R,$G,$B,$ShowLabel=FALSE,$ShowOnRight=FALSE,$TickWidth=4,$FreeText=NULL)\r
+ {\r
+ if ( $R < 0 ) { $R = 0; } if ( $R > 255 ) { $R = 255; }\r
+ if ( $G < 0 ) { $G = 0; } if ( $G > 255 ) { $G = 255; }\r
+ if ( $B < 0 ) { $B = 0; } if ( $B > 255 ) { $B = 255; }\r
+\r
+ $C_TextColor = imagecolorallocate($this->Picture,$R,$G,$B);\r
+ $Y = $this->GArea_Y2 - ($Value - $this->VMin) * $this->DivisionRatio;\r
+\r
+ if ( $Y <= $this->GArea_Y1 || $Y >= $this->GArea_Y2 )\r
+ return(-1);\r
+\r
+ if ( $TickWidth == 0 )\r
+ $this->drawLine($this->GArea_X1,$Y,$this->GArea_X2,$Y,$R,$G,$B);\r
+ else\r
+ $this->drawDottedLine($this->GArea_X1,$Y,$this->GArea_X2,$Y,$TickWidth,$R,$G,$B);\r
+\r
+ if ( $ShowLabel )\r
+ {\r
+ if ( $FreeText == NULL )\r
+ { $Label = $Value; } else { $Label = $FreeText; }\r
+\r
+ if ( $ShowOnRight )\r
+ imagettftext($this->Picture,$this->FontSize,0,$this->GArea_X2+2,$Y+($this->FontSize/2),$C_TextColor,$this->FontName,$Label);\r
+ else\r
+ imagettftext($this->Picture,$this->FontSize,0,$this->GArea_X1+2,$Y-($this->FontSize/2),$C_TextColor,$this->FontName,$Label);\r
+ }\r
+ }\r
+\r
+ /* This function put a label on a specific point */\r
+ function setLabel(&$Data,&$DataDescription,$SerieName,$ValueName,$Caption,$R=210,$G=210,$B=210)\r
+ {\r
+ /* Validate the Data and DataDescription array */\r
+ $this->validateDataDescription("setLabel",$DataDescription);\r
+ $this->validateData("setLabel",$Data);\r
+\r
+ $C_Label = imagecolorallocate($this->Picture,$R,$G,$B);\r
+ $C_Shadow = imagecolorallocate($this->Picture,$R-30,$G-30,$B-30);\r
+ $C_TextColor = imagecolorallocate($this->Picture,0,0,0);\r
+\r
+ $Cp = 0; $Found = FALSE;\r
+ foreach ( $Data as $Key => $Value )\r
+ {\r
+ if ( $Data[$Key][$DataDescription["Position"]] == $ValueName )\r
+ { $NumericalValue = $Data[$Key][$SerieName]; $Found = TRUE; }\r
+ if ( !$Found )\r
+ $Cp++;\r
+ }\r
+\r
+ $XPos = $this->GArea_X1 + $this->GAreaXOffset + ( $this->DivisionWidth * $Cp ) + 2;\r
+ $YPos = $this->GArea_Y2 - ($NumericalValue - $this->VMin) * $this->DivisionRatio;\r
+\r
+ $Position = imageftbbox($this->FontSize,0,$this->FontName,$Caption,$bogus);\r
+ $TextHeight = $Position[3] - $Position[5];\r
+ $TextWidth = $Position[2]-$Position[0];\r
+ $TextOffset = floor($TextHeight/2);\r
+\r
+ // Shadow\r
+ $Poly = array($XPos+1,$YPos+1,$XPos + 9,$YPos - $TextOffset,$XPos + 8,$YPos + $TextOffset + 2);\r
+ imagefilledpolygon($this->Picture,$Poly,3,$C_Shadow);\r
+ $this->drawLine($XPos,$YPos+1,$XPos + 9,$YPos - $TextOffset - 1,$R-30,$G-30,$B-30);\r
+ $this->drawLine($XPos,$YPos+1,$XPos + 9,$YPos + $TextOffset + 3,$R-30,$G-30,$B-30);\r
+ $this->drawFilledRectangle($XPos + 9,$YPos - $TextOffset,$XPos + 13 + $TextWidth,$YPos + $TextOffset + 2,$R-30,$G-30,$B-30);\r
+\r
+ // Label background\r
+ $Poly = array($XPos,$YPos,$XPos + 8,$YPos - $TextOffset - 1,$XPos + 8,$YPos + $TextOffset + 1);\r
+ imagefilledpolygon($this->Picture,$Poly,3,$C_Label);\r
+ $this->drawLine($XPos-1,$YPos,$XPos + 8,$YPos - $TextOffset - 2,$R,$G,$B);\r
+ $this->drawLine($XPos-1,$YPos,$XPos + 8,$YPos + $TextOffset + 2,$R,$G,$B);\r
+ $this->drawFilledRectangle($XPos + 8,$YPos - $TextOffset - 1,$XPos + 12 + $TextWidth,$YPos + $TextOffset + 1,$R,$G,$B);\r
+\r
+ imagettftext($this->Picture,$this->FontSize,0,$XPos + 10,$YPos + $TextOffset,$C_TextColor,$this->FontName,$Caption);\r
+ }\r
+\r
+ /* This function draw a line graph */\r
+ function drawPlotGraph(&$Data,&$DataDescription,$BigRadius=5,$SmallRadius=2,$R2=-1,$G2=-1,$B2=-1)\r
+ {\r
+ /* Validate the Data and DataDescription array */\r
+ $this->validateDataDescription("drawPlotGraph",$DataDescription);\r
+ $this->validateData("drawPlotGraph",$Data);\r
+\r
+ $GraphID = 0;\r
+\r
+ foreach ( $DataDescription["Values"] as $Key2 => $ColName )\r
+ {\r
+ $ID = 0;\r
+ foreach ( $DataDescription["Description"] as $keyI => $ValueI )\r
+ { if ( $keyI == $ColName ) { $ColorID = $ID; }; $ID++; }\r
+\r
+ $R = $this->Palette[$ColorID]["R"];\r
+ $G = $this->Palette[$ColorID]["G"];\r
+ $B = $this->Palette[$ColorID]["B"];\r
+\r
+ if ( isset($DataDescription["Symbol"][$ColName]) )\r
+ {\r
+ //$Is_Alpha = ((ord ( file_get_contents ($DataDescription["Symbol"][$ColName], false, null, 25, 1)) & 6) & 4) == 4;\r
+ $Is_Alpha = ((ord ( file_get_contents ($DataDescription["Symbol"][$ColName], false)) & 6) & 4) == 4;\r
+\r
+ $Infos = getimagesize($DataDescription["Symbol"][$ColName]);\r
+ $ImageWidth = $Infos[0];\r
+ $ImageHeight = $Infos[1];\r
+ $Symbol = imagecreatefromgif($DataDescription["Symbol"][$ColName]);\r
+ }\r
+\r
+ $XPos = $this->GArea_X1 + $this->GAreaXOffset;\r
+ $Hsize = round($BigRadius/2);\r
+ foreach ( $Data as $Key => $Values )\r
+ {\r
+ $Value = $Data[$Key][$ColName];\r
+ $YPos = $this->GArea_Y2 - (($Value-$this->VMin) * $this->DivisionRatio);\r
+\r
+ /* Save point into the image map if option activated */\r
+ if ( $this->BuildMap )\r
+ $this->addToImageMap($XPos-$Hsize,$YPos-$Hsize,$XPos+1+$Hsize,$YPos+$Hsize+1,$DataDescription["Description"][$ColName],$Data[$Key][$ColName].$DataDescription["Unit"]["Y"],"Plot");\r
+\r
+ if ( is_numeric($Value) )\r
+ {\r
+ if ( !isset($DataDescription["Symbol"][$ColName]) )\r
+ {\r
+ $this->drawFilledCircle($XPos+1,$YPos+1,$BigRadius,$R,$G,$B);\r
+\r
+ if ( $R2 !=-1 && $G2 !=-1 && $B2 !=-1 )\r
+ $this->drawFilledCircle($XPos+1,$YPos+1,$SmallRadius,$R2,$G2,$B2);\r
+ else\r
+ {\r
+ $R = $this->Palette[$ColorID]["R"]-5; if ( $R < 0 ) { $R = 0; }\r
+ $G = $this->Palette[$ColorID]["G"]-5; if ( $G < 0 ) { $G = 0; }\r
+ $B = $this->Palette[$ColorID]["B"]-5; if ( $B < 0 ) { $B = 0; }\r
+\r
+ $this->drawFilledCircle($XPos+1,$YPos+1,$SmallRadius,$R,$G,$B);\r
+ }\r
+ }\r
+ else\r
+ {\r
+ imagecopymerge($this->Picture,$Symbol,$XPos+1-$ImageWidth/2,$YPos+1-$ImageHeight/2,0,0,$ImageWidth,$ImageHeight,100);\r
+ }\r
+ }\r
+\r
+ $XPos = $XPos + $this->DivisionWidth;\r
+ }\r
+ $GraphID++;\r
+ }\r
+ }\r
+\r
+\r
+ /* This function draw an area between two series */\r
+ function drawArea(&$Data,$Serie1,$Serie2,$R,$G,$B,$Alpha = 50)\r
+ {\r
+ /* Validate the Data and DataDescription array */\r
+ $this->validateData("drawArea",$Data);\r
+\r
+ $LayerWidth = $this->GArea_X2-$this->GArea_X1;\r
+ $LayerHeight = $this->GArea_Y2-$this->GArea_Y1;\r
+\r
+ $this->Layers[0] = imagecreatetruecolor($LayerWidth,$LayerHeight);\r
+ $C_White = imagecolorallocate($this->Layers[0],255,255,255);\r
+ imagefilledrectangle($this->Layers[0],0,0,$LayerWidth,$LayerHeight,$C_White);\r
+ imagecolortransparent($this->Layers[0],$C_White);\r
+\r
+ $C_Graph = imagecolorallocate($this->Layers[0],$R,$G,$B);\r
+\r
+ $XPos = $this->GAreaXOffset;\r
+ $LastXPos = -1;\r
+ foreach ( $Data as $Key => $Values )\r
+ {\r
+ $Value1 = $Data[$Key][$Serie1];\r
+ $Value2 = $Data[$Key][$Serie2];\r
+ $YPos1 = $LayerHeight - (($Value1-$this->VMin) * $this->DivisionRatio);\r
+ $YPos2 = $LayerHeight - (($Value2-$this->VMin) * $this->DivisionRatio);\r
+\r
+ if ( $LastXPos != -1 )\r
+ {\r
+ $Points = "";\r
+ $Points[] = $LastXPos; $Points[] = $LastYPos1;\r
+ $Points[] = $LastXPos; $Points[] = $LastYPos2;\r
+ $Points[] = $XPos; $Points[] = $YPos2;\r
+ $Points[] = $XPos; $Points[] = $YPos1;\r
+\r
+ imagefilledpolygon($this->Layers[0],$Points,4,$C_Graph);\r
+ }\r
+\r
+ $LastYPos1 = $YPos1;\r
+ $LastYPos2 = $YPos2;\r
+ $LastXPos = $XPos;\r
+\r
+ $XPos = $XPos + $this->DivisionWidth;\r
+ }\r
+\r
+ imagecopymerge($this->Picture,$this->Layers[0],$this->GArea_X1,$this->GArea_Y1,0,0,$LayerWidth,$LayerHeight,$Alpha);\r
+ imagedestroy($this->Layers[0]);\r
+ }\r
+\r
+\r
+ /* This function write the values of the specified series */\r
+ function writeValues(&$Data,&$DataDescription,$Series)\r
+ {\r
+ /* Validate the Data and DataDescription array */\r
+ $this->validateDataDescription("writeValues",$DataDescription);\r
+ $this->validateData("writeValues",$Data);\r
+\r
+ if ( !is_array($Series) ) { $Series = array($Series); } \r
+\r
+ foreach($Series as $Key => $Serie)\r
+ {\r
+ $ID = 0;\r
+ foreach ( $DataDescription["Description"] as $keyI => $ValueI )\r
+ { if ( $keyI == $Serie ) { $ColorID = $ID; }; $ID++; }\r
+\r
+ $XPos = $this->GArea_X1 + $this->GAreaXOffset;\r
+ $XLast = -1;\r
+ foreach ( $Data as $Key => $Values )\r
+ {\r
+ if ( isset($Data[$Key][$Serie]) && is_numeric($Data[$Key][$Serie]))\r
+ {\r
+ $Value = $Data[$Key][$Serie];\r
+ $YPos = $this->GArea_Y2 - (($Value-$this->VMin) * $this->DivisionRatio);\r
+\r
+ $Positions = imagettfbbox($this->FontSize,0,$this->FontName,$Value);\r
+ $Width = $Positions[2] - $Positions[6]; $XOffset = $XPos - ($Width/2); \r
+ $Height = $Positions[3] - $Positions[7]; $YOffset = $YPos - 4;\r
+\r
+ $C_TextColor = imagecolorallocate($this->Picture,$this->Palette[$ColorID]["R"],$this->Palette[$ColorID]["G"],$this->Palette[$ColorID]["B"]);\r
+ imagettftext($this->Picture,$this->FontSize,0,$XOffset,$YOffset,$C_TextColor,$this->FontName,$Value);\r
+ }\r
+ $XPos = $XPos + $this->DivisionWidth;\r
+ }\r
+\r
+ }\r
+ }\r
+\r
+ /* This function draw a line graph */\r
+ function drawLineGraph(&$Data,&$DataDescription,$SerieName="")\r
+ {\r
+ /* Validate the Data and DataDescription array */\r
+ $this->validateDataDescription("drawLineGraph",$DataDescription);\r
+ $this->validateData("drawLineGraph",$Data);\r
+\r
+ $GraphID = 0;\r
+ foreach ( $DataDescription["Values"] as $Key2 => $ColName )\r
+ {\r
+ $ID = 0;\r
+ foreach ( $DataDescription["Description"] as $keyI => $ValueI )\r
+ { if ( $keyI == $ColName ) { $ColorID = $ID; }; $ID++; }\r
+\r
+ if ( $SerieName == "" || $SerieName == $ColName )\r
+ {\r
+ $XPos = $this->GArea_X1 + $this->GAreaXOffset;\r
+ $XLast = -1;\r
+ foreach ( $Data as $Key => $Values )\r
+ {\r
+ if ( isset($Data[$Key][$ColName]))\r
+ {\r
+ $Value = $Data[$Key][$ColName];\r
+ $YPos = $this->GArea_Y2 - (($Value-$this->VMin) * $this->DivisionRatio);\r
+\r
+ /* Save point into the image map if option activated */\r
+ if ( $this->BuildMap )\r
+ $this->addToImageMap($XPos-3,$YPos-3,$XPos+3,$YPos+3,$DataDescription["Description"][$ColName],$Data[$Key][$ColName].$DataDescription["Unit"]["Y"],"Line");\r
+\r
+ if (!is_numeric($Value)) { $XLast = -1; }\r
+ if ( $XLast != -1 )\r
+ $this->drawLine($XLast,$YLast,$XPos,$YPos,$this->Palette[$ColorID]["R"],$this->Palette[$ColorID]["G"],$this->Palette[$ColorID]["B"],TRUE);\r
+\r
+ $XLast = $XPos;\r
+ $YLast = $YPos;\r
+ if (!is_numeric($Value)) { $XLast = -1; }\r
+ }\r
+ $XPos = $XPos + $this->DivisionWidth;\r
+ }\r
+ $GraphID++;\r
+ }\r
+ }\r
+ }\r
+\r
+ /* This function draw a cubic curve */\r
+ function drawCubicCurve(&$Data,&$DataDescription,$Accuracy=.1,$SerieName="")\r
+ {\r
+ /* Validate the Data and DataDescription array */\r
+ $this->validateDataDescription("drawCubicCurve",$DataDescription);\r
+ $this->validateData("drawCubicCurve",$Data);\r
+\r
+ $GraphID = 0;\r
+ foreach ( $DataDescription["Values"] as $Key2 => $ColName )\r
+ {\r
+ if ( $SerieName == "" || $SerieName == $ColName )\r
+ {\r
+ $XIn = ""; $Yin = ""; $Yt = ""; $U = "";\r
+ $XIn[0] = 0; $YIn[0] = 0;\r
+\r
+ $ID = 0;\r
+ foreach ( $DataDescription["Description"] as $keyI => $ValueI )\r
+ { if ( $keyI == $ColName ) { $ColorID = $ID; }; $ID++; }\r
+\r
+ $Index = 1;\r
+ $XLast = -1; $Missing = "";\r
+ foreach ( $Data as $Key => $Values )\r
+ {\r
+ if ( isset($Data[$Key][$ColName]) )\r
+ {\r
+ $Value = $Data[$Key][$ColName];\r
+ $XIn[$Index] = $Index;\r
+ $YIn[$Index] = $Value;\r
+ if ( !is_numeric($Value) ) { $Missing[$Index] = TRUE; }\r
+ $Index++;\r
+ }\r
+ }\r
+ $Index--;\r
+\r
+ $Yt[0] = 0;\r
+ $Yt[1] = 0;\r
+ $U[1] = 0;\r
+ for($i=2;$i<=$Index-1;$i++)\r
+ {\r
+ $Sig = ($XIn[$i] - $XIn[$i-1]) / ($XIn[$i+1] - $XIn[$i-1]);\r
+ $p = $Sig * $Yt[$i-1] + 2;\r
+ $Yt[$i] = ($Sig - 1) / $p;\r
+ $U[$i] = ($YIn[$i+1] - $YIn[$i]) / ($XIn[$i+1] - $XIn[$i]) - ($YIn[$i] - $YIn[$i-1]) / ($XIn[$i] - $XIn[$i-1]);\r
+ $U[$i] = (6 * $U[$i] / ($XIn[$i+1] - $XIn[$i-1]) - $Sig * $U[$i-1]) / $p;\r
+ }\r
+\r
+ $qn = 0;\r
+ $un = 0;\r
+ $Yt[$Index] = ($un - $qn * $U[$Index-1]) / ($qn * $Yt[$Index-1] + 1);\r
+\r
+ for($k=$Index-1;$k>=1;$k--)\r
+ $Yt[$k] = $Yt[$k] * $Yt[$k+1] + $U[$k];\r
+\r
+ $XPos = $this->GArea_X1 + $this->GAreaXOffset;\r
+ for($X=1;$X<=$Index;$X=$X+$Accuracy)\r
+ {\r
+ $klo = 1;\r
+ $khi = $Index;\r
+ $k = $khi - $klo;\r
+ while($k > 1)\r
+ {\r
+ $k = $khi - $klo;\r
+ If ( $XIn[$k] >= $X )\r
+ $khi = $k;\r
+ else\r
+ $klo = $k;\r
+ }\r
+ $klo = $khi - 1;\r
+\r
+ $h = $XIn[$khi] - $XIn[$klo];\r
+ $a = ($XIn[$khi] - $X) / $h;\r
+ $b = ($X - $XIn[$klo]) / $h;\r
+ $Value = $a * $YIn[$klo] + $b * $YIn[$khi] + (($a*$a*$a - $a) * $Yt[$klo] + ($b*$b*$b - $b) * $Yt[$khi]) * ($h*$h) / 6;\r
+\r
+ $YPos = $this->GArea_Y2 - (($Value-$this->VMin) * $this->DivisionRatio);\r
+\r
+ if ( $XLast != -1 && !isset($Missing[floor($X)]) && !isset($Missing[floor($X+1)]) )\r
+ $this->drawLine($XLast,$YLast,$XPos,$YPos,$this->Palette[$ColorID]["R"],$this->Palette[$ColorID]["G"],$this->Palette[$ColorID]["B"],TRUE);\r
+\r
+ $XLast = $XPos;\r
+ $YLast = $YPos;\r
+ $XPos = $XPos + $this->DivisionWidth * $Accuracy;\r
+ }\r
+\r
+ // Add potentialy missing values\r
+ $XPos = $XPos - $this->DivisionWidth * $Accuracy;\r
+ if ( $XPos < ($this->GArea_X2 - $this->GAreaXOffset) )\r
+ {\r
+ $YPos = $this->GArea_Y2 - (($YIn[$Index]-$this->VMin) * $this->DivisionRatio);\r
+ $this->drawLine($XLast,$YLast,$this->GArea_X2-$this->GAreaXOffset,$YPos,$this->Palette[$ColorID]["R"],$this->Palette[$ColorID]["G"],$this->Palette[$ColorID]["B"],TRUE);\r
+ }\r
+\r
+ $GraphID++;\r
+ }\r
+ }\r
+ }\r
+\r
+ /* This function draw a filled cubic curve */\r
+ function drawFilledCubicCurve(&$Data,&$DataDescription,$Accuracy=.1,$Alpha=100,$AroundZero=FALSE)\r
+ {\r
+ /* Validate the Data and DataDescription array */\r
+ $this->validateDataDescription("drawFilledCubicCurve",$DataDescription);\r
+ $this->validateData("drawFilledCubicCurve",$Data);\r
+\r
+ $LayerWidth = $this->GArea_X2-$this->GArea_X1;\r
+ $LayerHeight = $this->GArea_Y2-$this->GArea_Y1;\r
+ $YZero = $LayerHeight - ((0-$this->VMin) * $this->DivisionRatio);\r
+ if ( $YZero > $LayerHeight ) { $YZero = $LayerHeight; }\r
+\r
+ $GraphID = 0;\r
+ foreach ( $DataDescription["Values"] as $Key2 => $ColName )\r
+ {\r
+ $XIn = ""; $Yin = ""; $Yt = ""; $U = "";\r
+ $XIn[0] = 0; $YIn[0] = 0;\r
+\r
+ $ID = 0;\r
+ foreach ( $DataDescription["Description"] as $keyI => $ValueI )\r
+ { if ( $keyI == $ColName ) { $ColorID = $ID; }; $ID++; }\r
+\r
+ $Index = 1;\r
+ $XLast = -1; $Missing = "";\r
+ foreach ( $Data as $Key => $Values )\r
+ {\r
+ $Value = $Data[$Key][$ColName];\r
+ $XIn[$Index] = $Index;\r
+ $YIn[$Index] = $Value;\r
+ if ( !is_numeric($Value) ) { $Missing[$Index] = TRUE; }\r
+ $Index++;\r
+ }\r
+ $Index--;\r
+ \r
+ $Yt[0] = 0;\r
+ $Yt[1] = 0;\r
+ $U[1] = 0;\r
+ for($i=2;$i<=$Index-1;$i++)\r
+ {\r
+ $Sig = ($XIn[$i] - $XIn[$i-1]) / ($XIn[$i+1] - $XIn[$i-1]);\r
+ $p = $Sig * $Yt[$i-1] + 2;\r
+ $Yt[$i] = ($Sig - 1) / $p;\r
+ $U[$i] = ($YIn[$i+1] - $YIn[$i]) / ($XIn[$i+1] - $XIn[$i]) - ($YIn[$i] - $YIn[$i-1]) / ($XIn[$i] - $XIn[$i-1]);\r
+ $U[$i] = (6 * $U[$i] / ($XIn[$i+1] - $XIn[$i-1]) - $Sig * $U[$i-1]) / $p;\r
+ }\r
+\r
+ $qn = 0;\r
+ $un = 0;\r
+ $Yt[$Index] = ($un - $qn * $U[$Index-1]) / ($qn * $Yt[$Index-1] + 1);\r
+\r
+ for($k=$Index-1;$k>=1;$k--)\r
+ $Yt[$k] = $Yt[$k] * $Yt[$k+1] + $U[$k];\r
+\r
+ $Points = "";\r
+ $Points[] = $this->GAreaXOffset;\r
+ $Points[] = $LayerHeight;\r
+\r
+ $this->Layers[0] = imagecreatetruecolor($LayerWidth,$LayerHeight);\r
+ $C_White = imagecolorallocate($this->Layers[0],255,255,255);\r
+ imagefilledrectangle($this->Layers[0],0,0,$LayerWidth,$LayerHeight,$C_White);\r
+ imagecolortransparent($this->Layers[0],$C_White);\r
+\r
+ $YLast = NULL;\r
+ $XPos = $this->GAreaXOffset; $PointsCount = 2;\r
+ for($X=1;$X<=$Index;$X=$X+$Accuracy)\r
+ {\r
+ $klo = 1;\r
+ $khi = $Index;\r
+ $k = $khi - $klo;\r
+ while($k > 1)\r
+ {\r
+ $k = $khi - $klo;\r
+ If ( $XIn[$k] >= $X )\r
+ $khi = $k;\r
+ else\r
+ $klo = $k;\r
+ }\r
+ $klo = $khi - 1;\r
+\r
+ $h = $XIn[$khi] - $XIn[$klo];\r
+ $a = ($XIn[$khi] - $X) / $h;\r
+ $b = ($X - $XIn[$klo]) / $h;\r
+ $Value = $a * $YIn[$klo] + $b * $YIn[$khi] + (($a*$a*$a - $a) * $Yt[$klo] + ($b*$b*$b - $b) * $Yt[$khi]) * ($h*$h) / 6;\r
+\r
+ $YPos = $LayerHeight - (($Value-$this->VMin) * $this->DivisionRatio);\r
+\r
+ if ( $YLast != NULL && $AroundZero && !isset($Missing[floor($X)]) && !isset($Missing[floor($X+1)]))\r
+ {\r
+ $aPoints = "";\r
+ $aPoints[] = $XLast;\r
+ $aPoints[] = $YLast;\r
+ $aPoints[] = $XPos;\r
+ $aPoints[] = $YPos;\r
+ $aPoints[] = $XPos;\r
+ $aPoints[] = $YZero;\r
+ $aPoints[] = $XLast;\r
+ $aPoints[] = $YZero;\r
+\r
+ $C_Graph = imagecolorallocate($this->Layers[0],$this->Palette[$ColorID]["R"],$this->Palette[$ColorID]["G"],$this->Palette[$ColorID]["B"]);\r
+ imagefilledpolygon($this->Layers[0],$aPoints,4,$C_Graph);\r
+ }\r
+\r
+ if ( !isset($Missing[floor($X)]) || $YLast == NULL )\r
+ {\r
+ $PointsCount++;\r
+ $Points[] = $XPos;\r
+ $Points[] = $YPos;\r
+ }\r
+ else\r
+ {\r
+ $PointsCount++; $Points[] = $XLast; $Points[] = $LayerHeight;\r
+ }\r
+\r
+ $YLast = $YPos; $XLast = $XPos; \r
+ $XPos = $XPos + $this->DivisionWidth * $Accuracy;\r
+ }\r
+\r
+ // Add potentialy missing values\r
+ $XPos = $XPos - $this->DivisionWidth * $Accuracy;\r
+ if ( $XPos < ($LayerWidth-$this->GAreaXOffset) )\r
+ {\r
+ $YPos = $LayerHeight - (($YIn[$Index]-$this->VMin) * $this->DivisionRatio);\r
+\r
+ if ( $YLast != NULL && $AroundZero )\r
+ {\r
+ $aPoints = "";\r
+ $aPoints[] = $XLast;\r
+ $aPoints[] = $YLast;\r
+ $aPoints[] = $LayerWidth-$this->GAreaXOffset;\r
+ $aPoints[] = $YPos;\r
+ $aPoints[] = $LayerWidth-$this->GAreaXOffset;\r
+ $aPoints[] = $YZero;\r
+ $aPoints[] = $XLast;\r
+ $aPoints[] = $YZero;\r
+\r
+ $C_Graph = imagecolorallocate($this->Layers[0],$this->Palette[$ColorID]["R"],$this->Palette[$ColorID]["G"],$this->Palette[$ColorID]["B"]);\r
+ imagefilledpolygon($this->Layers[0],$aPoints,4,$C_Graph);\r
+ }\r
+\r
+ if ( $YIn[$klo] != "" && $YIn[$khi] != "" || $YLast == NULL )\r
+ {\r
+ $PointsCount++;\r
+ $Points[] = $LayerWidth-$this->GAreaXOffset;\r
+ $Points[] = $YPos;\r
+ }\r
+ }\r
+\r
+ $Points[] = $LayerWidth-$this->GAreaXOffset;\r
+ $Points[] = $LayerHeight;\r
+\r
+ if ( !$AroundZero )\r
+ {\r
+ $C_Graph = imagecolorallocate($this->Layers[0],$this->Palette[$ColorID]["R"],$this->Palette[$ColorID]["G"],$this->Palette[$ColorID]["B"]);\r
+ imagefilledpolygon($this->Layers[0],$Points,$PointsCount,$C_Graph);\r
+ }\r
+\r
+ imagecopymerge($this->Picture,$this->Layers[0],$this->GArea_X1,$this->GArea_Y1,0,0,$LayerWidth,$LayerHeight,$Alpha);\r
+ imagedestroy($this->Layers[0]);\r
+\r
+ $this->drawCubicCurve($Data,$DataDescription,$Accuracy,$ColName);\r
+\r
+ $GraphID++;\r
+ }\r
+ }\r
+\r
+ /* This function draw a filled line graph */\r
+ function drawFilledLineGraph(&$Data,&$DataDescription,$Alpha=100,$AroundZero=FALSE)\r
+ {\r
+ $Empty = -2147483647;\r
+\r
+ /* Validate the Data and DataDescription array */\r
+ $this->validateDataDescription("drawFilledLineGraph",$DataDescription);\r
+ $this->validateData("drawFilledLineGraph",$Data);\r
+\r
+ $LayerWidth = $this->GArea_X2-$this->GArea_X1;\r
+ $LayerHeight = $this->GArea_Y2-$this->GArea_Y1;\r
+\r
+ $GraphID = 0;\r
+ foreach ( $DataDescription["Values"] as $Key2 => $ColName )\r
+ {\r
+ $ID = 0;\r
+ foreach ( $DataDescription["Description"] as $keyI => $ValueI )\r
+ { if ( $keyI == $ColName ) { $ColorID = $ID; }; $ID++; }\r
+\r
+ $aPoints = "";\r
+ $aPoints[] = $this->GAreaXOffset;\r
+ $aPoints[] = $LayerHeight;\r
+\r
+ $this->Layers[0] = imagecreatetruecolor($LayerWidth,$LayerHeight);\r
+ $C_White = imagecolorallocate($this->Layers[0],255,255,255);\r
+ imagefilledrectangle($this->Layers[0],0,0,$LayerWidth,$LayerHeight,$C_White);\r
+ imagecolortransparent($this->Layers[0],$C_White);\r
+\r
+ $XPos = $this->GAreaXOffset;\r
+ $XLast = -1; $PointsCount = 2;\r
+ $YZero = $LayerHeight - ((0-$this->VMin) * $this->DivisionRatio);\r
+ if ( $YZero > $LayerHeight ) { $YZero = $LayerHeight; }\r
+\r
+ $YLast = $Empty;\r
+ foreach ( $Data as $Key => $Values )\r
+ {\r
+ $Value = $Data[$Key][$ColName];\r
+ $YPos = $LayerHeight - (($Value-$this->VMin) * $this->DivisionRatio);\r
+\r
+ /* Save point into the image map if option activated */\r
+ if ( $this->BuildMap )\r
+ $this->addToImageMap($XPos-3,$YPos-3,$XPos+3,$YPos+3,$DataDescription["Description"][$ColName],$Data[$Key][$ColName].$DataDescription["Unit"]["Y"],"FLine");\r
+\r
+ if ( !is_numeric($Value) )\r
+ {\r
+ $PointsCount++;\r
+ $aPoints[] = $XLast;\r
+ $aPoints[] = $LayerHeight;\r
+\r
+ $YLast = $Empty;\r
+ }\r
+ else\r
+ {\r
+ $PointsCount++;\r
+ if ( $YLast <> $Empty )\r
+ { $aPoints[] = $XPos; $aPoints[] = $YPos; }\r
+ else\r
+ { $PointsCount++; $aPoints[] = $XPos; $aPoints[] = $LayerHeight; $aPoints[] = $XPos; $aPoints[] = $YPos; }\r
+\r
+ if ($YLast <> $Empty && $AroundZero)\r
+ {\r
+ $Points = "";\r
+ $Points[] = $XLast; $Points[] = $YLast;\r
+ $Points[] = $XPos;\r
+ $Points[] = $YPos;\r
+ $Points[] = $XPos;\r
+ $Points[] = $YZero;\r
+ $Points[] = $XLast;\r
+ $Points[] = $YZero;\r
+\r
+ $C_Graph = imagecolorallocate($this->Layers[0],$this->Palette[$ColorID]["R"],$this->Palette[$ColorID]["G"],$this->Palette[$ColorID]["B"]);\r
+ imagefilledpolygon($this->Layers[0],$Points,4,$C_Graph);\r
+ }\r
+ $YLast = $YPos;\r
+ }\r
+\r
+ $XLast = $XPos;\r
+ $XPos = $XPos + $this->DivisionWidth;\r
+ }\r
+ $aPoints[] = $LayerWidth - $this->GAreaXOffset;\r
+ $aPoints[] = $LayerHeight;\r
+\r
+ if ( $AroundZero == FALSE )\r
+ {\r
+ $C_Graph = imagecolorallocate($this->Layers[0],$this->Palette[$ColorID]["R"],$this->Palette[$ColorID]["G"],$this->Palette[$ColorID]["B"]);\r
+ imagefilledpolygon($this->Layers[0],$aPoints,$PointsCount,$C_Graph);\r
+ }\r
+\r
+ imagecopymerge($this->Picture,$this->Layers[0],$this->GArea_X1,$this->GArea_Y1,0,0,$LayerWidth,$LayerHeight,$Alpha);\r
+ imagedestroy($this->Layers[0]);\r
+ $GraphID++;\r
+ $this->drawLineGraph($Data,$DataDescription,$ColName);\r
+ }\r
+ }\r
+\r
+ /* This function draw a bar graph */\r
+ function drawOverlayBarGraph(&$Data,&$DataDescription,$Alpha=50)\r
+ {\r
+ /* Validate the Data and DataDescription array */\r
+ $this->validateDataDescription("drawOverlayBarGraph",$DataDescription);\r
+ $this->validateData("drawOverlayBarGraph",$Data);\r
+\r
+ $LayerWidth = $this->GArea_X2-$this->GArea_X1;\r
+ $LayerHeight = $this->GArea_Y2-$this->GArea_Y1;\r
+\r
+ $GraphID = 0;\r
+ foreach ( $DataDescription["Values"] as $Key2 => $ColName )\r
+ {\r
+ $ID = 0;\r
+ foreach ( $DataDescription["Description"] as $keyI => $ValueI )\r
+ { if ( $keyI == $ColName ) { $ColorID = $ID; }; $ID++; }\r
+\r
+ $this->Layers[$GraphID] = imagecreatetruecolor($LayerWidth,$LayerHeight);\r
+ $C_White = imagecolorallocate($this->Layers[$GraphID],255,255,255);\r
+ $C_Graph = imagecolorallocate($this->Layers[$GraphID],$this->Palette[$GraphID]["R"],$this->Palette[$GraphID]["G"],$this->Palette[$GraphID]["B"]);\r
+ imagefilledrectangle($this->Layers[$GraphID],0,0,$LayerWidth,$LayerHeight,$C_White);\r
+ imagecolortransparent($this->Layers[$GraphID],$C_White);\r
+\r
+ $XWidth = $this->DivisionWidth / 4;\r
+ $XPos = $this->GAreaXOffset;\r
+ $YZero = $LayerHeight - ((0-$this->VMin) * $this->DivisionRatio);\r
+ $XLast = -1; $PointsCount = 2;\r
+ foreach ( $Data as $Key => $Values )\r
+ {\r
+ if ( isset($Data[$Key][$ColName]) )\r
+ {\r
+ $Value = $Data[$Key][$ColName];\r
+ if ( is_numeric($Value) )\r
+ {\r
+ $YPos = $LayerHeight - (($Value-$this->VMin) * $this->DivisionRatio);\r
+\r
+ imagefilledrectangle($this->Layers[$GraphID],$XPos-$XWidth,$YPos,$XPos+$XWidth,$YZero,$C_Graph);\r
+\r
+ $X1 = floor($XPos - $XWidth + $this->GArea_X1); $Y1 = floor($YPos+$this->GArea_Y1) + .2;\r
+ $X2 = floor($XPos + $XWidth + $this->GArea_X1); $Y2 = $this->GArea_Y2 - ((0-$this->VMin) * $this->DivisionRatio);\r
+ if ( $X1 <= $this->GArea_X1 ) { $X1 = $this->GArea_X1 + 1; }\r
+ if ( $X2 >= $this->GArea_X2 ) { $X2 = $this->GArea_X2 - 1; }\r
+\r
+ /* Save point into the image map if option activated */\r
+ if ( $this->BuildMap )\r
+ $this->addToImageMap($X1,min($Y1,$Y2),$X2,max($Y1,$Y2),$DataDescription["Description"][$ColName],$Data[$Key][$ColName].$DataDescription["Unit"]["Y"],"oBar");\r
+\r
+ $this->drawLine($X1,$Y1,$X2,$Y1,$this->Palette[$ColorID]["R"],$this->Palette[$ColorID]["G"],$this->Palette[$ColorID]["B"],TRUE);\r
+ }\r
+ }\r
+ $XPos = $XPos + $this->DivisionWidth;\r
+ }\r
+\r
+ $GraphID++;\r
+ }\r
+\r
+ for($i=0;$i<=($GraphID-1);$i++)\r
+ {\r
+ imagecopymerge($this->Picture,$this->Layers[$i],$this->GArea_X1,$this->GArea_Y1,0,0,$LayerWidth,$LayerHeight,$Alpha);\r
+ imagedestroy($this->Layers[$i]);\r
+ }\r
+ }\r
+\r
+ /* This function draw a bar graph */\r
+ function drawBarGraph(&$Data,&$DataDescription,$Shadow=FALSE,$Alpha=100)\r
+ {\r
+ /* Validate the Data and DataDescription array */\r
+ $this->validateDataDescription("drawBarGraph",$DataDescription);\r
+ $this->validateData("drawBarGraph",$Data);\r
+\r
+ $GraphID = 0;\r
+ $Series = count($DataDescription["Values"]);\r
+ $SeriesWidth = $this->DivisionWidth / ($Series+1);\r
+ $SerieXOffset = $this->DivisionWidth / 2 - $SeriesWidth / 2;\r
+\r
+ $YZero = $this->GArea_Y2 - ((0-$this->VMin) * $this->DivisionRatio);\r
+ if ( $YZero > $this->GArea_Y2 ) { $YZero = $this->GArea_Y2; }\r
+\r
+ $SerieID = 0;\r
+ foreach ( $DataDescription["Values"] as $Key2 => $ColName )\r
+ {\r
+ $ID = 0;\r
+ foreach ( $DataDescription["Description"] as $keyI => $ValueI )\r
+ { if ( $keyI == $ColName ) { $ColorID = $ID; }; $ID++; }\r
+\r
+ $XPos = $this->GArea_X1 + $this->GAreaXOffset - $SerieXOffset + $SeriesWidth * $SerieID;\r
+ $XLast = -1;\r
+ foreach ( $Data as $Key => $Values )\r
+ {\r
+ if ( isset($Data[$Key][$ColName]))\r
+ {\r
+ if ( is_numeric($Data[$Key][$ColName]) )\r
+ {\r
+ $Value = $Data[$Key][$ColName];\r
+ $YPos = $this->GArea_Y2 - (($Value-$this->VMin) * $this->DivisionRatio);\r
+\r
+ /* Save point into the image map if option activated */\r
+ if ( $this->BuildMap )\r
+ {\r
+ $this->addToImageMap($XPos+1,min($YZero,$YPos),$XPos+$SeriesWidth-1,max($YZero,$YPos),$DataDescription["Description"][$ColName],$Data[$Key][$ColName].$DataDescription["Unit"]["Y"],"Bar");\r
+ }\r
+ \r
+ if ( $Shadow && $Alpha == 100 )\r
+ $this->drawRectangle($XPos+1,$YZero,$XPos+$SeriesWidth-1,$YPos,25,25,25,TRUE,$Alpha);\r
+\r
+ $this->drawFilledRectangle($XPos+1,$YZero,$XPos+$SeriesWidth-1,$YPos,$this->Palette[$ColorID]["R"],$this->Palette[$ColorID]["G"],$this->Palette[$ColorID]["B"],TRUE,$Alpha);\r
+ }\r
+ }\r
+ $XPos = $XPos + $this->DivisionWidth;\r
+ }\r
+ $SerieID++;\r
+ }\r
+ }\r
+\r
+ /* This function draw a stacked bar graph */\r
+ function drawStackedBarGraph(&$Data,&$DataDescription,$Alpha=50)\r
+ {\r
+ /* Validate the Data and DataDescription array */\r
+ $this->validateDataDescription("drawBarGraph",$DataDescription);\r
+ $this->validateData("drawBarGraph",$Data);\r
+\r
+ $GraphID = 0;\r
+ $Series = count($DataDescription["Values"]);\r
+ $SeriesWidth = $this->DivisionWidth * .8;\r
+\r
+ $YZero = $this->GArea_Y2 - ((0-$this->VMin) * $this->DivisionRatio);\r
+ if ( $YZero > $this->GArea_Y2 ) { $YZero = $this->GArea_Y2; }\r
+\r
+ $SerieID = 0; $LastValue = "";\r
+ foreach ( $DataDescription["Values"] as $Key2 => $ColName )\r
+ {\r
+ $ID = 0;\r
+ foreach ( $DataDescription["Description"] as $keyI => $ValueI )\r
+ { if ( $keyI == $ColName ) { $ColorID = $ID; }; $ID++; }\r
+\r
+ $XPos = $this->GArea_X1 + $this->GAreaXOffset - $SeriesWidth / 2;\r
+ $XLast = -1; \r
+ foreach ( $Data as $Key => $Values )\r
+ {\r
+ if ( isset($Data[$Key][$ColName]))\r
+ {\r
+ if ( is_numeric($Data[$Key][$ColName]) )\r
+ {\r
+ $Value = $Data[$Key][$ColName];\r
+\r
+ if ( isset($LastValue[$Key]) )\r
+ {\r
+ $YPos = $this->GArea_Y2 - ((($Value+$LastValue[$Key])-$this->VMin) * $this->DivisionRatio);\r
+ $YBottom = $this->GArea_Y2 - (($LastValue[$Key]-$this->VMin) * $this->DivisionRatio);\r
+ $LastValue[$Key] += $Value;\r
+ }\r
+ else\r
+ {\r
+ $YPos = $this->GArea_Y2 - (($Value-$this->VMin) * $this->DivisionRatio);\r
+ $YBottom = $YZero;\r
+ $LastValue[$Key] = $Value;\r
+ }\r
+\r
+ /* Save point into the image map if option activated */\r
+ if ( $this->BuildMap )\r
+ $this->addToImageMap($XPos+1,min($YBottom,$YPos),$XPos+$SeriesWidth-1,max($YBottom,$YPos),$DataDescription["Description"][$ColName],$Data[$Key][$ColName].$DataDescription["Unit"]["Y"],"sBar");\r
+\r
+ $this->drawFilledRectangle($XPos+1,$YBottom,$XPos+$SeriesWidth-1,$YPos,$this->Palette[$ColorID]["R"],$this->Palette[$ColorID]["G"],$this->Palette[$ColorID]["B"],TRUE,$Alpha);\r
+ }\r
+ }\r
+ $XPos = $XPos + $this->DivisionWidth;\r
+ }\r
+ $SerieID++;\r
+ }\r
+ }\r
+\r
+ /* This function draw a limits bar graphs */\r
+ function drawLimitsGraph(&$Data,&$DataDescription,$R=0,$G=0,$B=0)\r
+ {\r
+ /* Validate the Data and DataDescription array */\r
+ $this->validateDataDescription("drawLimitsGraph",$DataDescription);\r
+ $this->validateData("drawLimitsGraph",$Data);\r
+\r
+ $XWidth = $this->DivisionWidth / 4;\r
+ $XPos = $this->GArea_X1 + $this->GAreaXOffset;\r
+\r
+ foreach ( $Data as $Key => $Values )\r
+ {\r
+ $Min = $Data[$Key][$DataDescription["Values"][0]];\r
+ $Max = $Data[$Key][$DataDescription["Values"][0]];\r
+ $GraphID = 0; $MaxID = 0; $MinID = 0;\r
+ foreach ( $DataDescription["Values"] as $Key2 => $ColName )\r
+ {\r
+ if ( isset($Data[$Key][$ColName]) )\r
+ {\r
+ if ( $Data[$Key][$ColName] > $Max && is_numeric($Data[$Key][$ColName]))\r
+ { $Max = $Data[$Key][$ColName]; $MaxID = $GraphID; }\r
+ }\r
+ if ( isset($Data[$Key][$ColName]) && is_numeric($Data[$Key][$ColName]))\r
+ {\r
+ if ( $Data[$Key][$ColName] < $Min )\r
+ { $Min = $Data[$Key][$ColName]; $MinID = $GraphID; }\r
+ $GraphID++;\r
+ }\r
+ }\r
+\r
+ $YPos = $this->GArea_Y2 - (($Max-$this->VMin) * $this->DivisionRatio);\r
+ $X1 = floor($XPos - $XWidth); $Y1 = floor($YPos) - .2;\r
+ $X2 = floor($XPos + $XWidth);\r
+ if ( $X1 <= $this->GArea_X1 ) { $X1 = $this->GArea_X1 + 1; }\r
+ if ( $X2 >= $this->GArea_X2 ) { $X2 = $this->GArea_X2 - 1; }\r
+\r
+ $YPos = $this->GArea_Y2 - (($Min-$this->VMin) * $this->DivisionRatio);\r
+ $Y2 = floor($YPos) + .2;\r
+\r
+ $this->drawLine(floor($XPos)-.2,$Y1+1,floor($XPos)-.2,$Y2-1,$R,$G,$B,TRUE);\r
+ $this->drawLine(floor($XPos)+.2,$Y1+1,floor($XPos)+.2,$Y2-1,$R,$G,$B,TRUE);\r
+ $this->drawLine($X1,$Y1,$X2,$Y1,$this->Palette[$MaxID]["R"],$this->Palette[$MaxID]["G"],$this->Palette[$MaxID]["B"],FALSE);\r
+ $this->drawLine($X1,$Y2,$X2,$Y2,$this->Palette[$MinID]["R"],$this->Palette[$MinID]["G"],$this->Palette[$MinID]["B"],FALSE);\r
+\r
+ $XPos = $XPos + $this->DivisionWidth;\r
+ }\r
+ }\r
+\r
+ /* This function draw radar axis centered on the graph area */\r
+ function drawRadarAxis(&$Data,&$DataDescription,$Mosaic=TRUE,$BorderOffset=10,$A_R=60,$A_G=60,$A_B=60,$S_R=200,$S_G=200,$S_B=200,$MaxValue=-1)\r
+ {\r
+ /* Validate the Data and DataDescription array */\r
+ $this->validateDataDescription("drawRadarAxis",$DataDescription);\r
+ $this->validateData("drawRadarAxis",$Data);\r
+\r
+ $C_TextColor = imagecolorallocate($this->Picture,$A_R,$A_G,$A_B);\r
+\r
+ /* Draw radar axis */\r
+ $Points = count($Data);\r
+ $Radius = ( $this->GArea_Y2 - $this->GArea_Y1 ) / 2 - $BorderOffset;\r
+ $XCenter = ( $this->GArea_X2 - $this->GArea_X1 ) / 2 + $this->GArea_X1;\r
+ $YCenter = ( $this->GArea_Y2 - $this->GArea_Y1 ) / 2 + $this->GArea_Y1;\r
+\r
+ /* Search for the max value */\r
+ if ( $MaxValue == -1 )\r
+ {\r
+ foreach ( $DataDescription["Values"] as $Key2 => $ColName )\r
+ {\r
+ foreach ( $Data as $Key => $Values )\r
+ {\r
+ if ( isset($Data[$Key][$ColName]))\r
+ if ( $Data[$Key][$ColName] > $MaxValue ) { $MaxValue = $Data[$Key][$ColName]; }\r
+ }\r
+ }\r
+ }\r
+\r
+ /* Draw the mosaic */\r
+ if ( $Mosaic )\r
+ {\r
+ $RadiusScale = $Radius / $MaxValue;\r
+ for ( $t=1; $t<=$MaxValue-1; $t++)\r
+ {\r
+ $TRadius = $RadiusScale * $t;\r
+ $LastX1 = -1;\r
+\r
+ for ( $i=0; $i<=$Points; $i++)\r
+ {\r
+ $Angle = -90 + $i * 360/$Points;\r
+ $X1 = cos($Angle * 3.1418 / 180 ) * $TRadius + $XCenter;\r
+ $Y1 = sin($Angle * 3.1418 / 180 ) * $TRadius + $YCenter;\r
+ $X2 = cos($Angle * 3.1418 / 180 ) * ($TRadius+$RadiusScale) + $XCenter;\r
+ $Y2 = sin($Angle * 3.1418 / 180 ) * ($TRadius+$RadiusScale) + $YCenter;\r
+\r
+ if ( $t % 2 == 1 && $LastX1 != -1)\r
+ {\r
+ $Plots = "";\r
+ $Plots[] = $X1; $Plots[] = $Y1;\r
+ $Plots[] = $X2; $Plots[] = $Y2;\r
+ $Plots[] = $LastX2; $Plots[] = $LastY2;\r
+ $Plots[] = $LastX1; $Plots[] = $LastY1;\r
+\r
+ $C_Graph = imagecolorallocate($this->Picture,250,250,250);\r
+ imagefilledpolygon($this->Picture,$Plots,(count($Plots)+1)/2,$C_Graph);\r
+ }\r
+\r
+ $LastX1 = $X1; $LastY1= $Y1;\r
+ $LastX2 = $X2; $LastY2= $Y2;\r
+ }\r
+ }\r
+ }\r
+\r
+\r
+ /* Draw the spider web */\r
+ for ( $t=1; $t<=$MaxValue; $t++)\r
+ {\r
+ $TRadius = ( $Radius / $MaxValue ) * $t;\r
+ $LastX = -1;\r
+\r
+ for ( $i=0; $i<=$Points; $i++)\r
+ {\r
+ $Angle = -90 + $i * 360/$Points;\r
+ $X = cos($Angle * 3.1418 / 180 ) * $TRadius + $XCenter;\r
+ $Y = sin($Angle * 3.1418 / 180 ) * $TRadius + $YCenter;\r
+\r
+ if ( $LastX != -1 )\r
+ $this->drawDottedLine($LastX,$LastY,$X,$Y,4,$S_R,$S_G,$S_B);\r
+\r
+ $LastX = $X; $LastY= $Y;\r
+ }\r
+ }\r
+\r
+ /* Draw the axis */\r
+ for ( $i=0; $i<=$Points; $i++)\r
+ {\r
+ $Angle = -90 + $i * 360/$Points;\r
+ $X = cos($Angle * 3.1418 / 180 ) * $Radius + $XCenter;\r
+ $Y = sin($Angle * 3.1418 / 180 ) * $Radius + $YCenter;\r
+\r
+ $this->drawLine($XCenter,$YCenter,$X,$Y,$A_R,$A_G,$A_B);\r
+\r
+ $XOffset = 0; $YOffset = 0;\r
+ if (isset($Data[$i][$DataDescription["Position"]]))\r
+ {\r
+ $Label = $Data[$i][$DataDescription["Position"]];\r
+\r
+ $Positions = imagettfbbox($this->FontSize,0,$this->FontName,$Label);\r
+ $Width = $Positions[2] - $Positions[6];\r
+ $Height = $Positions[3] - $Positions[7];\r
+\r
+ if ( $Angle >= 0 && $Angle <= 90 )\r
+ $YOffset = $Height;\r
+\r
+ if ( $Angle > 90 && $Angle <= 180 )\r
+ { $YOffset = $Height; $XOffset = -$Width; }\r
+\r
+ if ( $Angle > 180 && $Angle <= 270 )\r
+ { $XOffset = -$Width; }\r
+\r
+ imagettftext($this->Picture,$this->FontSize,0,$X+$XOffset,$Y+$YOffset,$C_TextColor,$this->FontName,$Label);\r
+ }\r
+ }\r
+\r
+ /* Write the values */\r
+ for ( $t=1; $t<=$MaxValue; $t++)\r
+ {\r
+ $TRadius = ( $Radius / $MaxValue ) * $t;\r
+\r
+ $Angle = -90 + 360 / $Points;\r
+ $X1 = $XCenter;\r
+ $Y1 = $YCenter - $TRadius;\r
+ $X2 = cos($Angle * 3.1418 / 180 ) * $TRadius + $XCenter;\r
+ $Y2 = sin($Angle * 3.1418 / 180 ) * $TRadius + $YCenter;\r
+\r
+ $XPos = floor(($X2-$X1)/2) + $X1;\r
+ $YPos = floor(($Y2-$Y1)/2) + $Y1;\r
+\r
+ $Positions = imagettfbbox($this->FontSize,0,$this->FontName,$t);\r
+ $X = $XPos - ( $X+$Positions[2] - $X+$Positions[6] ) / 2;\r
+ $Y = $YPos + $this->FontSize;\r
+\r
+ $this->drawFilledRoundedRectangle($X+$Positions[6]-2,$Y+$Positions[7]-1,$X+$Positions[2]+4,$Y+$Positions[3]+1,2,240,240,240);\r
+ $this->drawRoundedRectangle($X+$Positions[6]-2,$Y+$Positions[7]-1,$X+$Positions[2]+4,$Y+$Positions[3]+1,2,220,220,220);\r
+ imagettftext($this->Picture,$this->FontSize,0,$X,$Y,$C_TextColor,$this->FontName,$t);\r
+ }\r
+ }\r
+\r
+ /* This function draw a radar graph centered on the graph area */\r
+ function drawRadar(&$Data,&$DataDescription,$BorderOffset=10,$MaxValue=-1)\r
+ {\r
+ /* Validate the Data and DataDescription array */\r
+ $this->validateDataDescription("drawRadar",$DataDescription);\r
+ $this->validateData("drawRadar",$Data);\r
+\r
+ $Points = count($Data);\r
+ $Radius = ( $this->GArea_Y2 - $this->GArea_Y1 ) / 2 - $BorderOffset;\r
+ $XCenter = ( $this->GArea_X2 - $this->GArea_X1 ) / 2 + $this->GArea_X1;\r
+ $YCenter = ( $this->GArea_Y2 - $this->GArea_Y1 ) / 2 + $this->GArea_Y1;\r
+\r
+ /* Search for the max value */\r
+ if ( $MaxValue == -1 )\r
+ {\r
+ foreach ( $DataDescription["Values"] as $Key2 => $ColName )\r
+ {\r
+ foreach ( $Data as $Key => $Values )\r
+ {\r
+ if ( isset($Data[$Key][$ColName]))\r
+ if ( $Data[$Key][$ColName] > $MaxValue ) { $MaxValue = $Data[$Key][$ColName]; }\r
+ }\r
+ }\r
+ }\r
+\r
+ $GraphID = 0;\r
+ foreach ( $DataDescription["Values"] as $Key2 => $ColName )\r
+ {\r
+ $ID = 0;\r
+ foreach ( $DataDescription["Description"] as $keyI => $ValueI )\r
+ { if ( $keyI == $ColName ) { $ColorID = $ID; }; $ID++; }\r
+\r
+ $Angle = -90;\r
+ $XLast = -1;\r
+ foreach ( $Data as $Key => $Values )\r
+ {\r
+ if ( isset($Data[$Key][$ColName]))\r
+ {\r
+ $Value = $Data[$Key][$ColName];\r
+ $Strength = ( $Radius / $MaxValue ) * $Value;\r
+\r
+ $XPos = cos($Angle * 3.1418 / 180 ) * $Strength + $XCenter;\r
+ $YPos = sin($Angle * 3.1418 / 180 ) * $Strength + $YCenter;\r
+\r
+ if ( $XLast != -1 )\r
+ $this->drawLine($XLast,$YLast,$XPos,$YPos,$this->Palette[$ColorID]["R"],$this->Palette[$ColorID]["G"],$this->Palette[$ColorID]["B"]);\r
+\r
+ if ( $XLast == -1 )\r
+ { $FirstX = $XPos; $FirstY = $YPos; }\r
+\r
+ $Angle = $Angle + (360/$Points);\r
+ $XLast = $XPos;\r
+ $YLast = $YPos;\r
+ }\r
+ }\r
+ $this->drawLine($XPos,$YPos,$FirstX,$FirstY,$this->Palette[$ColorID]["R"],$this->Palette[$ColorID]["G"],$this->Palette[$ColorID]["B"]);\r
+ $GraphID++;\r
+ }\r
+ }\r
+\r
+ /* This function draw a radar graph centered on the graph area */\r
+ function drawFilledRadar(&$Data,&$DataDescription,$Alpha=50,$BorderOffset=10,$MaxValue=-1)\r
+ {\r
+ /* Validate the Data and DataDescription array */\r
+ $this->validateDataDescription("drawFilledRadar",$DataDescription);\r
+ $this->validateData("drawFilledRadar",$Data);\r
+\r
+ $Points = count($Data);\r
+ $LayerWidth = $this->GArea_X2-$this->GArea_X1;\r
+ $LayerHeight = $this->GArea_Y2-$this->GArea_Y1;\r
+ $Radius = ( $this->GArea_Y2 - $this->GArea_Y1 ) / 2 - $BorderOffset;\r
+ $XCenter = ( $this->GArea_X2 - $this->GArea_X1 ) / 2;\r
+ $YCenter = ( $this->GArea_Y2 - $this->GArea_Y1 ) / 2;\r
+\r
+ /* Search for the max value */\r
+ if ( $MaxValue == -1 )\r
+ {\r
+ foreach ( $DataDescription["Values"] as $Key2 => $ColName )\r
+ {\r
+ foreach ( $Data as $Key => $Values )\r
+ {\r
+ if ( isset($Data[$Key][$ColName]))\r
+ if ( $Data[$Key][$ColName] > $MaxValue && is_numeric($Data[$Key][$ColName])) { $MaxValue = $Data[$Key][$ColName]; }\r
+ }\r
+ }\r
+ }\r
+\r
+ $GraphID = 0;\r
+ foreach ( $DataDescription["Values"] as $Key2 => $ColName )\r
+ {\r
+ $ID = 0;\r
+ foreach ( $DataDescription["Description"] as $keyI => $ValueI )\r
+ { if ( $keyI == $ColName ) { $ColorID = $ID; }; $ID++; }\r
+\r
+ $Angle = -90;\r
+ $XLast = -1;\r
+ $Plots = "";\r
+ foreach ( $Data as $Key => $Values )\r
+ {\r
+ if ( isset($Data[$Key][$ColName]))\r
+ {\r
+ $Value = $Data[$Key][$ColName];\r
+ if ( !is_numeric($Value) ) { $Value = 0; }\r
+ $Strength = ( $Radius / $MaxValue ) * $Value;\r
+\r
+ $XPos = cos($Angle * 3.1418 / 180 ) * $Strength + $XCenter;\r
+ $YPos = sin($Angle * 3.1418 / 180 ) * $Strength + $YCenter;\r
+\r
+ $Plots[] = $XPos;\r
+ $Plots[] = $YPos;\r
+\r
+ $Angle = $Angle + (360/$Points);\r
+ $XLast = $XPos;\r
+ $YLast = $YPos;\r
+ }\r
+ }\r
+\r
+ if (isset($Plots[0]))\r
+ {\r
+ $Plots[] = $Plots[0];\r
+ $Plots[] = $Plots[1];\r
+\r
+ $this->Layers[0] = imagecreatetruecolor($LayerWidth,$LayerHeight);\r
+ $C_White = imagecolorallocate($this->Layers[0],255,255,255);\r
+ imagefilledrectangle($this->Layers[0],0,0,$LayerWidth,$LayerHeight,$C_White);\r
+ imagecolortransparent($this->Layers[0],$C_White);\r
+\r
+ $C_Graph = imagecolorallocate($this->Layers[0],$this->Palette[$ColorID]["R"],$this->Palette[$ColorID]["G"],$this->Palette[$ColorID]["B"]);\r
+ imagefilledpolygon($this->Layers[0],$Plots,(count($Plots)+1)/2,$C_Graph);\r
+\r
+ imagecopymerge($this->Picture,$this->Layers[0],$this->GArea_X1,$this->GArea_Y1,0,0,$LayerWidth,$LayerHeight,$Alpha);\r
+ imagedestroy($this->Layers[0]);\r
+\r
+ for($i=0;$i<=count($Plots)-4;$i=$i+2)\r
+ $this->drawLine($Plots[$i]+$this->GArea_X1,$Plots[$i+1]+$this->GArea_Y1,$Plots[$i+2]+$this->GArea_X1,$Plots[$i+3]+$this->GArea_Y1,$this->Palette[$ColorID]["R"],$this->Palette[$ColorID]["G"],$this->Palette[$ColorID]["B"]);\r
+ }\r
+\r
+ $GraphID++;\r
+ }\r
+ }\r
+\r
+ /* This function draw a flat pie chart */\r
+ function drawBasicPieGraph(&$Data,&$DataDescription,$XPos,$YPos,$Radius=100,$DrawLabels=PIE_NOLABEL,$R=255,$G=255,$B=255,$Decimals=0)\r
+ {\r
+ /* Validate the Data and DataDescription array */\r
+ $this->validateDataDescription("drawBasicPieGraph",$DataDescription,FALSE);\r
+ $this->validateData("drawBasicPieGraph",$Data);\r
+\r
+ /* Determine pie sum */\r
+ $Series = 0; $PieSum = 0;\r
+ foreach ( $DataDescription["Values"] as $Key2 => $ColName )\r
+ {\r
+ if ( $ColName != $DataDescription["Position"] )\r
+ {\r
+ $Series++;\r
+ foreach ( $Data as $Key => $Values )\r
+ {\r
+ if ( isset($Data[$Key][$ColName]))\r
+ $PieSum = $PieSum + $Data[$Key][$ColName]; $iValues[] = $Data[$Key][$ColName]; $iLabels[] = $Data[$Key][$DataDescription["Position"]];\r
+ }\r
+ }\r
+ }\r
+\r
+ /* Validate serie */\r
+ if ( $Series != 1 )\r
+ RaiseFatal("Pie chart can only accept one serie of data.");\r
+\r
+ $SpliceRatio = 360 / $PieSum;\r
+ $SplicePercent = 100 / $PieSum;\r
+\r
+ /* Calculate all polygons */\r
+ $Angle = 0; $TopPlots = "";\r
+ foreach($iValues as $Key => $Value)\r
+ {\r
+ $TopPlots[$Key][] = $XPos;\r
+ $TopPlots[$Key][] = $YPos;\r
+\r
+ /* Process labels position & size */\r
+ if ( !($DrawLabels == PIE_NOLABEL) )\r
+ {\r
+ $TAngle = $Angle+($Value*$SpliceRatio/2);\r
+ if ($DrawLabels == PIE_PERCENTAGE)\r
+ $Caption = (round($Value * pow(10,$Decimals) * $SplicePercent)/pow(10,$Decimals))."%";\r
+ elseif ($DrawLabels == PIE_LABELS)\r
+ $Caption = $iLabels[$Key];\r
+ $TX = cos(($TAngle) * 3.1418 / 180 ) * ($Radius + 10)+ $XPos;\r
+ $TY = sin(($TAngle) * 3.1418 / 180 ) * ($Radius+ 10) + $YPos + 4;\r
+\r
+ if ( $TAngle > 90 && $TAngle < 270 )\r
+ {\r
+ $Position = imageftbbox($this->FontSize,0,$this->FontName,$Caption,$bogus);\r
+ $TextWidth = $Position[2]-$Position[0];\r
+ $TX = $TX - $TextWidth;\r
+ }\r
+\r
+ $C_TextColor = imagecolorallocate($this->Picture,70,70,70);\r
+ imagettftext($this->Picture,$this->FontSize,0,$TX,$TY,$C_TextColor,$this->FontName,$Caption);\r
+ }\r
+\r
+ /* Process pie slices */\r
+ for($iAngle=$Angle;$iAngle<=$Angle+$Value*$SpliceRatio;$iAngle=$iAngle+.5)\r
+ {\r
+ $TopX = cos($iAngle * 3.1418 / 180 ) * $Radius + $XPos;\r
+ $TopY = sin($iAngle * 3.1418 / 180 ) * $Radius + $YPos;\r
+\r
+ $TopPlots[$Key][] = $TopX; \r
+ $TopPlots[$Key][] = $TopY;\r
+ }\r
+\r
+ $TopPlots[$Key][] = $XPos;\r
+ $TopPlots[$Key][] = $YPos;\r
+\r
+ $Angle = $iAngle;\r
+ }\r
+ $PolyPlots = $TopPlots;\r
+\r
+ /* Set array values type to float --- PHP Bug with imagefilledpolygon casting to integer */\r
+ foreach ($TopPlots as $Key => $Value)\r
+ { foreach ($TopPlots[$Key] as $Key2 => $Value2) { settype($TopPlots[$Key][$Key2],"float"); } }\r
+\r
+ /* Draw Top polygons */\r
+ foreach ($PolyPlots as $Key => $Value)\r
+ { \r
+ $C_GraphLo = imagecolorallocate($this->Picture,$this->Palette[$Key]["R"],$this->Palette[$Key]["G"],$this->Palette[$Key]["B"]);\r
+ imagefilledpolygon($this->Picture,$PolyPlots[$Key],(count($PolyPlots[$Key])+1)/2,$C_GraphLo);\r
+ }\r
+\r
+ $this->drawCircle($XPos-.5,$YPos-.5,$Radius,$R,$G,$B);\r
+ $this->drawCircle($XPos-.5,$YPos-.5,$Radius+.5,$R,$G,$B);\r
+\r
+ /* Draw Top polygons */\r
+ foreach ($TopPlots as $Key => $Value)\r
+ { \r
+ for($j=0;$j<=count($TopPlots[$Key])-4;$j=$j+2)\r
+ $this->drawLine($TopPlots[$Key][$j],$TopPlots[$Key][$j+1],$TopPlots[$Key][$j+2],$TopPlots[$Key][$j+3],$R,$G,$B);\r
+ }\r
+ }\r
+\r
+ /* This function draw a flat pie chart */\r
+ function drawFlatPieGraph(&$Data,&$DataDescription,$XPos,$YPos,$Radius=100,$DrawLabels=PIE_NOLABEL,$SpliceDistance=0,$Decimals = 0)\r
+ {\r
+ /* Validate the Data and DataDescription array */\r
+ $this->validateDataDescription("drawFlatPieGraph",$DataDescription,FALSE);\r
+ $this->validateData("drawFlatPieGraph",$Data);\r
+\r
+ /* Determine pie sum */\r
+ $Series = 0; $PieSum = 0;\r
+ foreach ( $DataDescription["Values"] as $Key2 => $ColName )\r
+ {\r
+ if ( $ColName != $DataDescription["Position"] )\r
+ {\r
+ $Series++;\r
+ foreach ( $Data as $Key => $Values )\r
+ {\r
+ if ( isset($Data[$Key][$ColName]))\r
+ $PieSum = $PieSum + $Data[$Key][$ColName]; $iValues[] = $Data[$Key][$ColName]; $iLabels[] = $Data[$Key][$DataDescription["Position"]];\r
+ }\r
+ }\r
+ }\r
+\r
+ /* Validate serie */\r
+ if ( $Series != 1 )\r
+ RaiseFatal("Pie chart can only accept one serie of data.");\r
+\r
+ $SpliceDistanceRatio = $SpliceDistance;\r
+ $SpliceRatio = (360 - $SpliceDistanceRatio * count($iValues) ) / $PieSum;\r
+ $SplicePercent = 100 / $PieSum;\r
+\r
+ /* Calculate all polygons */\r
+ $Angle = 0; $TopPlots = "";\r
+ foreach($iValues as $Key => $Value)\r
+ {\r
+ $XCenterPos = cos(($Angle+($Value*$SpliceRatio+$SpliceDistanceRatio)/2) * 3.1418 / 180 ) * $SpliceDistance + $XPos;\r
+ $YCenterPos = sin(($Angle+($Value*$SpliceRatio+$SpliceDistanceRatio)/2) * 3.1418 / 180 ) * $SpliceDistance + $YPos;\r
+\r
+ $TopPlots[$Key][] = $XCenterPos;\r
+ $TopPlots[$Key][] = $YCenterPos;\r
+\r
+ /* Process labels position & size */\r
+ if ( !($DrawLabels == PIE_NOLABEL) )\r
+ {\r
+ $TAngle = $Angle+($Value*$SpliceRatio/2);\r
+ if ($DrawLabels == PIE_PERCENTAGE)\r
+ $Caption = (round($Value * pow(10,$Decimals) * $SplicePercent)/pow(10,$Decimals))."%";\r
+ elseif ($DrawLabels == PIE_LABELS)\r
+ $Caption = $iLabels[$Key];\r
+ $TX = cos(($TAngle) * 3.1418 / 180 ) * ($Radius+10+$SpliceDistance)+$XPos;\r
+ $TY = sin(($TAngle) * 3.1418 / 180 ) * ($Radius+10+$SpliceDistance) + $YPos + 4;\r
+\r
+ if ( $TAngle > 90 && $TAngle < 270 )\r
+ {\r
+ $Position = imageftbbox($this->FontSize,0,$this->FontName,$Caption,$bogus);\r
+ $TextWidth = $Position[2]-$Position[0];\r
+ $TX = $TX - $TextWidth;\r
+ }\r
+\r
+ $C_TextColor = imagecolorallocate($this->Picture,70,70,70);\r
+ imagettftext($this->Picture,$this->FontSize,0,$TX,$TY,$C_TextColor,$this->FontName,$Caption);\r
+ }\r
+\r
+ /* Draw borders to correct imagefilledpolygon bug */\r
+ $BMax = 2;\r
+ for($i=-1;$i<=$BMax;$i++)\r
+ {\r
+ $BorderX1 = cos(($Angle+($Value*$SpliceRatio+$SpliceDistanceRatio)/2) * 3.1418 / 180 ) * ($SpliceDistance+$i) + $XPos;\r
+ $BorderY1 = sin(($Angle+($Value*$SpliceRatio+$SpliceDistanceRatio)/2) * 3.1418 / 180 ) * ($SpliceDistance+$i) + $YPos;\r
+ $BorderX2 = cos(($Angle+$i*.5) * 3.1418 / 180 ) * (($Radius+$BMax)+$SpliceDistance) + $XPos;\r
+ $BorderY2 = sin(($Angle+$i*.5) * 3.1418 / 180 ) * (($Radius+$BMax)+$SpliceDistance) + $YPos;\r
+ $this->drawLine($BorderX1,$BorderY1,$BorderX2,$BorderY2,$this->Palette[$Key]["R"],$this->Palette[$Key]["G"],$this->Palette[$Key]["B"]);\r
+\r
+ $BorderX1 = cos(($Angle+($Value*$SpliceRatio+$SpliceDistanceRatio)/2) * 3.1418 / 180 ) * ($SpliceDistance+$i) + $XPos;\r
+ $BorderY1 = sin(($Angle+($Value*$SpliceRatio+$SpliceDistanceRatio)/2) * 3.1418 / 180 ) * ($SpliceDistance+$i) + $YPos;\r
+ $BorderX2 = cos(($Angle-$i*.5+$Value*$SpliceRatio) * 3.1418 / 180 ) * (($Radius+$BMax)+$SpliceDistance) + $XPos;\r
+ $BorderY2 = sin(($Angle-$i*.5+$Value*$SpliceRatio) * 3.1418 / 180 ) * (($Radius+$BMax)+$SpliceDistance) + $YPos;\r
+ $this->drawLine($BorderX1,$BorderY1,$BorderX2,$BorderY2,$this->Palette[$Key]["R"],$this->Palette[$Key]["G"],$this->Palette[$Key]["B"]);\r
+ }\r
+\r
+ /* Process pie slices */\r
+ for($iAngle=$Angle;$iAngle<=$Angle+$Value*$SpliceRatio;$iAngle=$iAngle+.5)\r
+ {\r
+ $TopX = cos($iAngle * 3.1418 / 180 ) * ($Radius+$SpliceDistance) + $XPos;\r
+ $TopY = sin($iAngle * 3.1418 / 180 ) * ($Radius+$SpliceDistance) + $YPos;\r
+\r
+ $TopPlots[$Key][] = $TopX;\r
+ $TopPlots[$Key][] = $TopY;\r
+\r
+ if ( $iAngle != $Angle )\r
+ {\r
+ for($i=-1;$i<=2;$i++)\r
+ {\r
+ $BorderX1 = cos(($iAngle-.5) * 3.1418 / 180 ) * (($Radius+$i)+$SpliceDistance) + $XPos;\r
+ $BorderY1 = sin(($iAngle-.5) * 3.1418 / 180 ) * (($Radius+$i)+$SpliceDistance) + $YPos;\r
+ $BorderX2 = cos($iAngle * 3.1418 / 180 ) * (($Radius+$i)+$SpliceDistance) + $XPos;\r
+ $BorderY2 = sin($iAngle * 3.1418 / 180 ) * (($Radius+$i)+$SpliceDistance) + $YPos;\r
+\r
+ $this->drawLine($BorderX1,$BorderY1,$BorderX2,$BorderY2,$this->Palette[$Key]["R"],$this->Palette[$Key]["G"],$this->Palette[$Key]["B"]);\r
+ }\r
+ }\r
+ }\r
+\r
+ $TopPlots[$Key][] = $XCenterPos;\r
+ $TopPlots[$Key][] = $YCenterPos;\r
+\r
+ $Angle = $iAngle + $SpliceDistanceRatio;\r
+ }\r
+ $PolyPlots = $TopPlots;\r
+\r
+ /* Set array values type to float --- PHP Bug with imagefilledpolygon casting to integer */\r
+ foreach ($TopPlots as $Key => $Value)\r
+ { foreach ($TopPlots[$Key] as $Key2 => $Value2) { settype($TopPlots[$Key][$Key2],"float"); } }\r
+\r
+ /* Draw Top polygons */\r
+ foreach ($TopPlots as $Key => $Value)\r
+ { \r
+ $C_GraphLo = imagecolorallocate($this->Picture,$this->Palette[$Key]["R"],$this->Palette[$Key]["G"],$this->Palette[$Key]["B"]);\r
+ imagefilledpolygon($this->Picture,$PolyPlots[$Key],(count($PolyPlots[$Key])+1)/2,$C_GraphLo);\r
+ }\r
+ }\r
+\r
+ /* This function draw a pseudo-3D pie chart */\r
+ function drawPieGraph(&$Data,&$DataDescription,$XPos,$YPos,$Radius=100,$DrawLabels=PIE_NOLABEL,$EnhanceColors=TRUE,$Skew=60,$SpliceHeight=20,$SpliceDistance=0,$Decimals=0)\r
+ {\r
+ /* Validate the Data and DataDescription array */\r
+ $this->validateDataDescription("drawPieGraph",$DataDescription,FALSE);\r
+ $this->validateData("drawPieGraph",$Data);\r
+\r
+ /* Determine pie sum */\r
+ $Series = 0; $PieSum = 0; $rPieSum = 0;\r
+ foreach ( $DataDescription["Values"] as $Key2 => $ColName )\r
+ {\r
+ if ( $ColName != $DataDescription["Position"] )\r
+ {\r
+ $Series++;\r
+ foreach ( $Data as $Key => $Values )\r
+ if ( isset($Data[$Key][$ColName]))\r
+ {\r
+ if ( $Data[$Key][$ColName] == 0 )\r
+ { $PieSum++; $iValues[] = 1; $rValues[] = 0; }\r
+ else\r
+ { $PieSum += $Data[$Key][$ColName]; $iValues[] = $Data[$Key][$ColName]; $iLabels[] = $Data[$Key][$DataDescription["Position"]]; $rValues[] = $Data[$Key][$ColName]; $rPieSum += $Data[$Key][$ColName];}\r
+ }\r
+ }\r
+ }\r
+\r
+ /* Validate serie */\r
+ if ( $Series != 1 )\r
+ RaiseFatal("Pie chart can only accept one serie of data.");\r
+\r
+ $SpliceDistanceRatio = $SpliceDistance;\r
+ $SkewHeight = ($Radius * $Skew) / 100;\r
+ $SpliceRatio = (360 - $SpliceDistanceRatio * count($iValues) ) / $PieSum;\r
+ $SplicePercent = 100 / $PieSum;\r
+ $rSplicePercent = 100 / $rPieSum;\r
+\r
+ /* Calculate all polygons */\r
+ $Angle = 0; $TopPlots = ""; $BotPlots = ""; $CDev = 5;\r
+ foreach($iValues as $Key => $Value)\r
+ {\r
+ $XCenterPos = cos(($Angle-$CDev+($Value*$SpliceRatio+$SpliceDistanceRatio)/2) * 3.1418 / 180 ) * $SpliceDistance + $XPos;\r
+ $YCenterPos = sin(($Angle-$CDev+($Value*$SpliceRatio+$SpliceDistanceRatio)/2) * 3.1418 / 180 ) * $SpliceDistance + $YPos;\r
+ $XCenterPos2 = cos(($Angle+$CDev+($Value*$SpliceRatio+$SpliceDistanceRatio)/2) * 3.1418 / 180 ) * $SpliceDistance + $XPos;\r
+ $YCenterPos2 = sin(($Angle+$CDev+($Value*$SpliceRatio+$SpliceDistanceRatio)/2) * 3.1418 / 180 ) * $SpliceDistance + $YPos;\r
+\r
+ $TopPlots[$Key][] = $XCenterPos; $BotPlots[$Key][] = $XCenterPos;\r
+ $TopPlots[$Key][] = $YCenterPos; $BotPlots[$Key][] = $YCenterPos + $SpliceHeight;\r
+\r
+ /* Process labels position & size */\r
+ if ( !($DrawLabels == PIE_NOLABEL) )\r
+ {\r
+ $TAngle = $Angle+($Value*$SpliceRatio/2);\r
+ if ($DrawLabels == PIE_PERCENTAGE)\r
+ $Caption = (round($rValues[$Key] * pow(10,$Decimals) * $rSplicePercent)/pow(10,$Decimals))."%";\r
+ elseif ($DrawLabels == PIE_LABELS)\r
+ $Caption = $iLabels[$Key];\r
+\r
+ $TX = cos(($TAngle) * 3.1418 / 180 ) * ($Radius + 10)+ $XPos;\r
+\r
+ if ( $TAngle > 0 && $TAngle < 180 )\r
+ $TY = sin(($TAngle) * 3.1418 / 180 ) * ($SkewHeight + 10) + $YPos + $SpliceHeight + 4;\r
+ else\r
+ $TY = sin(($TAngle) * 3.1418 / 180 ) * ($SkewHeight + 10) + $YPos + 4;\r
+\r
+ if ( $TAngle > 90 && $TAngle < 270 )\r
+ {\r
+ $Position = imageftbbox($this->FontSize,0,$this->FontName,$Caption,$bogus);\r
+ $TextWidth = $Position[2]-$Position[0];\r
+ $TX = $TX - $TextWidth;\r
+ }\r
+\r
+ $C_TextColor = imagecolorallocate($this->Picture,70,70,70);\r
+ imagettftext($this->Picture,$this->FontSize,0,$TX,$TY,$C_TextColor,$this->FontName,$Caption);\r
+ }\r
+\r
+ /* Process pie slices */\r
+ for($iAngle=$Angle;$iAngle<=$Angle+$Value*$SpliceRatio;$iAngle=$iAngle+.5)\r
+ {\r
+ $TopX = cos($iAngle * 3.1418 / 180 ) * $Radius + $XPos;\r
+ $TopY = sin($iAngle * 3.1418 / 180 ) * $SkewHeight + $YPos;\r
+\r
+ $TopPlots[$Key][] = $TopX; $BotPlots[$Key][] = $TopX;\r
+ $TopPlots[$Key][] = $TopY; $BotPlots[$Key][] = $TopY + $SpliceHeight;\r
+ }\r
+\r
+ $TopPlots[$Key][] = $XCenterPos2; $BotPlots[$Key][] = $XCenterPos2;\r
+ $TopPlots[$Key][] = $YCenterPos2; $BotPlots[$Key][] = $YCenterPos2 + $SpliceHeight;\r
+\r
+ $Angle = $iAngle + $SpliceDistanceRatio;\r
+ }\r
+\r
+ /* Draw Bottom polygons */\r
+ foreach($iValues as $Key => $Value)\r
+ {\r
+ $C_GraphLo = $this->AllocateColor($this->Picture,$this->Palette[$Key]["R"],$this->Palette[$Key]["G"],$this->Palette[$Key]["B"],-20);\r
+ imagefilledpolygon($this->Picture,$BotPlots[$Key],(count($BotPlots[$Key])+1)/2,$C_GraphLo);\r
+\r
+ for($j=0;$j<=count($BotPlots[$Key])-4;$j=$j+2)\r
+ $this->drawLine($BotPlots[$Key][$j],$BotPlots[$Key][$j+1],$BotPlots[$Key][$j+2],$BotPlots[$Key][$j+3],$this->Palette[$Key]["R"]-20,$this->Palette[$Key]["G"]-20,$this->Palette[$Key]["B"]-20);\r
+ }\r
+\r
+ /* Draw pie layers */\r
+ if ( $EnhanceColors ) { $ColorRatio = 30 / $SpliceHeight; } else { $ColorRatio = 25 / $SpliceHeight; }\r
+ for($i=$SpliceHeight-1;$i>=1;$i--)\r
+ {\r
+ foreach($iValues as $Key => $Value)\r
+ {\r
+ $C_GraphLo = $this->AllocateColor($this->Picture,$this->Palette[$Key]["R"],$this->Palette[$Key]["G"],$this->Palette[$Key]["B"],-10);\r
+ $Plots = ""; $Plot = 0;\r
+ foreach($TopPlots[$Key] as $Key2 => $Value2)\r
+ {\r
+ $Plot++;\r
+ if ( $Plot % 2 == 1 )\r
+ $Plots[] = $Value2;\r
+ else\r
+ $Plots[] = $Value2+$i;\r
+ }\r
+ imagefilledpolygon($this->Picture,$Plots,(count($Plots)+1)/2,$C_GraphLo);\r
+\r
+ $Index = count($Plots);\r
+ $ColorFactor = -20 + ($SpliceHeight - $i) * $ColorRatio;\r
+ $this->drawAntialiasPixel($Plots[0],$Plots[1],$this->Palette[$Key]["R"]+$ColorFactor,$this->Palette[$Key]["G"]+$ColorFactor,$this->Palette[$Key]["B"]+$ColorFactor);\r
+ $this->drawAntialiasPixel($Plots[2],$Plots[3],$this->Palette[$Key]["R"]+$ColorFactor,$this->Palette[$Key]["G"]+$ColorFactor,$this->Palette[$Key]["B"]+$ColorFactor);\r
+ $this->drawAntialiasPixel($Plots[$Index-4],$Plots[$Index-3],$this->Palette[$Key]["R"]+$ColorFactor,$this->Palette[$Key]["G"]+$ColorFactor,$this->Palette[$Key]["B"]+$ColorFactor);\r
+ }\r
+ }\r
+\r
+ /* Draw Top polygons */\r
+ for($Key=count($iValues)-1;$Key>=0;$Key--)\r
+ { \r
+ $C_GraphLo = $this->AllocateColor($this->Picture,$this->Palette[$Key]["R"],$this->Palette[$Key]["G"],$this->Palette[$Key]["B"]);\r
+ imagefilledpolygon($this->Picture,$TopPlots[$Key],(count($TopPlots[$Key])+1)/2,$C_GraphLo);\r
+\r
+ if ( $EnhanceColors ) { $En = 10; } else { $En = 5; }\r
+ for($j=0;$j<=count($TopPlots[$Key])-4;$j=$j+2)\r
+ $this->drawLine($TopPlots[$Key][$j],$TopPlots[$Key][$j+1],$TopPlots[$Key][$j+2],$TopPlots[$Key][$j+3],$this->Palette[$Key]["R"]+$En,$this->Palette[$Key]["G"]+$En,$this->Palette[$Key]["B"]+$En);\r
+ }\r
+ }\r
+\r
+ /* This function can be used to set the background color */\r
+ function drawBackground($R,$G,$B)\r
+ {\r
+ if ( $R < 0 ) { $R = 0; } if ( $R > 255 ) { $R = 255; }\r
+ if ( $G < 0 ) { $G = 0; } if ( $G > 255 ) { $G = 255; }\r
+ if ( $B < 0 ) { $B = 0; } if ( $B > 255 ) { $B = 255; }\r
+\r
+ $C_Background = imagecolorallocate($this->Picture,$R,$G,$B);\r
+ imagefilledrectangle($this->Picture,0,0,$this->XSize,$this->YSize,$C_Background);\r
+ }\r
+\r
+ /* This function can be used to set the background color */\r
+ function drawGraphAreaGradient($R,$G,$B,$Decay,$Target=TARGET_GRAPHAREA)\r
+ {\r
+ if ( $R < 0 ) { $R = 0; } if ( $R > 255 ) { $R = 255; }\r
+ if ( $G < 0 ) { $G = 0; } if ( $G > 255 ) { $G = 255; }\r
+ if ( $B < 0 ) { $B = 0; } if ( $B > 255 ) { $B = 255; }\r
+\r
+ if ( $Target == TARGET_GRAPHAREA ) { $X1 = $this->GArea_X1+1; $X2 = $this->GArea_X2-1; $Y1 = $this->GArea_Y1+1; $Y2 = $this->GArea_Y2; }\r
+ if ( $Target == TARGET_BACKGROUND ) { $X1 = 0; $X2 = $this->XSize; $Y1 = 0; $Y2 = $this->YSize; }\r
+\r
+ $YStep = ($Y2 - $Y1 - 2) / $Decay;\r
+ for($i=0;$i<=$Decay;$i++)\r
+ {\r
+ $R-=1;$G-=1;$B-=1;\r
+ $Yi1 = $Y1 + ( $i * $YStep );\r
+ $Yi2 = ceil( $Yi1 + ( $i * $YStep ) + $YStep );\r
+ if ( $Yi2 >= $Yi2 ) { $Yi2 = $Y2-1; }\r
+\r
+ $C_Background = $this->AllocateColor($this->Picture,$R,$G,$B);\r
+ imagefilledrectangle($this->Picture,$X1,$Yi1,$X2,$Yi2,$C_Background);\r
+ }\r
+ }\r
+\r
+ /* This function create a rectangle with antialias */\r
+ function drawRectangle($X1,$Y1,$X2,$Y2,$R,$G,$B)\r
+ {\r
+ if ( $R < 0 ) { $R = 0; } if ( $R > 255 ) { $R = 255; }\r
+ if ( $G < 0 ) { $G = 0; } if ( $G > 255 ) { $G = 255; }\r
+ if ( $B < 0 ) { $B = 0; } if ( $B > 255 ) { $B = 255; }\r
+\r
+ $C_Rectangle = imagecolorallocate($this->Picture,$R,$G,$B);\r
+\r
+ $X1=$X1-.2;$Y1=$Y1-.2;\r
+ $X2=$X2+.2;$Y2=$Y2+.2;\r
+ $this->drawLine($X1,$Y1,$X2,$Y1,$R,$G,$B);\r
+ $this->drawLine($X2,$Y1,$X2,$Y2,$R,$G,$B);\r
+ $this->drawLine($X2,$Y2,$X1,$Y2,$R,$G,$B);\r
+ $this->drawLine($X1,$Y2,$X1,$Y1,$R,$G,$B);\r
+ }\r
+\r
+ /* This function create a filled rectangle with antialias */\r
+ function drawFilledRectangle($X1,$Y1,$X2,$Y2,$R,$G,$B,$DrawBorder=TRUE,$Alpha=100)\r
+ {\r
+ if ( $X2 > $X1 ) { list($X1, $X2) = array($X2, $X1); }\r
+ if ( $Y2 > $Y1 ) { list($Y1, $Y2) = array($Y2, $Y1); }\r
+\r
+ if ( $R < 0 ) { $R = 0; } if ( $R > 255 ) { $R = 255; }\r
+ if ( $G < 0 ) { $G = 0; } if ( $G > 255 ) { $G = 255; }\r
+ if ( $B < 0 ) { $B = 0; } if ( $B > 255 ) { $B = 255; }\r
+\r
+ if ( $Alpha == 100 )\r
+ {\r
+ $C_Rectangle = imagecolorallocate($this->Picture,$R,$G,$B);\r
+ imagefilledrectangle($this->Picture,$X1,$Y1,$X2,$Y2,$C_Rectangle);\r
+ }\r
+ else\r
+ {\r
+ $LayerWidth = abs($X2-$X1)+2;\r
+ $LayerHeight = abs($Y2-$Y1)+2;\r
+\r
+ $this->Layers[0] = imagecreatetruecolor($LayerWidth,$LayerHeight);\r
+ $C_White = imagecolorallocate($this->Layers[0],255,255,255);\r
+ imagefilledrectangle($this->Layers[0],0,0,$LayerWidth,$LayerHeight,$C_White);\r
+ imagecolortransparent($this->Layers[0],$C_White);\r
+\r
+ $C_Rectangle = imagecolorallocate($this->Layers[0],$R,$G,$B);\r
+ imagefilledrectangle($this->Layers[0],1,1,$LayerWidth-1,$LayerHeight-1,$C_Rectangle);\r
+\r
+ imagecopymerge($this->Picture,$this->Layers[0],min($X1,$X2)-1,min($Y1,$Y2)-1,0,0,$LayerWidth,$LayerHeight,$Alpha);\r
+ imagedestroy($this->Layers[0]);\r
+ }\r
+\r
+ if ( $DrawBorder )\r
+ $this->drawRectangle($X1,$Y1,$X2,$Y2,$R,$G,$B);\r
+ }\r
+\r
+ /* This function create a rectangle with rounded corners and antialias */\r
+ function drawRoundedRectangle($X1,$Y1,$X2,$Y2,$Radius,$R,$G,$B)\r
+ {\r
+ if ( $R < 0 ) { $R = 0; } if ( $R > 255 ) { $R = 255; }\r
+ if ( $G < 0 ) { $G = 0; } if ( $G > 255 ) { $G = 255; }\r
+ if ( $B < 0 ) { $B = 0; } if ( $B > 255 ) { $B = 255; }\r
+\r
+ $C_Rectangle = imagecolorallocate($this->Picture,$R,$G,$B);\r
+\r
+ $Step = 90 / ((3.1418 * $Radius)/2);\r
+\r
+ for($i=0;$i<=90;$i=$i+$Step)\r
+ {\r
+ $X = cos(($i+180)*3.1418/180) * $Radius + $X1 + $Radius;\r
+ $Y = sin(($i+180)*3.1418/180) * $Radius + $Y1 + $Radius;\r
+ $this->drawAntialiasPixel($X,$Y,$R,$G,$B);\r
+\r
+ $X = cos(($i-90)*3.1418/180) * $Radius + $X2 - $Radius;\r
+ $Y = sin(($i-90)*3.1418/180) * $Radius + $Y1 + $Radius;\r
+ $this->drawAntialiasPixel($X,$Y,$R,$G,$B);\r
+\r
+ $X = cos(($i)*3.1418/180) * $Radius + $X2 - $Radius;\r
+ $Y = sin(($i)*3.1418/180) * $Radius + $Y2 - $Radius;\r
+ $this->drawAntialiasPixel($X,$Y,$R,$G,$B);\r
+\r
+ $X = cos(($i+90)*3.1418/180) * $Radius + $X1 + $Radius;\r
+ $Y = sin(($i+90)*3.1418/180) * $Radius + $Y2 - $Radius;\r
+ $this->drawAntialiasPixel($X,$Y,$R,$G,$B);\r
+ }\r
+\r
+ $X1=$X1-.2;$Y1=$Y1-.2;\r
+ $X2=$X2+.2;$Y2=$Y2+.2;\r
+ $this->drawLine($X1+$Radius,$Y1,$X2-$Radius,$Y1,$R,$G,$B);\r
+ $this->drawLine($X2,$Y1+$Radius,$X2,$Y2-$Radius,$R,$G,$B);\r
+ $this->drawLine($X2-$Radius,$Y2,$X1+$Radius,$Y2,$R,$G,$B);\r
+ $this->drawLine($X1,$Y2-$Radius,$X1,$Y1+$Radius,$R,$G,$B);\r
+ }\r
+\r
+ /* This function create a filled rectangle with rounded corners and antialias */\r
+ function drawFilledRoundedRectangle($X1,$Y1,$X2,$Y2,$Radius,$R,$G,$B)\r
+ {\r
+ if ( $R < 0 ) { $R = 0; } if ( $R > 255 ) { $R = 255; }\r
+ if ( $G < 0 ) { $G = 0; } if ( $G > 255 ) { $G = 255; }\r
+ if ( $B < 0 ) { $B = 0; } if ( $B > 255 ) { $B = 255; }\r
+\r
+ $C_Rectangle = imagecolorallocate($this->Picture,$R,$G,$B);\r
+\r
+ $Step = 90 / ((3.1418 * $Radius)/2);\r
+\r
+ for($i=0;$i<=90;$i=$i+$Step)\r
+ {\r
+ $Xi1 = cos(($i+180)*3.1418/180) * $Radius + $X1 + $Radius;\r
+ $Yi1 = sin(($i+180)*3.1418/180) * $Radius + $Y1 + $Radius;\r
+\r
+ $Xi2 = cos(($i-90)*3.1418/180) * $Radius + $X2 - $Radius;\r
+ $Yi2 = sin(($i-90)*3.1418/180) * $Radius + $Y1 + $Radius;\r
+\r
+ $Xi3 = cos(($i)*3.1418/180) * $Radius + $X2 - $Radius;\r
+ $Yi3 = sin(($i)*3.1418/180) * $Radius + $Y2 - $Radius;\r
+\r
+ $Xi4 = cos(($i+90)*3.1418/180) * $Radius + $X1 + $Radius;\r
+ $Yi4 = sin(($i+90)*3.1418/180) * $Radius + $Y2 - $Radius;\r
+\r
+ imageline($this->Picture,$Xi1,$Yi1,$X1+$Radius,$Yi1,$C_Rectangle);\r
+ imageline($this->Picture,$X2-$Radius,$Yi2,$Xi2,$Yi2,$C_Rectangle);\r
+ imageline($this->Picture,$X2-$Radius,$Yi3,$Xi3,$Yi3,$C_Rectangle);\r
+ imageline($this->Picture,$Xi4,$Yi4,$X1+$Radius,$Yi4,$C_Rectangle);\r
+\r
+ $this->drawAntialiasPixel($Xi1,$Yi1,$R,$G,$B);\r
+ $this->drawAntialiasPixel($Xi2,$Yi2,$R,$G,$B);\r
+ $this->drawAntialiasPixel($Xi3,$Yi3,$R,$G,$B);\r
+ $this->drawAntialiasPixel($Xi4,$Yi4,$R,$G,$B);\r
+ }\r
+\r
+ imagefilledrectangle($this->Picture,$X1,$Y1+$Radius,$X2,$Y2-$Radius,$C_Rectangle);\r
+ imagefilledrectangle($this->Picture,$X1+$Radius,$Y1,$X2-$Radius,$Y2,$C_Rectangle);\r
+\r
+ $X1=$X1-.2;$Y1=$Y1-.2;\r
+ $X2=$X2+.2;$Y2=$Y2+.2;\r
+ $this->drawLine($X1+$Radius,$Y1,$X2-$Radius,$Y1,$R,$G,$B);\r
+ $this->drawLine($X2,$Y1+$Radius,$X2,$Y2-$Radius,$R,$G,$B);\r
+ $this->drawLine($X2-$Radius,$Y2,$X1+$Radius,$Y2,$R,$G,$B);\r
+ $this->drawLine($X1,$Y2-$Radius,$X1,$Y1+$Radius,$R,$G,$B);\r
+ }\r
+\r
+ /* This function create a circle with antialias */\r
+ function drawCircle($Xc,$Yc,$Height,$R,$G,$B,$Width=0)\r
+ {\r
+ if ( $Width == 0 ) { $Width = $Height; }\r
+ if ( $R < 0 ) { $R = 0; } if ( $R > 255 ) { $R = 255; }\r
+ if ( $G < 0 ) { $G = 0; } if ( $G > 255 ) { $G = 255; }\r
+ if ( $B < 0 ) { $B = 0; } if ( $B > 255 ) { $B = 255; }\r
+\r
+ $C_Circle = imagecolorallocate($this->Picture,$R,$G,$B);\r
+ $Step = 360 / (2 * 3.1418 * max($Width,$Height));\r
+\r
+ for($i=0;$i<=360;$i=$i+$Step)\r
+ {\r
+ $X = cos($i*3.1418/180) * $Height + $Xc;\r
+ $Y = sin($i*3.1418/180) * $Width + $Yc;\r
+ $this->drawAntialiasPixel($X,$Y,$R,$G,$B);\r
+ }\r
+ }\r
+\r
+ /* This function create a filled circle/ellipse with antialias */\r
+ function drawFilledCircle($Xc,$Yc,$Height,$R,$G,$B,$Width=0)\r
+ {\r
+ if ( $Width == 0 ) { $Width = $Height; }\r
+ if ( $R < 0 ) { $R = 0; } if ( $R > 255 ) { $R = 255; }\r
+ if ( $G < 0 ) { $G = 0; } if ( $G > 255 ) { $G = 255; }\r
+ if ( $B < 0 ) { $B = 0; } if ( $B > 255 ) { $B = 255; }\r
+\r
+ $C_Circle = imagecolorallocate($this->Picture,$R,$G,$B);\r
+ $Step = 360 / (2 * 3.1418 * max($Width,$Height));\r
+\r
+ for($i=90;$i<=270;$i=$i+$Step)\r
+ {\r
+ $X1 = cos($i*3.1418/180) * $Height + $Xc;\r
+ $Y1 = sin($i*3.1418/180) * $Width + $Yc;\r
+ $X2 = cos((180-$i)*3.1418/180) * $Height + $Xc;\r
+ $Y2 = sin((180-$i)*3.1418/180) * $Width + $Yc;\r
+\r
+ $this->drawAntialiasPixel($X1-1,$Y1-1,$R,$G,$B);\r
+ $this->drawAntialiasPixel($X2-1,$Y2-1,$R,$G,$B);\r
+\r
+ if ( ($Y1-1) > $Yc - max($Width,$Height) )\r
+ imageline($this->Picture,$X1,$Y1-1,$X2-1,$Y2-1,$C_Circle);\r
+ }\r
+ }\r
+\r
+ /* This function will draw a filled ellipse */\r
+ function drawEllipse($Xc,$Yc,$Height,$Width,$R,$G,$B)\r
+ { $this->drawCircle($Xc,$Yc,$Height,$R,$G,$B,$Width); }\r
+\r
+ /* This function will draw an ellipse */\r
+ function drawFilledEllipse($Xc,$Yc,$Height,$Width,$R,$G,$B)\r
+ { $this->drawFilledCircle($Xc,$Yc,$Height,$R,$G,$B,$Width); }\r
+\r
+ /* This function create a line with antialias */\r
+ function drawLine($X1,$Y1,$X2,$Y2,$R,$G,$B,$GraphFunction=FALSE)\r
+ {\r
+ if ( $this->LineDotSize > 1 ) { $this->drawDottedLine($X1,$Y1,$X2,$Y2,$this->LineDotSize,$R,$G,$B,$GraphFunction); return(0); }\r
+ if ( $R < 0 ) { $R = 0; } if ( $R > 255 ) { $R = 255; }\r
+ if ( $G < 0 ) { $G = 0; } if ( $G > 255 ) { $G = 255; }\r
+ if ( $B < 0 ) { $B = 0; } if ( $B > 255 ) { $B = 255; }\r
+\r
+ $Distance = sqrt(($X2-$X1)*($X2-$X1)+($Y2-$Y1)*($Y2-$Y1)); \r
+ if ( $Distance == 0 )\r
+ return(-1);\r
+ $XStep = ($X2-$X1) / $Distance;\r
+ $YStep = ($Y2-$Y1) / $Distance;\r
+\r
+ for($i=0;$i<=$Distance;$i++)\r
+ {\r
+ $X = $i * $XStep + $X1;\r
+ $Y = $i * $YStep + $Y1;\r
+\r
+ if ( ($X >= $this->GArea_X1 && $X <= $this->GArea_X2 && $Y >= $this->GArea_Y1 && $Y <= $this->GArea_Y2) || !$GraphFunction )\r
+ {\r
+ if ( $this->LineWidth == 1 )\r
+ $this->drawAntialiasPixel($X,$Y,$R,$G,$B);\r
+ else\r
+ {\r
+ $StartOffset = -($this->LineWidth/2); $EndOffset = ($this->LineWidth/2);\r
+ for($j=$StartOffset;$j<=$EndOffset;$j++)\r
+ $this->drawAntialiasPixel($X+$j,$Y+$j,$R,$G,$B);\r
+ }\r
+ }\r
+ }\r
+ }\r
+\r
+ /* This function create a line with antialias */\r
+ function drawDottedLine($X1,$Y1,$X2,$Y2,$DotSize,$R,$G,$B,$GraphFunction=FALSE)\r
+ {\r
+ if ( $R < 0 ) { $R = 0; } if ( $R > 255 ) { $R = 255; }\r
+ if ( $G < 0 ) { $G = 0; } if ( $G > 255 ) { $G = 255; }\r
+ if ( $B < 0 ) { $B = 0; } if ( $B > 255 ) { $B = 255; }\r
+\r
+ $Distance = sqrt(($X2-$X1)*($X2-$X1)+($Y2-$Y1)*($Y2-$Y1)); \r
+\r
+ $XStep = ($X2-$X1) / $Distance;\r
+ $YStep = ($Y2-$Y1) / $Distance;\r
+\r
+ $DotIndex = 0;\r
+ for($i=0;$i<=$Distance;$i++)\r
+ {\r
+ $X = $i * $XStep + $X1;\r
+ $Y = $i * $YStep + $Y1;\r
+\r
+ if ( $DotIndex <= $DotSize)\r
+ {\r
+ if ( ($X >= $this->GArea_X1 && $X <= $this->GArea_X2 && $Y >= $this->GArea_Y1 && $Y <= $this->GArea_Y2) || !$GraphFunction )\r
+ {\r
+ if ( $this->LineWidth == 1 )\r
+ $this->drawAntialiasPixel($X,$Y,$R,$G,$B);\r
+ else\r
+ {\r
+ $StartOffset = -($this->LineWidth/2); $EndOffset = ($this->LineWidth/2);\r
+ for($j=$StartOffset;$j<=$EndOffset;$j++)\r
+ $this->drawAntialiasPixel($X+$j,$Y+$j,$R,$G,$B);\r
+ }\r
+ }\r
+ }\r
+\r
+ $DotIndex++;\r
+ if ( $DotIndex == $DotSize * 2 )\r
+ $DotIndex = 0; \r
+ }\r
+ }\r
+\r
+ /* Load a PNG file and draw it over the chart */\r
+ function drawFromPNG($FileName,$X,$Y,$Alpha=100)\r
+ { $this->drawFromPicture(1,$FileName,$X,$Y,$Alpha); }\r
+\r
+ /* Load a GIF file and draw it over the chart */\r
+ function drawFromGIF($FileName,$X,$Y,$Alpha=100)\r
+ { $this->drawFromPicture(2,$FileName,$X,$Y,$Alpha); }\r
+\r
+ /* Load a JPEG file and draw it over the chart */\r
+ function drawFromJPG($FileName,$X,$Y,$Alpha=100)\r
+ { $this->drawFromPicture(3,$FileName,$X,$Y,$Alpha); }\r
+\r
+ /* Generic loader function for external pictures */\r
+ function drawFromPicture($PicType,$FileName,$X,$Y,$Alpha=100)\r
+ {\r
+ if ( file_exists($FileName))\r
+ {\r
+ $Infos = getimagesize($FileName);\r
+ $Width = $Infos[0];\r
+ $Height = $Infos[1];\r
+ if ( $PicType == 1 ) { $Raster = imagecreatefrompng($FileName); }\r
+ if ( $PicType == 2 ) { $Raster = imagecreatefromgif($FileName); }\r
+ if ( $PicType == 3 ) { $Raster = imagecreatefromjpeg($FileName); }\r
+\r
+ imagecopymerge($this->Picture,$Raster,$X,$Y,0,0,$Width,$Height,$Alpha);\r
+ imagedestroy($Raster);\r
+ }\r
+ }\r
+\r
+ /* Draw an alpha pixel */\r
+ function drawAlphaPixel($X,$Y,$Alpha,$R,$G,$B)\r
+ {\r
+ if ( $R < 0 ) { $R = 0; } if ( $R > 255 ) { $R = 255; }\r
+ if ( $G < 0 ) { $G = 0; } if ( $G > 255 ) { $G = 255; }\r
+ if ( $B < 0 ) { $B = 0; } if ( $B > 255 ) { $B = 255; }\r
+\r
+ if ( $X < 0 || $Y < 0 || $X >= $this->XSize || $Y >= $this->YSize )\r
+ return(-1);\r
+\r
+ $RGB2 = imagecolorat($this->Picture, $X, $Y);\r
+ $R2 = ($RGB2 >> 16) & 0xFF;\r
+ $G2 = ($RGB2 >> 8) & 0xFF;\r
+ $B2 = $RGB2 & 0xFF;\r
+\r
+ $iAlpha = (100 - $Alpha)/100;\r
+ $Alpha = $Alpha / 100;\r
+\r
+ $Ra = floor($R*$Alpha+$R2*$iAlpha);\r
+ $Ga = floor($G*$Alpha+$G2*$iAlpha);\r
+ $Ba = floor($B*$Alpha+$B2*$iAlpha);\r
+\r
+ $C_Aliased = imagecolorallocate($this->Picture,$Ra,$Ga,$Ba);\r
+ imagesetpixel($this->Picture,$X,$Y,$C_Aliased);\r
+ }\r
+\r
+ /* Color helper */\r
+ function AllocateColor($Picture,$R,$G,$B,$Factor=0)\r
+ {\r
+ $R = $R + $Factor;\r
+ $G = $G + $Factor;\r
+ $B = $B + $Factor;\r
+ if ( $R < 0 ) { $R = 0; } if ( $R > 255 ) { $R = 255; }\r
+ if ( $G < 0 ) { $G = 0; } if ( $G > 255 ) { $G = 255; }\r
+ if ( $B < 0 ) { $B = 0; } if ( $B > 255 ) { $B = 255; }\r
+\r
+ return(imagecolorallocate($Picture,$R,$G,$B));\r
+ }\r
+\r
+ /* Add a border to the picture */\r
+ function addBorder($Size=3,$R=0,$G=0,$B=0)\r
+ {\r
+ $Width = $this->XSize+2*$Size;\r
+ $Height = $this->YSize+2*$Size;\r
+\r
+ $Resampled = imagecreatetruecolor($Width,$Height);\r
+ $C_Background = imagecolorallocate($Resampled,$R,$G,$B);\r
+ imagefilledrectangle($Resampled,0,0,$Width,$Height,$C_Background);\r
+\r
+ imagecopy($Resampled,$this->Picture,$Size,$Size,0,0,$this->XSize,$this->YSize);\r
+ imagedestroy($this->Picture);\r
+\r
+ $this->XSize = $Width;\r
+ $this->YSize = $Height;\r
+\r
+ $this->Picture = imagecreatetruecolor($this->XSize,$this->YSize);\r
+ $C_White = imagecolorallocate($this->Picture,255,255,255);\r
+ imagefilledrectangle($this->Picture,0,0,$this->XSize,$this->YSize,$C_White);\r
+ imagecolortransparent($this->Picture,$C_White);\r
+ imagecopy($this->Picture,$Resampled,0,0,0,0,$this->XSize,$this->YSize);\r
+ }\r
+\r
+ /* Render the current picture to a file */\r
+ function Render($FileName)\r
+ {\r
+ if ( $this->ErrorReporting )\r
+ $this->printErrors($this->ErrorInterface);\r
+\r
+ /* Save image map if requested */\r
+ if ( $this->BuildMap )\r
+ $this->SaveImageMap();\r
+\r
+ imagepng($this->Picture,$FileName);\r
+ }\r
+\r
+ /* Render the current picture to STDOUT */\r
+ function Stroke()\r
+ {\r
+ if ( $this->ErrorReporting )\r
+ $this->printErrors("GD");\r
+\r
+ /* Save image map if requested */\r
+ if ( $this->BuildMap )\r
+ $this->SaveImageMap();\r
+\r
+ header('Content-type: image/png');\r
+ imagepng($this->Picture);\r
+ }\r
+\r
+ /* Private functions for internal processing */\r
+ function drawAntialiasPixel($X,$Y,$R,$G,$B)\r
+ {\r
+ if ( $R < 0 ) { $R = 0; } if ( $R > 255 ) { $R = 255; }\r
+ if ( $G < 0 ) { $G = 0; } if ( $G > 255 ) { $G = 255; }\r
+ if ( $B < 0 ) { $B = 0; } if ( $B > 255 ) { $B = 255; }\r
+\r
+ $Plot = "";\r
+ $Xi = floor($X);\r
+ $Yi = floor($Y);\r
+\r
+ if ( $Xi == $X && $Yi == $Y)\r
+ {\r
+ /* $this->drawAlphaPixel($Xi,$Yi,0,$R,$G,$B); */\r
+ $C_Aliased = imagecolorallocate($this->Picture,$R,$G,$B);\r
+ imagesetpixel($this->Picture,$X,$Y,$C_Aliased);\r
+ }\r
+ else\r
+ {\r
+ $Alpha1 = (1 - ($X - floor($X))) * (1 - ($Y - floor($Y))) * 100;\r
+ if ( $Alpha1 > $this->AntialiasQuality ) { $this->drawAlphaPixel($Xi,$Yi,$Alpha1,$R,$G,$B); }\r
+\r
+ $Alpha2 = ($X - floor($X)) * (1 - ($Y - floor($Y))) * 100;\r
+ if ( $Alpha2 > $this->AntialiasQuality ) { $this->drawAlphaPixel($Xi+1,$Yi,$Alpha2,$R,$G,$B); }\r
+\r
+ $Alpha3 = (1 - ($X - floor($X))) * ($Y - floor($Y)) * 100;\r
+ if ( $Alpha3 > $this->AntialiasQuality ) { $this->drawAlphaPixel($Xi,$Yi+1,$Alpha3,$R,$G,$B); }\r
+\r
+ $Alpha4 = ($X - floor($X)) * ($Y - floor($Y)) * 100;\r
+ if ( $Alpha4 > $this->AntialiasQuality ) { $this->drawAlphaPixel($Xi+1,$Yi+1,$Alpha4,$R,$G,$B); }\r
+ }\r
+ }\r
+\r
+ /* Validate data contained in the description array */\r
+ function validateDataDescription($FunctionName,&$DataDescription,$DescriptionRequired=TRUE)\r
+ {\r
+ if (!isset($DataDescription["Position"]))\r
+ {\r
+ $this->Errors[] = "[Warning] ".$FunctionName." - Y Labels are not set.";\r
+ $DataDescription["Position"] = "Name";\r
+ }\r
+\r
+ if ( $DescriptionRequired )\r
+ {\r
+ if (!isset($DataDescription["Description"]))\r
+ {\r
+ $this->Errors[] = "[Warning] ".$FunctionName." - Series descriptions are not set.";\r
+ foreach($DataDescription["Values"] as $key => $Value)\r
+ {\r
+ $DataDescription["Description"][$Value] = $Value;\r
+ }\r
+ }\r
+\r
+ if (count($DataDescription["Description"]) < count($DataDescription["Values"]))\r
+ {\r
+ $this->Errors[] = "[Warning] ".$FunctionName." - Some series descriptions are not set.";\r
+ foreach($DataDescription["Values"] as $key => $Value)\r
+ {\r
+ if ( !isset($DataDescription["Description"][$Value]))\r
+ $DataDescription["Description"][$Value] = $Value;\r
+ }\r
+ }\r
+ }\r
+ }\r
+\r
+ /* Validate data contained in the data array */\r
+ function validateData($FunctionName,&$Data)\r
+ {\r
+ $DataSummary = "";\r
+\r
+ foreach($Data as $key => $Values)\r
+ {\r
+ foreach($Values as $key2 => $Value)\r
+ {\r
+ if (!isset($DataSummary[$key2]))\r
+ $DataSummary[$key2] = 1;\r
+ else\r
+ $DataSummary[$key2]++;\r
+ }\r
+ }\r
+\r
+ if ( max($DataSummary) == 0 )\r
+ $this->Errors[] = "[Warning] ".$FunctionName." - No data set.";\r
+\r
+ foreach($DataSummary as $key => $Value)\r
+ {\r
+ if ($Value < max($DataSummary))\r
+ {\r
+ $this->Errors[] = "[Warning] ".$FunctionName." - Missing data in serie ".$key.".";\r
+ }\r
+ }\r
+ }\r
+\r
+ /* Print all error messages on the CLI or graphically */\r
+ function printErrors($Mode="CLI")\r
+ {\r
+ if (count($this->Errors) == 0)\r
+ return(0);\r
+\r
+ if ( $Mode == "CLI" )\r
+ {\r
+ foreach($this->Errors as $key => $Value)\r
+ echo $Value."\r\n";\r
+ }\r
+ elseif ( $Mode == "GD" )\r
+ {\r
+ $this->setLineStyle($Width=1);\r
+ $MaxWidth = 0;\r
+ foreach($this->Errors as $key => $Value)\r
+ {\r
+ $Position = imageftbbox($this->ErrorFontSize,0,$this->ErrorFontName,$Value,$bogus);\r
+ $TextWidth = $Position[2]-$Position[0];\r
+ if ( $TextWidth > $MaxWidth ) { $MaxWidth = $TextWidth; }\r
+ }\r
+ $this->drawFilledRoundedRectangle($this->XSize-($MaxWidth+20),$this->YSize-(20+(($this->ErrorFontSize+4)*count($this->Errors))),$this->XSize-10,$this->YSize-10,6,233,185,185);\r
+ $this->drawRoundedRectangle($this->XSize-($MaxWidth+20),$this->YSize-(20+(($this->ErrorFontSize+4)*count($this->Errors))),$this->XSize-10,$this->YSize-10,6,193,145,145);\r
+\r
+ $C_TextColor = imagecolorallocate($this->Picture,133,85,85);\r
+ $YPos = $this->YSize - (18 + (count($this->Errors)-1) * ($this->ErrorFontSize + 4));\r
+ foreach($this->Errors as $key => $Value)\r
+ {\r
+ imagettftext($this->Picture,$this->ErrorFontSize,0,$this->XSize-($MaxWidth+15),$YPos,$C_TextColor,$this->ErrorFontName,$Value);\r
+ $YPos = $YPos + ($this->ErrorFontSize + 4);\r
+ }\r
+ }\r
+ }\r
+\r
+ /* Activate the image map creation process */\r
+ function setImageMap($Mode=TRUE,$GraphID="MyGraph")\r
+ {\r
+ $this->BuildMap = $Mode;\r
+ $this->MapID = $GraphID;\r
+ }\r
+\r
+ /* Add a box into the image map */\r
+ function addToImageMap($X1,$Y1,$X2,$Y2,$SerieName,$Value,$CallerFunction)\r
+ {\r
+ if ( $this->MapFunction == NULL || $this->MapFunction == $CallerFunction )\r
+ {\r
+ $this->ImageMap[] = round($X1).",".round($Y1).",".round($X2).",".round($Y2).",".$SerieName.",".$Value;\r
+ $this->MapFunction = $CallerFunction;\r
+ }\r
+ }\r
+\r
+ /* Load and cleanup the image map from disk */\r
+ function getImageMap($MapName,$Flush=TRUE)\r
+ {\r
+ /* Strip HTML query strings */\r
+ $Values = $this->tmpFolder.$MapName;\r
+ $Value = split("\?",$Values);\r
+ $FileName = $Value[0];\r
+\r
+ if ( file_exists($FileName) )\r
+ {\r
+ $Handle = fopen($FileName, "r");\r
+ $MapContent = fread($Handle, filesize($FileName));\r
+ fclose($Handle);\r
+ echo $MapContent;\r
+\r
+ if ( $Flush )\r
+ unlink($FileName);\r
+\r
+ exit();\r
+ }\r
+ else\r
+ {\r
+ header("HTTP/1.0 404 Not Found");\r
+ exit();\r
+ }\r
+ }\r
+\r
+ /* Save the image map to the disk */\r
+ function SaveImageMap()\r
+ {\r
+ if ( !$this->BuildMap ) { return(-1); }\r
+\r
+ if ( $this->ImageMap == NULL )\r
+ {\r
+ $this->Errors[] = "[Warning] SaveImageMap - Image map is empty.";\r
+ return(-1);\r
+ }\r
+\r
+ $Handle = fopen($this->tmpFolder.$this->MapID, 'w');\r
+ if ( !$Handle )\r
+ {\r
+ $this->Errors[] = "[Warning] SaveImageMap - Cannot save the image map.";\r
+ return(-1);\r
+ }\r
+ else\r
+ {\r
+ foreach($this->ImageMap as $Key => $Value)\r
+ fwrite($Handle, htmlentities($Value)."\r");\r
+ }\r
+ fclose ($Handle);\r
+ }\r
+\r
+ /* Convert seconds to a time format string */\r
+ function ToTime($Value)\r
+ {\r
+ $Hour = floor($Value/3600);\r
+ $Minute = floor(($Value - $Hour*3600)/60);\r
+ $Second = floor($Value - $Hour*3600 - $Minute*60);\r
+\r
+ if (strlen($Hour) == 1 ) { $Hour = "0".$Hour; }\r
+ if (strlen($Minute) == 1 ) { $Minute = "0".$Minute; }\r
+ if (strlen($Second) == 1 ) { $Second = "0".$Second; }\r
+\r
+ return($Hour.":".$Minute.":".$Second);\r
+ }\r
+\r
+ /* Convert to metric system */\r
+ function ToMetric($Value)\r
+ {\r
+ $Go = floor($Value/1000000000);\r
+ $Mo = floor(($Value - $Go*1000000000)/1000000);\r
+ $Ko = floor(($Value - $Go*1000000000 - $Mo*1000000)/1000);\r
+ $o = floor($Value - $Go*1000000000 - $Mo*1000000 - $Ko*1000);\r
+\r
+ if ($Go != 0) { return($Go.".".$Mo."g"); }\r
+ if ($Mo != 0) { return($Mo.".".$ko."m"); }\r
+ if ($Ko != 0) { return($Ko.".".$o)."k"; }\r
+ return($o);\r
+ }\r
+\r
+ /* Set date format for axis labels */\r
+ function setDateFormat($Format)\r
+ {\r
+ $this->DateFormat = $Format;\r
+ }\r
+\r
+ /* Convert TS to a date format string */\r
+ function ToDate($Value)\r
+ {\r
+ return(date($this->DateFormat,$Value));\r
+ }\r
+ }\r
+\r
+ function RaiseFatal($Message)\r
+ {\r
+ echo "[FATAL] ".$Message."\r\n";\r
+ exit();\r
+ }\r
+?>\r
--- /dev/null
+<?php\r
+ /*\r
+ pData - Simplifying data population for pChart\r
+ Copyright (C) 2008 Jean-Damien POGOLOTTI\r
+ Version 1.13 last updated on 08/17/08\r
+\r
+ http://pchart.sourceforge.net\r
+\r
+ This program is free software: you can redistribute it and/or modify\r
+ it under the terms of the GNU General Public License as published by\r
+ the Free Software Foundation, either version 1,2,3 of the License, or\r
+ (at your option) any later version.\r
+\r
+ This program is distributed in the hope that it will be useful,\r
+ but WITHOUT ANY WARRANTY; without even the implied warranty of\r
+ MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the\r
+ GNU General Public License for more details.\r
+\r
+ You should have received a copy of the GNU General Public License\r
+ along with this program. If not, see <http://www.gnu.org/licenses/>.\r
+\r
+ Class initialisation :\r
+ pData()\r
+ Data populating methods :\r
+ ImportFromCSV($FileName,$Delimiter=",",$DataColumns=-1,$HasHeader=FALSE,$DataName=-1)\r
+ AddPoint($Value,$Serie="Serie1",$Description="")\r
+ Series manipulation methods :\r
+ AddSerie($SerieName="Serie1")\r
+ AddAllSeries()\r
+ RemoveSerie($SerieName="Serie1")\r
+ SetAbsciseLabelSerie($SerieName = "Name")\r
+ SetSerieName($Name,$SerieName="Serie1")\r
+ + SetSerieSymbol($Name,$Symbol)\r
+ SetXAxisName($Name="X Axis")\r
+ SetYAxisName($Name="Y Axis")\r
+ SetXAxisFormat($Format="number")\r
+ SetYAxisFormat($Format="number")\r
+ SetXAxisUnit($Unit="")\r
+ SetYAxisUnit($Unit="")\r
+ removeSerieName($SerieName)\r
+ removeAllSeries()\r
+ Data retrieval methods :\r
+ GetData()\r
+ GetDataDescription()\r
+ */\r
+\r
+ /* pData class definition */\r
+ class pData\r
+ {\r
+ var $Data;\r
+ var $DataDescription;\r
+\r
+ function pData()\r
+ {\r
+ $this->Data = "";\r
+ $this->DataDescription = "";\r
+ $this->DataDescription["Position"] = "Name";\r
+ $this->DataDescription["Format"]["X"] = "number";\r
+ $this->DataDescription["Format"]["Y"] = "number";\r
+ $this->DataDescription["Unit"]["X"] = NULL;\r
+ $this->DataDescription["Unit"]["Y"] = NULL;\r
+ }\r
+\r
+ function ImportFromCSV($FileName,$Delimiter=",",$DataColumns=-1,$HasHeader=FALSE,$DataName=-1)\r
+ {\r
+ $handle = @fopen($FileName,"r");\r
+ if ($handle)\r
+ {\r
+ $HeaderParsed = FALSE;\r
+ while (!feof($handle))\r
+ {\r
+ $buffer = fgets($handle, 4096);\r
+ $buffer = str_replace(chr(10),"",$buffer);\r
+ $buffer = str_replace(chr(13),"",$buffer);\r
+ $Values = split($Delimiter,$buffer);\r
+\r
+ if ( $buffer != "" )\r
+ {\r
+ if ( $HasHeader == TRUE && $HeaderParsed == FALSE )\r
+ {\r
+ if ( $DataColumns == -1 )\r
+ {\r
+ $ID = 1;\r
+ foreach($Values as $key => $Value)\r
+ { $this->SetSerieName($Value,"Serie".$ID); $ID++; }\r
+ }\r
+ else\r
+ {\r
+ $SerieName = "";\r
+\r
+ foreach($DataColumns as $key => $Value)\r
+ $this->SetSerieName($Values[$Value],"Serie".$Value);\r
+ }\r
+ $HeaderParsed = TRUE;\r
+ }\r
+ else\r
+ {\r
+ if ( $DataColumns == -1 )\r
+ {\r
+ $ID = 1;\r
+ foreach($Values as $key => $Value)\r
+ { $this->AddPoint(intval($Value),"Serie".$ID); $ID++; }\r
+ }\r
+ else\r
+ {\r
+ $SerieName = "";\r
+ if ( $DataName != -1 )\r
+ $SerieName = $Values[$DataName];\r
+\r
+ foreach($DataColumns as $key => $Value)\r
+ $this->AddPoint($Values[$Value],"Serie".$Value,$SerieName);\r
+ }\r
+ }\r
+ }\r
+ }\r
+ fclose($handle);\r
+ }\r
+ }\r
+\r
+ function AddPoint($Value,$Serie="Serie1",$Description="")\r
+ {\r
+ if (is_array($Value) && count($Value) == 1)\r
+ $Value = $Value[0];\r
+\r
+ $ID = 0;\r
+ for($i=0;$i<=count($this->Data);$i++)\r
+ { if(isset($this->Data[$i][$Serie])) { $ID = $i+1; } }\r
+\r
+ if ( count($Value) == 1 )\r
+ {\r
+ $this->Data[$ID][$Serie] = $Value;\r
+ if ( $Description != "" )\r
+ $this->Data[$ID]["Name"] = $Description;\r
+ elseif (!isset($this->Data[$ID]["Name"]))\r
+ $this->Data[$ID]["Name"] = $ID;\r
+ }\r
+ else\r
+ {\r
+ foreach($Value as $key => $Val)\r
+ {\r
+ $this->Data[$ID][$Serie] = $Val;\r
+ if (!isset($this->Data[$ID]["Name"]))\r
+ $this->Data[$ID]["Name"] = $ID;\r
+ $ID++;\r
+ }\r
+ }\r
+ }\r
+\r
+ function AddSerie($SerieName="Serie1")\r
+ {\r
+ if ( !isset($this->DataDescription["Values"]) )\r
+ {\r
+ $this->DataDescription["Values"][] = $SerieName;\r
+ }\r
+ else\r
+ {\r
+ $Found = FALSE;\r
+ foreach($this->DataDescription["Values"] as $key => $Value )\r
+ if ( $Value == $SerieName ) { $Found = TRUE; }\r
+\r
+ if ( !$Found )\r
+ $this->DataDescription["Values"][] = $SerieName;\r
+ }\r
+ }\r
+\r
+ function AddAllSeries()\r
+ {\r
+ unset($this->DataDescription["Values"]);\r
+\r
+ if ( isset($this->Data[0]) )\r
+ {\r
+ foreach($this->Data[0] as $Key => $Value)\r
+ {\r
+ if ( $Key != "Name" )\r
+ $this->DataDescription["Values"][] = $Key;\r
+ }\r
+ }\r
+ }\r
+\r
+ function RemoveSerie($SerieName="Serie1")\r
+ {\r
+ if ( !isset($this->DataDescription["Values"]) )\r
+ return(0);\r
+\r
+ $Found = FALSE;\r
+ foreach($this->DataDescription["Values"] as $key => $Value )\r
+ {\r
+ if ( $Value == $SerieName )\r
+ unset($this->DataDescription["Values"][$key]);\r
+ }\r
+ }\r
+\r
+ function SetAbsciseLabelSerie($SerieName = "Name")\r
+ {\r
+ $this->DataDescription["Position"] = $SerieName;\r
+ }\r
+\r
+ function SetSerieName($Name,$SerieName="Serie1")\r
+ {\r
+ $this->DataDescription["Description"][$SerieName] = $Name;\r
+ }\r
+\r
+ function SetXAxisName($Name="X Axis")\r
+ {\r
+ $this->DataDescription["Axis"]["X"] = $Name;\r
+ }\r
+\r
+ function SetYAxisName($Name="Y Axis")\r
+ {\r
+ $this->DataDescription["Axis"]["Y"] = $Name;\r
+ }\r
+\r
+ function SetXAxisFormat($Format="number")\r
+ {\r
+ $this->DataDescription["Format"]["X"] = $Format;\r
+ }\r
+\r
+ function SetYAxisFormat($Format="number")\r
+ {\r
+ $this->DataDescription["Format"]["Y"] = $Format;\r
+ }\r
+\r
+ function SetXAxisUnit($Unit="")\r
+ {\r
+ $this->DataDescription["Unit"]["X"] = $Unit;\r
+ }\r
+\r
+ function SetYAxisUnit($Unit="")\r
+ {\r
+ $this->DataDescription["Unit"]["Y"] = $Unit;\r
+ }\r
+\r
+ function SetSerieSymbol($Name,$Symbol)\r
+ {\r
+ $this->DataDescription["Symbol"][$Name] = $Symbol;\r
+ }\r
+\r
+ function removeSerieName($SerieName)\r
+ {\r
+ if ( isset($this->DataDescription["Description"][$SerieName]) )\r
+ unset($this->DataDescription["Description"][$SerieName]);\r
+ }\r
+\r
+ function removeAllSeries()\r
+ {\r
+ foreach($this->DataDescription["Values"] as $Key => $Value)\r
+ unset($this->DataDescription["Values"][$Key]);\r
+ }\r
+\r
+ function GetData()\r
+ {\r
+ return($this->Data);\r
+ }\r
+\r
+ function GetDataDescription()\r
+ {\r
+ return($this->DataDescription);\r
+ }\r
+ }\r
+?>
\ No newline at end of file
--- /dev/null
+<?php
+$inc = "/var/www/html/Fsmon";
+
+include_once ("$inc/pChart/pData.class");
+include_once ("$inc/pChart/pChart.class");
+
+$fonts = "$inc/Fonts";
+
+// Dataset definition
+$DataSet = new pData;
+
+// Free first
+// $DataSet->AddPoint (0, "Free", 1);
+// $DataSet->AddPoint (0, "Used", 1);
+// $DataSet->AddPoint (70, "Free", 2);
+// $DataSet->AddPoint (30, "Used", 2);
+// $DataSet->AddPoint (80, "Free", 3);
+// $DataSet->AddPoint (20, "Used", 3);
+// $DataSet->AddPoint (90, "Free", 4);
+// $DataSet->AddPoint (10, "Used", 4);
+
+// Used first
+$DataSet->AddPoint (0, "Used", 1);
+$DataSet->AddPoint (70, "Used", 2);
+$DataSet->AddPoint (80, "Used", 3);
+$DataSet->AddPoint (90, "Used", 4);
+$DataSet->AddPoint (0, "Free", 1);
+$DataSet->AddPoint (30, "Free", 2);
+$DataSet->AddPoint (20, "Free", 3);
+$DataSet->AddPoint (10, "Free", 4);
+
+$DataSet->AddAllSeries();
+$DataSet->SetAbsciseLabelSerie();
+
+// Initialise the graph
+$Test = new pChart (700, 280);
+
+$Test->setColorPalette (1, 0, 255, 0);
+$Test->setColorPalette (0, 255, 0, 0);
+
+$Test->drawGraphAreaGradient (100, 150, 175, 100, TARGET_BACKGROUND);
+$Test->setFontProperties ("$fonts/tahoma.ttf", 8);
+$Test->setGraphArea (50, 30, 680, 200);
+$Test->drawRoundedRectangle (5, 5, 695, 275, 5, 230, 230, 230);
+$Test->drawGraphAreaGradient (162, 183, 202, 50);
+$Test->drawScale ($DataSet->GetData (), $DataSet->GetDataDescription (), SCALE_ADDALL, 200, 200, 200, true, 70, 2, true);
+$Test->drawGrid (4, true, 230, 230, 230, 50);
+
+// Draw the 0 line
+$Test->setFontProperties ("$fonts/tahoma.ttf", 6);
+$Test->drawTreshold (0, 143, 55, 72, true, true);
+
+// Draw the bar graph
+$Test->drawStackedBarGraph ($DataSet->GetData (), $DataSet->GetDataDescription (), 75);
+
+// Finish the graph
+$Test->setFontProperties ("$fonts/tahoma.ttf",8);
+$Test->drawLegend (610, 35, $DataSet->GetDataDescription (), 130, 180, 205);
+$Test->setFontProperties ("$fonts/tahoma.ttf", 10);
+$Test->drawTitle (50, 22, "$system:$mount", 255, 255, 255, 675);
+$Test->Stroke ();
+?>
\ No newline at end of file
--- /dev/null
+##############################################################################
+#
+# Name: CreateHelpDeskUI.pm
+#
+# Description: CreateHelpDeskUI.pm is a Perl module that encapsulates
+# a Perl/Tk application to create a Help Desk
+# ticket. This application was developed for a few
+# reasons. First ucmwb needs to be able to create Help
+# Desk tickets. The approach was to use IBM/Rational's
+# cqtool (/opt/rational/clearquest/bin/cqtool) but there
+# is two problems with this. First IBM/Rational's cqtool
+# is unsupported and documented. Secondly IBM/Rational's
+# cqtool is going away as of Clearquest 7.0.
+#
+# Another problem is that while IBM/Rational's cqtool
+# would work, it does not return the ID of the Help Desk ticket
+# created!
+#
+# So this Perl/Tk module was created to create Help Desk
+# tickets. Perl interfaces with Clearquest to call the
+# appropraite Clearquest action hooks and the like. Note
+# that only the basic information is asked for. If you
+# really want to create or modify a full Help Desk ticket
+# use Clearquest. This Perl/Tk app's main customer is
+# ucmwb.
+#
+# Author: Andrew@ClearSCM.com
+#
+# (c) Copyright 2007, General Dynamics, all rights reserved
+#
+##############################################################################
+use strict;
+use warnings;
+
+package CreateHelpDeskUI;
+ use Tk;
+ use Tk::Dialog;
+ use Tk::BrowseEntry;
+
+ use Display;
+ use Tk::MyText;
+ use CQTool;
+
+ use base "Exporter";
+
+ my $ME = "CreateHelpDesk";
+ my $VERSION = "1.1";
+
+ # Colors
+ my ($EDIT_FOREGROUND, $EDIT_BACKGROUND);
+
+ our %hd;
+
+ our @EXPORT = qw (
+ createHelpDeskUI
+ %hd
+ );
+
+ # Globals
+ my $_createHelpDeskUI;
+
+ # Dropdowns
+ my (
+ $_requestor,
+ $_location,
+ $_category,
+ $_related_version,
+ $_platform,
+ $_requestor_priority,
+ );
+
+ # Choice lists
+ my (
+ @_requestors,
+ @_locations,
+ @_categories,
+ @_related_versions,
+ @_platforms,
+ @_requested_priorities,
+ );
+
+ # Buttons
+ my $_submit;
+
+ ############################################################################
+ # Subroutines
+ ############################################################################
+
+ #---------------------------------------------------------------------------
+ # _helpAbout (): Puts up the Help: About dialog box
+ #---------------------------------------------------------------------------
+ sub _helpAbout () {
+ my $text = "$ME v$VERSION\n";
+
+ $text .= <<END;
+
+This application creates a Help Desk ticket using Perl/Tk. It is used by UCM/WB or can be used stand alone. It effectively replicates the functionality of Clearquest but 1) is blocking and 2) returns the RANCQ-# so that UCM/WB can determine the number of the newly created WOR.
+
+Copyright General Dynamics © 2007 - All rights reserved
+Developed by Andrew DeFaria <Andrew\@ClearSCM.com> of ClearSCM, Inc.
+END
+
+ my $desc = $_createHelpDeskUI->Dialog (
+ -title => "About $ME",
+ -text => $text,
+ -buttons => [ "OK" ],
+ );
+
+ $desc->Show;
+ } # _helpAbout
+
+ #---------------------------------------------------------------------------
+ # _displayValues (): Displays the contents for %hd hash
+ #---------------------------------------------------------------------------
+ sub _displayValues () {
+ foreach (keys %hd) {
+ if ($hd{$_}) {
+ display "$_: $hd{$_}";
+ } else {
+ display "$_: undef";
+ } # if
+ } # foreach
+ } # _displayValues
+
+ #---------------------------------------------------------------------------
+ # _getChoices (): For a given $entity and $fieldname, this routine returns
+ # the given choice list from Clearquest.
+ #---------------------------------------------------------------------------
+ sub _getChoices ($$) {
+ my ($entity, $fieldname) = @_;
+
+ return @{$entity->GetFieldChoiceList ($fieldname)};
+ } # _getChoices
+
+ #---------------------------------------------------------------------------
+ # _destroyHelpDeskUI (): Destroys the current HelpDesk UI recycling Tk
+ # objects
+ #---------------------------------------------------------------------------
+ sub _destroyHelpDeskUI () {
+ # Destroy all globals created
+ destroy $_submit;
+ destroy $_requestor;
+ destroy $_location;
+ destroy $_category;
+ destroy $_related_version;
+ destroy $_platform;
+ destroy $_requestor_priority;
+ destroy $_createHelpDeskUI;
+
+ $_requestor =
+ $_location =
+ $_category =
+ $_related_version =
+ $_platform =
+ $_requestor_priority =
+ $_submit =
+ $_createHelpDeskUI = undef;
+
+ %hd = ();
+ } # _destroyHelpDeskUI
+
+ #---------------------------------------------------------------------------
+ # _submit (): Actually creates the WOR given the filled out %hd hash.
+ #---------------------------------------------------------------------------
+ sub _submit () {
+ debug "Creating Help Desk Ticket...";
+
+ # Change requestor from a format of "lastname, firstname (badge)" -> badge
+ if ($hd{requestor} =~ /\((\w*)\)$/) {
+ $hd{requestor} = $1;
+ } # if
+
+ _displayValues if get_debug;
+
+ my $new_id = CQTool::submitHelpDesk ($CQTool::entity, %hd);
+
+ display $new_id if $new_id;
+
+ _destroyHelpDeskUI;
+
+ return $new_id;
+ } # _submit
+
+ #---------------------------------------------------------------------------
+ # _setSubmitButton (): Sets the submit button to active only if all required
+ # fields have values.
+ #---------------------------------------------------------------------------
+ sub _setSubmitButton (;$) {
+ my ($headline) = @_;
+
+ return if !$_submit;
+
+ # Check to see if we can activate the submit button
+ my $state = "normal";
+
+ foreach (@CQTool::hd_required_fields) {
+ if ($_ eq "headline") {
+ if (defined $headline) {
+ if ($headline eq "") {
+ $state = "disable";
+ last;
+ } else {
+ next;
+ } # if
+ } # if
+ } # if
+
+ if (!$hd{$_} or $hd{$_} eq "") {
+ $state = "disable";
+ last;
+ } # if
+ } # foreach
+
+ $_submit->configure (
+ -state => $state,
+ );
+ } # _setSubmitButton
+
+ #---------------------------------------------------------------------------
+ # _validateText (): Gets the text from the MyText widget and sets the submit
+ # button
+ #---------------------------------------------------------------------------
+ sub _validatetext {
+ my ($text) = @_;
+
+ $hd{description} = $text->get_text;
+ chomp $hd{description};
+
+ _setSubmitButton $text;
+
+ return 1;
+ } # _validatetext
+
+ #---------------------------------------------------------------------------
+ # _validateEntry (): Gets the text from the headline widget and sets the
+ # submit button
+ #---------------------------------------------------------------------------
+ sub _validateentry {
+ my ($entry) = @_;
+
+ _setSubmitButton $entry;
+
+ return 1;
+ } # _validateentry
+
+ #---------------------------------------------------------------------------
+ # _createDropDown (): Creates a dropdown widget in $parent in a grid at the
+ # $x, $y coordinates with a $label and a $value, using
+ # dropdown @values and a $refresh procedure.
+ #---------------------------------------------------------------------------
+ sub _createDropDown ($$$$$$@) {
+ my ($parent, $x, $y, $label, $refresh, $value, @values) = @_;
+
+ $parent->Label (
+ -width => length $label,
+ -text => "$label:",
+ )->grid (
+ -row => $x,
+ -column => $y,
+ -sticky => "e",
+ );
+
+ return $parent->Optionmenu (
+ -activeforeground => $EDIT_FOREGROUND,
+ -activebackground => $EDIT_BACKGROUND,
+ -command => \&$refresh,
+ -variable => $value,
+ -options => \@values,
+ )->grid (
+ -row => $x,
+ -column => $y + 1,
+ -sticky => "w",
+ );
+ } # _createDropDown
+
+ #---------------------------------------------------------------------------
+ # _createBrowseEntry (): Creates a dropdown like widget which drops down a
+ # scrollable list in $parent with a $label, $refresh
+ # procedure, setting $value with the choice from
+ # @values.
+ #---------------------------------------------------------------------------
+ sub _createBrowseEntry ($$$$$$@) {
+ my ($parent, $x, $y, $label, $refresh, $value, @values) = @_;
+
+ $parent->Label (
+ -width => length $label,
+ -text => "$label:",
+ )->grid (
+ -row => $x,
+ -column => $y,
+ -sticky => "e",
+ );
+
+ my $longest_item = 0;
+
+ foreach (@values) {
+ $longest_item = length $_ if length $_ > $longest_item;
+ } # if
+
+ my $browse_entry = $parent->BrowseEntry (
+ -browsecmd => \&$refresh,
+ -variable => $value,
+ -width => $longest_item,
+ )->grid (
+ -row => $x,
+ -column => $y + 1,
+ -sticky => "w",
+ );
+
+ my $i = 0;
+
+ foreach (@values) {
+ $browse_entry->insert ($i++, $_);
+ } # foreach
+
+ return $browse_entry;
+ } # _createBrowseEntry
+
+ #---------------------------------------------------------------------------
+ # _createTextField (): Creates a text field widget in $parent with a $label
+ # and a $value, using a $maxlen and a $validate
+ # procedure.
+ #---------------------------------------------------------------------------
+ sub _createTextField ($$$$$) {
+ my ($parent, $label, $value, $maxlen, $validate) = @_;
+
+ $parent->Label (
+ -text => "$label:",
+ -justify => "right",
+ -width => 10,
+ )->pack (
+ -side => "left",
+ -anchor => "e",
+ );
+
+ $parent->Entry (
+ -foreground => $EDIT_FOREGROUND,
+ -background => $EDIT_BACKGROUND,
+ -width => $maxlen,
+ -justify => "left",
+ -textvariable => $value,
+ -validate => "key",
+ -validatecommand => \&$validate,
+ )->pack (
+ -side => "left",
+ -padx => 5,
+ -anchor => "e",
+ );
+ } # _createTextField
+
+ #---------------------------------------------------------------------------
+ # _createText (): Creates a multiline text field widget in $parent with a
+ # $label and a $value, using the specified $rows and $cols
+ # and a $validate procedure.
+ #---------------------------------------------------------------------------
+ sub _createText ($$$$$$) {
+ my ($parent, $label, $value, $rows, $cols, $validate) = @_;
+
+ $parent->Label (
+ -text => "$label:",
+ -justify => "right",
+ -width => 10,
+ )->pack (
+ -side => "left",+
+ -anchor => "n",
+ -pady => 5,
+ );
+
+ $parent->MyText (
+ -foreground => $EDIT_FOREGROUND,
+ -background => $EDIT_BACKGROUND,
+ -height => $rows,
+ -width => $cols,
+ -modified => \&$validate,
+ -text => $value,
+ )->pack (
+ -side => "left",
+ -pady => 5,
+ -anchor => "s",
+ );
+ } # _createText
+
+ #---------------------------------------------------------------------------
+ # _createButton (): Creates a pushbutton widget in $parent with a $label and
+ # an $action.
+ #---------------------------------------------------------------------------
+ sub _createButton ($$$) {
+ my ($parent, $label, $action) = @_;
+
+ $parent->Button (
+ -activeforeground => $EDIT_FOREGROUND,
+ -activebackground => $EDIT_BACKGROUND,
+ -text => $label,
+ -width => length $label,
+ -command => \$action
+ )->pack (
+ -side => "left",
+ -padx => 5
+ );
+ } # _createButton
+
+ #---------------------------------------------------------------------------
+ # _changeDropDown (): Refreshes the values in the dropdown menu.
+ #---------------------------------------------------------------------------
+ sub _changeDropDown ($@) {
+ my ($dropdown, @values) = @_;
+
+ if ($dropdown) {
+ my $menu = $dropdown->menu;
+
+ if ($menu) {
+ $dropdown->menu->delete (0, "end");
+ } # if
+
+ $dropdown->addOptions (@values);
+ } # if
+ } # _changeDropDown
+
+ #---------------------------------------------------------------------------
+ # _refresh (): Refreshes the application by getting news values from
+ # Clearquest. Note a change in one dropdown may change others,
+ # so we re-get all of them through this procedure.
+ #---------------------------------------------------------------------------
+ sub _refresh () {
+ my $fieldname;
+
+ $fieldname = "category";
+ @_categories = _getChoices $CQTool::entity, $fieldname;
+ $hd{$fieldname} = $_categories[0] if !$hd{$fieldname};
+ $CQTool::entity->SetFieldValue ($fieldname, $hd{$fieldname});
+
+ $fieldname = "related_version";
+ @_related_versions = _getChoices $CQTool::entity, $fieldname;
+ $hd{$fieldname} = $_related_versions[0] if !$hd{$fieldname};
+ $CQTool::entity->SetFieldValue ($fieldname, $hd{$fieldname});
+
+ $fieldname = "platform";
+ @_platforms = _getChoices $CQTool::entity, $fieldname;
+ $hd{$fieldname} = $_platforms[0] if !$hd{$fieldname};
+ $CQTool::entity->SetFieldValue ($fieldname, $hd{$fieldname});
+
+ $fieldname = "requestedpriority";
+ @_requested_priorities = _getChoices $CQTool::entity, $fieldname;
+ $hd{$fieldname} = $_requested_priorities[0] if !$hd{$fieldname};
+ $CQTool::entity->SetFieldValue ($fieldname, $hd{$fieldname});
+
+ _changeDropDown $_category, @_categories;
+ _changeDropDown $_related_version, @_related_versions;
+ _changeDropDown $_platform, @_platforms;
+ _changeDropDown $_requestor_priority, @_requested_priorities;
+
+ _setSubmitButton;
+ } # _refresh
+
+ #---------------------------------------------------------------------------
+ # _getNames (): Translates an array of badge numbers into a hash of names
+ # as the key and badge numbers as the value.
+ #---------------------------------------------------------------------------
+ sub _getNames (@) {
+ my (@badges) = @_;
+
+ my %names;
+
+ foreach (@badges) {
+ my $query = $CQTool::session->BuildQuery ("users");
+
+ $query->BuildField ("fullname");
+
+ my $filter = $query->BuildFilterOperator ($CQPerlExt::CQ_BOOL_OP_AND);
+
+ # Clearquest requires values to be in an array
+ my @badge = $_;
+
+ $filter->BuildFilter ("login_name", $CQPerlExt::CQ_COMP_OP_EQ, \@badge);
+
+ my $result = $CQTool::session->BuildResultSet ($query);
+
+ $result->Execute;
+
+ my $status = $result->MoveNext;
+
+ my $fullname;
+
+ while ($status == $CQPerlExt::CQ_SUCCESS) {
+ $fullname = $result->GetColumnValue (1);
+ $status = $result->MoveNext;
+ } # while
+
+ $names{$fullname ? $fullname : "<unknown>"} = $_;
+ } # foreach
+
+ return %names;
+ } # _getNames
+
+ #---------------------------------------------------------------------------
+ # _darken (): Returns a slightly darker color than the passed in color
+ #---------------------------------------------------------------------------
+ sub _darken ($) {
+ my ($color) = @_;
+
+ # Get the RGB values
+ my ($r, $g, $b) = $_createHelpDeskUI->rgb($color);
+
+ # Set them to $DARKEN % of their previous values
+ my $DARKEN = .8;
+ my $rhex = sprintf "%x", $r * $DARKEN;
+ my $ghex = sprintf "%x", $g * $DARKEN;
+ my $bhex = sprintf "%x", $b * $DARKEN;
+
+ # Return a color string
+ return "\#$rhex$ghex$bhex";
+ } # _darken
+
+ #---------------------------------------------------------------------------
+ # _createHelpDeskUI (): This is the main and exported routine that creates
+ # and handles the entire Perl/Tk application for
+ # creating a Help Desk ticket.
+ #---------------------------------------------------------------------------
+ sub createHelpDeskUI () {
+ $_createHelpDeskUI = MainWindow->new;
+
+ $EDIT_FOREGROUND = $_createHelpDeskUI->optionGet ("foreground", "Foreground");
+ $EDIT_BACKGROUND = _darken ($_createHelpDeskUI->optionGet ("background", "Background"));
+
+ $hd{id} = "None" if !$hd{id};
+
+ $_createHelpDeskUI->title ("Submit Helpdesk $hd{id}");
+
+ my $frame0 = $_createHelpDeskUI->Frame->pack (-pady => 2);
+ my $frame1 = $_createHelpDeskUI->Frame->pack;
+ my $frame2 = $_createHelpDeskUI->Frame->pack;
+ my $frame3 = $_createHelpDeskUI->Frame->pack;
+ my $frame4 = $_createHelpDeskUI->Frame->pack;
+ my $frame5 = $_createHelpDeskUI->Frame->pack;
+ my $frame6 = $_createHelpDeskUI->Frame->pack;
+
+ _createTextField
+ $frame1,
+ "Headline",
+ \$hd{headline},
+ 100,
+ \&_validateentry;
+
+ _createText
+ $frame2,
+ "Description",
+ \$hd{description},
+ 24, 100,
+ \&_validatetext;
+
+ @_categories = _getChoices $CQTool::entity, "category";
+ @_related_versions = _getChoices $CQTool::entity, "related_version";
+ @_platforms = _getChoices $CQTool::entity, "platform";
+ @_requested_priorities = _getChoices $CQTool::entity, "requestedpriority";
+ @_requestors = _getChoices $CQTool::entity, "requestor";
+
+ my %requestor_names = _getNames @_requestors;
+
+ @_requestors = ();
+
+ foreach (sort keys %requestor_names) {
+ if ($_ eq "") {
+ push @_requestors, "";
+ } else {
+ push @_requestors, "$_ ($requestor_names{$_})";
+ } # if
+ } # foreach
+
+ @_locations = _getChoices $CQTool::entity, "requestorlocation";
+
+ $_requestor = _createBrowseEntry
+ $frame3,
+ 0, 0,
+ "Requestor",
+ \&_refresh,
+ \$hd{requestor},
+ @_requestors;
+ $_location = _createDropDown
+ $frame3,
+ 0, 3,
+ "Location",
+ \&_refresh,
+ \$hd{location},
+ @_locations;
+
+ $_category = _createDropDown
+ $frame4,
+ 0, 0,
+ "Category",
+ \&_refresh,
+ \$hd{category},
+ @_categories;
+ $_related_version = _createDropDown
+ $frame4,
+ 0, 3,
+ "Related Version",
+ \&_refresh,
+ \$hd{related_version},
+ @_related_versions;
+
+ $_platform = _createDropDown
+ $frame5,
+ 0, 0,
+ "Platform",
+ \&_refresh,
+ \$hd{platform},
+ @_platforms;
+ $_requestor_priority = _createDropDown
+ $frame5,
+ 0, 3,
+ "Requested Priority",
+ \&_refresh,
+ \$hd{requestedpriority},
+ @_requested_priorities;
+
+ $_submit = _createButton $frame6, "Submit", \&_submit;
+
+ $_submit->configure (
+ -state => "disabled",
+ );
+
+ _createButton $frame6, "Display", \&_displayValues if (get_debug);
+ _createButton $frame6, "About", \&_helpAbout;
+ _createButton $frame6, "Exit", sub { _destroyHelpDeskUI };
+ } # createHelpDeskUI
+
+1;
--- /dev/null
+##############################################################################
+#
+# Name: CreateWORUI.pm
+#
+# Description: CreateWORUI.pm is a Perl module that encapsulates a
+# Perl/Tk application to create a WOR. This application
+# was developed for a few reasons. First ucmwb needs to
+# be able to create WORs. The approach was to use
+# IBM/Rational's cqtool
+# (/opt/rational/clearquest/bin/cqtool) but there is two
+# problems with this. First IBM/Rational's cqtool is
+# unsupported and documented. Secondly IBM/Rational's
+# cqtool is going away as of Clearquest 7.0.
+#
+# Another problem is that while IBM/Rational's cqtool
+# would work, it does not return the ID of the WOR
+# created!
+#
+# So this Perl/Tk module was created to create WORs. Perl
+# interfaces with Clearquest to call the appropraite
+# Clearquest action hooks and the like. Note that only
+# the basic information is asked for. If you really want
+# to create or modify a full WOR use Clearquest. This
+# Perl/Tk app's main customer is ucmwb.
+#
+# Author: Andrew@ClearSCM.com
+#
+# (c) Copyright 2007, General Dynamics, all rights reserved
+#
+##############################################################################
+use strict;
+use warnings;
+
+package CreateWORUI;
+ use Tk;
+ use Tk::Dialog;
+ use Tk::MyText;
+
+ use Display;
+ use CQTool;
+
+ use base "Exporter";
+
+ my $ME = "CreateWOR";
+ my $VERSION = "1.1";
+
+ # Colors
+ my ($EDIT_FOREGROUND, $EDIT_BACKGROUND);
+
+ our %wor;
+
+ our @EXPORT = qw (
+ createWORUI
+ %wor
+ );
+
+ # Globals
+ my $_createWORUI;
+
+ # Dropdowns
+ my (
+ $_projects,
+ $_rclcs,
+ $_prod_arch1s,
+ $_prod_arch2s,
+ $_engr_targets,
+ $_work_codes,
+ $_work_products,
+ $_wor_classes,
+ );
+
+ # Choice lists
+ my (
+ @_projects,
+ @_rclcs,
+ @_prod_arch1s,
+ @_prod_arch2s,
+ @_engr_targets,
+ @_work_codes,
+ @_work_products,
+ @_wor_classes,
+ );
+
+ # Buttons
+ my $_submit;
+
+ ############################################################################
+ # Subroutines
+ ############################################################################
+
+ #---------------------------------------------------------------------------
+ # _helpAbout (): Puts up the Help: About dialog box
+ #---------------------------------------------------------------------------
+ sub _helpAbout () {
+ my $text = "$ME v$VERSION\n";
+
+ $text .= <<END;
+
+This application creates a WOR using Perl/Tk. It is used by UCM/WB or can be used stand alone. It effectively replicates the functionality of Clearquest but 1) is blocking and 2) returns the RANCQ # so that UCM/WB can determine the number of the newly created WOR.
+
+Copyright General Dynamics © 2007 - All rights reserved
+Developed by Andrew DeFaria <Andrew\@ClearSCM.com> of ClearSCM, Inc.
+END
+
+ my $desc = $_createWORUI->Dialog (
+ -title => "About $ME",
+ -text => $text,
+ -buttons => [ "OK" ],
+ );
+
+ $desc->Show ();
+ } # _helpAbout
+
+ #---------------------------------------------------------------------------
+ # _displayValues (): Displays the contents for %wor hash
+ #---------------------------------------------------------------------------
+ sub _displayValues () {
+ foreach (keys %wor) {
+ if ($wor{$_}) {
+ display ("$_: $wor{$_}");
+ } else {
+ display ("$_: undef");
+ } # if
+ } # foreach
+ } # _displayValues
+
+ #---------------------------------------------------------------------------
+ # _getChoices (): For a given $entity and $fieldname, this routine returns
+ # the given choice list from Clearquest.
+ #---------------------------------------------------------------------------
+ sub _getChoices ($$) {
+ my ($entity, $fieldname) = @_;
+
+ return @{$entity->GetFieldChoiceList ($fieldname)};
+ } # _getChoices
+
+ #---------------------------------------------------------------------------
+ # _destroyCreateWORUI (): Destroys the current WOR UI recycling Tk objects
+ #---------------------------------------------------------------------------
+ sub _destroyCreateWORUI () {
+ # Destroy all globals created
+ destroy $_submit;
+ destroy $_projects;
+ destroy $_rclcs;
+ destroy $_prod_arch1s;
+ destroy $_prod_arch2s;
+ destroy $_engr_targets;
+ destroy $_work_codes;
+ destroy $_work_products;
+ destroy $_createWORUI;
+
+ $_submit =
+ $_projects =
+ $_rclcs =
+ $_prod_arch1s =
+ $_prod_arch2s =
+ $_engr_targets =
+ $_work_codes =
+ $_work_products =
+ $_wor_classes =
+ $_createWORUI = undef;
+
+ %wor = ();
+ } # _destroyCreateWORUI
+
+ #---------------------------------------------------------------------------
+ # _submit (): Actually creates the WOR given the filled out %wor hash.
+ #---------------------------------------------------------------------------
+ sub _submit () {
+ debug "Creating WOR...";
+ _displayValues if get_debug;
+ my $new_id = CQTool::submitWOR ($CQTool::entity, %wor);
+
+ display ($new_id) if $new_id;
+
+ _destroyCreateWORUI;
+
+ return $new_id;
+ } # _submit
+
+ #---------------------------------------------------------------------------
+ # _setSubmitButton (): Sets the submit button to active only if all required
+ # fields have values.
+ #---------------------------------------------------------------------------
+ sub _setSubmitButton (;$) {
+ my ($headline) = @_;
+
+ return if !$_submit;
+
+ # Check to see if we can activate the submit button
+ my $state = "normal";
+
+ foreach (@CQTool::wor_required_fields) {
+ if ($_ eq "headline") {
+ if (defined $headline) {
+ if ($headline eq "") {
+ $state = "disable";
+ last;
+ } else {
+ next;
+ } # if
+ } # if
+ } # if
+
+ if (!$wor{$_} or $wor{$_} eq "") {
+ $state = "disable";
+ last;
+ } # if
+ } # foreach
+
+ $_submit->configure (
+ -state => $state,
+ );
+ } # _setSubmitButton
+
+ #---------------------------------------------------------------------------
+ # _validateText (): Gets the text from the MyText widget and sets the submit
+ # button
+ #---------------------------------------------------------------------------
+ sub _validateText {
+ my ($text) = @_;
+
+ $wor{description} = $text->get_text;
+ chomp $wor{description};
+
+ _setSubmitButton $text;
+
+ return 1;
+ } # _validateText
+
+ #---------------------------------------------------------------------------
+ # _validateEntry (): Gets the text from the headline widget and sets the
+ # submit button
+ #---------------------------------------------------------------------------
+ sub _validateEntry {
+ my ($entry) = @_;
+
+ _setSubmitButton $entry;
+
+ return 1;
+ } # _validateEntry
+
+ #---------------------------------------------------------------------------
+ # _createDropDown (): Creates a dropdown widget in $parent in a grid at the
+ # $x, $y coordinates with a $label and a $value, using
+ # dropdown @values and a $refresh procedure.
+ #---------------------------------------------------------------------------
+ sub _createDropDown ($$$$$$@) {
+ my ($parent, $x, $y, $label, $refresh, $value, @values) = @_;
+
+ $parent->Label (
+ -width => length $label,
+ -text => "$label:",
+ )->grid (
+ -row => $x,
+ -column => $y,
+ -sticky => "e",
+ );
+
+ # Color the active foreground otherwise it's defaulted to ugly grey!
+ return $parent->Optionmenu (
+ -activeforeground => $EDIT_FOREGROUND,
+ -activebackground => $EDIT_BACKGROUND,
+ -command => \&$refresh,
+ -variable => $value,
+ -options => \@values,
+ )->grid (
+ -row => $x,
+ -column => $y + 1,
+ -sticky => "w",
+ );
+ } # _createDropDown
+
+ #---------------------------------------------------------------------------
+ # _createTextField (): Creates a text field widget in $parent with a $label
+ # and a $value, using a $maxlen and a $validate
+ # procedure.
+ #---------------------------------------------------------------------------
+ sub _createTextField ($$$$$) {
+ my ($parent, $label, $value, $maxlen, $validate) = @_;
+
+ $parent->Label (
+ -text => "$label:",
+ -justify => "right",
+ -width => 10,
+ )->pack (
+ -side => "left",
+ -anchor => "e",
+ );
+
+ $parent->Entry (
+ -foreground => $EDIT_FOREGROUND,
+ -background => $EDIT_BACKGROUND,
+ -width => $maxlen,
+ -justify => "left",
+ -textvariable => $value,
+ -validate => "key",
+ -validatecommand => \&$validate,
+ )->pack (
+ -side => "left",
+ -padx => 5,
+ -anchor => "e",
+ );
+ } # _createTextField
+
+ #---------------------------------------------------------------------------
+ # _createText (): Creates a multiline text field widget in $parent with a
+ # $label and a $value, using the specified $rows and $cols
+ # and a $validate procedure.
+ #---------------------------------------------------------------------------
+ sub _createText ($$$$$$) {
+ my ($parent, $label, $value, $rows, $cols, $validate) = @_;
+
+ $parent->Label (
+ -text => "$label:",
+ -justify => "right",
+ -width => 10,
+ )->pack (
+ -side => "left",+
+ -anchor => "n",
+ -pady => 5,
+ );
+
+ $parent->MyText (
+ -foreground => $EDIT_FOREGROUND,
+ -background => $EDIT_BACKGROUND,
+ -height => $rows,
+ -width => $cols,
+ -modified => \&$validate,
+ -text => $value,
+ )->pack (
+ -side => "left",
+ -pady => 5,
+ -anchor => "s",
+ );
+ } # _createText
+
+ #---------------------------------------------------------------------------
+ # _createButton (): Creates a pushbutton widget in $parent with a $label and
+ # an $action.
+ #---------------------------------------------------------------------------
+ sub _createButton ($$$) {
+ my ($parent, $label, $action) = @_;
+
+ $parent->Button (
+ -activeforeground => $EDIT_FOREGROUND,
+ -activebackground => $EDIT_BACKGROUND,
+ -text => $label,
+ -width => length $label,
+ -command => \$action
+ )->pack (
+ -side => "left",
+ -padx => 5
+ );
+ } # _createButton
+
+ #---------------------------------------------------------------------------
+ # _changeDropDown (): Refreshes the values in the dropdown menu.
+ #---------------------------------------------------------------------------
+ sub _changeDropDown ($@) {
+ my ($dropdown, @values) = @_;
+
+ if ($dropdown) {
+ my $menu = $dropdown->menu;
+
+ if ($menu) {
+ $dropdown->menu->delete (0, "end");
+ } # if
+
+ $dropdown->addOptions (@values);
+ } # if
+ } # _changeDropDown
+
+ #---------------------------------------------------------------------------
+ # _refresh (): Refreshes the application by getting news values from
+ # Clearquest. Note a change in one dropdown may change others,
+ # so we re-get all of them through this procedure.
+ #---------------------------------------------------------------------------
+ sub _refresh () {
+ my $fieldname;
+
+ $fieldname = "project";
+ my %projects = CQTool::getProjects $CQTool::session;
+ $wor{$fieldname} = $_projects[0] if !$wor{fieldname};
+ $CQTool::entity->SetFieldValue ($fieldname, $wor{$fieldname});
+
+ $fieldname = "prod_arch1";
+ @_prod_arch1s = _getChoices $CQTool::entity, $fieldname;
+ $wor{$fieldname} = $_prod_arch1s[0] if !$wor{$fieldname};
+ $CQTool::entity->SetFieldValue ($fieldname, $wor{$fieldname});
+
+ $fieldname = "prod_arch2";
+ @_prod_arch2s = _getChoices $CQTool::entity, $fieldname;
+ $wor{$fieldname} = $_prod_arch2s[0] if !$wor{$fieldname};
+ $CQTool::entity->SetFieldValue ($fieldname, $wor{$fieldname});
+
+ $fieldname = "rclc_name";
+ @_rclcs = @{$projects{$wor{project}}};
+ $wor{$fieldname} = $_rclcs[0] if !$wor{$fieldname};
+ $CQTool::entity->SetFieldValue ($fieldname, $wor{$fieldname});
+
+ $fieldname = "engr_target";
+ @_engr_targets = _getChoices $CQTool::entity, $fieldname;
+ $wor{$fieldname} = $_engr_targets[0] if !$wor{$fieldname};
+ $CQTool::entity->SetFieldValue ($fieldname, $wor{$fieldname});
+
+ $fieldname = "work_code_name";
+ @_work_codes = _getChoices $CQTool::entity, $fieldname;
+ $wor{$fieldname} = $_work_codes[0] if !$wor{$fieldname};
+ $CQTool::entity->SetFieldValue ($fieldname, $wor{$fieldname});
+
+ $fieldname = "work_product_name";
+ @_work_products = _getChoices $CQTool::entity, $fieldname;
+ $wor{$fieldname} = $_work_products[0] if !$wor{$fieldname};
+ $CQTool::entity->SetFieldValue ($fieldname, $wor{$fieldname});
+
+ _changeDropDown ($_projects, keys %projects);
+ _changeDropDown ($_rclcs, @_rclcs);
+ _changeDropDown ($_prod_arch1s, @_prod_arch1s);
+ _changeDropDown ($_prod_arch2s, @_prod_arch2s);
+ _changeDropDown ($_engr_targets, @_engr_targets);
+ _changeDropDown ($_work_codes, @_work_codes);
+ _changeDropDown ($_work_products, @_work_products);
+
+ _setSubmitButton ();
+ } # _refresh
+
+ #---------------------------------------------------------------------------
+ # _darken (): Returns a slightly darker color than the passed in color
+ #---------------------------------------------------------------------------
+ sub _darken ($) {
+ my ($color) = @_;
+
+ # Get the RGB values
+ my ($r, $g, $b) = $_createWORUI->rgb($color);
+
+ # Set them to $DARKEN % of their previous values
+ my $DARKEN = .8;
+ my $rhex = sprintf "%x", $r * $DARKEN;
+ my $ghex = sprintf "%x", $g * $DARKEN;
+ my $bhex = sprintf "%x", $b * $DARKEN;
+
+ # Return a color string
+ return "\#$rhex$ghex$bhex";
+ } # _darken
+
+ #---------------------------------------------------------------------------
+ # createWORUI (): This is the main and exported routine that creates and
+ # handles the entire Perl/Tk application for creating a
+ # WOR.
+ #---------------------------------------------------------------------------
+ sub createWORUI () {
+ $_createWORUI = MainWindow->new;
+
+ $EDIT_FOREGROUND = $_createWORUI->optionGet ("foreground", "Foreground");
+ $EDIT_BACKGROUND = _darken ($_createWORUI->optionGet ("background", "Background"));
+
+ $wor{id} = "None" if !$wor{id};
+
+ $_createWORUI->title ("Submit WOR $wor{id}");
+
+ my $frame0 = $_createWORUI->Frame->pack (-pady => 2);
+ my $frame1 = $_createWORUI->Frame->pack;
+ my $frame2 = $_createWORUI->Frame->pack;
+ my $frame3 = $_createWORUI->Frame->pack;
+ my $frame4 = $_createWORUI->Frame->pack;
+
+ _createTextField (
+ $frame1,
+ "Headline",
+ \$wor{headline},
+ 100,
+ \&_validateEntry
+ );
+
+ _createText (
+ $frame2,
+ "Description",
+ \$wor{description},
+ 24, 100,
+ \&_validateText
+ );
+
+ my %projects = CQTool::getProjects ($CQTool::session);
+ @_projects = keys %projects;
+
+ $_projects = _createDropDown (
+ $frame3,
+ 0, 0,
+ "Project",
+ \&_refresh,
+ \$wor{project},
+ @_projects
+ );
+ $_rclcs = _createDropDown (
+ $frame3,
+ 0, 3,
+ "Revision Control Life Cycle",
+ \&_refresh,
+ \$wor{rclc_name},
+ @_rclcs
+ );
+
+ $_prod_arch1s = _createDropDown (
+ $frame3,
+ 2, 0,
+ "Product Architecture 1",
+ \&_refresh,
+ \$wor{prod_arch1},
+ @_prod_arch1s
+ );
+ $_engr_targets = _createDropDown (
+ $frame3,
+ 2, 3,
+ "Engineering Target",
+ \&_refresh,
+ \$wor{engr_target},
+ @_engr_targets
+ );
+
+ $_prod_arch2s = _createDropDown (
+ $frame3,
+ 4, 0,
+ "Product Architecture 2",
+ \&_refresh,
+ \$wor{prod_arch2},
+ @_prod_arch2s
+ );
+ $_work_codes = _createDropDown (
+ $frame3,
+ 4, 3,
+ "Work Code",
+ \&_refresh,
+ \$wor{work_code_name},
+ @_work_codes
+ );
+
+ $_work_products = _createDropDown (
+ $frame3,
+ 6, 0,
+ "Work Product",
+ \&_refresh,
+ \$wor{work_product_name},
+ @_work_products
+ );
+
+ my $fieldname = "wor_class";
+ @_wor_classes = _getChoices $CQTool::entity, $fieldname;
+ $wor{$fieldname} = "Worker";
+ $CQTool::entity->SetFieldValue ($fieldname, $wor{$fieldname});
+
+ $_wor_classes = _createDropDown (
+ $frame3,
+ 6, 3,
+ "WOR Class",
+ sub {},
+ \$wor{wor_class},
+ @_wor_classes
+ );
+
+ # Default WOR Class to Worker
+ $_wor_classes->setOption ("Worker");
+
+ $_submit = _createButton ($frame4, "Submit", \&_submit);
+
+ $_submit->configure (
+ -state => "disabled",
+ );
+
+ _createButton ($frame4, "Display", \&_displayValues) if (get_debug);
+ _createButton ($frame4, "About", \&_helpAbout);
+ _createButton ($frame4, "Exit", \&_destroyCreateWORUI);
+ } # createWORUI
+
+1;
--- /dev/null
+#!/usr/bin/env /opt/rational/clearquest/bin/cqperl\r
+##############################################################################\r
+#\r
+# Name: cqtool\r
+#\r
+# Description: cqtool is an interface to Clearquest to perform some simple\r
+# actions to the RANCQ database. It is used primarily by ucmwb\r
+# but it also supports a command line interface.\r
+#\r
+# The following commands are supported:\r
+#\r
+# activate <wor> <project> <est_hours> <startdate> <enddate>:\r
+# Activate WOR\r
+# assign <wor> <assignee> <project> <planned_hours> <startdate>:\r
+# Assign the WOR\r
+# clone <wor>:\r
+# Clones a WOR\r
+# comment <wor> <comment>\r
+# Add a comment to the Notes_Entry field for the WOR\r
+# complete <wor> <actual_hours>:\r
+# Complete WOR\r
+# createhd:\r
+# Create a new Help Desk Ticket\r
+# createwor:\r
+# Create a new WOR\r
+# effort <wor> <hours>:\r
+# Update the WOR's actual hours\r
+# exit|quit:\r
+# Exits cqtool\r
+# help:\r
+# This display\r
+# link <parent wor> <child wor>:\r
+# Link a parent WOR to a child WOR\r
+# resolve <wor>:\r
+# Resolve WOR\r
+# set <wor> <field> <value>\r
+# Set <field> to <value> for the <wor>\r
+# usage:\r
+# Displays command line usage\r
+# version:\r
+# Displays version of cqtool\r
+#\r
+# Many of these commands simply perform actions on a wor. Two\r
+# of these commands, createwor and createhd have Perl/Tk GUI\r
+# interfaces.\r
+#\r
+# Command line usage:\r
+#\r
+# Usage: cqtool\t[-usage|help] [-verbose] [-debug]\r
+# [-userid <user>] [-password <password>] [<command>]\r
+#\r
+# Where:\r
+#\r
+# -usage|help: Display usage\r
+# -verbose: Turn on verbose mode\r
+# -debug: Turn on debug mode\r
+# -userid: User ID to log into Clearquest database as\r
+# -password: Password to use\r
+# <command> If specified then cqtool executes <command> and\r
+# exits\r
+#\r
+# Environment: cqtool supports the following environment variables\r
+# that are used mostly for tesing purposes\r
+#\r
+# CQ_DBSET: Clearquest DBSET to open (e.g. XTST3 for testing -\r
+# default RANCQ) \r
+# CQ_USER: User name to log into the $CQ_DBSET database with\r
+# CQ_PASSWORD: Password to use to log into the $CQ_DBSET with.\r
+#\r
+# Author: Andrew@DeFaria.com\r
+#\r
+# (c) Copyright 2007, General Dynamics, all rights reserved\r
+#\r
+##############################################################################\r
+use strict;\r
+use warnings;\r
+\r
+use CQPerlExt;\r
+use FindBin;\r
+use Getopt::Long;\r
+use Term::ANSIColor qw (:constants);\r
+\r
+use lib ("$FindBin::Bin", "$FindBin::Bin/../lib");\r
+\r
+use SCCM::Misc;\r
+use Display;\r
+use CQTool;\r
+use CreateWORUI;\r
+use CreateHelpDeskUI;\r
+use Logger;\r
+\r
+my $VERSION = BOLD GREEN . "1.1" . RESET;\r
+my $PROMPT = BOLD YELLOW . ">>" . RESET;\r
+my $UCMWB_PROMPT = ">>";\r
+my $DESC = BOLD RED . "$FindBin::Script" .\r
+ RESET " Version " .\r
+ $VERSION .\r
+ CYAN ": Program to talk to Clearquest" .\r
+ RESET;\r
+\r
+# Globals\r
+my $_userid = $ENV{CQ_USER} ? $ENV{CQ_USER} : $ENV{USER};\r
+my $_password = $ENV{CQ_PASSWORD};\r
+my $_db_name = $ENV{CQ_DBSET} ? $ENV{CQ_DBSET} : "RANCQ";\r
+my $_ucmwb;\r
+\r
+my $_log;\r
+\r
+if (get_debug) {\r
+ $_log = new Logger (\r
+ path => "/tmp",\r
+ append => 1,\r
+ );\r
+} # if\r
+\r
+my %_commands = (\r
+ activate => \&activate,\r
+ assign => \&assign,\r
+ clone => \&clone,\r
+ comment => \&comment,\r
+ complete => \&complete,\r
+ createhd => \&createHelpDesk,\r
+ createwor => \&createWOR,\r
+ effort => \&effort,\r
+ exit => \&shutdown,\r
+ help => \&help,\r
+ link => \&linkParentWor2ChildWor,\r
+ quit => \&shutdown,\r
+ resolve => \&resolve,\r
+ set => \&set,\r
+ usage => \&usage,\r
+ version => \&announce,\r
+);\r
+\r
+##############################################################################\r
+# Forwards\r
+##############################################################################\r
+sub commandLoop (@);\r
+\r
+##############################################################################\r
+# Main\r
+##############################################################################\r
+MAIN: {\r
+ GetOptions (\r
+ "usage" => sub { usage () },\r
+ "verbose" => sub { set_verbose () },\r
+ "debug" => sub { set_debug () },\r
+ "userid=s" => \$_userid,\r
+ "password=s" => \$_password,\r
+ "database=s" => \$_db_name,\r
+ "ucmwb" => \$_ucmwb,\r
+ ) || usage ();\r
+\r
+ exit (commandLoop(@ARGV));\r
+} # MAIN\r
+\r
+##############################################################################\r
+# Subroutines\r
+##############################################################################\r
+\r
+#-----------------------------------------------------------------------------\r
+# shutdown (): Ends program\r
+#-----------------------------------------------------------------------------\r
+sub shutdown () {\r
+ exit (0);\r
+} # exit\r
+\r
+#-----------------------------------------------------------------------------\r
+# help (): Displays help\r
+#-----------------------------------------------------------------------------\r
+sub help () {\r
+ display ($DESC);\r
+ display <<END;\r
+\r
+Valid commands are:\r
+\r
+activate <wor> <project> <est_hours> <startdate> <enddate>:\r
+ Activate WOR\r
+assign <wor> <assignee> <project> <planned_hours> <startdate>:\r
+ Assign the WOR\r
+clone <wor>:\r
+ Clones a WOR\r
+comment <wor> <comment>\r
+ Add a comment to the Notes_Entry field for the WOR\r
+complete <wor> <actual_hours>:\r
+ Complete WOR\r
+createhd:\r
+ Create a new Help Desk Ticket\r
+createwor:\r
+ Create a new WOR\r
+effort <wor> <hours>:\r
+ Update the WOR's actual hours\r
+exit|quit:\r
+ Exits $FindBin::Script\r
+help:\r
+ This display\r
+link <parent wor> <child wor>:\r
+ Link a parent WOR to a child WOR\r
+resolve <wor>:\r
+ Resolve WOR\r
+set <wor> <field> <value>\r
+ Set <field> to <value> for the <wor>\r
+usage:\r
+ Displays command line usage\r
+version:\r
+ Displays version of $FindBin::Script\r
+END\r
+} # help\r
+\r
+#-----------------------------------------------------------------------------\r
+# announce (): Announce ourselves\r
+#-----------------------------------------------------------------------------\r
+sub announce () {\r
+ display ($DESC);\r
+} # Announce\r
+\r
+#-----------------------------------------------------------------------------\r
+# dberror ($): Handle errors when talking to Clearquest. Note we need to reset\r
+# the database connection if an error happens.\r
+#-----------------------------------------------------------------------------\r
+sub dberror ($) {\r
+ my ($msg) = @_;\r
+\r
+ # Need to not only report the error but to reopen the\r
+ # database. Something gets corruppted if we don't!\r
+ error ($msg);\r
+\r
+ closeDB ();\r
+\r
+ openDB ($_userid, $_password, $_db_name);\r
+} # DBError\r
+\r
+#-----------------------------------------------------------------------------\r
+# getEntity ($$): Get an entity from Clearquest\r
+#-----------------------------------------------------------------------------\r
+sub getEntity ($$) {\r
+ my ($recordname, $wor) = @_;\r
+\r
+ my $entity;\r
+\r
+ eval {\r
+ $entity = $CQTool::session->GetEntity ($recordname, $wor);\r
+ };\r
+\r
+ if ($@) {\r
+ chomp $@;\r
+ dberror ($@);\r
+ return undef;\r
+ } else {\r
+ return $entity;\r
+ } # if\r
+} # getEntity\r
+\r
+#-----------------------------------------------------------------------------\r
+# set ($$$): Set $field to $value for $wor\r
+#-----------------------------------------------------------------------------\r
+sub set ($$@) {\r
+ my ($wor, $field, $value) = @_;\r
+\r
+ if (!$wor or $wor eq "") {\r
+ error ("WOR is required");\r
+ return 1;\r
+ } # if\r
+\r
+ if (!$field or $field eq "") {\r
+ error ("Field is required");\r
+ return 1;\r
+ } # if\r
+\r
+ my $entity = getEntity ("WOR", $wor);\r
+\r
+ return 1 if !$entity;\r
+\r
+ $session->EditEntity ($entity, "modify");\r
+\r
+ $_log->msg ("Modifying $field to \"$value\"") if get_debug;\r
+ eval {\r
+ $entity->SetFieldValue ($field, $value);\r
+ };\r
+\r
+ if ($@) {\r
+ dberror ("$field set failed for WOR $wor:\n$@");\r
+ return 2;\r
+ } # if\r
+\r
+ my $status = $entity->Validate ();\r
+\r
+ if ($status ne "") {\r
+ $entity->Revert ();\r
+ error ("$field validate failed for WOR $wor:\n$status");\r
+ return 2;\r
+ } # if\r
+\r
+ $status = $entity->Commit ();\r
+\r
+ if ($status ne "") {\r
+ error ("$field update failed during Submit for $wor:\n$status");\r
+ return 2;\r
+ } # if\r
+\r
+ return 0;\r
+} # set\r
+\r
+#-----------------------------------------------------------------------------\r
+# clone ($): Clone a WOR\r
+#-----------------------------------------------------------------------------\r
+sub clone ($) {\r
+ my ($wor) = @_;\r
+\r
+ if (!$wor) {\r
+ error ("WOR not specified!");\r
+ return 1;\r
+ } # if\r
+\r
+ $entity = getEntity ("WOR", $wor);\r
+\r
+ return 1 if !$entity;\r
+\r
+ # Check state\r
+ my $state = $entity->GetFieldValue ("state")->GetValue ();\r
+\r
+ if ($state ne "Closed") {\r
+ error ("WOR $wor not closed - Unable to clone!");\r
+ return 1;\r
+ } # if\r
+\r
+ verbose ("Cloning WOR $wor...");\r
+\r
+ my $result = 0;\r
+\r
+ eval {\r
+ # Currently Clone doesn't return a proper result but eventually...\r
+ $result = $CQTool::session->FireRecordScriptAlias ($entity, "Clone");\r
+ };\r
+\r
+ if ($@) {\r
+ chomp $@;\r
+ dberror ($@);\r
+ return 1;\r
+ } # if\r
+\r
+ return $result;\r
+} # clone\r
+\r
+#-----------------------------------------------------------------------------\r
+# effort ($$): Update actual hours for a WOR\r
+#-----------------------------------------------------------------------------\r
+sub effort ($$) {\r
+ my ($wor, $actualHrs) = @_;\r
+\r
+ return set $wor, "ActualEffort", $actualHrs;\r
+} # effort\r
+\r
+#-----------------------------------------------------------------------------\r
+# comment (): Update the Notes_Entry comment field for a WOR\r
+#-----------------------------------------------------------------------------\r
+sub comment ($) {\r
+ my ($wor) = @_;\r
+\r
+ if (!$wor) {\r
+ error "WOR not defined in call to comment!";\r
+ return 1;\r
+ } # if\r
+\r
+ if (!$_ucmwb) {\r
+ display ("Enter comments below. When finished, enter \".\" on a line by itself or hit ^D:");\r
+ } else {\r
+ # We still need to prompt for the comments however signal UCMWB\r
+ # that command is ready for more input.\r
+ display_nolf ($UCMWB_PROMPT);\r
+ } # if\r
+\r
+ my $comments;\r
+\r
+ while (<STDIN>) {\r
+ last if $_ eq ".\n";\r
+ $comments .= $_;\r
+ } # while\r
+\r
+ chomp $comments;\r
+\r
+ $_log->msg ("Comments:\n$comments") if get_debug;\r
+\r
+ return set $wor, "Note_Entry", $comments;\r
+} # Comment\r
+\r
+#-----------------------------------------------------------------------------\r
+# linkParentWor2ChildWor ($$): Link a child WOR to a parent WOR\r
+#-----------------------------------------------------------------------------\r
+sub linkParentWor2ChildWor ($$) {\r
+ my ($parentWor, $childWor) = @_;\r
+\r
+ my $status;\r
+\r
+ verbose ("Linking $parentWor -> $childWor...");\r
+\r
+ my $childentity = getEntity ("WOR", $childWor);\r
+ my $parententity = getEntity ("WOR", $parentWor);\r
+\r
+ return 1 unless $childentity and $parententity;\r
+\r
+ $session->EditEntity ($parententity, "modify");\r
+\r
+ $parententity->AddFieldValue ("wor_children", $childWor);\r
+\r
+ $status = $parententity->Validate ();\r
+\r
+ if ($status ne "") {\r
+ $parententity->Revert ();\r
+ error ("Validation failed while attempting to add child WOR $childWor to parent WOR $parentWor:\n$status");\r
+ return 1;\r
+ } # if\r
+\r
+ eval {\r
+ $status = $parententity->Commit ();\r
+ };\r
+\r
+ $status = $@ if $@;\r
+\r
+ if ($status ne "") {\r
+ (error "Commit failed while trying to add child WOR $childWor to parent WOR $parentWor:\n$status");\r
+ return 2;\r
+ } # if\r
+\r
+ debug "Modifying child $childWor...";\r
+ $session->EditEntity ($childentity, "modify");\r
+\r
+ $childentity->SetFieldValue ("wor_parent", $parentWor);\r
+\r
+ $status = $childentity->Validate ();\r
+\r
+ if ($status ne "") {\r
+ $childentity->Revert ();\r
+ error "Validation failed while attempting to add parent WOR $parentWor to child WOR $childWor:\n$status";\r
+ return 1;\r
+ } # if\r
+\r
+ eval {\r
+ $status = $childentity->Commit ();\r
+ };\r
+\r
+ $status = $@ if $@;\r
+\r
+ if ($status ne "") {\r
+ error "Commit failed while trying to add parent WOR $parentWor to child WOR $childWor:\n$status";\r
+ return 2;\r
+ } # if\r
+\r
+ return 0;\r
+} # linkParentWor2ChildWor\r
+\r
+#-----------------------------------------------------------------------------\r
+# assign ($$$$): Assign a WOR\r
+#-----------------------------------------------------------------------------\r
+sub assign ($$$$$) {\r
+ my ($wor, $assignee, $project, $plannedHrs, $startDate) = @_;\r
+\r
+ if (!$wor or $wor eq "") {\r
+ error ("WOR is required");\r
+ return 1;\r
+ } # if\r
+\r
+ if (!$assignee or $assignee eq "") {\r
+ error ("Assignee must be specified");\r
+ return 1;\r
+ } # if\r
+\r
+ if (!$project or $project eq "") {\r
+ error ("UCM Project is required");\r
+ return 1;\r
+ } # if\r
+\r
+ if (!$startDate or $startDate eq "") {\r
+ error ("Planned Start Date is required");\r
+ return 1;\r
+ } # if\r
+\r
+ my $entity = getEntity ("WOR", $wor);\r
+\r
+ return 1 if !$entity;\r
+\r
+ my $state = $entity->GetFieldValue ("state")->GetValue ();\r
+\r
+ if ($state ne "Submitted") {\r
+ error ("WOR $wor is not in Submitted state!\nState: $state");\r
+ return 2;\r
+ } # if\r
+\r
+ $session->EditEntity ($entity, "assign");\r
+\r
+ $entity->SetFieldValue ("ucm_project", $project) if $project ne "";\r
+ $entity->SetFieldValue ("PlannedStart", $startDate) if $startDate ne "";\r
+ $entity->SetFieldValue ("PlannedEffort", $plannedHrs) if $plannedHrs ne "";\r
+ $entity->SetFieldValue ("Owner", $assignee) if $assignee ne "";\r
+\r
+ my $status = $entity->Validate ();\r
+\r
+ if ($status ne "") {\r
+ $entity->Revert ();\r
+ error ("Assign failed for WOR $wor:\n$status");\r
+ return 2;\r
+ } # if\r
+\r
+ $status = $entity->Commit ();\r
+\r
+ if ($status ne "") {\r
+ error ("Assign failed during Submit for WOR $wor:\n$status");\r
+ return 2;\r
+ } # if\r
+\r
+ return 0;\r
+} # assign\r
+\r
+#-----------------------------------------------------------------------------\r
+# activate (): Activate a WOR\r
+#-----------------------------------------------------------------------------\r
+sub activate ($$$$$) {\r
+ my ($wor, $project, $estHrs, $startDate, $endDate) = @_;\r
+\r
+ if (!$wor or $wor eq "") {\r
+ error ("WOR is required");\r
+ return 1;\r
+ } # if\r
+\r
+ if (!$project or $project eq "") {\r
+ error ("UCM Project is required");\r
+ return 1;\r
+ } # if\r
+\r
+ if (!$startDate or $startDate eq "") {\r
+ error ("Planned Start Date is required");\r
+ return 1;\r
+ } # if\r
+\r
+ if (!$endDate or $endDate eq "") {\r
+ error ("Planned End Date is required");\r
+ return 1;\r
+ } # if\r
+\r
+ my $entity = getEntity ("WOR", $wor);\r
+\r
+ return 1 if !$entity;\r
+\r
+ my $state = $entity->GetFieldValue ("state")->GetValue ();\r
+\r
+ if ($state ne "Assessing") {\r
+ error ("WOR $wor is not in Assessing state!\nstate: $state");\r
+ return 2;\r
+ } # if\r
+\r
+ $session->EditEntity ($entity, "activate");\r
+\r
+ $entity->SetFieldValue ("ucm_project", $project) if $project ne "";\r
+ $entity->SetFieldValue ("EstimatedEffort", $estHrs) if $estHrs ne "";\r
+ $entity->SetFieldValue ("PlannedStart", $startDate) if $startDate ne "";\r
+ $entity->SetFieldValue ("PlannedEnd", $endDate) if $endDate ne "";\r
+\r
+ my $status = $entity->Validate ();\r
+\r
+ if ($status ne "") {\r
+ $entity->Revert ();\r
+ error ("Activate failed for WOR $wor:\n$status");\r
+ return 2;\r
+ } # if\r
+\r
+ $status = $entity->Commit ();\r
+\r
+ if ($status ne "") {\r
+ error ("Activate failed during Submit for WOR $wor:\n$status");\r
+ return 2;\r
+ } # if\r
+\r
+ return 0;\r
+} # activate\r
+\r
+#-----------------------------------------------------------------------------\r
+# resolve ($): Resolve a WOR\r
+#-----------------------------------------------------------------------------\r
+sub resolve ($) {\r
+ my ($wor) = @_;\r
+\r
+ if (!$wor or $wor eq "") {\r
+ error ("WOR is required");\r
+ return 1;\r
+ } # if\r
+\r
+ my $entity = getEntity ("WOR", $wor);\r
+\r
+ return 1 if !$entity;\r
+\r
+ my $state = $entity->GetFieldValue ("state")->GetValue ();\r
+\r
+ if ($state ne "Working") {\r
+ error ("WOR $wor is not in Working state!\nState: $state");\r
+ return 2;\r
+ } # if\r
+\r
+ $session->EditEntity ($entity, "resolve");\r
+\r
+ my $status = $entity->Validate ();\r
+\r
+ if ($status ne "") {\r
+ $entity->Revert ();\r
+ error ("Resolve failed for WOR $wor:\n$status");\r
+ return 2;\r
+ } # if\r
+\r
+ $status = $entity->Commit ();\r
+\r
+ if ($status ne "") {\r
+ error ("Resolve failed during Submit for WOR $wor:\n$status");\r
+ return 2;\r
+ } # if\r
+\r
+ return 0;\r
+} # resolve\r
+\r
+#-----------------------------------------------------------------------------\r
+# complete ($$): Complete a WOR\r
+#-----------------------------------------------------------------------------\r
+sub complete ($$) {\r
+ my ($wor, $actualHrs) = @_;\r
+\r
+ if (!$wor or $wor eq "") {\r
+ error ("WOR is required");\r
+ return 1;\r
+ } # if\r
+\r
+ if (!$wor or $wor eq "") {\r
+ error ("Actual Hours are required");\r
+ return 1;\r
+ } # if\r
+\r
+ my $entity = getEntity ("WOR", $wor);\r
+\r
+ return 1 if !$entity;\r
+\r
+ my $state = $entity->GetFieldValue ("state")->GetValue ();\r
+\r
+ if ($state ne "Verifying") {\r
+ error ("WOR $wor is not in Verifying state!\nState:$state");\r
+ return 2;\r
+ } # if\r
+\r
+ $session->EditEntity ($entity, "complete");\r
+ $entity->SetFieldValue ("ActualEffort", $actualHrs) if $actualHrs ne "";\r
+\r
+ my $status = $entity->Validate ();\r
+\r
+ if ($status ne "") {\r
+ $entity->Revert ();\r
+ error ("Complete failed for WOR $wor:\n$status");\r
+ return 2;\r
+ } # if\r
+\r
+ $status = $entity->Commit ();\r
+\r
+ if ($status ne "") {\r
+ error ("Complete failed during Submit for WOR $wor:\n$status");\r
+ return 2;\r
+ } # if\r
+\r
+ return 0;\r
+} # Complete\r
+\r
+#-----------------------------------------------------------------------------\r
+# executeCommand (@): Executes a cqtool command\r
+#-----------------------------------------------------------------------------\r
+sub executeCommand (@) {\r
+ my (@args) = @_;\r
+\r
+ my $cmd = lc shift @args;\r
+\r
+ return if $cmd eq "";\r
+\r
+ if ($_commands{$cmd}) {\r
+ if (!$CQTool::session) {\r
+ if ( # Commands that do not require a database connection\r
+ !($cmd eq "exit" or\r
+ $cmd eq "quit" or\r
+ $cmd eq "help" or\r
+ $cmd eq "usage" or\r
+ $cmd eq "verbose")) {\r
+ verbose "Opening $_db_name as $_userid...";\r
+\r
+ if (!$_password) {\r
+ display_nolf ("${_userid}'s password:");\r
+ `stty -echo`;\r
+ $_password = <STDIN>;\r
+ chomp $_password;\r
+ display ("");\r
+ `stty echo`;\r
+ } # if\r
+\r
+ openDB ($_userid, $_password, $_db_name);\r
+ } # if\r
+ } # if\r
+\r
+ # Treat args: Args that are enclosed in quotes must be\r
+ # combined. For simplicity's sake we will only support matched\r
+ # pairs of double quotes. Anything else results in undefined\r
+ # behavior.\r
+ my (@new_args);\r
+\r
+ foreach (@args) {\r
+ # Quoted argument starting\r
+ if (/^\"(.*)\"$/s) {\r
+ push @new_args, $1;\r
+ } else {\r
+ push @new_args, $_;\r
+ } # if\r
+ } # foreach\r
+\r
+ $_log->msg ("$cmd (" . join (",", @new_args) . ")") if get_debug;\r
+\r
+ return $_commands{$cmd} (@new_args);\r
+ } else {\r
+ error ("Unknown command \"$cmd\" (try help)");\r
+ return 1;\r
+ } # if\r
+} # executeCommand\r
+\r
+#-----------------------------------------------------------------------------\r
+# commandLoop (@): This is the interactive command loop\r
+#-----------------------------------------------------------------------------\r
+sub commandLoop (@) {\r
+ my (@args) = @_;\r
+\r
+ # For single, command line, commands...\r
+ return executeCommand (@args) if @args;\r
+\r
+ announce if !$_ucmwb;\r
+\r
+ while () {\r
+ if (!$_ucmwb) {\r
+ display_nolf ($PROMPT . RESET . UNDERLINE);\r
+ } else {\r
+ display_nolf ($UCMWB_PROMPT);\r
+ } # if\r
+\r
+ # Read command into $_\r
+ $_ = <STDIN>;\r
+ chomp;\r
+\r
+ # If we are not being called by ucmwb, display RESET to stop the\r
+ # UNDERLINE we were using. This keeps the output from being\r
+ # underlined. In ucmwb mode we are not using any of the terminal\r
+ # sequences.\r
+ display_nolf (RESET) if !$_ucmwb;\r
+\r
+ # If the user hit Control-d then a ^D is displayed but we remain\r
+ # on the same line. So output a carriage return and exit 0.\r
+ if (!$_) {\r
+ display ("");\r
+ exit 0;\r
+ } # if\r
+\r
+ # Special handling for set command since we want to take\r
+ # everything after <field> to be a value, and we may get long\r
+ # values that are space separated and space significant\r
+ # (e.g. description?)\r
+ if (/^\s*(\w+)\s+(\w+)\s+(\w+)\s+(.*)/) {\r
+ if (lc $1 eq "set") {\r
+ my $cmd = $1;\r
+ my $wor = $2;\r
+ my $field = $3;\r
+ my $value = $4;\r
+\r
+ # Change "\n"'s back to \n's\r
+ $value =~ s/\\n/\n/g;\r
+\r
+ executeCommand ($cmd, $wor, $field, "\"$value\"");\r
+ } else {\r
+ executeCommand (split);\r
+ } # if\r
+ } else {\r
+ executeCommand (split);\r
+ } # if\r
+ } # while\r
+} # commandLoop\r
--- /dev/null
+#!/usr/local/bin/perl\r
+################################################################################\r
+#\r
+# File: $RCSfile: $\r
+# Revision: $Revision: $\r
+# Description: Remotely run processes on other machines\r
+# Author: Andrew@DeFaria.com\r
+# Created: Tue Jan 8 15:57:27 MST 2008\r
+# Modified: $Date: $\r
+# Language: perl\r
+#\r
+# (c) Copyright 2008, ClearSCM, Inc., all rights reserved\r
+#\r
+################################################################################\r
+use strict;\r
+use warnings;\r
+\r
+use FindBin;\r
+use Getopt::Long;\r
+use Term::ANSIColor qw(:constants);\r
+use POSIX ":sys_wait_h";\r
+\r
+my $libs;\r
+\r
+BEGIN {\r
+ $libs = $ENV{SITE_PERLLIB} ? $ENV{SITE_PERLLIB} : "$FindBin::Bin/../lib";\r
+\r
+ die "Unable to find libraries\n" if !$libs and !-d $libs;\r
+}\r
+\r
+use lib "$FindBin::Bin/../lib";\r
+use lib $libs;\r
+\r
+use Display;\r
+use Logger;\r
+use Machines;\r
+use Rexec;\r
+use Utils;\r
+\r
+our $_host;\r
+our $_skip = 0;\r
+our $_currentHost;\r
+\r
+my $_log = 0;\r
+my $_quiet = 0;\r
+my $_alternateFile;\r
+my $_parallel = 0;\r
+\r
+my $_totalMachines = 0;\r
+my $_totalExecutions = 0;\r
+my $_totalFailures = 0;\r
+my $_totalConnectFailures = 0;\r
+my $_totalSkips = 0;\r
+\r
+my (%_workerStatuses, %_workerNames);\r
+\r
+sub Usage {\r
+ my $msg = shift;\r
+\r
+ display "ERROR: $msg\n" if defined $msg;\r
+\r
+ display "rexec\t[-v] [-d] [-u] <cmd>";\r
+ display "\t-v\tTurn on verbose mode";\r
+ display "\t-d\tTurn on debug mode";\r
+ display "\t-u\tThis usage message";\r
+ display "<cmd>\tCommand to execute remotely";\r
+\r
+ exit 1;\r
+} # Usage\r
+\r
+sub printStats {\r
+ display YELLOW . "Machines: " . RESET . "$_totalMachines " .\r
+ MAGENTA . "Executions/Failures: " . RESET . "($_totalExecutions/$_totalFailures) " .\r
+ BLUE . "Connect Failures/Skips: " . RESET . "($_totalConnectFailures/$_totalSkips)";\r
+} # printStats\r
+\r
+sub Interrupted {\r
+ use Term::ReadKey;\r
+\r
+ display BLUE . "\nInterrupted execution on $_host" . RESET;\r
+\r
+ printStats;\r
+\r
+ display_nolf "Executing on " . YELLOW . $_host . RESET . " - "\r
+ . GREEN . BOLD . "S" . RESET . GREEN . "kip" . RESET . ", "\r
+ . CYAN . BOLD . "C" . RESET . CYAN . "ontinue" . RESET . " or "\r
+ . MAGENTA . BOLD . "A" . RESET . MAGENTA . "bort run" . RESET . " ("\r
+ . GREEN . BOLD . "s" . RESET . "/"\r
+ . CYAN . BOLD . "C" . RESET . "/"\r
+ . MAGENTA . BOLD . "a" . RESET . ")?";\r
+\r
+ ReadMode ("cbreak");\r
+ my $answer = ReadKey (0);\r
+ ReadMode ("normal");\r
+\r
+ if ($answer eq "\n") {\r
+ display "c";\r
+ } else {\r
+ display $answer;\r
+ } # if\r
+\r
+ $answer = lc $answer;\r
+\r
+ if ($answer eq "s") {\r
+ *STDOUT->flush;\r
+ display "Skipping $_host";\r
+ $_skip = 1;\r
+ $_totalSkips++;\r
+ } elsif ($answer eq "a") {\r
+ display RED . "Aborting run". RESET;\r
+ printStats;\r
+ exit;\r
+ } else {\r
+ display "Continuing...";\r
+ $_skip = 0;\r
+ } # if\r
+} # Interrupted\r
+\r
+sub workerDeath {\r
+ while ((my $worker = waitpid (-1, WNOHANG)) > 0) {\r
+ my $status = $?;\r
+\r
+ # Ignore all child deaths except for processes we started\r
+ next if !exists $_workerStatuses{$worker};\r
+\r
+ $_workerStatuses{$worker} = $status;\r
+ } # while\r
+\r
+ $SIG{CHLD} = \&workerDeath;\r
+} # workerDeath\r
+\r
+sub execute ($$$) {\r
+ my ($cmd, $host, $prompt) = @_;\r
+\r
+ my @lines;\r
+\r
+ verbose_nolf "Connecting to machine $host...";\r
+\r
+ eval {\r
+ $_currentHost = new Rexec (\r
+ host => $host,\r
+ prompt => $prompt,\r
+ );\r
+ };\r
+\r
+ # Problem with creating Rexec object. Log error if logging and return.\r
+ if ($@ or !$_currentHost) {\r
+ if ($_log) {\r
+ my $log = new Logger (name => $_host);\r
+\r
+ $log->err ("Unable to connect to $host to execute command\n$cmd");\r
+ } # if\r
+\r
+ $_totalConnectFailures++;\r
+\r
+ return (1, ());\r
+ } # if\r
+\r
+ verbose " connected";\r
+\r
+ display YELLOW . "$host:" . RESET . UNDERLINE . "$cmd" . RESET unless $_quiet;\r
+\r
+ @lines = $_currentHost->exec ($cmd);\r
+\r
+ if ($_skip) {\r
+ # Kick current connection\r
+ kill INT => $_currentHost->{handle}->pid;\r
+ } # if\r
+\r
+ if ($_parallel != 0) {\r
+ if ($_log) {\r
+ my $log = new Logger (name => $_host);\r
+\r
+ $log->err ("Unable to connect to $host to execute command\n$cmd");\r
+ } # if\r
+\r
+ $_totalConnectFailures++;\r
+ } # if\r
+\r
+ verbose "Disconnected from $host";\r
+\r
+ my $status = $_currentHost->status;\r
+\r
+ undef $_currentHost;\r
+\r
+ return ($status, @lines);\r
+} # execute\r
+\r
+sub parallelize ($%) {\r
+ my ($cmd, %machines) = @_;\r
+\r
+ my $thread_count = 1;\r
+\r
+ foreach $_host (sort keys %machines) {\r
+ if ($thread_count <= $_parallel) {\r
+ debug "Processing $_host ($thread_count)";\r
+ $thread_count++;\r
+\r
+ if (my $pid = fork) {\r
+ # In parent process - record this host and its status\r
+ $_workerNames{$pid} = $_host;\r
+ } else {\r
+ # In spawned child...\r
+ $pid = $$;\r
+\r
+ debug "Starting process for $_host [$pid]";\r
+\r
+ $_workerNames{$pid} = $_host;\r
+ \r
+ my ($status, @lines) = execute $cmd, $_host, $machines{$_host};\r
+\r
+ my $log = new Logger (name => $_host);\r
+\r
+ $log->log ($_) foreach (@lines);\r
+\r
+ exit $status;\r
+ } # if\r
+ } else {\r
+ # Wait for somebody to finish;\r
+ debug "Waiting for somebody to exit...";\r
+ my $reaped = wait;\r
+\r
+ debug "Reaped $_workerNames{$reaped} [$reaped] (Status: $?)";\r
+ $_workerStatuses{$reaped} = $? >> 8 if $reaped != -1;\r
+\r
+ $thread_count--;\r
+ } # if\r
+ } # foreach\r
+\r
+ # Wait for all kids\r
+ my %threads = %_workerNames;\r
+\r
+ foreach (keys %threads) {\r
+ if (waitpid ($_, 0) == -1) {\r
+ delete $threads{$_};\r
+ } else {\r
+ $_workerStatuses{$_} = $? >> 8;\r
+ debug "$threads{$_} [$_] exited with a status of $_workerStatuses{$_}";\r
+ } # if\r
+ } # foreach\r
+\r
+ debug "All processed completed - Status:";\r
+\r
+ if (get_debug) {\r
+ foreach (sort keys %_workerStatuses) {\r
+ debug "$_workerNames{$_}\t[$_]:\tStatus: $_workerStatuses{$_}";\r
+ } # foreach\r
+ } # if\r
+\r
+ # Gather output...\r
+ display "Output of all executions";\r
+ foreach $_host (sort keys %machines) {\r
+ if (-f "$_host.log") {\r
+ display "$_host:$_" foreach (ReadFile ("$_host.log"));\r
+\r
+ #unlink "$_host.log";\r
+ } else {\r
+ warning "Unable to find output for $_host ($_host.log missing)";\r
+ } # if\r
+ } # foreach\r
+} # parallelize\r
+\r
+# Print the totals if interrupted\r
+$SIG{INT} = \&Interrupted;\r
+\r
+# Get our options\r
+GetOptions (\r
+ "usage" => sub { Usage "" },\r
+ "verbose" => sub { set_verbose },\r
+ "debug" => sub { set_debug },\r
+ "log" => \$_log,\r
+ "quiet" => \$_quiet,\r
+ "file=s" => \$_alternateFile,\r
+ "parallel:i" => \$_parallel,\r
+) || Usage "Unknown parameter";\r
+\r
+my $cmd = join " ", @ARGV;\r
+\r
+error "No command specified", 1 if !$cmd;\r
+\r
+my $machines = Machines->new (file => $_alternateFile);\r
+my %machines = $machines->all ();\r
+\r
+if ($_parallel > 0) {\r
+ parallelize ($cmd, %machines);\r
+ printStats;\r
+ exit;\r
+} # if\r
+\r
+display "NOTE: Logging output to <host>.log" if $_log;\r
+\r
+foreach $_host (sort keys (%machines)) {\r
+ $_totalMachines++;\r
+\r
+ my ($status, @lines) = execute $cmd, $_host, $machines{$_host};\r
+\r
+ if ($_skip) {\r
+ $_skip = 0;\r
+ next;\r
+ } # if\r
+\r
+ if (defined $status) {\r
+ if ($status == 0) {\r
+ $_totalExecutions++;\r
+ } else {\r
+ if ($_log) {\r
+ my $log = new Logger (name => $_host);\r
+\r
+ $log->log ("Host: $_host\nCommand: $cmd\nStatus: $status\nOutput:\n");\r
+ $log->log ($_) foreach (@lines);\r
+ } # if\r
+ \r
+ $_totalFailures++;\r
+\r
+ next;\r
+ } # if\r
+ } # if\r
+\r
+ if ($_log) {\r
+ my $log = new Logger (name => $_host);\r
+\r
+ $log->log ("Host: $_host\nCommand: $cmd\nStatus: $status\nOutput:\n");\r
+ $log->log ($_) foreach (@lines);\r
+ } else {\r
+ display $_ foreach (@lines);\r
+ } # if\r
+} # foreach\r
+\r
+printStats;\r
--- /dev/null
+#!/bin/sh
+#############################################
+# @(#)scs 1.45
+# system characterization script
+# "scs" collects data from Atria
+# customer sites for analysis by
+# engineering.
+######################################
+
+#########################
+# For Solaris 5.x systems
+#########################
+nddit()
+{
+for i in tcp udp ip hme
+do
+ /usr/sbin/ndd /dev/$i \? | /bin/awk '{print $1}' | \
+ /bin/egrep -v '\?|directed|respond|status|hash' > /tmp/$$
+ for j in `/bin/cat /tmp/$$`
+ do
+ /bin/printf "%-30s %s\n" $j `/usr/sbin/ndd /dev/$i $j `
+ done
+ /bin/rm /tmp/$$
+ echo "--------"
+done
+}
+
+solaris()
+{
+show "Uptime" /bin/uptime
+show "System Device Configuration" /usr/sbin/prtconf -vP
+show "System Configuration" /usr/sbin/sysdef -i
+show "System Customization" '/bin/cat /etc/system | \
+ /bin/grep -v "^\*" | /bin/grep -v "^$"'
+show "Network Configuration" nddit
+show "System Messages" /bin/dmesg
+show "Patches" /bin/showrev -p
+# /usr/kvm/prtconf check and use
+#show "fpversion" /opt/SUNWspro/bin/fpversion
+
+show "Processes" '/usr/ucb/ps auxww | /bin/fold -80'
+show "Network Configuration" /usr/sbin/ifconfig -a
+show "Network Utilization Summary" /bin/netstat -i
+show "Network Protocol Statistics" /bin/netstat -s
+show "Network Mbuf Statistics" /bin/netstat -m
+show "VM Statistics" /bin/vmstat -s
+show "Cache Flush Statistics" /bin/vmstat -c
+show "Interrupts" /bin/vmstat -i
+show "NFS Statistics" /bin/nfsstat
+show "NFS Responses" /bin/nfsstat -m
+
+show "CPU Utilization" /bin/sar -u 1 10
+show "Buffer Activity" /bin/sar -b 1 10
+show "Block Device Activity" /bin/sar -d 1 10
+show "Disk Device Activity" iostat -x 1 10
+show "Paging In Activity" /bin/sar -p 1 5
+show "Paging Out Activity" /bin/sar -g 1 5
+show "Free Memory" /bin/sar -r 1 5
+show "vmstat snapshot" /bin/vmstat 2 10
+show "Kernel Memory Allocation Activity" /bin/sar -k 1 5
+show "KMA statistics" 'echo kmastat | /usr/sbin/crash'
+echo ""
+show "Swap space" /usr/sbin/swap -s
+echo ""
+}
+
+#######################
+# For SUNOS 4.x systems
+#######################
+sunos()
+{
+
+show "Memory " '/etc/dmesg | grep mem'
+show "System Messages" /etc/dmesg
+show "Processes" '/bin/ps auxww | /usr/ucb/fold -80'
+show "Network Utilization Summary" /usr/ucb/netstat -i
+show "Network Protocol Statistics" /usr/ucb/netstat -s
+show "Network Mbuf Statistics" /usr/ucb/netstat -m
+show "VM Statistics" /usr/ucb/vmstat -s
+show "Cache Flush Statistics" /usr/ucb/vmstat -c
+show "Interrupts" /usr/ucb/vmstat -i
+show "NFS Statistics" /usr/etc/nfsstat
+
+show "Disk Device Activity" /bin/iostat -D 1 10
+show "CPU Activity" /usr/ucb/vmstat 1 10
+show "Tables" /etc/pstat -T
+show "vmstat snapshot" /usr/ucb/vmstat 2 10
+
+}
+
+
+#######################
+# For AIX
+#######################
+aix()
+{
+
+show "Processes" '/usr/bin/ps -elf '
+show "Network Utilization Summary" /bin/netstat -i
+show "Network Protocol Statistics" /bin/netstat -s
+show "Network Mbuf Statistics" /bin/netstat -m
+show "Network Configurables" /usr/sbin/no -a
+show "NFS Statistics" /usr/sbin/nfsstat
+
+show "System Attributes" /usr/sbin/lsattr -E -l sys0
+show "CPU Utilization" sar -u 1 10
+show "Buffer Activity" sar -b 1 10
+show "Disk Activity" /bin/iostat 1 10
+show "Paging Stats" sar -r 1 5
+show "Network Monitor for 30s" '/bin/netpmon -v -o /tmp/$$; sleep 30; trcstop'
+echo ""
+}
+
+#######################
+# For OSF1
+#######################
+osf1()
+{
+show "Boot Messages" 'echo "";echo ""; echo "";uerf -r 300 | tail -100'
+show "Processes" '/usr/bin/ps glww | fold -80'
+show "Network Utilization Summary" /usr/sbin/netstat -i
+show "Network Protocol Statistics" /usr/sbin/netstat -s
+show "Network Mbuf Statistics" /usr/sbin/netstat -m
+show "NFS Statistics" /usr/bin/nfsstat
+show "Kernel memory usage" /usr/bin/vmstat -M
+show "vmstat snapshopt" /usr/bin/vmstat 2 10
+show "Disk Device snapshot" /bin/iostat 2 10
+
+}
+
+#######################
+# For IRIX 6.x
+#######################
+irix6()
+{
+show "Uptime" /usr/bsd/uptime
+show "System Device Configuration" /usr/sbin/sysconf
+show "System Hardware Configuration" /usr/bin/hinv
+show "System Software Configuration" /etc/chkconfig
+show "Patches" '/usr/sbin/versions | grep Patch'
+show "Disk Usage" /usr/sbin/df -l -k
+show "System Customization" '/bin/cat /var/sysgen/stune | \
+ /bin/grep -v "^\*" | /bin/grep -v "^$"'
+
+show "Processes" '/usr/bin/ps -elf | /bin/fold -80'
+show "Network Utilization Summary" /usr/etc/netstat -i
+show "Network Protocol Statistics" /usr/etc/netstat -s
+show "Network Mbuf Statistics" /usr/etc/netstat -m
+show "NFS Statistics" /usr/etc/nfsstat
+
+show "CPU Utilization" sar -u 1 10
+show "Buffer Activity" sar -b 1 10
+show "Block Device Activity" sar -d 1 10
+show "Paging In Activity" sar -p 1 5
+show "Paging Out Activity" sar -g 1 5
+show "Free Memory" sar -r 1 5
+echo ""
+}
+
+
+#######################
+# For IRIX 5.x
+#######################
+irix()
+{
+show "Uptime" /usr/bsd/uptime
+show "System Device Configuration" /usr/sbin/sysconf
+show "System Hardware Configuration" /usr/bin/hinv
+show "System Software Configuration" /etc/chkconfig
+show "Disk Usage" /usr/sbin/df -l -k
+show "System Customization" '/bin/cat /var/sysgen/stune | \
+ /bin/grep -v "^\*" | /bin/grep -v "^$"'
+
+show "Processes" '/usr/bin/ps -elf | /bin/fold -80'
+show "Network Utilization Summary" /usr/etc/netstat -i
+show "Network Protocol Statistics" /usr/etc/netstat -s
+show "Network Mbuf Statistics" /usr/etc/netstat -m
+show "NFS Statistics" /usr/etc/nfsstat
+
+show "CPU Utilization" sar -u 1 10
+show "Buffer Activity" sar -b 1 10
+show "Block Device Activity" sar -d 1 10
+show "Paging In Activity" sar -p 1 5
+show "Paging Out Activity" sar -g 1 5
+show "Free Memory" sar -r 1 5
+echo ""
+}
+
+
+#####################
+# For HP-UX 9/800 systems
+#####################
+hpux98()
+{
+show "Memory " grep "mem =" /usr/adm/*syslog
+#first the shared info
+hpux
+# now the system specific
+show "System definition" /etc/sysdef
+show "CPU Utilization" /usr/bin/sar -u 1 10
+show "Buffer Activity" /usr/bin/sar -b 1 10
+show "Block Device Activity" /usr/bin/sar -d 1 10
+}
+#####################
+# For HP-UX 9/700 systems
+#####################
+hpux97()
+{
+show "Memory " grep Physical /usr/adm/messages
+# just the shared info
+hpux
+}
+#####################
+# For All HP-UX 9 systems
+#####################
+hpux()
+{
+show "Uptime" /usr/bin/uptime
+show "System Messages" /etc/dmesg
+show "Swap Space" /etc/swapinfo
+show "Patches" ls -ld /system/PH*
+show "IO devices" /etc/ioscan -f
+
+show "Processes" '/bin/ps -elf | /usr/bin/fold -80'
+show "Network Utilization Summary" /usr/bin/netstat -i
+show "Network Protocol Statistics" /usr/bin/netstat -s
+show "Network Mbuf Statistics" /usr/bin/netstat -m
+show "VM Statistics" /usr/bin/vmstat -s
+show "NFS Statistics" /usr/etc/nfsstat
+show "Network errors" /etc/netfmt -t 30 -f /usr/adm/nettl.LOG00
+
+show "Disk Utilization" /usr/bin/bdf -l
+show "vmstat snapshot" /usr/bin/vmstat 2 10
+}
+
+#####################
+# For HP-UX 10 systems
+#####################
+hpux10()
+{
+
+show "Memory " grep Physical /var/adm/syslog/syslog.log
+show "System DMessages" /usr/sbin/dmesg
+show "System definition" /usr/sbin/sysdef
+show "Messages" "tail -100 /usr/adm/syslog/syslog.log"
+show "IO status" /etc/ioscan -f
+show "Patches" '/usr/sbin/swlist -l product | grep PH'
+
+show "Processes" '/usr/bin/ps -elf | /usr/bin/fold -80'
+show "Network Utilization Summary" /usr/bin/netstat -i
+show "Network Protocol Statistics" /usr/bin/netstat -s
+show "Network Mbuf Statistics" /usr/bin/netstat -m
+show "VM Statistics" /usr/bin/vmstat -s
+show "NFS Statistics" /usr/bin/nfsstat
+
+show "CPU Utilization" /usr/bin/sar -u 1 10
+show "Buffer Activity" /usr/bin/sar -b 1 10
+show "Block Device Activity" /usr/bin/sar -d 1 10
+show "vmstat snapshot" /usr/bin/vmstat 2 10
+}
+#####################
+# For Unixware systems
+#####################
+unixware()
+{
+show "Memory size" /sbin/memsize
+show "Message log" cat /usr/adm/log/osmlog
+show "System Configuration" /usr/sbin/sysdef
+show "Processes" '/usr/bin/ps -elf '
+show "Network Utilization Summary" /bin/netstat -i
+show "Network Protocol Statistics" /bin/netstat -s
+show "NFS Statistics" /usr/sbin/nfsstat
+
+show "CPU Utilization" /sbin/sar -u 1 10
+show "Buffer Activity" /sbin/sar -b 1 10
+show "Block Device Activity" /sbin/sar -d 1 10
+show "Paging In Activity" /sbin/sar -p 1 5
+show "Paging Out Activity" /sbin/sar -g 1 5
+show "Free Memory" /sbin/sar -r 1 5
+show "Historical sar data" /sbin/sar -A
+echo ""
+}
+
+
+####################################
+# display informationin a uniform way
+####################################
+show() {
+ echo "----------------------------------------------------"
+ echo $1
+ echo "----------------------------------------------------"
+ shift
+ eval "$@"
+ echo ""
+}
+##################################################
+# check uw network - works for Unixware
+##################################################
+check_uw_network() {
+
+netstat -i $interface
+sleep 10
+netstat -i $interface
+}
+
+##################################################
+# check network - works for HP-UX and SUNOS 5.x
+##################################################
+check_network() {
+ printf "%8s %8s %8s %8s %8s %8s \n" time inpkts inerrs \
+ outpkts outerrs colls
+ netstat -i -I $interface $interval | (
+ (line ; line ; line) > /dev/null
+ t_inpkts=0 # initialize counter
+ t_inerrs=0 # initialize counter
+ t_outpkts=0 # initialize counter
+ t_outerrs=0 # initialize counter
+ t_colls=0 # initialize counter
+ i=0
+ while test $i -lt $count ; do # for each of the lines
+ time=`date +%T`
+ /bin/echo $time \\c
+ set -- `line` # get the line
+ printf "%8s %8s %8s %8s %8s\n" $1 $2 $3 $4 $5
+ t_inpkts=`expr $1 + $t_inpkts` # accumulate in packets
+ shift
+ t_inerrs=`expr $1 + $t_inerrs` # accumulate in errors
+ shift
+ t_outpkts=`expr $1 + $t_outpkts` # accumulate out packets
+ shift
+ t_outerrs=`expr $1 + $t_outerrs` # accumulate out errors
+ shift
+ t_colls=`expr $1 + $t_colls` # accumulate collisions
+ i=`expr $i + 1 `
+ done
+ printf "\n%8s %8s %8s %8s %8s %8s \n" \
+ total $t_inpkts $t_inerrs $t_outpkts $t_outerrs $t_colls
+# now check error and collision rate.
+# Use awk to get floating point accuracy
+ echo $t_colls $t_outpkts $t_inerrs $t_inpkts | awk '$2 != 0 {
+ collision_rate = $1 / $2;
+ printf("\n\ncollision rate ( %g %% )", (collision_rate * 100.0));
+ if ( collision_rate > 0.05 )
+ printf(" too high. Add subnets.\n");
+ else
+ printf("\n")}
+ $4 != 0 {
+ error_rate = $3 / $4;
+ printf(" error rate ( %g %% )", (error_rate * 100.0));
+ if (error_rate > 0.00025)
+ printf(" too high. Check cabling.\n");
+ else
+ printf("\n")}'
+
+ )
+}
+
+##################################################
+# check fddi - for sun
+##################################################
+check_fddi_sol() {
+/opt/*conn/*nf/utilities/nf_stat $interface 3 5
+/opt/*conn/*nf/utilities/nf_stat -m 3 5
+/opt/*fddi/fddistat -l
+}
+
+##################################################
+# check fddi - for HPs
+##################################################
+check_fddi_hp() {
+/usr/bin/fddistat /dev/$interface
+}
+
+##################################################
+# check network - works for SUNOS 4.x
+##################################################
+check_network1() {
+ echo " time inpkts inerrs outpkts outerrs colls"
+ netstat -i -I $interface $interval | (
+ (line ; line ; line) > /dev/null
+ t_inpkts=0 # initialize counter
+ t_inerrs=0 # initialize counter
+ t_outpkts=0 # initialize counter
+ t_outerrs=0 # initialize counter
+ t_colls=0 # initialize counter
+ i=0
+ while test $i -lt $count ; do # for each of the lines
+ time=`date +%T`
+ /bin/echo -n $time
+ set -- `line` # get the line
+ echo " $1 $2 $3 $4 $5"
+ t_inpkts=`expr $1 + $t_inpkts` # accumulate in packets
+ shift
+ t_inerrs=`expr $1 + $t_inerrs` # accumulate in errors
+ shift
+ t_outpkts=`expr $1 + $t_outpkts` # accumulate out packets
+ shift
+ t_outerrs=`expr $1 + $t_outerrs` # accumulate out errors
+ shift
+ t_colls=`expr $1 + $t_colls` # accumulate collisions
+ i=`expr $i + 1 `
+ done
+ echo -n "total "
+ echo -n "$t_inpkts $t_inerrs $t_outpkts "
+ echo " $t_outerrs $t_colls"
+# now check error and collision rate.
+# Use awk to get floating point accuracy
+ echo $t_colls $t_outpkts $t_inerrs $t_inpkts | awk '$2 != 0 {
+ collision_rate = $1 / $2;
+ printf("\n\ncollision rate ( %g %% )", (collision_rate * 100.0));
+ if ( collision_rate > 0.05 )
+ printf(" - too many collisions. \n");
+ else
+ printf("\n")}
+ $4 != 0 {
+ error_rate = $3 / $4;
+ printf(" error rate ( %g %% )", (error_rate * 100.0));
+ if (error_rate > 0.00025)
+ printf(" - too many errors. \n");
+ else
+ printf("\n")}'
+
+ )
+}
+
+########################################################
+# get disk layout and performance data
+########################################################
+do_ssaadm()
+{
+#need to add logic here to select a configured controller
+#and only do an ssaadm if relevant. We'll live with the errors
+# for now....
+for i in `(cd /dev/rdsk; ls | cut -d't' -f 1 | uniq)`
+do
+ ssaadm display $i 2>/dev/null
+ ssaadm display -p $i 2>/dev/null
+done
+}
+
+########################################################
+# attempt to get Sparc Storage Array configuration
+########################################################
+do_arrays()
+{
+SSAS=`/usr/sbin/prtconf -vP | grep soc | grep instance | wc -l`
+show "SSAs" echo "$SSAS SparcStorage Arrays attached"
+
+if [ $SSAS = 0 ] ; then
+ return
+fi
+
+#else lets print out information
+
+show "SSA Disks and Performance" do_ssaadm
+show "State and Configuration of Array Disks" /usr/sbin/vxprint -ht
+show "Disk utilization" /usr/sbin/vxstat -i 2 -c 5
+show "Disk utilization" /usr/sbin/vxstat -i 2 -c 5 -s
+
+}
+
+########################################################
+# establish file partition -> disk device mapping for solaris
+# how do I do this for other platforms?
+########################################################
+do_discs()
+{
+df -F ufs -k
+show "Disk Device Mapping" echo ' '
+df -F ufs | cut -f1 -d: | awk '{print $2}' | sed 's/(//' |\
+ sed 's/)//' > /tmp/lll
+for i in `cat /tmp/lll`
+do
+ ls -l $i
+done
+rm /tmp/lll
+
+show "path_to_inst file" cat /etc/path_to_inst
+}
+
+########################################################
+# calculate the size (in bytes) of all VOB database on this host
+########################################################
+check_vobs()
+{
+if [ ! -f $ATRIAHOME/bin/cleartool ] ; then
+ echo this is not a ClearCase host
+ exit
+fi
+# list all vobs on this host and extract the
+# VOB storage directory.
+$ATRIAHOME/bin/cleartool lsvob -host $HOST
+$ATRIAHOME/bin/cleartool lsvob -host $HOST | \
+awk '$1 == "*" {print $3 } \
+ $1 != "*" {print $2 }' >/tmp/list.$$
+# count the vobs
+vobs=`wc -l /tmp/list.$$ | awk '{print $1}'`
+echo "Number of vobs : $vobs"
+if [ $vobs = 0 ] ; then
+ return
+fi
+# now count all the bytes in the database data and key files
+for i in `cat /tmp/list.$$`
+do
+ if [ ! -d $i/db ] ; then
+ echo no db subdirectory for $i
+ continue
+ fi
+ cd $i/db
+ $LSL vob_db.d0? vob_db.k0? | \
+ awk 'BEGIN {sum=0} \
+ {sum = sum + $5/(1024.0*1024.0)} \
+ END {printf " %8.3f Mb\t", sum}'
+ echo `basename $i`
+done | tee -a /tmp/list1.$$
+
+awk 'BEGIN {sum=0} \
+{sum = sum + $1} \
+END {printf "%9.3f Mb\tTOTAL", sum}' < /tmp/list1.$$
+
+rm /tmp/list.$$ /tmp/list1.$$
+}
+
+########################################################
+# check the view characteristics
+########################################################
+check_views()
+{
+if [ ! -f $ATRIAHOME/bin/cleartool ] ; then
+ echo this is not a ClearCase host
+ exit
+fi
+$ATRIAHOME/bin/cleartool lsview -host $HOST | \
+awk '$1 == "*" {print $3,$2 } \
+ $1 != "*" {print $2,$1 }' >/tmp/list.$$
+# count the views
+views=`wc -l /tmp/list.$$ | awk '{print $1}'`
+echo "Number of views : $views"
+if [ $views = 0 ] ; then
+ return
+fi
+cat /tmp/list.$$ | (
+i=1
+while [ $i -le $views ]
+do
+ set -- `line`;
+ size=`grep -s cache $1/.view | awk '{print $2}'`
+ if [ a$size = a ]; then
+ size=default
+ fi
+ echo "$size $2" | awk '{printf "%8s\t%-16s\n", $1, $2}'
+ i=`expr $i + 1`
+done
+)
+rm /tmp/list.$$
+}
+
+########################################################
+# check the MVFS cache on this system
+########################################################
+check_mvfs()
+{
+/usr/atria/etc/mvfsstat -iclrh 2>&1
+}
+
+########################################################
+# obtain lockmgr parameters
+########################################################
+get_lockmgr()
+{
+if [ -f $ATRIAHOME/etc/init.d/atria ] ; then
+ grep lockmgr $ATRIAHOME/etc/init.d/atria | egrep '\-u' | \
+ sed 's/.*}//' | sed 's/>>.*//'
+elif [ -f $ATRIAHOME/etc/rc.atria ] ; then
+ grep lockmgr $ATRIAHOME/etc/rc.atria | egrep '\-u' | \
+ sed 's/.*}//' | sed 's/>>.*//'
+#for V3
+elif [ -f $ATRIAHOME/etc/atria_start ] ; then
+ grep lockmgr $ATRIAHOME/etc/atria_start | egrep '\-u' | \
+ sed 's/.*}//' | sed 's/>>.*//'
+fi
+}
+
+########################################################
+# obtain lockmgr parameters
+########################################################
+get_vob_counts()
+{
+VSL=$VAR/adm/atria/log/vob_scrubber_log
+if [ ! -f $VSL ] ; then
+ echo no data available
+else
+ egrep 'Started|element|branch|version|derived|hyperlink' $VSL
+fi
+
+}
+
+########################################################
+# check clearcase things
+########################################################
+check_cc()
+{
+ATRIAHOME=${ATRIAHOME:-/usr/atria}
+ show "VOB sizes" check_vobs
+ show "Views" check_views
+ show "MVFS" check_mvfs
+ show "Cleartool Version" $ATRIAHOME/bin/cleartool -ver
+ show "Lock Manager Configuration" get_lockmgr
+ show "VOB Characteristics" get_vob_counts
+ show "License Host" cat $VAR/adm/atria/config/license_host
+ show "Registry Host and Region" cat $VAR/adm/atria/rgy/rgy*.conf
+}
+
+########################################################
+# obtain mvs parameters
+########################################################
+
+get_mvfs_sun4()
+{
+adb -k /var/adm/atria/vmunix_mvfs /dev/mem <<!
+=n"MVFS parameters"
+physmem/D
+mvfs_mnmax/D
+mvfs_vobfreemax/D
+mvfs_cvpfreemax/D
+mvfs_dncdirmax/D
+mvfs_dncregmax/D
+mvfs_dncnoentmax/D
+mvfs_largeinit/D
+!
+}
+
+get_mvfs_sun5()
+{
+adb -k /dev/ksyms /dev/mem <<!
+=n"MVFS parameters"
+physmem/D
+mvfs_mnmax/D
+mvfs_vobfreemax/D
+mvfs_cvpfreemax/D
+mvfs_dncdirmax/D
+mvfs_dncregmax/D
+mvfs_dncnoentmax/D
+mvfs_largeinit/D
+!
+}
+
+get_mvfs_hp9()
+{
+adb -k /hp-ux /dev/mem <<!
+=n"MVFS parameters"
+physmem/D
+mvfs_mnmax/D
+mvfs_vobfreemax/D
+mvfs_cvpfreemax/D
+mvfs_dncdirmax/D
+mvfs_dncregmax/D
+mvfs_dncnoentmax/D
+mvfs_largeinit/D
+bufpages/D
+nbuf/D
+ninode/D
+fs_async/D
+!
+}
+
+get_mvfs_hp10()
+{
+adb -k /stand/vmunix /dev/mem <<!
+=n"MVFS parameters"
+physmem/D
+mvfs_mnmax/D
+mvfs_vobfreemax/D
+mvfs_cvpfreemax/D
+mvfs_dncdirmax/D
+mvfs_dncregmax/D
+mvfs_dncnoentmax/D
+mvfs_largeinit/D
+bufpages/D
+nbuf/D
+ninode/D
+fs_async/D
+!
+}
+
+get_mvfs_osf1()
+{
+dbx -k /vmunix /dev/mem 2>/dev/null <<!
+printf "physmem %d", physmem
+printf "mvfs_mnmax %d", mvfs_mnmax
+printf "mvfs_vobfreemax %d", mvfs_vobfreemax
+printf "mvfs_cvpfreemax %d", mvfs_cvpfreemax
+printf "mvfs_dncdirmax %d", mvfs_dncdirmax
+printf "mvfs_dncregmax %d", mvfs_dncregmax
+printf "mvfs_dncnoentmax %d", mvfs_dncnoentmax
+printf "mvfs_largeinit %d", mvfs_largeinit
+quit
+!
+}
+
+get_mvfs_sgi6()
+{
+dbx -k /unix /dev/kmem 2>/dev/null <<!
+printf "physmem %d\n", physmem
+printf "mvfs_mnmax %d\n", mvfs_mnmax
+printf "mvfs_vobfreemax %d\n", mvfs_vobfreemax
+printf "mvfs_cvpfreemax %d\n", mvfs_cvpfreemax
+printf "mvfs_dncdirmax %d\n", mvfs_dncdirmax
+printf "mvfs_dncregmax %d\n", mvfs_dncregmax
+printf "mvfs_dncnoentmax %d\n", mvfs_dncnoentmax
+printf "mvfs_largeinit %d\n", mvfs_largeinit
+quit
+!
+}
+
+
+############################
+# ENTRY POINT FOR SCRIPT
+############################
+
+if [ $# -ne 0 ] ; then
+ echo "usage: scs"
+ exit
+fi
+
+if [ ! -w /etc/passwd ] ; then
+ echo "Please run $0 as root."
+ exit 1
+fi
+
+interval=1
+count=20
+
+SYS=`uname -m`
+OS=`uname -s`
+OSVER=`uname -r`
+HOST=`uname -n`
+LSL="/bin/ls -l"
+VAR="/var"
+
+echo system is `uname -a`
+echo "SCS script version 98/06/22 1.45 run at `date`"
+
+case $OS in
+
+#AIX
+AIX ) aix
+ lans=`/bin/netstat -i | grep -v none | \
+ awk '{print $1}' | grep -v lo0 | grep -v Name `
+ for interface in $lans
+ do
+ show "Network snapshop - $interface" check_network
+ done
+ check_cc
+ ;;
+
+
+#Sun
+SunOS ) case $OSVER in
+ # SUN SunOS 4.x (Solaris 1.x) operating system
+ 4.1* ) sunos
+ LSL="ls -lg"
+ lans=`/usr/ucb/netstat -i | grep -v none | \
+ awk '{print $1}' | grep -v lo0 | grep -v Name `
+ for interface in $lans
+ do
+ show "Network snapshop - $interface" check_network1
+ done
+ check_cc
+ show "MVFS parameters" get_mvfs_sun4
+ ;;
+ # SUN SunOS 5.x (Solaris 2.x) operating system
+ 5.* ) solaris
+ lans=`/bin/netstat -i | grep -v none | \
+ awk '{print $1}' | grep -v lo0 | grep -v Name `
+ for interface in $lans
+ do
+ show "Network snapshop - $interface" check_network
+ show "FDDI status - $interface" check_fddi_sol
+ done
+ show "Disk Utilization " do_discs
+ do_arrays
+ check_cc
+ show "MVFS parameters" get_mvfs_sun5
+ ;;
+ esac
+ ;;
+#HP
+HP-UX) case $OSVER in
+ # HP HP-UX operating system
+ A.09.*) model=`uname -m | cut -d'/' -f 2`
+ VAR="/usr"
+ if [ `expr $model` -gt 800 ] ; then
+ hpux98
+ elif [ `expr $model` -gt 700 ] ; then
+ hpux97
+ else
+ hpux
+ fi
+ lans=`/usr/bin/netstat -i | grep -v none | \
+ awk '{print $1}' | grep -v lo0 | grep -v Name `
+ for interface in $lans
+ do
+ show "Network snapshop - $interface" check_network
+ done
+ check_cc
+ show "MVFS parameters" get_mvfs_hp9
+ ;;
+ *.10.*) hpux10
+ lans=`/bin/netstat -i | grep -v none | \
+ awk '{print $1}' | grep -v lo0 | grep -v Name `
+ for interface in $lans
+ do
+ show "Network snapshop - $interface" check_network
+ show "FDDI status - $interface" check_fddi_hp
+ done
+ check_cc
+ show "MVFS parameters" get_mvfs_hp10
+ ;;
+ esac
+ ;;
+#SGI
+IRIX*) case $OSVER in
+ # IRIX 5.x operating system
+ 5.* ) irix
+ lans=`/usr/etc/netstat -i | grep -v none | \
+ awk '{print $1}' | grep -v lo0 | grep -v Name `
+ for interface in $lans
+ do
+ show "Network snapshot - $interface" check_network
+ done
+ check_cc
+ ;;
+ # IRIX 6.x operating system
+ 6.*) irix6
+ lans=`/usr/etc/netstat -i | grep -v none | \
+ awk '{print $1}' | grep -v lo0 | grep -v Name `
+ for interface in $lans
+ do
+ show "Network snapshot - $interface" check_network
+ done
+ check_cc
+ show "MVFS parameters" get_mvfs_sgi6
+ ;;
+ #other
+ * ) echo "$prog": unknown operating system: $OS $CPUOS
+ exit ;;
+ esac
+ ;;
+
+#Digital Unix
+OSF1) osf1
+ lans=`/usr/sbin/netstat -i | grep -v none | \
+ awk '{print $1}' | grep -v lo0 | grep -v Name `
+ for interface in $lans
+ do
+ show "Network snapshot - $interface" check_network
+ done
+ check_cc
+ show "MVFS parameters" get_mvfs_osf1
+ ;;
+
+#Unixware
+UNIX_SV) unixware
+ lans=`/bin/netstat -i | grep -v none | \
+ awk '{print $1}' | grep -v lo0 | grep -v Name `
+ for interface in $lans
+ do
+ show "Network snapshop - $interface" check_uw_network
+ done
+ check_cc
+ ;;
+
+#other
+* ) echo "$prog": unknown operating system: $OS $CPUOS
+ exit ;;
+esac
+
--- /dev/null
+#!/bin/ksh
+################################################################################
+#
+# File: add_email
+# RCS: $Header: add_email,v 1.2 98/05/13 09:42:40 defaria Exp $
+# Description: This script adds a new person to moa
+# Author: Andrew@DeFaria.com
+# Created: Tue Jun 3 11:08:01 PDT 1997
+# Modified: Fri Jan 14 10:12:04 PST 2000
+# Changed wording for eJL
+# Language: Korn Shell
+#
+# (c) Copyright 2001, Andrew@DeFaria.com, all rights reserved
+#
+################################################################################
+# Set me to command name
+me=$(basename $0)
+
+# Set adm_base
+adm_base=${adm_base:-$HOME/adm}
+
+# Set adm_fpath
+adm_fpath=${adm_fpath:-$adm_base/functions}
+
+# Source functions
+. $adm_fpath/common
+tmpprefix=/tmp/add_email
+. $adm_fpath/tmpfiles
+
+function usage {
+ print -u2 "Usage: $me -username <username> -fullname <fullname>"
+ print -u2 "\t-employeetype <employeetype> -employeenumber
+<employeenumber>"
+ print -u2 "\t-manager <manager> -mailserver <mailserver>"
+ exit 1
+} # usage
+
+function email_postmaster {
+ notify="postmaster pdl-support"
+ mailx -s "Please setup email for $fullname" $notify < $message_file
+} # email_postmaster
+
+message_file=$tmp_prefix.msg.$$
+username=
+fullname=
+employeetype=
+employeenumber=
+manager=
+mailserver=
+
+while [ $# -ge 1 ]; do
+ case "$1" in
+ -usage)
+ usage
+ ;;
+
+ -username)
+ if [ $# -le 1 ]; then
+ error "Username not specified!"
+ usage
+ fi
+ shift
+ username="$1"
+ ;;
+
+ -fullname)
+ if [ $# -le 1 ]; then
+ error "Full name not specified!"
+ usage
+ fi
+ shift
+ fullname="$1"
+ ;;
+
+ -employeetype)
+ if [ $# -le 1 ]; then
+ error "Employee type not specified!"
+ usage
+ fi
+ shift
+ employeetype="$1"
+
+ case "$employeetype" in
+ Employee|SEED|Contractor)
+ ;;
+ *)
+ error "Employeetype must be one of \"Employee\", \"SEED\" or \"Contractor\""
+ exit 1
+ ;;
+ esac
+ ;;
+
+ -employeenumber)
+ if [ $# -gt 1 ]; then
+ shift
+ employeenumber="$1"
+ fi
+ ;;
+
+ -manager)
+ if [ $# -le 1 ]; then
+ error "Manager name not specified!"
+ usage
+ fi
+ shift
+ manager="$1"
+ ;;
+
+ -mailserver)
+ if [ $# -le 1 ]; then
+ error "Mail server not specified!"
+ usage
+ fi
+ shift
+ mailserver="$1"
+ ;;
+
+ *)
+ error "Unknown parameter encounter: \"$1\""
+ usage
+ ;;
+ esac
+ shift
+done
+
+if [ "_$username" = "_" -o \
+ "_$fullname" = "_" -o \
+ "_$employeetype" = "_" -o \
+ "_$manager" = "_" -o \
+ "_$mailserver" = "_" ]; then
+ error "Missing parameter"
+ usage
+fi
+
+case "$employeetype" in
+ Contractor)
+ if [ "_$employeenumber" != "_" ]; then
+ error "Contractors should not have an HP Employee number"
+ exit 1
+ fi
+ ;;
+ *) # already verified that employeetype is correct
+ if [ "_$employeenumber" = "_" ]; then
+ error "Employee number is required for HP Employees and SEEDs"
+ exit 1
+ fi
+ ;;
+esac
+
+firstname=$(print $fullname | awk '{print $1}')
+
+cat > $message_file <<!EOD
+
+A new $employeetype, $fullname ($username), has recently joined the HP
+Enterprize Java Lab (eJL). Please set up an email account for
+$fullname. $firstname will be working for $manager and will receive
+email on the machine named $mailserver.
+
+!EOD
+
+if [ ! "$employeetype" = "Contractor" ]; then
+ cat >> $message_file <<!EOD
+$fullname's HP Employee number is $employeenumber.
+
+!EOD
+
+fi
+
+cat >> $message_file <<!EOD
+Please respond to this message when this task has been completed.
+
+Thank you.
+!EOD
+
+email_postmaster
+
+if [ $? -eq 0 ]; then
+ info "Request for email account for $fullname has been successfully sent"
+else
+ error "Problems were encountered while sending request for email account
+for $fullname"
+fi
--- /dev/null
+#!/bin/ksh
+################################################################################
+#
+# File: add_moa
+# RCS: $Header: add_moa,v 1.4 98/03/19 13:52:49 fong Exp $
+# Description: This script adds a new person to moa
+# Author: Andrew DeFaria, California Language Labs
+# Created: Mon May 19 15:56:06 PDT 1997
+# Modified:
+# Language: Korn Shell
+#
+# (c) Copyright 2001, Andrew@DeFaria.com, all rights reserved
+#
+################################################################################
+# Set me to command name
+me=$(basename $0)
+
+# Set adm_base
+adm_base=${adm_base:-$HOME/adm}
+
+# Set adm_fpath
+adm_fpath=${adm_fpath:-$adm_base/functions}
+
+# Source functions
+. $adm_fpath/common
+
+function usage {
+ print -u2 "Usage: $me -username <username> -fullname <fullname>"
+ print -u2 "\t-phone <phone> -homeserver <homeserver> -shell <shell>"
+ exit 1
+} # usage
+
+function add_to_moa {
+ cd $admin_root/lib
+ co -q -l $master_passwd
+
+ if [ $? -ne 0 ]; then
+ error "Unable to checkout $master_passwd"
+ exit $?
+ fi
+
+ trap cancel_checkout INT ERR
+
+ if [ "$shell" = "tcsh" ]; then
+ shell="/app/tcsh"
+ else
+ shell="/bin/$shell"
+ fi
+
+ uid=$(/app/newuid) # generate unique uid
+ print "$username:*:$uid:$gid:$fullname,42U,$phone,_MoA_:/nfs/$homeserver/data/home/$username:$shell" >> $master_passwd
+
+ if [ $? -ne 0 ]; then
+ error "Unable to add entry to $master_passwd"
+ exit $?
+ fi
+
+ ci -u -q -m"Added $fullname" $master_passwd
+ if [ $? -ne 0 ]; then
+ error "Unable to check in new master password file!"
+ exit $?
+ fi
+
+ trap INT ERR
+
+ cd $OLDPWD
+} # add_to_moa
+
+function cancel_checkout {
+ info "Canceling checkout"
+ rcs -q -u $master_passwd
+ chmod -w $master_passwd
+ co -q $master_passwd
+ exit 1
+} # cancel_checkout
+A
+function user_exists {
+ grep -ve "^#" $master_passwd | cut -f1 -d: |
+ grep "$username" >/dev/null 2>&1
+ return $?
+} # user_exists
+
+# Find admin root
+if [ -d /net/bismol/app/admin ]; then
+ admin_root=/net/bismol/app/admin
+elif [ -d /net/hpclbis/app/admin ]; then
+ admin_root=/net/hpclbis/app/admin
+elif [ -d /nfs/bismol/app/admin ]; then
+ admin_root=/nfs/bismol/app/admin
+elif [ -d /nfs/hpclbis/app/admin ]; then
+ admin_root=/nfs/hpclbis/app/admin
+elif [ -d /nfs/hpclbis/root/app/admin ]; then
+ admin_root=/nfs/hpclbis/root/app/admin
+else
+ error "Internal error: Unable to ascertain admin_root!"
+ exit 1
+fi
+
+master_passwd=$admin_root/lib/master_passwd
+gid=191 # lang group
+username=
+fullname=
+phone=
+homeserver=
+shell=
+
+while [ $# -ge 1 ]; do
+ case "$1" in
+ -usage)
+ usage
+ ;;
+
+ -username)
+ if [ $# -le 1 ]; then
+ error "Username not specified!"
+ usage
+ fi
+ shift
+ username="$1"
+ ;;
+
+ -fullname)
+ if [ $# -le 1 ]; then
+ error "Full name not specified!"
+ usage
+ fi
+ shift
+ fullname="$1"
+ ;;
+
+ -phone)
+ if [ $# -le 1 ]; then
+ error "Phone not specified!"
+ usage
+ fi
+ shift
+ phone="$1"
+ ;;
+
+ -homeserver)
+ if [ $# -le 1 ]; then
+ error "Home machine not specified!"
+ usage
+ fi
+ shift
+ homeserver="$1"
+ ;;
+
+ -shell)
+ if [ $# -le 1 ]; then
+ error "Shell not specified!"
+ usage
+ fi
+ shift
+ shell="$1"
+ ;;
+
+ *)
+ error "Unknown parameter encounter: \"$1\""
+ usage
+ ;;
+ esac
+ shift
+done
+
+if [ "_$username" = "_" -o \
+ "_$fullname" = "_" -o \
+ "_$phone" = "_" -o \
+ "_$homeserver" = "_" -o \
+ "_$shell" = "_" ]; then
+ error "Missing parameter"
+ usage
+fi
+
+#if $(user_exists); then
+ #error "$username already exists in the master password file"
+#else
+ add_to_moa
+ if [ $? -eq 0 ]; then
+ info "Account for $fullname has been successfully created"
+ else
+ error "Problems encountered trying to create account for $fullname"
+ fi
+#fi
--- /dev/null
+#!/bin/ksh
+################################################################################
+#
+# File: add_postnote
+# RCS: $Header: add_postnote,v 1.1 97/05/27 15:35:32 defaria Exp $
+# Description: This script adds a new person to the postnote addressbook
+# Author: Andrew DeFaria, California Language Labs
+# Created: Mon May 19 15:56:06 PDT 1997
+# Modified:
+# Language: Korn Shell
+#
+# (c) Copyright 2001, Andrew@DeFaria.com, all rights reserved.
+#
+################################################################################
+# Set me to command name
+me=$(basename $0)
+
+# Set adm_base
+adm_base=${adm_base:-$HOME/adm}
+
+# Set adm_fpath
+adm_fpath=${adm_fpath:-$adm_base/functions}
+
+# Source functions
+. $adm_fpath/common
+
+function usage {
+ print -u2 "Usage: $me -username <username> -fullname <fullname>"
+ print -u2 "\t-phone <phonenumber> -hostname <hostname>"
+ print -u2 "\t-displayname <displayname>"
+ exit 1
+} # usage
+
+function add_to_postnote {
+ cd $postnote_dir
+ check_out_file=$postnote_addressbook
+ co -q -l $check_out_file
+
+ if [ $? -ne 0 ]; then
+ error "Unable to checkout $check_out_file"
+ exit $?
+ fi
+
+ trap cancel_checkout INT ERR
+
+ print "S:$fullname = Phone: $phonenumber =
+($hostname,$displayname:0,$username@cup.hp.com,F,$xterm)" >> $check_out_file
+
+ if [ $? -ne 0 ]; then
+ error "Unable to add entry to $check_out_file"
+ exit $?
+ fi
+
+ ci -u -q -m"Added $fullname" $check_out_file
+ if [ $? -ne 0 ]; then
+ error "Unable to check in $check_out_file!"
+ exit $?
+ fi
+
+ trap INT ERR
+
+ cd $OLDPWD
+} # add_to_postnote
+
+function cancel_checkout {
+ info "Canceling checkout"
+ rcs -q -u $check_out_file
+ chmod -w $check_out_file
+ co -q $check_out_file
+ exit 1
+} # cancel_checkout
+
+# Find AppServer's data directory
+if [ -d /net/bismol/app/data ]; then
+ appserver_data=/net/bismol/app/data
+elif [ -d /net/hpclbis/app/data ]; then
+ appserver_data=/net/hpclbis/app/data
+elif [ -d /nfs/bismol/app/data ]; then
+ appserver_data=/nfs/bismol/app/data
+elif [ -d /nfs/hpclbis/app/data ]; then
+ appserver_data=/nfs/hpclbis/app/data
+elif [ -d /nfs/hpclbis/root/app/data ]; then
+ appserver_data=/nfs/hpclbis/root/app/data
+else
+ error "Internal error: Unable to ascertain appserver_data!"
+ exit 1
+fi
+
+postnote_dir=$appserver_data
+postnote_addressbook=$postnote_dir/pn_addressbook
+username=
+fullname=
+phonenumber="????"
+hostname=
+displayserver=
+xterm=
+check_out_file=
+
+while [ $# -ge 1 ]; do
+ case "$1" in
+ -usage)
+ usage
+ ;;
+
+ -username)
+ if [ $# -le 1 ]; then
+ error "Username not specified!"
+ usage
+ fi
+ shift
+ username="$1"
+ ;;
+
+ -fullname)
+ if [ $# -le 1 ]; then
+ error "Full name not specified!"
+ usage
+ fi
+ shift
+ fullname="$1"
+ ;;
+ -phone)
+ if [ $# -le 1 ]; then
+ error "Phone not specified!"
+ usage
+ fi
+ shift
+ phonenumber="$1"
+ ;;
+
+ -hostname)
+ if [ $# -le 1 ]; then
+ error "Hostname not specified!"
+ usage
+ fi
+ shift
+ hostname="$1"
+ ;;
+
+ -displayname)
+ if [ $# -le 1 ]; then
+ error "Displayname not specified!"
+ usage
+ fi
+ shift
+ displayname="$1"
+ ;;
+
+ *)
+ error "Unknown parameter encounter: \"$1\""
+ usage
+ ;;
+ esac
+ shift
+done
+
+if [ "_$username" = "_" -o \
+ "_$fullname" = "_" -o \
+ "_$hostname" = "_" ]; then
+ error "Missing parameter"
+ usage
+fi
+
+if [ "_$displayname" = "_" ]; then
+ displayname=$hostname:0.0
+elif [ "$displayname" != "$hostname" ]; then
+ xterm="T"
+else
+ xterm="F"
+fi
+
+add_to_postnote
+
+if [ $? -eq 0 ]; then
+ info "$fullname has been added to PostNote addressbook"
+ if [ "$xterm" = "T" ]; then
+ info "X Terminal Server: $hostname; X Terminal Display Name:
+$displayname"
+ fi
+else
+ error "Problems encountered trying to create PostNote entry for $fullname"
+fi
--- /dev/null
+#!/bin/ksh
+################################################################################
+#
+# File: add_sharedx
+# RCS: $Header: add_sharedx,v 1.1 97/05/27 15:35:33 defaria Exp $
+# Description: This script adds a new person to the SharedX addressbook
+# Author: Andrew DeFaria, California Language Labs
+# Created: Mon May 19 15:56:06 PDT 1997
+# Modified:
+# Language: Korn Shell
+#
+# (c) Copyright 2001, Andrew@DeFaria.com, all rights reserved
+#
+################################################################################
+# Set me to command name
+me=$(basename $0)
+
+# Set adm_base
+adm_base=${adm_base:-$HOME/adm}
+
+# Set adm_fpath
+adm_fpath=${adm_fpath:-$adm_base/functions}
+
+# Source functions
+. $adm_fpath/common
+
+function usage {
+ print -u2 "Usage: $me -username <username> -fullname <fullname>"
+ print -u2 "\t-phone <phonenumber> -hostname <hostname>"
+ print -u2 "\t-displayname <displayname>"
+ exit 1
+} # usage
+
+function add_to_sharedx {
+ cd $sharedx_dir
+ check_out_file=$sharedx_addressbook
+ co -q -l $check_out_file
+
+ if [ $? -ne 0 ]; then
+ error "Unable to checkout $check_out_file"
+ exit $?
+ fi
+
+ trap cancel_checkout INT ERR
+
+ if [ "$xterm" = "T" ]; then
+ print "$displayname:0\t$fullname\t$phonenumber $username\t$hostname" >>
+$check_out_file
+ else
+ print "$displayname:0\t$fullname\t$phonenumber $username" >>
+$check_out_file
+ fi
+
+ if [ $? -ne 0 ]; then
+ error "Unable to add entry to $check_out_file"
+ exit $?
+ fi
+
+ ci -u -q -m"Added $fullname" $check_out_file
+ if [ $? -ne 0 ]; then
+ error "Unable to check in $check_out_file!"
+ exit $?
+ fi
+
+ trap INT ERR
+
+ cd $OLDPWD
+} # add_to_sharedx
+
+function cancel_checkout {
+ info "Canceling checkout"
+ rcs -q -u $check_out_file
+ chmod -w $check_out_file
+ co -q $check_out_file
+ exit 1
+} # cancel_checkout
+
+# Find AppServer's data directory
+if [ -d /net/bismol/app/data ]; then
+ appserver_data=/net/bismol/app/data
+elif [ -d /net/hpclbis/app/data ]; then
+ appserver_data=/net/hpclbis/app/data
+elif [ -d /nfs/bismol/app/data ]; then
+ appserver_data=/nfs/bismol/app/data
+elif [ -d /nfs/hpclbis/app/data ]; then
+ appserver_data=/nfs/hpclbis/app/data
+elif [ -d /nfs/hpclbis/root/app/data ]; then
+ appserver_data=/nfs/hpclbis/root/app/data
+else
+ error "Internal error: Unable to ascertain appserver_data!"
+ exit 1
+fi
+
+sharedx_dir=$appserver_data/SharedX/address_books
+sharedx_addressbook=$sharedx_dir/CLL
+username=
+fullname=
+phonenumber="????"
+hostname=
+displayserver=
+xterm=
+check_out_file=
+
+while [ $# -ge 1 ]; do
+ case "$1" in
+ -usage)
+ usage
+ ;;
+
+ -username)
+ if [ $# -le 1 ]; then
+ error "Username not specified!"
+ usage
+ fi
+ shift
+ username="$1"
+ ;;
+
+ -fullname)
+ if [ $# -le 1 ]; then
+ error "Full name not specified!"
+ usage
+ fi
+ shift
+ fullname="$1"
+ ;;
+ -phone)
+ if [ $# -le 1 ]; then
+ error "Phone not specified!"
+ usage
+ fi
+ shift
+ phonenumber="$1"
+ ;;
+
+ -hostname)
+ if [ $# -le 1 ]; then
+ error "Hostname not specified!"
+ usage
+ fi
+ shift
+ hostname="$1"
+ ;;
+
+ -displayname)
+ if [ $# -le 1 ]; then
+ error "Displayname not specified!"
+ usage
+ fi
+ shift
+ displayname="$1"
+ ;;
+
+ *)
+ error "Unknown parameter encounter: \"$1\""
+ usage
+ ;;
+ esac
+ shift
+done
+
+if [ "_$username" = "_" -o \
+ "_$fullname" = "_" -o \
+ "_$displayname" = "_" ]; then
+ error "Missing parameter"
+ usage
+fi
+
+if [ "_$hostname" = "_" ]; then
+ hostname=$displayname
+elif [ "$displayname" != "$hostname" ]; then
+ xterm="T"
+else
+ xterm="F"
+fi
+
+add_to_sharedx
+
+if [ $? -eq 0 ]; then
+ info "$fullname has been added to Shared/X addressbook"
+ if [ "$xterm" = "T" ]; then
+ info "X Terminal Server: $hostname; X Terminal Display Name:
+$displayname"
+ fi
+else
+ error "Problems encountered trying to create Shared/X entry for $fullname"
+fi
--- /dev/null
+#!/bin/ksh
+################################################################################
+#
+# File: add_synchronize
+# RCS: $Header: add_synchronize,v 1.2 97/05/27 15:35:51 defaria Exp
+$
+# Description: This script adds a new person to synchronize
+# Author: Andrew DeFaria, California Language Labs
+# Created: Mon May 19 15:56:06 PDT 1997
+# Modified:
+# Language: Korn Shell
+#
+# (c) Copyright 2001, Andrew@DeFaria.com, all rights reserved
+#
+################################################################################
+# Set me to command name
+me=$(basename $0)
+
+# Set adm_base
+adm_base=${adm_base:-$HOME/adm}
+
+# Set adm_fpath
+adm_fpath=${adm_fpath:-$adm_base/functions}
+
+# Source functions
+. $adm_fpath/common
+
+function usage {
+ print -u2 "Usage: $me -username <username> -fullname <fullname>"
+ print -u2 "\t-groupname <groupname>"
+ exit 1
+} # usage
+
+function add_to_synchronize {
+ cd $synchro_db
+ check_out_file=$synchro_users
+ co -q -l $check_out_file
+
+ if [ $? -ne 0 ]; then
+ error "Unable to checkout $check_out_file"
+ exit $?
+ fi
+
+ trap cancel_checkout INT ERR
+
+ print "$fullname,\t$username,\t$username@cup.hp.com" >> $check_out_file
+
+ if [ $? -ne 0 ]; then
+ error "Unable to add entry to $check_out_file"
+ exit $?
+ fi
+
+ ci -u -q -m"Added $fullname" $check_out_file
+ if [ $? -ne 0 ]; then
+ error "Unable to check in $check_out_file!"
+ exit $?
+ fi
+
+ trap INT ERR
+
+ cd $OLDPWD
+} # add_to_synchronize
+
+function add_to_synchronize_group {
+ cd $synchro_db/GroupTemplates
+ check_out_file=$groupname
+ co -q -l $check_out_file
+
+ if [ $? -ne 0 ]; then
+ error "Unable to checkout $check_out_file"
+ exit $?
+ fi
+
+ trap cancel_checkout INT ERR
+
+ print "$fullname" >> $check_out_file
+
+ if [ $? -ne 0 ]; then
+ error "Unable to add entry to $check_out_file"
+ exit $?
+ fi
+
+ ci -u -q -m"Added $fullname to $check_out_file" $check_out_file
+ if [ $? -ne 0 ]; then
+ error "Unable to check in $check_out_file!"
+ exit $?
+ fi
+
+ trap INT ERR
+
+ make > make.out 2>&1
+
+ if [ $? -ne 0 ]; then
+ error "Rebuilding of Synchronize groups failed"
+ exit $?
+ fi
+
+ cd $OLDPWD
+} # add_to_synchronize_group
+
+function cancel_checkout {
+ info "Canceling checkout"
+ rcs -q -u $check_out_file
+ chmod -w $check_out_file
+ co -q $check_out_file
+ exit 1
+} # cancel_checkout
+
+function user_exists {
+ grep -ve "^#" $synchro_users | cut -f1 -d',' |
+ grep "^$username$" >/dev/null 2>&1
+ return $?
+} # user_exists
+
+# Find synchro_dir
+if [ -d /net/cllapp/opt/synchronize ]; then
+ synchro_dir=/net/cllapp/opt/synchronize
+else
+ error "Internal error: Unable to ascertain synchro_dir!"
+ exit 1
+fi
+
+synchro_db=$synchro_dir/db
+synchro_users=$synchro_db/users
+username=
+fullname=
+groupname=
+check_out_file=
+
+while [ $# -ge 1 ]; do
+ case "$1" in
+ -usage)
+ usage
+ ;;
+
+ -username)
+ if [ $# -le 1 ]; then
+ error "Username not specified!"
+ usage
+ fi
+ shift
+ username="$1"
+ ;;
+
+ -fullname)
+ if [ $# -le 1 ]; then
+ error "Full name not specified!"
+ usage
+ fi
+ shift
+ fullname="$1"
+ ;;
+ -groupname)
+ if [ $# -le 1 ]; then
+ error "Groupname not specified!"
+ usage
+ fi
+ shift
+ groupname="$1"
+ ;;
+
+ *)
+ error "Unknown parameter encounter: \"$1\""
+ usage
+ ;;
+ esac
+ shift
+done
+
+if [ "_$username" = "_" -o \
+ "_$fullname" = "_" -o \
+ "_$groupname" = "_" ]; then
+ error "Missing parameter"
+ usage
+fi
+
+if $(user_exists); then
+ error "$username already exists in the Synchronize database"
+elif [ ! -f $synchro_db/GroupTemplates/$groupname ]; then
+ error "Unknown Synchronize group $groupname"
+else
+ add_to_synchronize
+ if [ $? -eq 0 ]; then
+ info "$fullname has been added as a Synchronize user"
+ else
+ error "Problems encountered trying to create Synchronize user for
+$fullname"
+ fi
+ add_to_synchronize_group
+ if [ $? -eq 0 ]; then
+ info "$fullname has been successfully added to $groupname"
+ else
+ error "Problems encountered trying to add $fullname to $groupname"
+ fi
+fi
--- /dev/null
+#!/bin/ksh
+################################################################################
+#
+# File: add_user
+# Description: This script adds a user
+# Author: Andrew DeFaria
+# Language: Korn Shell
+# Modified:
+#
+# (c) Copyright 2001, Andrew@DeFaria.com, all rights reserved
+#
+################################################################################
+# Parameters
+employeenumber=
+employeetype=
+fullname=
+groupname=
+manager=
+phone=
+username=
+workstation=
+shell=
+hostname=
+homeserver=
+displayname=
+
+# fieldvalue is used when prompting for non-supplied fields
+fieldvalue=
+
+# Logfile
+logfile=$TMPDIR/add_user.$$.log
+
+## Set global env variables
+# Set me
+me=${0##*/}
+
+function error {
+ print -u2 "$me: Error: $1"
+} # error
+
+function warning {
+ print -u2 "$me: Warning: $1"
+} # warning
+
+function display {
+ print "$1"
+} # display
+
+function info {
+ display "$me: Info: $1"
+} # info
+
+function verbose {
+ if [ ! -z "$verbose" ]; then
+ display "$1"
+ fi
+} # verbose
+
+function debug {
+ if [ ! -z "$debug" ]; then
+ print -u2 "$me: Debug: $1"
+ fi
+} # debug
+
+function usage {
+ display "$me [-v|verbose] [-d|debug] [-usage]"
+ display " -v|verbose: Turns on verbose mode"
+ display " -d|debug: Turns on debug mode"
+ display " -usage: Print this usage message"
+ display
+ display "The following options will be prompted for if not supplied on the"
+ display "command line. If any command line parameter has spaces in it then"
+ display "you need to surround it in quotes (e.g. -owners_fullname"
+ display "\"Andrew DeFaria\". Note: Do NOT use quotes when responding to"
+ display "prompts for missing information."
+ display
+ display " -employeenumber Specify the Employee \#"
+ display " -employeetype One of Employee, SEED or Contractor"
+ display " -fullname The employee's full name"
+ display " -groupname Synchronize group name"
+ display " -manager Full name of manager"
+ display " -phone In the format of 7-XXXX (the t-44 will"
+ display " be prepended)"
+ display " -username Unix/NT username for this new user"
+ display " -workstation One of Unix|X Terminal|Win NT"
+ display " -shell One of ksh|sh|csh|tcsh"
+ display " -hostname Name of workstation host or X Terminal"
+ display " server"
+ display " -homeserver Name of machine where \$HOME will be"
+ display " created"
+ display " -displayname Name of DISPLAY"
+
+ error "$1"
+ exit 1
+} # usage
+
+function prompt_for_field {
+ fieldname="$1"
+ fieldvalue=
+
+ while [ ! -n "$fieldvalue" ]; do
+ display "Enter the value for $fieldname:\c"
+ read fieldvalue
+
+ if [ ! -n "$fieldvalue" ]; then
+ error "Must specify $fieldname!"
+ fi
+ done
+} # prompt_for_field
+
+function display_parms {
+ display "New user:"
+ display "------------------------------------------------------"
+ display "employeenumber = $employeenumber"
+ display "employeetype = $employeetype"
+ display "fullname = $fullname"
+ display "groupname = $groupname"
+ display "manager = $manager"
+ display "phone = $phone"
+ display "username = $username"
+ display "workstation = $workstation"
+ display "shell = $shell"
+ display "hostname = $hostname"
+ display "homeserver = $homeserver"
+ display "displayname = $displayname"
+ display
+ display "Command line equivalent:"
+ display
+ display "$me -employeenumber $employeenumber \\"
+ display " -employeetype $employeetype \\"
+ display " -fullname \"$fullname\" \\"
+ display " -groupname $groupname \\"
+ display " -manager \"$manager\" \\"
+ display " -phone $phone \\"
+ display " -username $username \\"
+ display " -workstation $workstation \\"
+ display " -shell $shell \\"
+ display " -hostname $hostname \\"
+ display " -homeserver $homeserver \\"
+ display " -displayname $displayname"
+ display "Are the parameters correct [Y|n]?\c"
+ read answer
+ case "$answer" in
+ Y|y)
+ : OK!
+ ;;
+ *)
+ exit
+ esac
+} # display_parms
+
+# Get parameters
+while [ $# -ge 1 ]; do
+ case "$1" in
+ -usage)
+ usage
+ ;;
+
+ -v|-verbose)
+ verbose=yes
+ ;;
+
+ -d|-debug)
+ debug=yes
+ ;;
+
+ -employeenumber)
+ if [ $# -gt 1 ]; then
+ shift
+ employeenumber="$1"
+ fi
+ ;;
+
+ -employeetype)
+ if [ $# -gt 1 ]; then
+ shift
+ employeetype="$1"
+ fi
+ ;;
+
+ -fullname)
+ if [ $# -gt 1 ]; then
+ shift
+ fullname="$1"
+ fi
+ ;;
+
+ -groupname)
+ if [ $# -gt 1 ]; then
+ shift
+ groupname="$1"
+ fi
+ ;;
+
+ -manager)
+ if [ $# -gt 1 ]; then
+ shift
+ manager="$1"
+ fi
+ ;;
+
+ -phone)
+ if [ $# -gt 1 ]; then
+ shift
+ phone="$1"
+ fi
+ ;;
+
+ -username)
+ if [ $# -gt 1 ]; then
+ shift
+ username="$1"
+ fi
+ ;;
+
+ -workstation)
+ if [ $# -gt 1 ]; then
+ shift
+ workstation="$1"
+ fi
+ ;;
+
+ -shell)
+ if [ $# -gt 1 ]; then
+ shift
+ shell="$1"
+ fi
+ ;;
+
+ -hostname)
+ if [ $# -gt 1 ]; then
+ shift
+ hostname="$1"
+ fi
+ ;;
+
+ -homeserver)
+ if [ $# -gt 1 ]; then
+ shift
+ homeserver="$1"
+ fi
+ ;;
+
+ -displayname)
+ if [ $# -gt 1 ]; then
+ shift
+ displayname="$1"
+ fi
+ ;;
+
+ *)
+ usage "Unrecognized parameter $1"
+ ;;
+ esac
+ shift
+done
+
+if [ "_$employeenumber" = "_" ]; then
+ verbose "Employee Number was not specified!"
+ prompt_for_field "Employee Number"
+ employeenumber="$fieldvalue"
+fi
+
+if [ "_$employeetype" = "_" ]; then
+ verbose "Employee Type was not specified!"
+ prompt_for_field "Employee Type"
+ employeetype="$fieldvalue"
+fi
+
+while true; do
+ case "$employeetype" in
+ Employee|SEED|Contractor)
+ break
+ ;;
+
+ *)
+ error "Employee Type was not one of \"Employee\", \"SEED\" or \"Contractor\"!"
+ prompt_for_field "Employee Type"
+ employeetype="$fieldvalue"
+ ;;
+ esac
+done
+
+if [ "_$fullname" = "_" ]; then
+ verbose "Employee Name was not specified!"
+ prompt_for_field "Employee Name"
+ fullname="$fieldvalue"
+fi
+
+if [ "_$groupname" = "_" ]; then
+ verbose "Project Name was not specified!"
+ prompt_for_field "Project Name"
+ groupname="$fieldvalue"
+fi
+
+while true; do
+ if [ -f "/net/cllapp/opt/synchronize/db/GroupTemplates/$groupname" ];
+ then
+ break
+ else
+ verbose "Project name \"$groupname\" is not valid!"
+ display
+ display "Valid Project names are:"
+ cd /net/cllapp/opt/synchronize/db/groups/Projects
+ ls *
+ cd $OLDPWD
+ display
+ prompt_for_field "Project Name"
+ groupname="$fieldvalue"
+ fi
+done
+
+if [ "_$manager" = "_" ]; then
+ verbose "Project Manager was not specified!"
+ prompt_for_field "Project Manager"
+ manager="$fieldvalue"
+fi
+
+if [ "_$phone" = "_" ]; then
+ verbose "Phone was not specified!"
+ prompt_for_field "Phone"
+ phone="$fieldvalue"
+fi
+
+if [ "_$username" = "_" ]; then
+ verbose "Username was not specified!"
+ prompt_for_field "Username"
+ username="$fieldvalue"
+fi
+
+if [ "_$workstation" = "_" ]; then
+ verbose "Workstation was not specified!"
+ prompt_for_field "Workstation"
+ workstation="$fieldvalue"
+fi
+
+while true; do
+ case "$workstation" in
+ Unix|"X Terminal"|"Win NT")
+ break
+ ;;
+
+ *)
+ error "Workstation was not one of Unix|X Terminal|Win NT!"
+ prompt_for_field "Workstation"
+ workstation="$fieldvalue"
+ ;;
+ esac
+done
+
+if [ "_$shell" = "_" ]; then
+ verbose "Shell was not specified!"
+ prompt_for_field "Shell"
+ shell="$fieldvalue"
+fi
+
+while true; do
+ case "$shell" in
+ ksh|sh|csh|tcsh)
+ break
+ ;;
+
+ *)
+ error "Shell was not one of ksh, sh, csh or tcsh!"
+ prompt_for_field "Shell"
+ shell="$fieldvalue"
+ ;;
+ esac
+done
+
+if [ "_$hostname" = "_" ]; then
+ verbose "Hostname was not specified!"
+ prompt_for_field "Hostname"
+ hostname="$fieldvalue"
+fi
+
+if [ "$workstation" != "Win NT" ]; then
+ if [ "_$homeserver" = "_" ]; then
+ verbose "Home Server was not specified!"
+ prompt_for_field "Home Server"
+ homeserver="$fieldvalue"
+ fi
+fi
+
+if [ "$workstation" = "Unix" ]; then
+ if [ "_$displayname" = "_" ]; then
+ displayname=$hostname
+ fi
+elif [ "$workstation" = "X Terminal" ]; then
+ if [ "$displayname" = "$hostname" ]; then
+ verbose "Display name cannot be the same as hostname for an X Terminal"
+ prompt_for_field "Display name"
+ displayname="$fieldvalue"
+ fi
+ if [ "_$displayname" = "_" ]; then
+ prompt_for_field "Display name"
+ displayname="$fieldvalue"
+ fi
+fi
+
+display_parms
+
+export PATH=$PATH:/app/admin/bin
+
+print "Add MOA Entry (Y/n)?\c"
+read answer
+answer=$(print "$answer" | tr [:upper:] [:lower:])
+
+case $answer in
+ y|yes)
+ add_moa -username $username \
+ -fullname "$fullname" \
+ -phone $phone \
+ -homeserver $homeserver \
+ -shell $shell
+ ;;
+ *)
+ print "$fullname not added to MOA"
+ ;;
+esac
+
+if [ "$employeetype" != "Contractor" ]; then
+ print "Add Synchronize Entry (Y/n)?\c"
+ read answer
+ answer=$(print "$answer" | tr [:upper:] [:lower:])
+
+ case $answer in
+ y|yes)
+ add_synchronize -username $username \
+ -fullname "$fullname" \
+ -groupname $groupname
+ ;;
+ *)
+ print "$fullname not added to Synchronize"
+ ;;
+ esac
+fi
+
+print "Add Postnote Entry (Y/n)?\c"
+read answer
+answer=$(print "$answer" | tr [:upper:] [:lower:])
+
+case $answer in
+ y|yes)
+ add_postnote -username $username \
+ -fullname "$fullname" \
+ -phone $phone \
+ -hostname $hostname \
+ -displayname $displayname
+ ;;
+ *)
+ print "$fullname not added to Postnote"
+ ;;
+esac
+
+print "Add Shared/X Entry (Y/n)?\c"
+read answer
+answer=$(print "$answer" | tr [:upper:] [:lower:])
+
+case $answer in
+ y|yes)
+ add_sharedx -username $username \
+ -fullname "$fullname" \
+ -phone $phone \
+ -hostname $hostname \
+ -displayname $displayname
+ ;;
+ *)
+ print "$fullname not added to Shared/X"
+ ;;
+esac
+
+print "Send request for email account for $fullname (Y/n)?\c"
+read answer
+answer=$(print "$answer" | tr [:upper:] [:lower:])
+
+case $answer in
+ y|yes)
+ if [ "$employeetype" != "Contractor" ]; then
+ add_email -username $username \
+ -fullname "$fullname" \
+ -employeetype $employeetype \
+ -employeenumber $employeenumber \
+ -manager "$manager" \
+ -mailserver cllmail
+ else
+ add_email -username $username \
+ -fullname "$fullname" \
+ -employeetype $employeetype \
+ -manager "$manager" \
+ -mailserver cllmail
+ fi
+ ;;
+ *)
+ print "$fullname not added to email"
+ ;;
+esac
--- /dev/null
+#!/usr/bin/ksh
+################################################################################
+#
+# File: adl-config
+# Description: ADL system configuration script
+# To run this script you must have the adl-config.src parameter
+# file located in root. It is important that the source parameter
+# file be read and understood before running the script.
+# See below for useful comments.
+# Author: Kevin Lister - kel@cup.hp.com
+# Date 3.11.99
+# Language: Korn Shell
+#
+# (c) Copyright 1991, Hewlett-Packard Company, all rights reserved.
+#
+# Revision History
+# 3.25.99 kel Changed the name of the Clearcase install script in shell
+# archive, so it had to be changed here as well. Added an
+# eclipse install script to the shell archive, so a line to
+# to remove it if Clearcase is not installed had to be added
+# here as well.
+# 4.1.99 kel Added code to determine if the installed system is going to have
+# a graphics console. If yes, then the /etc/dt/config/Xservers
+# file needs to have the console server line uncommented.
+# Also added absolute paths to the unix commands.
+#
+################################################################################
+# Useful (hopefully) Comments Section
+#
+# This script will configure a system to operate nicely in the ADL
+# infrastructure. This script requires the adl-config.src file in order to
+# run. The adl-config.src file contains variables that determine exactly
+# what type of optional software to install, which patch bundle to install,
+# configures various system files, etc.
+#
+# Here is a brief description of what this script will do:
+#
+# 1) Check that the script is run as root
+# 2) Check that the architecture is correct. The script will run on most
+# hardware. The architecture is really only important when trying to
+# determine which 100Mbit drivers to install.
+# 3) Sources the input parameter source file.
+# 4) Determine if script is run intereactive or not.
+# 5) Determine if 100Mbit drivers are to be installed
+# 6) If intereactive, greet the user and display the parameter settings.
+# 7) Modify the kernel system file located in /stand/system
+# 8) Download the shell archive file from the anonymous ftp server and unpack.
+# The shell archive contains many files and symlinks and will not be
+# listed here. See the README in the ahell archive build area and the shell
+# archive itself for more details. One can also look through the "root"
+# directory that is used to build the archive to see which files and
+# symlinks are included.
+# 9) Modify the /etc/rc.config.d files. (turn off unused stuff)
+# 10) Modify the /etc/issue, /etc/gettydefs and /etc/motd files.
+# 11) Modify miscellaneous files.
+# 12) Perform miscellaneous setup procedures:
+# a) Run /net/bismol/App/admin/bin/setup
+# b) Run /usr/local/bin/ninstall -h bismol lp adm net3
+# c) Run /usr/adm/netdist/netdaemon.dy
+# d) Run /usr/sbin/catman -w
+# 13) Set the system up for ClearCase installation upon automatic reboot.
+# 14) Install optional software and patches from the specified depot server.
+#
+# END of Useful Comments Section
+################################################################################
+
+#
+##
+### Variables
+##
+#
+
+SRC_FILE=/adl-config.src
+
+BASE=${0##*/}
+HOST=`/bin/uname -n`
+ARCH=`/bin/uname -m`
+OS=`/bin/uname -r | /usr/bin/cut -c 3-4`
+integer INDEX=0
+
+#
+##
+### Functions
+##
+#
+
+function error {
+ print -u2 "\t$BASE: Error: $1"
+}
+
+function warning {
+ print -u2 "\t$BASE: Warning: $1"
+}
+
+function display {
+ print "\t$1"
+}
+
+function usage {
+ display "\t$BASE [-usage]"
+ display " -usage: Print this usage message"
+ display " "
+ error "$1"
+ exit 1
+}
+
+function step {
+ let INDEX=INDEX+1
+ display "\tStep #$INDEX: $@"
+}
+
+function get_shar {
+step "Get shell archive from ftp server and unpack"
+ cd /
+ ftp -n $FTP_SERVER <<@EOD
+user $FTP_USER $FTP_PASSWD
+cd $SHAR_DIR
+get $SHAR_FILE
+quit
+@EOD
+if [ $? -ne 0 ]; then
+ error "Unable to ftp $SHAR_FILE from $FTP_SERVER"
+ exit 1
+fi
+sh $SHAR_FILE >> $LOGFILE 2>&1
+if [ $? -ne 0 ]; then
+ error "Cannot unpack shell archive."
+ exit 1
+fi
+/bin/rm -f $SHAR_FILE
+}
+
+function clearcase_setup {
+ if [ "$CLEARCASE" = "NO" ]; then
+ /bin/rm -f /sbin/rc3.d/S998install_clearcase
+ /bin/rm -f /sbin/rc3.d/S999install_eclipse
+ fi
+}
+
+function chk_uid {
+ if [ $(id -u) -ne 0 ]; then
+ error "Must be root to execute this command... Exiting!"
+ exit 1
+ fi
+}
+
+function chk_arch {
+ case $ARCH in
+ 9000/7[1-3]*|9000/755|9000/7[7-8]*|9000/8**)
+ continue
+ ;;
+
+ *)
+ warning "\tUnknown machine type $ARCH, Exiting!"
+ exit 1
+ ;;
+ esac
+}
+
+function read_src {
+ if [ -a $SRC_FILE ]; then
+ . $SRC_FILE
+ case "$CLEARCASE" in
+ y|Y|yes|YES|Yes|1)
+ CLEARCASE=yes
+ ;;
+ *)
+ CLEARCASE=no
+ ;;
+ esac
+ case "$SWINSTALL" in
+ y|Y|yes|YES|Yes|1)
+ SWINSTALL=yes
+ ;;
+ *)
+ SWINSTALL=no
+ ;;
+ esac
+ else
+ error "Source file does not exist!"
+ exit 1
+ fi
+}
+
+function set_mode {
+ case "$INTERACTIVE" in
+ y|Y|yes|YES|Yes|1)
+ INTERACTIVE=yes
+ ;;
+ *)
+ INTERACTIVE=no
+ ;;
+ esac
+}
+
+function fast_enet {
+ if [ "_$ENET_DRVRS" = "_" ]; then
+ FAST_ENET=no
+ else
+ FAST_ENET=yes
+ fi
+}
+
+function mod_kernel {
+ step "Modify /stand/system file."
+ grep -v -E 'maxswapchunks|default_disk_ir|nstrpty' /stand/system \
+ > /stand/system.new
+ /bin/mv /stand/system /stand/system.orig
+ /bin/mv /stand/system.new /stand/system
+
+ case $ARCH in
+ 9000/7[1-5]*)
+ echo "create_fastlinks 1" >> /stand/system
+ echo "dbc_max_pct 25" >> /stand/system
+ echo "default_disk_ir 1" >> /stand/system
+ echo "fs_async 1" >> /stand/system
+ echo "maxdsiz (256*1024*1024)" >> /stand/system
+ echo "maxfiles 256" >> /stand/system
+ echo "maxfiles_lim 2048" >> /stand/system
+ echo "maxssiz (80*1024*1024)" >> /stand/system
+ echo "maxswapchunks 4096" >> /stand/system
+ echo "maxuprc 500" >> /stand/system
+ echo "maxusers 150" >> /stand/system
+ echo "netmemmax 0" >> /stand/system
+ echo "nfile 7000" >> /stand/system
+ echo "nflocks 400" >> /stand/system
+ echo "ninode 20000" >> /stand/system
+ echo "nproc 1500" >> /stand/system
+ echo "npty 512" >> /stand/system
+ echo "nstrpty 512" >> /stand/system
+ echo "semmns 200" >> /stand/system
+ if [ "$OS" = "10" ]; then
+ echo "large_ncargs_enabled 1" >> /stand/system
+ fi
+ ;;
+
+ 9000/7[7-8]*|9000/8**)
+ echo "create_fastlinks 1" >> /stand/system
+ echo "dbc_max_pct 25" >> /stand/system
+ echo "default_disk_ir 1" >> /stand/system
+ echo "fs_async 1" >> /stand/system
+ echo "maxdsiz (512*1024*1024)" >> /stand/system
+ echo "maxfiles 256" >> /stand/system
+ echo "maxfiles_lim 2048" >> /stand/system
+ echo "maxssiz (80*1024*1024)" >> /stand/system
+ echo "maxswapchunks 4096" >> /stand/system
+ echo "maxuprc 1000" >> /stand/system
+ echo "maxusers 256" >> /stand/system
+ echo "netmemmax 0" >> /stand/system
+ echo "nfile 14000" >> /stand/system
+ echo "nflocks 800" >> /stand/system
+ echo "ninode 40000" >> /stand/system
+ echo "nproc 3000" >> /stand/system
+ echo "npty 512" >> /stand/system
+ echo "nstrpty 512" >> /stand/system
+ echo "semmns 400" >> /stand/system
+ if [ "$OS" = "10" ]; then
+ echo "large_ncargs_enabled 1" >> /stand/system
+ fi
+ ;;
+
+ *)
+ warning "Unknown machine model $ARCH!"
+ warning "Leaving kernel parameters as default"
+ /bin/mv /stand/system.orig /stand/system
+ ;;
+ esac
+} # mod_kernel
+
+function greet {
+ display "\tADL System Configuration script."
+ display
+ display "\tYou are about to install and modify various system files,"
+ display "\tinstall system patches, install optional software and,"
+ display "\tif you elected to do so, install ClearCase 3.2."
+ display
+ display "\tIf you wish to modify the parameters below exit the install"
+ display "\tand modify the parameters in the $SRC_FILE file."
+ display
+ display "\tMachine Name:\t\t\t$MACHINE_NAME"
+ display "\tMachine Usage:\t\t\t$MACHINE_USAGE"
+ display "\tMacine Location:\t\t$LOCATION"
+ display "\tOwner's Fullname:\t\t$OWNER_NAME"
+ display "\tOwner's Email:\t\t\t$OWNER_EMAIL"
+ display "\tOwner's Extension:\t\t$OWNER_EXTENSION"
+ display "\tInstall ClearCase?:\t\t$CLEARCASE"
+ display "\tInstall 100Mbit Drivers?:\t$FAST_ENET"
+ if [ "$SWINSTALL" = "yes" ]; then
+ display "\tThe following products will be installed from $DEPOT:"
+ display "\t$PRODUCTS"
+ display
+ else
+ display
+ fi
+ if [ "$INTERACTIVE" = "yes" ]; then
+ display "\tContinue installation with these parameters (Y|n)?\c"
+ display
+ answer=y
+ read answer
+ case "$answer" in
+ y|Y|yes|Yes|YES|"")
+ continue
+ ;;
+ *)
+ display
+ display "\tYou have chosen NOT to run the $BASE setup script...
+Exiting"
+ exit 1
+ ;;
+ esac
+ fi
+} # greet
+
+function mod_rc_files {
+ /usr/sbin/ch_rc -ap AUDIO_SERVER=0 >> $LOGFILE 2>&1
+ /usr/sbin/ch_rc -ap LIST_TEMPS=0 >> $LOGFILE 2>&1
+ /usr/sbin/ch_rc -ap CLEAR_TMP=1 >> $LOGFILE 2>&1
+ /usr/sbin/ch_rc -ap HPARRAY_START_STOP=0 >> $LOGFILE 2>&1
+ /usr/sbin/ch_rc -ap NIS_CLIENT=1 >> $LOGFILE 2>&1
+ /usr/sbin/ch_rc -ap NIS_DOMAIN=adl >> $LOGFILE 2>&1
+ /usr/sbin/ch_rc -ap START_LLBD=0 >> $LOGFILE 2>&1
+ /usr/sbin/ch_rc -ap NTPDATE_SERVER=cupertino.ntp.hp.com >> $LOGFILE 2>&1
+ /usr/sbin/ch_rc -ap XNTPD=1 >> $LOGFILE 2>&1
+ /usr/sbin/ch_rc -ap NETTL=0 >> $LOGFILE 2>&1
+ /usr/sbin/ch_rc -ap NUM_NFSIOD=16 >> $LOGFILE 2>&1
+ /usr/sbin/ch_rc -ap VTDAEMON_START=0 >> $LOGFILE 2>&1
+ if [ "$OS" = "10" ]; then
+ /usr/sbin/ch_rc -ap WAIT_FOR_NIS_SERVER=FALSE >> $LOGFILE 2>&1
+ fi
+}
+
+function mod_etc_files {
+ step "/etc files setup"
+ print "+auto.master" > /etc/auto_master
+ /bin/chmod 644 /etc/auto_master
+ /bin/chown root:root /etc/auto_master
+
+ sed "s/GenericSysName/$MACHINE_NAME/" /etc/issue > /etc/issue-new
+ /bin/mv /etc/issue /etc/issue-orig
+ /bin/mv /etc/issue-new /etc/issue
+
+ sed "s/Console Login:/$MACHINE_NAME Console Login:/" /etc/gettydefs \
+ > /etc/gettydefs-new
+ /bin/mv /etc/gettydefs /etc/gettydefs-orig
+ /bin/mv /etc/gettydefs-new /etc/gettydefs
+
+ /bin/banner $MACHINE_NAME > /etc/motd
+ /bin/uname -a >> /etc/motd
+ cat >> /etc/motd <<:END
+
+*******************************************************************************
+* This is a private system operated for the Hewlett-Packard Company business. *
+* Authorization from HP management is required to use this system. *
+* Use by unauthorized persons is prohibited. *
+*******************************************************************************
+For System Support: Mon-Fri 8:00-5:00 Email (site-ux@cup.hp.com)
+Phone: t-447-1212 After hours/weekend Pre-arrange: t-447-0629
+-------------------------------------------------------------------------------
+Usage: $MACHINE_USAGE
+Owner: $OWNER_NAME ($OWNER_EMAIL) Phone: $OWNER_EXTENSION
+Location: $LOCATION
+-------------------------------------------------------------------------------
+:END
+
+ sed "s/Root user/Root\@$HOST/" /etc/passwd > /tmp/passwd-new
+ /bin/mv /tmp/passwd-new /etc/passwd
+} # mod_etc_files
+
+function mod_misc_files {
+ step "Miscellaneous file setup"
+ /bin/rm -f /var/adm/cron/at.allow
+ /bin/rm -f /var/adm/cron/cron.allow
+ /bin/chmod 644 /dev/lan*
+ case "$WORKSTATION" in
+ y|Y|yes|YES|Yes|1)
+ WORKSTATION=yes
+ ;;
+ *)
+ WORKSTATION=no
+ ;;
+ esac
+ if [ "$WORKSTATION" = "yes" ]; then
+ /bin/sed -e "s/# \*/ \*/" Xservers > /tmp/Xservers-new
+ /bin/mv /tmp/Xservers-new /etc/dt/config/Xservers
+ /bin/chmod 444 /etc/dt/config/Xservers
+ /bin/chown root:other /etc/dt/config/Xservers
+ fi
+}
+
+function misc_setup {
+ step "Setup Application Server"
+ /net/bismol/App/admin/bin/setup >> $LOGFILE 2>&1
+
+ step "Ninstalling lp, adm and net3 packages"
+ /usr/local/bin/ninstall -h bismol lp adm net3 >> $LOGFILE 2>&1
+
+ step "Run netdaemon.dy"
+ /usr/adm/netdist/netdaemon.dy >> $LOGFILE 2>&1
+
+ step "Create the whatis database"
+ /usr/sbin/catman -w >> $LOGFILE 2>&1
+}
+
+function inst_sw {
+ if [ "$SWINSTALL" = "yes" ]; then
+ step "Installing Patches and Optional Software, be patient!"
+ /usr/sbin/swinstall -s $DEPOT -x $OPTIONS $PRODUCTS $ENETDRVR >>
+$LOGFILE 2>&1
+ else
+ step "Rebuilding kernel with new parameters."
+ /usr/sbin/mk_kernel -v -o /stand/vmunix >> $LOGFILE 2>&1
+ step "Rebooting the system..."
+ cd /
+ /usr/sbin/shutdown -ry 0
+ fi
+}
+
+#
+##
+### Main
+##
+#
+
+chk_uid
+chk_arch
+read_src
+set_mode
+fast_enet
+greet
+mod_kernel
+get_shar
+mod_rc_files
+mod_etc_files
+mod_misc_files
+misc_setup
+clearcase_setup
+inst_sw
--- /dev/null
+################################################################################
+#
+# File: adl-config.src
+# Description: Parameter Source File for the ADL system configuration script
+# adl-config. This file is required by the adl-config script
+# in order to run.
+# See below for useful comments.
+# Author: Kevin Lister (C) - kel@cup.hp.com
+# Date: 3.11.99
+# Language: Korn Shell
+#
+# (c) Copyright 1991, Hewlett-Packard Company, all rights reserved.
+#
+# Revision History
+# 4.1.99 kel added the WORKSTATION variable. Setting the WORKSTATION
+# variable to yes will set the machine up with a graphics console
+# login using CDE.
+#
+################################################################################
+# Useful (hopefully) Comments Section
+#
+# Do not make your changes to the varibales in the comment section. Change
+# the variables at the end of this file.
+#
+# Below you will find all of the ENV variables that the adl-config script
+# will use to configure the system.
+# Descriptions for these variables can be found below, read on.
+#
+# Set the INTERACTIVE ENV variable to yes if you wish to have a chance to
+view
+# the configuration parameters the script will use before proceeding. Set to
+# no otherwise.
+#
+# INTERACTIVE=yes
+#
+# Set the WORKSTATION variable to yes if you are installing a system that
+will
+# have a graphics console monitor attached. Setting WORKSTATION to no
+disbales
+# CDE on the console.
+#
+# WORKSTATION=no
+#
+# You can have ClearCase 3.2 installed automatically by setting CLEARCASE
+# to yes. If you do not want ClearCase, set to no.
+#
+# CLEARCASE=yes
+#
+# If you want the Patch bundle (see below) and Optional Software installed
+# set SWINSTALL to yes.
+#
+# SWINSTALL=yes
+#
+# If you plan to use a 100Mbit network interface then set FAST_ENET to yes
+# to have the correct drivers installed. Set to no if you don't.
+#
+# FAST_ENET=yes
+#
+# Set the location of the logfile for the configure script using the LOGFILE
+# variable.
+#
+# LOGFILE=/adl-config.log
+#
+# The /etc/motd file will be set up with the information contained in the next
+# several variables. The /etc/issue and /etc/gettydefs files will also be
+# setup by using the MACHINE_NAME variable. You should set these to something
+# that makes sense.
+#
+# OWNER_NAME="ADL Support"
+# OWNER_EMAIL=adl-support@cup.hp.com
+# OWNER_EXTENSION=t-447-5790
+# MACHINE_USAGE="X Terminal Server"
+# LOCATION=RDC
+# MACHINE_NAME=Generic
+#
+# The next several variables set up the depot server name, depot path and
+# names of the software bundles and products to install. It is likely that you
+# you will only need to change ENET_DRVRS. Set ENET_DRVRS to 100BT-HSC for a
+# J282 (780). Set ENET_DRVRS to SX00306 for a 755. The default for XTERM_SVR
+# is "". If you really don't want patches and optional software then set
+# PATCHES and OPTIONAL to "". You should never need to modify PRODUCTS, DEPOT
+# or OPTIONS.
+#
+# PATCHES=Patches-Generic
+# OPTIONAL="OptionalSoftware SysMonSoftware VUEtoCDE"
+# XTERM_SVR="ENWARE netstation"
+# ENET_DRVRS=100BT-HSC
+# ENET_DRVRS=SX00306
+# PRODUCTS="$PATCHES $OPTIONAL $XTERM_SVR $ENET_DRVRS"
+# DEPOT=adliux01:/depots/10.20
+# OPTIONS="autoreboot=true"
+#
+# Finally, the next several variables set up the ftp server, directory and
+# filename of the shell archive that the script uses to unpack all kinds
+# of useful files and symlinks. You should never have to modify these.
+#
+# FTP_SERVER=15.0.98.138
+# FTP_USER=anonymous
+# FTP_PASSWD=$LOGNAME@$(uname -n).cup.hp.com
+# SHAR_DIR=productivity/adl-config
+# SHAR_FILE=adl-config.shar
+#
+# END of Useful Comments Section
+################################################################################
+
+#
+##
+### Change these to suit your fancy.
+##
+#
+
+INTERACTIVE=yes
+WORKSTATION=no
+CLEARCASE=yes
+SWINSTALL=yes
+FAST_ENET=no
+LOGFILE=/adl-config.log
+
+#
+##
+### /etc/motd setup
+##
+#
+
+OWNER_NAME="ADL Support"
+OWNER_EMAIL=adl-support@cup.hp.com
+OWNER_EXTENSION=t-447-5790
+MACHINE_USAGE="Change Me"
+LOCATION=RDC
+MACHINE_NAME=GENERIC
+
+#
+##
+### Patches and Optional Software
+##
+#
+
+PATCHES=Patches-Generic
+OPTIONAL="OptionalSoftware SysMonSoftware VUEtoCDE"
+XTERM_SVR=""
+ENET_DRVRS=""
+PRODUCTS="$PATCHES $OPTIONAL $XTERM_SVR $ENET_DRVRS"
+
+#
+##
+### Depot Server Information
+##
+#
+
+DEPOT=adliux01:/depots/10.20
+OPTIONS="autoreboot=true"
+
+#
+##
+### Shell Archive Server and Location
+##
+#
+
+FTP_SERVER=15.0.98.138
+FTP_USER=anonymous
+FTP_PASSWD=$LOGNAME@$(uname -n).cup.hp.com
+SHAR_DIR=productivity/adl-config
+SHAR_FILE=adl-config.shar
--- /dev/null
+#!/bin/ksh
+################################################################################
+#
+# File: allmach
+# Description: Runs an arbitrary command on all machines
+# Author: Andrew@DeFaria.com
+# Created: Fri Apr 30 14:17:40 PDT 1999
+# Language: Korn Shell
+# Modifications:Added trapping of INT so that you can abort a non-responding
+# machine.
+#
+# (c) Copyright 2001, Andrew@DeFaria.com, all rights reserved
+#
+################################################################################
+# Set me to command name
+me=$(basename $0)
+
+# Set adm_base
+adm_base=${adm_base:-$HOME/adm}
+
+# Set adm_fpath
+adm_fpath=${adm_fpath:-$adm_base/functions}
+
+# Source functions
+. $adm_fpath/common
+
+# Set machines
+machines=${machines:-$adm_base/data/machines}
+
+if [ "$1" = "-f" ]; then
+ shift
+ machines="$1"
+ shift
+fi
+
+if [ "$1" = "-r" ]; then
+ root_remsh=true
+ shift
+fi
+
+if [ ! -f $machines ]; then
+ error "Unable to find $machines file!" 1
+fi
+
+function trap_intr {
+ display "${machines[i]}:$cmd interrupted"
+ display "(A)bort $me or (C)ontinue with next machine? \c"
+ read response
+ typeset -l response=$response
+
+ case "$response" in
+ a|abort)
+ display "Aborting $me..."
+ exit
+ ;;
+ esac
+ display "Continuing on with the next machine..."
+} # trap_intr
+
+# Build up data arrays. Note this is done because if we remsh while in a pipe
+# Sun will not allow a simple remsh with no command (boo!)
+# Column 1 Machine name
+# Column 2 Model
+# Column 3 OS Version
+# Column 4 ClearCase Version (if applicable)
+# Column 5 Owner (if known)
+# Column 6 Usage (if known)
+oldIFS=$IFS
+IFS=":"
+integer nbr_of_machines=0
+sed -e "/^#/d" $machines |
+ while read machine model osversion ccversion owner phone usage location;
+do
+ machines[nbr_of_machines]=$machine
+ models[nbr_of_machines]=$model
+ #osversions[nbr_of_machines]=$osversion
+ #ccversions[nbr_of_machines]=$ccversion
+ #owners[nbr_of_machines]=$owner
+ #phones[nbr_of_machines]=$phone
+ #usages[nbr_of_machines]=$usage
+ #locations[nbr_of_machines]=$location
+ let nbr_of_machines=nbr_of_machines+1
+done
+IFS="$oldIFS"
+
+# This loop executes the command
+trap trap_intr INT
+integer i=0
+while [ $i -lt $nbr_of_machines ]; do
+ export currmachine=${machines[i]}
+ # Execute command. Note if no command is given then the effect is to
+ # rlogin to each machine.
+ print -u2 "${machines[i]}\c"
+ print -u2 ":$@"
+ cmd="$@"
+ if [ $# -gt 0 ]; then
+ if [ "$root_remsh" = "true" ]; then
+ remsh ${machines[i]} -n -l root "$cmd"
+ else
+ remsh ${machines[i]} -n "$cmd"
+ fi
+ else
+ if [ "$root_remsh" = "true" ]; then
+ remsh ${machines[i]} -l root
+ else
+ remsh ${machines[i]}
+ fi
+ fi
+ let i=i+1
+done
+trap - INT
--- /dev/null
+#!/bin/ksh
+################################################################################
+#
+# File: arcservenv
+# Description: Set environment variables for Arc Serve
+# Author: Andrew@DeFaria.com
+# Created: Fri Jul 2 14:49:22 PDT 1999
+# Modified:
+# Language: Korn Shell
+#
+# (c) Copyright 2001, Andrew@DeFaria.com, all rights reserved
+#
+################################################################################
+me=$(basename $0)
+
+# Set adm_base
+adm_base=${adm_base:-$HOME/adm}
+
+# Set adm_fpath
+adm_fpath=${adm_fpath:-$adm_base/functions}
+
+# Source functions
+. $adm_fpath/common
+
+# Set machines
+machines=${machines:-$adm_base/data/machines}
+
+if [[ "$me" = "-ksh" ]]; then
+ : #This script was sourced (I think, the man page is sketchy on this)
+else
+ error "You need to invoke this script with a leading. (e.g. . $me)" 1
+fi
+
+me=$(basename $2)
+
+if [ "$VENDOR" = "Sun" ]; then
+ export ARC_HOME=${ARC_HOME:-/opt/ARCserve}
+ export LD_LIBRARY_PATH=$LD_LIBRARY_PATH:/usr/openwin/lib:$ARC_HOME:/usr/dt/lib
+elif [ "$VENDOR" = "HP" ]; then
+ export ARC_HOME=${ARC_HOME:-/usr/ARCserve}
+ export SHLIB_PATH=$SHLIB_PATH:$ARC_HOME:/usr/dt/lib
+else
+ export ARC_HOME=${ARC_HOME:-Unknown}
+fi
+
+if [ ! -d "$ARC_HOME" ]; then
+ warning "$ARC_HOME does not exist!"
+fi
+
+export PATH=$PATH:$ARC_HOME
+export XFILESEARCHPATH=/usr/openwin/lib/locale/%L/%T/%N/%S:/usr/openwin/lib/%T/%N/%S
+export HHHOME=$ARC_HOME
+export MANPATH=$MANPATH:$ARC_HOME/man
+
+display "ARC Serve Environment Settings"
+display - -------------------------------------------------------------------------------
+display "ARC_HOME: $ARC_HOME"
+display "PATH: $PATH"
+if [ "$VENDOR" = "Sun" ]; then
+ display "XFILESEARCHPATH: $XFILESEARCHPATH"
+ display "LD_LIBRARY_PATH: $LD_LIBRARY_PATH"
+else
+ display "SHLIB_PATH: $SHLIB_PATH"
+fi
+display "HHHOME: $HHHOME"
+display "MANPATH: $MANPATH"
--- /dev/null
+#!/bin/sh
+#############################################
+# @(#)scs 1.26
+# system characterization script
+# "scs" collects data from Atria
+# customer sites for analysis by
+# engineering.
+######################################
+
+#########################
+# For Solaris 5.x systems
+#########################
+nddit()
+{
+for i in tcp udp ip
+do
+ /usr/sbin/ndd /dev/$i \? | awk '{print $1}' | \
+ egrep -v '\?|directed|respond'> /tmp/$$
+ for j in `cat /tmp/$$`
+ do
+ printf "%-30s %s\n" $j `/usr/sbin/ndd /dev/$i $j`
+ done
+ rm /tmp/$$
+done
+}
+
+solaris()
+{
+show "System Device Configuration" /usr/sbin/prtconf -vP
+show "System Configuration" /usr/sbin/sysdef -i
+show "System Customization" '/bin/cat /etc/system | \
+ /bin/grep -v "^\*" | /bin/grep -v "^$"'
+show "Network Configuration" nddit
+show "System Messages" /bin/dmesg
+show "Patches" /bin/showrev -p
+
+show "Processes" '/usr/ucb/ps auxww | /bin/fold -80'
+show "Network Configuration" /usr/sbin/ifconfig -a
+show "Network Utilization Summary" /bin/netstat -i
+show "Network Protocol Statistics" /bin/netstat -s
+show "Network Mbuf Statistics" /bin/netstat -m
+show "VM Statistics" /bin/vmstat -s
+show "Cache Flush Statistics" /bin/vmstat -c
+show "Interrupts" /bin/vmstat -i
+show "NFS Statistics" /bin/nfsstat
+show "NFS Responses" /bin/nfsstat -m
+
+show "CPU Utilization" /bin/sar -u 1 10
+show "Buffer Activity" /bin/sar -b 1 10
+show "Block Device Activity" /bin/sar -d 1 10
+show "Disk Device Activity" iostat -x 1 10
+show "Paging In Activity" /bin/sar -p 1 5
+show "Paging Out Activity" /bin/sar -g 1 5
+show "Free Memory" /bin/sar -r 1 5
+show "vmstat snapshot" /bin/vmstat 2 10
+show "Kernel Memory Allocation Activity" /bin/sar -k 1 5
+show "KMA statistics" echo kmastat | /usr/sbin/crash
+echo ""
+}
+
+#######################
+# For SUNOS 4.x systems
+#######################
+sunos()
+{
+
+show "Memory " '/etc/dmesg | grep mem'
+show "System Messages" /etc/dmesg
+show "Processes" '/bin/ps auxww | /usr/ucb/fold -80'
+show "Network Utilization Summary" /usr/ucb/netstat -i
+show "Network Protocol Statistics" /usr/ucb/netstat -s
+show "Network Mbuf Statistics" /usr/ucb/netstat -m
+show "VM Statistics" /usr/ucb/vmstat -s
+show "Cache Flush Statistics" /usr/ucb/vmstat -c
+show "Interrupts" /usr/ucb/vmstat -i
+show "NFS Statistics" /usr/etc/nfsstat
+
+show "Disk Device Activity" /bin/iostat -D 1 10
+show "CPU Activity" /usr/ucb/vmstat 1 10
+show "Tables" /etc/pstat -T
+show "vmstat snapshot" /usr/ucb/vmstat 2 10
+
+}
+
+
+#######################
+# For AIX
+#######################
+aix()
+{
+
+show "Processes" '/usr/bin/ps -elf '
+show "Network Utilization Summary" /bin/netstat -i
+show "Network Protocol Statistics" /bin/netstat -s
+show "Network Mbuf Statistics" /bin/netstat -m
+show "Network Configurables" /usr/sbin/no -a
+show "NFS Statistics" /usr/sbin/nfsstat
+
+show "System Attributes" /usr/sbin/lsattr -E -l sys0
+show "CPU Utilization" sar -u 1 10
+show "Buffer Activity" sar -b 1 10
+show "Disk Activity" /bin/iostat 1 10
+show "Paging Stats" sar -r 1 5
+show "Network Monitor for 30s" '/bin/netpmon -v -o /tmp/$$; sleep 30; trcstop'
+echo ""
+}
+
+#######################
+# For OSF1
+#######################
+osf1()
+{
+show "Boot Messages" 'echo "";echo ""; echo "";uerf -r 300 | tail -100'
+show "Processes" '/usr/bin/ps glww | fold -80'
+show "Network Utilization Summary" /usr/sbin/netstat -i
+show "Network Protocol Statistics" /usr/sbin/netstat -s
+show "Network Mbuf Statistics" /usr/sbin/netstat -m
+show "NFS Statistics" /usr/bin/nfsstat
+show "Kernel memory usage" /usr/bin/vmstat -M
+show "vmstat snapshopt" /usr/bin/vmstat 2 10
+show "Disk Device snapshot" /bin/iostat 2 10
+
+}
+
+#######################
+# For IRIX 5.x
+#######################
+irix()
+{
+show "System Device Configuration" /usr/sbin/sysconf
+show "System Hardware Configuration" /usr/bin/hinv
+show "System Software Configuration" /etc/chkconfig
+show "Disk Usage" /usr/sbin/df -l -k
+show "System Customization" '/bin/cat /var/sysgen/stune | \
+ /bin/grep -v "^\*" | /bin/grep -v "^$"'
+
+show "Processes" '/usr/bin/ps -elf | /bin/fold -80'
+show "Network Utilization Summary" /usr/etc/netstat -i
+show "Network Protocol Statistics" /usr/etc/netstat -s
+show "Network Mbuf Statistics" /usr/etc/netstat -m
+show "NFS Statistics" /usr/etc/nfsstat
+
+show "CPU Utilization" sar -u 1 10
+show "Buffer Activity" sar -b 1 10
+show "Block Device Activity" sar -d 1 10
+show "Paging In Activity" sar -p 1 5
+show "Paging Out Activity" sar -g 1 5
+show "Free Memory" sar -r 1 5
+echo ""
+}
+
+
+#####################
+# For HP-UX 9/800 systems
+#####################
+hpux98()
+{
+#first the shared info
+hpux
+# now the system specific
+show "System definition" /etc/sysdef
+show "CPU Utilization" /usr/bin/sar -u 1 10
+show "Buffer Activity" /usr/bin/sar -b 1 10
+show "Block Device Activity" /usr/bin/sar -d 1 10
+}
+#####################
+# For HP-UX 9/700 systems
+#####################
+hpux97()
+{
+# just the shared info
+hpux
+}
+#####################
+# For All HP-UX 9 systems
+#####################
+hpux()
+{
+show "Memory " grep Physical /usr/adm/messages
+show "System Messages" /etc/dmesg
+show "Swap Space" /etc/swapinfo
+show "Patches" ls -ld /system/PH*
+show "IO devices" /etc/ioscan -f
+
+show "Processes" '/bin/ps -elf | /usr/bin/fold -80'
+show "Network Utilization Summary" /usr/bin/netstat -i
+show "Network Protocol Statistics" /usr/bin/netstat -s
+show "Network Mbuf Statistics" /usr/bin/netstat -m
+show "VM Statistics" /usr/bin/vmstat -s
+show "NFS Statistics" /usr/etc/nfsstat
+show "Network errors" /etc/netfmt -t 30 -f /usr/adm/nettl.LOG00
+
+show "Disk Utilization" df -l
+show "vmstat snapshot" /usr/bin/vmstat 2 10
+}
+
+#####################
+# For HP-UX 10 systems
+#####################
+hpux10()
+{
+
+show "Memory " grep Physical /var/adm/syslog/syslog.log
+show "System DMessages" /usr/sbin/dmesg
+show "System definition" /usr/sbin/sysdef
+show "Messages" "tail -100 /usr/adm/syslog/syslog.log"
+show "IO status" /etc/ioscan -f
+show "Patches" '/usr/sbin/swlist -l product | grep PH'
+
+show "Processes" '/usr/bin/ps -elf | /usr/bin/fold -80'
+show "Network Utilization Summary" /usr/bin/netstat -i
+show "Network Protocol Statistics" /usr/bin/netstat -s
+show "Network Mbuf Statistics" /usr/bin/netstat -m
+show "VM Statistics" /usr/bin/vmstat -s
+show "NFS Statistics" /usr/bin/nfsstat
+
+show "CPU Utilization" /usr/bin/sar -u 1 10
+show "Buffer Activity" /usr/bin/sar -b 1 10
+show "Block Device Activity" /usr/bin/sar -d 1 10
+show "vmstat snapshot" /usr/bin/vmstat 2 10
+}
+#####################
+# For Unixware systems
+#####################
+unixware()
+{
+show "Memory size" /sbin/memsize
+show "Message log" cat /usr/adm/log/osmlog
+show "System Configuration" /usr/sbin/sysdef
+show "Processes" '/usr/bin/ps -elf '
+show "Network Utilization Summary" /bin/netstat -i
+show "Network Protocol Statistics" /bin/netstat -s
+show "NFS Statistics" /usr/sbin/nfsstat
+
+show "CPU Utilization" /sbin/sar -u 1 10
+show "Buffer Activity" /sbin/sar -b 1 10
+show "Block Device Activity" /sbin/sar -d 1 10
+show "Paging In Activity" /sbin/sar -p 1 5
+show "Paging Out Activity" /sbin/sar -g 1 5
+show "Free Memory" /sbin/sar -r 1 5
+show "Historical sar data" /sbin/sar -A
+echo ""
+}
+
+
+####################################
+# display informationin a uniform way
+####################################
+show() {
+ echo "----------------------------------------------------"
+ echo $1
+ echo "----------------------------------------------------"
+ shift
+ eval "$@"
+ echo ""
+}
+##################################################
+# check uw network - works for Unixware
+##################################################
+check_uw_network() {
+
+netstat -i $interface
+sleep 10
+netstat -i $interface
+}
+
+##################################################
+# check network - works for HP-UX and SUNOS 5.x
+##################################################
+check_network() {
+ printf "%8s %8s %8s %8s %8s %8s \n" time inpkts inerrs \
+ outpkts outerrs colls
+ netstat -i -I $interface $interval | (
+ (line ; line ; line) > /dev/null
+ t_inpkts=0 # initialize counter
+ t_inerrs=0 # initialize counter
+ t_outpkts=0 # initialize counter
+ t_outerrs=0 # initialize counter
+ t_colls=0 # initialize counter
+ i=0
+ while test $i -lt $count ; do # for each of the lines
+ time=`date +%T`
+ /bin/echo $time \\c
+ set -- `line` # get the line
+ printf "%8s %8s %8s %8s %8s\n" $1 $2 $3 $4 $5
+ t_inpkts=`expr $1 + $t_inpkts` # accumulate in packets
+ shift
+ t_inerrs=`expr $1 + $t_inerrs` # accumulate in errors
+ shift
+ t_outpkts=`expr $1 + $t_outpkts` # accumulate out packets
+ shift
+ t_outerrs=`expr $1 + $t_outerrs` # accumulate out errors
+ shift
+ t_colls=`expr $1 + $t_colls` # accumulate collisions
+ i=`expr $i + 1 `
+ done
+ printf "\n%8s %8s %8s %8s %8s %8s \n" \
+ total $t_inpkts $t_inerrs $t_outpkts $t_outerrs $t_colls
+# now check error and collision rate.
+# Use awk to get floating point accuracy
+ echo $t_colls $t_outpkts $t_inerrs $t_inpkts | awk '$2 != 0 {
+ collision_rate = $1 / $2;
+ printf("\n\ncollision rate ( %g %% )", (collision_rate * 100.0));
+ if ( collision_rate > 0.05 )
+ printf(" too high. Add subnets.\n");
+ else
+ printf("\n")}
+ $4 != 0 {
+ error_rate = $3 / $4;
+ printf(" error rate ( %g %% )", (error_rate * 100.0));
+ if (error_rate > 0.00025)
+ printf(" too high. Check cabling.\n");
+ else
+ printf("\n")}'
+
+ )
+}
+
+##################################################
+# check network - works for SUNOS 4.x
+##################################################
+check_network1() {
+ echo " time inpkts inerrs outpkts outerrs colls"
+ netstat -i -I $interface $interval | (
+ (line ; line ; line) > /dev/null
+ t_inpkts=0 # initialize counter
+ t_inerrs=0 # initialize counter
+ t_outpkts=0 # initialize counter
+ t_outerrs=0 # initialize counter
+ t_colls=0 # initialize counter
+ i=0
+ while test $i -lt $count ; do # for each of the lines
+ time=`date +%T`
+ /bin/echo -n $time
+ set -- `line` # get the line
+ echo " $1 $2 $3 $4 $5"
+ t_inpkts=`expr $1 + $t_inpkts` # accumulate in packets
+ shift
+ t_inerrs=`expr $1 + $t_inerrs` # accumulate in errors
+ shift
+ t_outpkts=`expr $1 + $t_outpkts` # accumulate out packets
+ shift
+ t_outerrs=`expr $1 + $t_outerrs` # accumulate out errors
+ shift
+ t_colls=`expr $1 + $t_colls` # accumulate collisions
+ i=`expr $i + 1 `
+ done
+ echo -n "total "
+ echo -n "$t_inpkts $t_inerrs $t_outpkts "
+ echo " $t_outerrs $t_colls"
+# now check error and collision rate.
+# Use awk to get floating point accuracy
+ echo $t_colls $t_outpkts $t_inerrs $t_inpkts | awk '$2 != 0 {
+ collision_rate = $1 / $2;
+ printf("\n\ncollision rate ( %g %% )", (collision_rate * 100.0));
+ if ( collision_rate > 0.05 )
+ printf(" too high. Add subnets.\n");
+ else
+ printf("\n")}
+ $4 != 0 {
+ error_rate = $3 / $4;
+ printf(" error rate ( %g %% )", (error_rate * 100.0));
+ if (error_rate > 0.00025)
+ printf(" too high. Check cabling.\n");
+ else
+ printf("\n")}'
+
+ )
+}
+
+########################################################
+# establish file partition -> disk device mapping for solaris
+# how do I do this for other platforms?
+########################################################
+do_discs()
+{
+df -F ufs
+df -F ufs | cut -f1 -d: | awk '{print $2}' | sed 's/(//' |\
+ sed 's/)//' > /tmp/lll
+for i in `cat /tmp/lll`
+do
+ ls -l $i
+done
+rm /tmp/lll
+cat /etc/path_to_inst
+}
+
+########################################################
+# calculate the size (in bytes) of all VOB database on this host
+########################################################
+check_vobs()
+{
+if [ ! -f $ATRIAHOME/bin/cleartool ] ; then
+ echo this is not a ClearCase host
+ exit
+fi
+# list all vobs on this host and extract the
+# VOB storage directory.
+$ATRIAHOME/bin/cleartool lsvob -host $HOST
+$ATRIAHOME/bin/cleartool lsvob -host $HOST | \
+awk '$1 == "*" {print $3 } \
+ $1 != "*" {print $2 }' >/tmp/list.$$
+# count the vobs
+vobs=`wc -l /tmp/list.$$ | awk '{print $1}'`
+echo "Number of vobs : $vobs"
+if [ $vobs = 0 ] ; then
+ return
+fi
+# now count all the bytes in the database data and key files
+for i in `cat /tmp/list.$$`
+do
+ cd $i/db
+ $LSL vob_db.d0? vob_db.k0? | \
+ awk 'BEGIN {sum=0} \
+ {sum = sum + $5} \
+ END {printf "%12d\t", sum}'
+ echo `basename $i`
+done | tee -a /tmp/list1.$$
+
+awk 'BEGIN {sum=0} \
+{sum = sum + $1} \
+END {printf "%12d\tTOTAL", sum}' < /tmp/list1.$$
+
+rm /tmp/list.$$ /tmp/list1.$$
+}
+
+########################################################
+# check the view characteristics
+########################################################
+check_views()
+{
+if [ ! -f $ATRIAHOME/bin/cleartool ] ; then
+ echo this is not a ClearCase host
+ exit
+fi
+$ATRIAHOME/bin/cleartool lsview -host $HOST | \
+awk '$1 == "*" {print $3,$2 } \
+ $1 != "*" {print $2,$1 }' >/tmp/list.$$
+# count the views
+views=`wc -l /tmp/list.$$ | awk '{print $1}'`
+echo "Number of views : $views"
+if [ $views = 0 ] ; then
+ return
+fi
+cat /tmp/list.$$ | (
+i=1
+while [ $i -le $views ]
+do
+ set -- `line`;
+ size=`grep -s cache $1/.view | awk '{print $2}'`
+ if [ a$size = a ]; then
+ size=default
+ fi
+ echo "$size $2" | awk '{printf "%8s\t%-16s\n", $1, $2}'
+ i=`expr $i + 1`
+done
+)
+rm /tmp/list.$$
+}
+
+########################################################
+# check the MVFS cache on this system
+########################################################
+check_mvfs()
+{
+/usr/atria/etc/mvfsstat -iclrh 2>&1
+}
+
+########################################################
+# check clearcase things
+########################################################
+check_cc()
+{
+ATRIAHOME=${ATRIAHOME:-/usr/atria}
+ show "VOB sizes" check_vobs
+ show "Views" check_views
+ show "MVFS" check_mvfs
+ show "Cleartool Version" $ATRIAHOME/bin/cleartool -ver
+}
+
+########################################################
+# obtain mvs parameters
+########################################################
+
+get_mvfs_sun4()
+{
+adb -k /var/adm/atria/vmunix_mvfs /dev/mem <<!
+=n"MVFS parameters"
+physmem/D
+mvfs_mnmax/D
+mvfs_vobfreemax/D
+mvfs_cvpfreemax/D
+mvfs_dncdirmax/D
+mvfs_dncregmax/D
+mvfs_dncnoentmax/D
+mvfs_largeinit/D
+!
+}
+
+get_mvfs_sun5()
+{
+adb -k /dev/ksyms /dev/mem <<!
+=n"MVFS parameters"
+physmem/D
+mvfs_mnmax/D
+mvfs_vobfreemax/D
+mvfs_cvpfreemax/D
+mvfs_dncdirmax/D
+mvfs_dncregmax/D
+mvfs_dncnoentmax/D
+mvfs_largeinit/D
+!
+}
+
+get_mvfs_hp9()
+{
+adb -k /hp-ux /dev/mem <<!
+=n"MVFS parameters"
+physmem/D
+mvfs_mnmax/D
+mvfs_vobfreemax/D
+mvfs_cvpfreemax/D
+mvfs_dncdirmax/D
+mvfs_dncregmax/D
+mvfs_dncnoentmax/D
+mvfs_largeinit/D
+bufpages/D
+nbuf/D
+ninode/D
+fs_async/D
+!
+}
+
+get_mvfs_hp10()
+{
+adb -k /stand/vmunix /dev/mem <<!
+=n"MVFS parameters"
+physmem/D
+mvfs_mnmax/D
+mvfs_vobfreemax/D
+mvfs_cvpfreemax/D
+mvfs_dncdirmax/D
+mvfs_dncregmax/D
+mvfs_dncnoentmax/D
+mvfs_largeinit/D
+bufpages/D
+nbuf/D
+ninode/D
+fs_async/D
+!
+}
+
+get_mvfs_osf1()
+{
+
+dbx -k /vmunix /dev/mem 2>/dev/null <<!
+printf "physmem %d", physmem
+printf "mvfs_mnmax %d", mvfs_mnmax
+printf "mvfs_vobfreemax %d", mvfs_vobfreemax
+printf "mvfs_cvpfreemax %d", mvfs_cvpfreemax
+printf "mvfs_dncdirmax %d", mvfs_dncdirmax
+printf "mvfs_dncregmax %d", mvfs_dncregmax
+printf "mvfs_dncnoentmax %d", mvfs_dncnoentmax
+printf "mvfs_largeinit %d", mvfs_largeinit
+puit
+!
+}
+
+
+############################
+# ENTRY POINT FOR SCRIPT
+############################
+
+if [ $# -ne 0 ] ; then
+ echo "usage: scs"
+ exit
+fi
+
+if [ ! -w /etc/passwd ] ; then
+ echo "Please run $0 as root."
+ exit 1
+fi
+
+interval=1
+count=20
+
+SYS=`uname -m`
+OS=`uname -s`
+OSVER=`uname -r`
+HOST=`uname -n`
+LSL="ls -l"
+
+echo system is `uname -a`
+echo "SCS script version 96/06/21 1.26 run at `date`"
+
+case $OS in
+
+#AIX
+AIX ) aix
+ lans=`/bin/netstat -i | grep -v none | \
+ awk '{print $1}' | grep -v lo0 | grep -v Name `
+ for interface in $lans
+ do
+ show "Network snapshop - $interface" check_network
+ done
+ check_cc
+ ;;
+
+
+#Sun
+SunOS ) case $OSVER in
+ # SUN SunOS 4.x (Solaris 1.x) operating system
+ 4.1* ) sunos
+ LSL="ls -lg"
+ lans=`/usr/ucb/netstat -i | grep -v none | \
+ awk '{print $1}' | grep -v lo0 | grep -v Name `
+ for interface in $lans
+ do
+ show "Network snapshop - $interface" check_network1
+ done
+ check_cc
+ show "MVFS parameters" get_mvfs_sun4
+ show "License Host" cat /var/adm/atria/config/license_host
+ show "Registry Host and Region" cat /var/adm/atria/rgy/rgy*.conf
+ ;;
+ # SUN SunOS 5.x (Solaris 2.x) operating system
+ 5.* ) solaris
+ lans=`/bin/netstat -i | grep -v none | \
+ awk '{print $1}' | grep -v lo0 | grep -v Name `
+ for interface in $lans
+ do
+ show "Network snapshop - $interface" check_network
+ done
+ show "Disk Utilization " do_discs
+ check_cc
+ show "MVFS parameters" get_mvfs_sun5
+ show "License Host" cat /var/adm/atria/config/license_host
+ show "Registry Host and Region" cat /var/adm/atria/rgy/rgy*.conf
+ ;;
+ esac
+ ;;
+#HP
+HP-UX) case $OSVER in
+ # HP HP-UX operating system
+ A.09.*) model=`uname -m | cut -d'/' -f 2`
+ if [ `expr $model` -gt 800 ] ; then
+ hpux98
+ elif [ `expr $model` -gt 700 ] ; then
+ hpux97
+ else
+ hpux
+ fi
+ lans=`/usr/bin/netstat -i | grep -v none | \
+ awk '{print $1}' | grep -v lo0 | grep -v Name `
+ for interface in $lans
+ do
+ show "Network snapshop - $interface" check_network
+ done
+ check_cc
+ show "MVFS parameters" get_mvfs_hp9
+ show "License Host" cat /usr/adm/atria/config/license_host
+ show "Registry Host and Region" cat /usr/adm/atria/rgy/rgy*.conf
+ ;;
+ *.10.*) hpux10
+ lans=`/bin/netstat -i | grep -v none | \
+ awk '{print $1}' | grep -v lo0 | grep -v Name `
+ for interface in $lans
+ do
+ show "Network snapshop - $interface" check_network
+ done
+ check_cc
+ show "MVFS parameters" get_mvfs_hp10
+ show "License Host" cat /var/adm/atria/config/license_host
+ show "Registry Host and Region" cat /var/adm/atria/rgy/rgy*.conf
+ ;;
+ esac
+ ;;
+#SGI
+IRIX) case $OSVER in
+ # IRIX 5.x operating system
+ # IRIX 5.x operating system
+ 5.* ) irix
+ lans=`/usr/etc/netstat -i | grep -v none | \
+ awk '{print $1}' | grep -v lo0 | grep -v Name `
+ for interface in $lans
+ do
+ show "Network snapshot - $interface" check_network
+ done
+ check_cc
+ ;;
+ #other
+ * ) echo "$prog": unknown operating system: $OS $CPUOS
+ exit ;;
+ esac
+ ;;
+
+#Digital Unix
+OSF1) osf1
+ lans=`/usr/sbin/netstat -i | grep -v none | \
+ awk '{print $1}' | grep -v lo0 | grep -v Name `
+ for interface in $lans
+ do
+ show "Network snapshot - $interface" check_network
+ done
+ check_cc
+ show "MVFS parameters" get_mvfs_osf1
+ show "License Host" cat /var/adm/atria/config/license_host
+ show "Registry Host and Region" cat /var/adm/atria/rgy/rgy*.conf
+ ;;
+
+#Unixware
+UNIX_SV) unixware
+ lans=`/bin/netstat -i | grep -v none | \
+ awk '{print $1}' | grep -v lo0 | grep -v Name `
+ for interface in $lans
+ do
+ show "Network snapshop - $interface" check_uw_network
+ done
+ check_cc
+ ;;
+
+#other
+* ) echo "$prog": unknown operating system: $OS $CPUOS
+ exit ;;
+esac
+
+
--- /dev/null
+#!/bin/ksh
+################################################################################
+#
+# File: bigfiles
+# Description: Reports large files
+# Parameters: See usage
+# Author: Andrew@DeFaria.com
+# Created: Mon May 24 09:09:24 PDT 1999
+# Modified: <date> by Andrew@DeFaria.com
+# Language: Korn Shell
+#
+# (c) Copyright 2001, Andrew@DeFaria.com, all rights reserved
+#
+################################################################################
+me=$(basename $0)
+
+function usage {
+ print "usage: $me: [ -verbose | -v ] [ -size | -s n ] [ <filesystem> ]"
+ print "\t\t[ -top n | -t n ] [ -notop | -not ]\n"
+ print "Where:"
+ print " -size | -s n\tShow only files bigger then n Meg (default 1 Meg)"
+ print " -verbose | -v\tTurn on verbose mode (default verbose off)"
+ print " -top | -t n\tPrint out only the top n largest files (default LINES - 1)"
+ print " -notop|not\tPrint out all files (default top LINES - 1)"
+ print " <filesystems>\tFilesystems to check (default all hfs filesystems)"
+ exit
+} # usage
+
+filesystems=
+verbose=off
+integer top_n
+lines=${LINES:-25}
+let top_n=$lines-1
+bytes_in_meg=1048576
+block_size=512
+
+# Now get parms
+integer size_in_meg=1
+integer size=$size_in_meg*$bytes_in_meg/$block_size
+
+while [ $# -gt 0 ]; do
+ case "$1" in
+ -size|-s)
+ shift
+ size_in_meg=$1
+ # Convert size to 512 blocks
+ size=$size_in_meg*$bytes_in_meg/$block_size
+ shift
+ ;;
+
+ -usage)
+ usage
+ ;;
+
+ -top|-t)
+ shift
+ top_n=$1
+ shift
+ ;;
+
+ -notop|-not)
+ top_n=0
+ shift
+ ;;
+
+ -verbose|-v)
+ verbose=on
+ shift
+ ;;
+
+ -*)
+ print -u2 "$me: Error: Unknown option $1"
+ print
+ usage
+ ;;
+
+ *)
+ filesystems="$filesystems $1"
+ shift
+ ;;
+ esac
+done
+
+if [ "_$filesystems" = "_" ]; then
+ i=1
+ df -k -F ufs | while read line; do
+ if [ $i -gt 1 ]; then
+ filesystems="$filesystems $(echo $line | awk '{print $6}')"
+ fi
+ let i=$i+1
+ done
+fi
+
+# Now do the find
+if [ $verbose = "on" ]; then
+ print "Filesystems:\t$filesystems"
+ print "Size:\t\t$size_in_meg Meg ($size blocks)"
+ print "Top:\t\t$top_n"
+fi
+
+if [ $top_n -eq 0 ]; then
+ head_cmd="cat"
+else
+ head_cmd="head -$top_n"
+fi
+
+find $filesystems -xdev -size +$size -exec ls -l {} \; |\
+ sort +nr5 | awk '{ printf ("%.3f %s\t%s\n", $5/(1024*1024), $3, $9) }' |
+ $head_cmd
--- /dev/null
+#!/bin/ksh
+################################################################################
+#
+# File: buildservers
+# RCS: $Header: buildservers,v 1.3 98/01/28 12:21:43 defaria Exp $
+# Description: A script to execute a command on all build servers.
+# Author: Andrew DeFaria, California Language Labs
+# Created: Wed Mar 5 16:31:13 PST 1997
+# Modified: Fri Jan 16 13:51:43 PST 1998
+# Language: Korn Shell
+#
+# (c) Copyright 2001, Andrew@DeFaria.com, all rights reserved
+#
+################################################################################
+PATH=/adm/bin:$PATH
+
+if [ "$1" = "-r" ]; then
+ root=yes
+ shift
+fi
+
+for buildserver in $(get_info server_names buildserver); do
+ # Execute command. Note if no command is given then the effect is to
+ # rlogin to each machine.
+ print "$buildserver:$@"
+ if [ $# -gt 0 ]; then
+ if [ -z "$root" ]; then
+ remsh $buildserver -n "$@"
+ else
+ root remsh $buildserver -n "$@"
+ fi
+ else
+ if [ -z "$root" ]; then
+ remsh $buildserver
+ else
+ root remsh $buildserver
+ fi
+ fi
+done
--- /dev/null
+#! /bin/ksh
+USAGE='USAGE: check_security
+
+ This script checks for some security problems. It does
+ not fix anything. It only prints messages about possible
+ problems.
+
+ Author: Michael Coulter
+'
+
+# Set parameters
+
+ PASSWD_FILE=/etc/passwd
+
+# Check for execution by root
+
+ WHOAMI=$(whoami)
+ if [ "$WHOAMI" != "root" ]
+ then
+ echo "It is recommended that you run this script as root"
+ fi
+
+# Parse all the lines in $PASSWD_FILE
+
+ OLD_IFS="$IFS"
+ IFS=":"
+ cat "$PASSWD_FILE" | while read USER PASSWORD UID GID COMMENT HOME SHELL REST
+ do
+ # Checks for users who shouldn't log-in, i.e. PASSWORD is "*"
+
+ if [ "$PASSWORD" = '*' ]
+ then
+ # If the PASSWORD is "*", there should not be a .rhosts or hosts.equiv
+ # in the home directory or .forward
+ if [ -f "${HOME}/.rhosts" ]
+ then
+ echo "$USER has a .rhosts file in $HOME"
+ fi
+ if [ -f "${HOME}/.forward" ]
+ then
+ echo "$USER has a .forward file in $HOME"
+ fi
+
+
+
+ # There should not be a crontab or atjob for the user
+
+ if [ -f "/usr/spool/cron/crontabs/${USER}" ]
+ then
+ echo "$USER has a crontab file in /usr/spool/cron/crontabs"
+ fi
+ if [ -f "/usr/spool/cron/atjobs/${USER}" ]
+ then
+ echo "$USER has a crontab file in /usr/spool/cron/atjobs"
+ fi
+
+ fi # End of * password checks
+
+ if [ "$PASSWORD" = "" ]
+ then
+ echo "$USER has a NULL password."
+ fi
+
+ # No wildcards in $HOME/.rhosts or /etc/host.equiv
+ LINES="$(sed -e "/^#/d" $HOME/.rhosts | grep "+" 2> /dev/null | wc -l)"
+ if [ "$LINES" -ne 0 ]
+ then
+ echo "$USER has + in $HOME/.rhosts"
+ fi
+
+ done
+ # read USER PASSWORD UID GID COMMENT HOME SHELL REST
+
+# Checks that are only done once
+
+# Check no wildcards in /etc/host.equiv
+
+ LINES="$(grep -- "+" /etc/host.equiv 2> /dev/null | wc -l)"
+ if [ "$LINES" -ne 0 ]
+ then
+ echo "System has + in /etc/host.equiv"
+ fi
+
+ if [ ! -f "/usr/adm/inetd.sec" ]
+ then
+ echo "No /usr/adm/inetd.sec file. "
+ fi
+
+ if [ -f "/etc/hosts.equiv" ]
+ then
+ echo "System has a /etc/hosts.equiv file"
+ fi
+
--- /dev/null
+#!/bin/ksh
+#
+# $Header: cleantmps,v 1.14 97/07/24 12:17:34 root Exp $
+#
+#
+# This is a shell script to clean up files that clutter the tmp directories
+# and garbage files that take up a lot of space (e.g., core files).
+#
+#
+# Clean up specific garbage files, old log files
+#
+find /tmp -mountstop -mtime +1 -name "sh[1-9]*.[1-9]*" -exec rm {} \;
+find /tmp -mountstop -mtime +3 -name "*~" -exec rm {} \;
+find /tmp -mountstop -mtime +3 -name "eXT*" -exec rm {} \;
+find /tmp -mountstop -mtime +3 -name "clr*" -exec rm {} \;
+find /var/tmp -mountstop -mtime +3 -name "*~" -exec rm {} \;
+find /tmp -mountstop -mtime +7 -name "crout*" -exec rm {} \;
+find /var/tmp -mountstop -mtime +7 -name "cscope[0-9]*" -exec rm {} \;
+
+#
+# Delete crash core dumps and kernel backups (leave behind INDEX (log) file)
+#
+find /var/adm/crash -type f -name "core.*" -exec rm {} \;
+find /var/adm/crash -type f -name "vmunix*" -exec rm {} \;
+
+#
+# General aging of everything in /tmp
+#
+
+# Preserve sockets and certain files which I don't want to age away
+find /tmp -mountstop -depth -mtime +7 ! -type d ! -type s ! -type p |
+ egrep -v "\.log$|\.X11-unix" | xargs -n25 rm
+
+# Try to remove directories -- only empty ones will actually get removed.
+find /tmp -mountstop -depth -type d ! -name lost+found -print |
+ xargs -i -n25 rmdir -f {} 2>/dev/null
+
+#
+# Search entire filesystem for files which are automatically cleaned up.
+#
+# Remove #* and core files. Exclude *.flc (emacs font-lock (fast-lock)
+# files, which can start with '#').
+#
+find / \( -fsonly hfs -o -fsonly vxfs \) -mtime +3 -type f \
+\( -name "#*" -o -name "core" \) ! -name "*.flc" | xargs rm -f
+
+# PJJ NOTE ON THE ABOVE COMMAND:
+#
+# By including only hfs and vxfs filesystems, we avoid descending NFS or
+MVFS
+# (ClearCase) mount points. We don't use "! -fstype nfs" -- that would
+still
+# descend NFS mounts, looking for HFS/VxFS mounted underneath. One could
+# argue that it's preferable to do something like
+#
+# find / \( -fstype nfs -o -fstype mvfs \) -prune -o -mtime +3 ...
+#
+# (i.e., only list filesystem types to exclude), but the mention of mvfs
+# would cause the command to fail on hosts which don't have ClearCase.
--- /dev/null
+#!/usr/bin/ksh
+################################################################################
+#
+# File: config_disk_array
+# RCS: $Header: config_disk_array,v 1.2 97/04/21 13:27:19 defaria Exp $
+# Description: A script to configure a NIKE Model 20 Disk Array
+# Author: Andrew DeFaria, California Language Labs
+# Created: Tue Jan 28 15:59:11 PST 1997
+# Modified:
+# Language: Korn Shell
+#
+# (c) Copyright 2001, Andrew@DeFaria.com, all rights reserved
+#
+################################################################################
+me=$(basename $0)
+
+if [ $(id -u) -ne 0 ]; then
+ print -u2 "$me: Error: Must be root to execute this command!"
+ exit 1
+fi
+
+# Get parametes
+primary_disk=
+mirror_disk=
+while [ $# -ge 1 ]; do
+ case "$1" in
+ -p)
+ if [ $# -le 1 ]; then
+ print -u2 "$me: Error: Primary disk not specified"
+ fi
+ shift
+ primary_disk="$1"
+ ;;
+
+ -m)
+ if [ $# -le 1 ]; then
+ print -u2 "$me: Error: Mirror disk not specified"
+ fi
+ shift
+ mirror_disk="$1"
+ ;;
+
+ -d|-debug)
+ debug=yes
+ ;;
+
+ *)
+ print -u2 "$me: Error: Unknown parameter found ($1)"
+ exit 1
+ ;;
+ esac
+ shift
+done
+
+print "This script will configure the NIKE Model 20 Disk Array"
+
+if [ "_$primary_disk" != "_" ]; then
+ print "The primary disk is at: /dev/dsk/$primary_disk"
+fi
+
+if [ "_$mirror_disk" != "_" ]; then
+ print "The mirror disk is at: /dev/dsk/$mirror_disk"
+fi
+
+print
+
+if [ "_$primary_disk" = "_" -a "_$mirror_disk" = "_" ]; then
+ print -u2 "Nothing to do!"
+ exit 1
+fi
+
+answer=y
+print "Are these settings correct (Y/n)?\c"
+read answer
+
+if [ "$answer" != "y" -a "$answer" != "Y" ]; then
+ print -u2 "Nothing done"
+ exit 1
+fi
+
+# First create the mirror disk
+if [ "_$mirror_disk" != "_" ]; then
+ print "Creating the mirror disk"
+ /sbin/pvcreate -f /dev/rdsk/$mirror_disk
+ status=$?
+
+ if [ $status -eq 0 ]; then
+ print "Mirror disk created"
+ else
+ print "Unable to create mirror disk (Status: $status)"
+ exit 1
+ fi
+fi
+
+# Create Physical Volume Groups
+if [ "_$primary_disk" != "_" ]; then
+ print "Creating Physical Volume Groups"
+ /sbin/vgextend -g primary /dev/vgvobs /dev/dsk/$primary_disk
+ status=$?
+
+ # Ignore the warning about the volume already being created (Status: 2)
+ if [ $status -eq 0 -o $status -eq 2 ]; then
+ print "Physical Volume Group \"primary\" created"
+ else
+ print "Unable to create Physical Volume Group \"primary\" (Status: $status)"
+ exit 1
+ fi
+fi
+
+if [ "_$mirror_disk" != "_" ]; then
+ /sbin/vgextend -g mirror /dev/vgvobs /dev/dsk/$mirror_disk
+ status=$?
+
+ if [ $status -eq 0 ]; then
+ print "Physical Volume Group \"mirror\" created"
+ else
+ print "Unable to create Physical Volume Group \"mirror\" (Status: $status)"
+ exit 1
+ fi
+fi
+
+if [ "_$primary_disk" = "_" ]; then
+ exit
+fi
+
+# Create CLO logical volume
+print "Creating CLO Logical Volume"
+
+if [ "_$mirror_disk" = "_" ]; then
+ /sbin/lvcreate -l 3004 -n CLO -r y -C n -s y -p w -d p vgvobs
+else
+ /sbin/lvcreate -l 3004 -n CLO -m 1 -r y -C n -M y -s g -p w -d p vgvobs
+fi
+
+status=$?
+
+if [ $status -eq 0 ]; then
+ print "CLO Logical Volume created"
+else
+ print "Unable to create CLO Logical Volume (Status: $status)"
+ exit 1
+fi
+
+# Create the file system
+print "Creating file system on CLO Logical Volume"
+/usr/sbin/newfs -F hfs -L -i 6144 -m 5 /dev/vgvobs/rCLO
+status=$?
+
+if [ $status -eq 0 ]; then
+ print "File system for CLO Logical Volume created"
+else
+ print "Unable to create file system for CLO Logical Volume (Status: $status)"
+ exit 1
+fi
+
+# Mount the new CLO logical volume
+print "Mounting CLO Logical Volume"
+mkdir -p /CLO
+/usr/sbin/mount -o rw,suid, -F hfs /dev/vgvobs/CLO /CLO
+status=$?
+
+if [ $status -eq 0 ]; then
+ print "CLO Logical Volume mounted"
+else
+ print "Unable to mount CLO Logical Volume (Status: $status)"
+ exit 1
+fi
+
+# Add the /etc/fstab entry
+print "/dev/vgvobs/CLO /CLO hfs rw,suid 0 2" >> /etc/fstab
+print "Added CLO Logical Volume to /etc/fstab"
+
+# Add the /etc/exports entry
+print "/CLO -async" >> /etc/exports
+print "Added CLO Logical Volume to /etc/exports as -async"
+
+# Export /CLO
+print "Exporting CLO Logical Volume"
+/usr/sbin/exportfs -a
+status=$?
+
+if [ $status -eq 0 ]; then
+ print "CLO Logical Volume exported"
+else
+ print "Unable to export CLO Logical Volume (Status: $status)"
+ exit 1
+fi
+
+print "Done"
--- /dev/null
+#!/bin/ksh
+################################################################################
+#
+# File: configure_machine
+# Description: A script to set up the "admin" environment
+# Author: Andrew@DeFaria.com
+# Created: Tue Apr 15 14:20:02 PDT 1997
+# Modified:
+# Language: Korn Shell
+#
+# (c) Copyright 2001, Andrew@DeFaria.com, all rights reserved
+#
+################################################################################
+me=$(basename $0)
+
+# Set adm_base
+adm_base=${adm_base:-$HOME/adm}
+
+if [ ! -d /adm ]; then
+ if [ ! -d "$adm_base" ]; then
+ print -u2 "$me: Error: Unable to find \"adm\" path! - Exiting"
+ exit 1
+ fi
+fi
+
+# Set adm_fpath
+adm_fpath=${adm_fpath:-$adm_base/functions}
+
+# Source functions
+. $adm_fpath/common
+
+# Source in tmpfiles function
+tmpprefix=${TMPDIR:-/tmp}/configure_machine.$$
+. $adm_fpath/tmpfiles
+arm_trap
+
+verbose=
+debug=
+mode=check
+
+function usage {
+ info "$ME [-v|verbose] [-d|debug] [-usage]"
+ info " -v|verbose: Turns on verbose mode"
+ info " -d|debug: Turns on debug mode"
+ info " -f|ix: Turns on fix mode"
+ info " -c|heck: Turns on check mode (default)"
+ info " -usage: Print this usage message\n"
+
+ error "$1" 1
+} # usage
+
+function symlink {
+ debug "ENTER symlink"
+ from="$1"
+ to="$2"
+
+ if [ ! -h "$from" ]; then
+ if [ $mode = "fix" ]; then
+ verbose "Setting up symlink from $from -> $to"
+ ln -s "$to" "$from"
+ else
+ warning "$from link is not setup properly" 0
+ fi
+ else
+ verbose "$from link is OK"
+ fi
+
+ debug "EXIT symlink"
+} # symlink
+
+function setup_symlinks {
+ debug "ENTER setup_symlinks"
+
+ symlinks="\
+/adm $adm_base\
+"
+ print $symlinks | while read from to; do
+ symlink $from $to
+ done
+
+ debug "EXIT setup_symlinks"
+} # setup_symlinks
+
+function check_and_replace_file {
+ debug "ENTER check_and_replace_file"
+ master_file="$1"
+ check_file="$2"
+ permissions="$3"
+ owner_group="$4"
+
+ if ! cmp -s $master_file $check_file; then
+ if [ $mode = "fix" ]; then
+ verbose "Fixing $check_file"
+ cp $master_file $check_file
+ chmod $permissions $check_file
+ chown $owner_group $check_file
+ else
+ warning "$check_file is not setup properly" 0
+ fi
+ else
+ verbose "$check_file is OK"
+ fi
+
+ debug "EXIT check_and_replace_file"
+} # check_and_replace_file
+
+function check_nsswitch_conf {
+ debug "ENTER check_nsswitch_conf"
+
+ sed 's/automount: files nis/automount: nis files/' \
+ /etc/nsswitch.conf > $tmpprefix.nsswitch.conf
+
+ check_and_replace_file $tmpprefix.nsswitch.conf /etc/nsswitch.conf 444
+root:adm
+
+ debug "EXIT check_nsswitch_conf"
+} # check_nsswitch_conf
+
+function check_automount_maps {
+ debug "ENTER check_automount_maps"
+
+ for map in master home direct indirect; do
+ check_and_replace_file /adm/etc/auto_$map /etc/auto_$map 444 root:adm
+ done
+
+ debug "EXIT check_automount_maps"
+} # check_automount_maps
+
+function setup_rcfiles {
+ debug "ENTER setup_rcfiles"
+ local_src=$ADM_PATH/etc/init.d/local
+ local_dest=/etc/init.d/local
+ local_symlink=/etc/rc3.d/S99local
+
+ if [ ! -x $local_dest ]; then
+ if [ $mode = "fix" ]; then
+ verbose "Creating $local_dest"
+ cp "$local_src" $local_dest
+ chown root:adm $local_dest
+ chmod 555 $local_dest
+ else
+ warning "$local_dest does not exist!" 0
+ fi
+ else
+ verbose "$local_dest is OK"
+ fi
+
+ if [ ! -h $local_symlink ]; then
+ if [ $mode = "fix" ]; then
+ verbose "Setting up $local_symlink"
+ ln -s $local_dest $local_symlink
+ else
+ warning "$local_symlink does not exist!" 0
+ fi
+ else
+ verbose "$local_symlink is OK"
+ fi
+
+ if [ ! -d /etc/Startup ]; then
+ if [ $mode = "fix" ]; then
+ verbose "Creating /etc/Startup directory"
+ mkdir /etc/Startup
+ chown root:adm /etc/Startup
+ # Note: Security would be better if this was 775...
+ chmod 777 /etc/Startup
+ else
+ warning "/etc/Startup does not exist!" 0
+ fi
+ else
+ verbose "/etc/Startup is OK"
+ fi
+
+ start_views_src=$ADM_PATH/clearcase/start_views
+ start_views_dest=/etc/Startup/start_views
+
+ if [ ! -x $start_views_dest ]; then
+ if [ $mode = "fix" ]; then
+ verbose "Creating $start_views_dest"
+ cp "$start_views_src" $start_views_dest
+ chown root:adm $start_views_dest
+ chmod 555 $start_views_dest
+ else
+ warning "$start_views_dest does not exist!" 0
+ fi
+ else
+ verbose "$start_views_dest is OK"
+ fi
+
+ views_to_start_src=$ADM_PATH/clearcase/views_to_start
+ views_to_start_dest=/etc/views_to_start
+
+ if [ ! -f $views_to_start_dest ]; then
+ if [ $mode = "fix" ]; then
+ verbose "Creating $views_to_start_dest"
+ cp "$views_to_start_src" $views_to_start_dest
+ chown root:adm $views_to_start_dest
+ chmod 555 $views_to_start_dest
+ else
+ warning "$views_to_start_dest does not exist!" 0
+ fi
+ else
+ verbose "$views_to_start_dest is OK"
+ fi
+
+ debug "EXIT setup_rcfiles"
+} # setup_rcfiles
+
+function setup_root_rhosts {
+ debug "ENTER setup_root_rhosts"
+ root_rhosts_src="$ADM_PATH/etc/root_rhosts"
+ root_rhosts_dest="/.rhosts"
+
+ if [ ! -f $root_rhosts_dest ]; then
+ if [ $mode = "fix" ]; then
+ verbose "Creating $root_rhosts_dest"
+ cp "$root_rhosts_src" $root_rhosts_dest
+ chown root:adm $root_rhosts_dest
+ chmod 400 $root_rhosts_dest
+ else
+ warning "$root_rhosts_dest does not exist!" 0
+ fi
+ else
+ if is_root; then
+ if ! cmp -s $root_rhosts_src $root_rhosts_dest; then
+ if [ $mode = "fix" ]; then
+ verbose "Updating $root_rhosts_dest"
+ cp "$root_rhosts_src" $root_rhosts_dest
+ chown root:adm $root_rhosts_dest
+ chmod 400 $root_rhosts_dest
+ else
+ warning "Contents of $root_rhosts_dest is non standard!" 0
+ fi
+ fi
+ else
+ verbose "$root_rhosts_dest is present"
+ verbose "Contents not check since you're not running as root"
+ fi
+ fi
+
+ debug "EXIT setup_root_rhosts"
+} # setup_root_rhosts
+
+function setup_root_profile {
+ debug "ENTER setup_root_profile"
+ if [ "$VENDOR" = "HP" ]; then
+ debug "RETURN setup_root_profile (Skip HP machines)"
+ return
+ fi
+ root_profile_src="$ADM_PATH/etc/root_profile"
+ root_profile_dest="/.profile"
+
+ if [ ! -f $root_profile_dest ]; then
+ if [ $mode = "fix" ]; then
+ verbose "Creating $root_profile_dest"
+ cp "$root_profile_src" $root_profile_dest
+ chown root:adm $root_profile_dest
+ chmod 444 $root_profile_dest
+ else
+ warning "$root_profile_dest does not exist!" 0
+ fi
+ else
+ if is_root; then
+ if ! cmp -s $root_profile_src $root_profile_dest; then
+ if [ $mode = "fix" ]; then
+ verbose "Updating $root_profile_dest"
+ cp "$root_profile_src" $root_profile_dest
+ chown root:adm $root_profile_dest
+ chmod 400 $root_profile_dest
+ else
+ warning "Contents of $root_profile_dest is non standard!" 0
+ fi
+ fi
+ else
+ verbose "$root_profile_dest is present"
+ verbose "Contents not check since you're not running as root"
+ fi
+ fi
+
+ debug "EXIT setup_root_profile"
+} # setup_root_rhosts
+
+# Get parameters
+while [ $# -ge 1 ]; do
+ case "$1" in
+ -usage)
+ usage
+ ;;
+
+ -v|-verbose)
+ verbose=yes
+ ;;
+
+ -d|-debug)
+ debug=yes
+ ;;
+
+ -f|-fix)
+ mode=fix
+ ;;
+
+ -c|-check)
+ mode=check
+ ;;
+
+ *)
+ usage "Unrecognized parameter $1"
+ ;;
+ esac
+ shift
+done
+
+if [ "$mode" = "fix" ]; then
+ if ! is_root; then
+ error "Must be root to execute this command in fix mode!" 2
+ fi
+fi
+
+verbose "Starting $me..."
+setup_symlinks
+check_nsswitch_conf
+check_automount_maps
+setup_rcfiles
+setup_root_rhosts
+setup_root_profile
+verbose "$me completed"
--- /dev/null
+#!/usr/bin/ksh
+
+cpus=1
+
+top -d 1 > /tmp/jwhzxz
+
+grep -q "\[B 1" /tmp/jwhzxz
+if [ $? -eq 0 ]; then
+ cpus=2
+else
+ grep -q "\[B 2" /tmp/jwhzxz
+ if [ $? -eq 0 ]; then
+ cpus=3
+ else
+ grep -q "\[B 3" /tmp/jwhzxz
+ if [ $? -eq 0 ]; then
+ cpus=4
+ else
+ grep -q "\[B 4" /tmp/jwhzxz
+ if [ $? -eq 0 ]; then
+ cpus=5
+ else
+ grep -q "\[B 5" /tmp/jwhzxz
+ if [ $? -eq 0 ]; then
+ cpus=6
+ fi
+ fi
+ fi
+ fi
+fi
+
+rm /tmp/jwhzxz
+
+echo $cpus
--- /dev/null
+#!/bin/bash
+################################################################################
+#
+# File: cygwin_setup
+# Description: This script will perform additional setup to configure the
+# local machine into the cygwin enviornment for Salira
+# Author: Andrew@DeFaria.com
+# Created: Fri Oct 5 15:30:16 2001
+# Modified:
+# Language: Bash Shell
+#
+# (c) Copyright 2001, Andrew@DeFaria.com, all rights reserved
+#
+################################################################################
+# Set me to command name
+me=$(basename $0)
+
+# Global variables
+commonserver=sonscentral
+commonarea=common
+adm=//$commonserver/$commonarea/adm
+homeserver=sonscentral
+homeshare=users
+ccserver=sons-clearcase
+anonymous_ftp_server=sons-clearcase
+viewshare=views
+printerserver=sons-mrp
+printers="\
+ LJ4050PCL6\
+ LJ45500-Color\
+ LJ8150\
+"
+defaultprinter=LJ8150
+
+# Current machine's OS.
+OS=$(uname -s | cut -f2 -d-)
+
+# Current machine's hostname
+hostname=$(echo $(hostname) | tr [:upper:] [:lower:])
+
+# Setup standard mounts
+#
+# Home directory
+echo "Step 1 of 10: Setting up /home mount point"
+mount -tsf //$homeserver/$homeshare /home
+
+# Clearcase views
+echo "Step 2 of 10: Setting up /view mount point"
+if [ $hostname = $ccserver ]; then
+ mount -tsf C:/ClearCaseStorage/Views /view
+else
+ mount -tsf //$ccserver/$viewshare /view
+fi
+
+# Set cygdrive prefix to /dev
+echo "Step 3 of 10: Setting cygdrive-prefix to /dev"
+mount -s --change-cygdrive-prefix /dev
+
+# Remove user level cygdrive-prefix (Need to do this with regedit
+regedit /s \\\\$commonserver\\$commonarea\\FixCygwin.reg
+
+# Link passwd file
+echo "Step 4 of 10: Create common password file"
+if [ ! -f /etc/passwd.local ]; then
+ if [ ! -L /etc/passwd ]; then
+ cp /etc/passwd /etc/passwd.local
+ fi
+fi
+
+if [ ! -L /etc/passwd ]; then
+ if [ "$OS" != "4.0" ]; then
+ rm /etc/passwd
+ ln -s //$commonserver/$commonarea/passwd /etc/passwd
+ else
+ cp //$commonserver/$commonarea/passwd /etc/passwd
+ fi
+else
+ if [ "$OS" = "4.0" ]; then
+ # Fix up NT 4.0 machines (they don't like symlinked /etc/passwd files!)
+ rm /etc/passwd
+ cp //$commonserver/$commonarea/passwd /etc/passwd
+ fi
+fi
+
+# Link group file
+echo "Step 5 of 10: Create common group file"
+if [ ! -f /etc/group.local ]; then
+ if [ ! -L /etc/group ]; then
+ cp /etc/group /etc/group.local
+ fi
+fi
+
+if [ ! -L /etc/group ]; then
+ rm /etc/group
+ ln -s //$commonserver/$commonarea/group /etc/group
+fi
+
+# Link /etc/profile
+echo "Step 6 of 10: Linking /etc/profile to common profile file"
+if [ ! -f /etc/profile.orig ]; then
+ if [ ! -L /etc/profile ]; then
+ cp /etc/profile /etc/profile.orig
+ fi
+fi
+
+if [ ! -L /etc/profile ]; then
+ rm /etc/profile
+ ln -s //$commonserver/$commonarea/profile /etc/profile
+fi
+
+# Setup printer mount
+echo "Step 7 of 10: Setting up printers"
+for printer in $printers; do
+ mount -bsf //$printerserver/$printer /dev/$printer
+done
+
+# Mount default printer
+mount -bsf //$printerserver/$defaultprinter /dev/lp
+
+# Install internet services
+echo "Step 8 of 10: Installing internet services"
+
+# First save any pre-existing /etc/motd
+if [ -f /etc/motd ]; then
+ cp /etc/motd /etc/motd.$$
+fi
+
+rm -f /etc/ftpusers /etc/ftpwelcome /etc/inetd.conf /etc/motd /etc/shells
+iu-config > /dev/null
+
+# In order to allow anonymous ftp access we need to clear /etc/ftpusers.
+# Do this only for the $anonymous_ftp_server for now
+if [ $hostname = $anonymous_ftp_server ]; then
+ cat /dev/null > /etc/ftpusers
+fi
+
+# Now replace that saved /etc/motd if it existed, otherwise remove the boring
+# /etc/motd that iu-config creates. First check to see if the user has a
+# personalized /etc/motd in /etc/motd.save
+if [ -f /etc/motd.save ]; then
+ # User had a personalized motd so move it into place and remove any prior
+ # copies
+ mv /etc/motd.save /etc/motd
+ rm -f /etc/motd.$$
+elif [ -f /etc/motd.$$ ]; then
+ # Reinstall previous motd
+ # First update uname -a line
+ uname -a > /etc/motd
+
+ # Remove old uname -a line if present
+ grep -ve "^cygwin" /etc/motd.$$ >> /etc/motd.$$
+
+ # Cleanup
+ rm -f /etc/motd.$$
+else
+ # No saved motd or previous motd. Remove /etc/motd which will cause us
+ # to prompt for the information later.
+ rm /etc/motd
+fi
+
+# Need to hardlink /usr/bin/cygwin1.dll & /usr/sbin/cygwin1.dll
+# 12/17/2001: Stopped hardlinking cygwin1.dll. Enforcing having Windows system
+# environment variables instead. For this we need Cygwin's bin in the path.
+# User should also set CYGWIN=ntsec in a Windows system environment variable.
+if [ -f /usr/sbin/cygwin1.dll ]; then
+ rm -f /usr/sbin/cygwin1.dll
+ #ln /usr/bin/cygwin1.dll /usr/sbin/cygwin1.dll
+ echo "Warning: Please make sure that you have a Windows *SYSTEM* environment"
+ echo " variable named CYGWIN set to the value of \"ntsec\" and that"
+ echo " you have <Cygwin>\bin inserted into the Windows *SYSTEM*"
+ echo " environment variable named PATH"
+fi
+
+# Set up anonymous ftp iff we are on the $anonymous_ftp_server
+if [ $hostname = $anonymous_ftp_server ]; then
+ # Toggle on write access to ~ftp/bin
+ chmod +w ~ftp/bin
+
+ # Remove old copies of ls and cygwin1.dll
+ rm -f ~ftp/bin/ls.exe
+ rm -f ~ftp/bin/cygwin1.dll
+
+ # Install new copies (Note hardlinks will not work here since ~ftp/bin is
+ # on another file system. Doing an ln simply does a copy anyway)
+ # 12/17/2001: Skipping copying of cygwin1.dll as noted above
+ cp /bin/cygwin1.dll ~ftp/bin/cygwin1.dll
+ cp /bin/ls.exe ~ftp/bin/ls.exe
+
+ # Set security
+ chmod 555 ~ftp/bin/cygwin1.dll
+ chmod 111 ~ftp/bin/ls.exe
+ chown Administrator ~ftp/bin/cygwin1.dll
+ chown Administrator ~ftp/bin/ls.exe
+ chmod -w ~ftp/bin
+fi
+
+# Install inetd as a service
+/usr/sbin/inetd --install-as-service
+
+# Start inetd service
+inetd_started=$(net start | grep -i inetd)
+
+if [ -z "$inetd_started" ]; then
+ net start inetd
+fi
+
+# Setup SMTP
+$adm/bin/setup_ssmtp
+
+# Setup cron
+$adm/bin/setup_cron
+
+# Create /etc/motd
+echo "Step 9 of 10: Gathering machine specific information"
+if [ ! -f /etc/motd ]; then
+ $adm/bin/make_motd
+ made_motd=true
+else
+ echo "Skipped: Machine info already gathered"
+fi
+
+# Fixup /etc/ftpwelcome
+host=$(hostname | tr [:upper:] [:lower:])
+echo "Welcome to $host's ftp service" > /etc/ftpwelcome
+
+# Update machines file
+echo "Step 10 of 10: Registering this machine (This takes a few seconds)"
+if [ ! -z "$made_motd" ]; then
+ $adm/bin/update_machine_info
+else
+ echo "Skipped: Machine already registered"
+fi
+
+# Sneaky other fixes...
+# Link /bin/more.exe -> /bin/less.exe
+if [ ! -L /bin/more.exe ]; then
+ ln -s /bin/less.exe /bin/more.exe
+fi
+
+# Finished
+echo "Done"
--- /dev/null
+#!/bin/ksh
+################################################################################
+#
+# File: daily
+# Description: This is the daily cronjob for root
+# Author: Andrew@DeFaria.com
+# Created: Wed Jul 21 12:12:28 PDT 1999
+# Modified:
+# Language: Korn Shell
+#
+# (c) Copyright 2001, Andrew@DeFaria.com, all rights reserved
+#
+################################################################################
+me=$(basename $0)
+
+# Set adm_base
+adm_base=${adm_base:-$HOME/adm}
+
+# Set adm_fpath
+adm_fpath=${adm_fpath:-$adm_base/functions}
+
+# Source functions
+. $adm_fpath/common
+
+# Add $adm_base/bin and $adm_base/clearcase PATH
+export PATH=$adm_base/bin:$adm_base/clearcase:$PATH
+
+# Source in tmpfiles function
+tmpprefix=${TMPDIR:-/tmp}/$me.$$
+tmpfile=$tmpprefix
+. $adm_fpath/tmpfiles
+arm_trap
+
+# Where logs are kept
+logs=$adm_host/logs
+
+# Define admin_host. Admin_host is the machine where checks for the network
+# as a whole are run (such as check_view_storage)
+admin_host=dreamcicle # For now...
+
+verbose=
+debug=
+
+function usage {
+ display "$me [-v|verbose] [-d|debug] [-u|usage] [-n|notify <email address>]"
+ display " -v|verbose: Turns on verbose mode"
+ display " -d|debug: Turns on debug mode"
+ display " -u|usage: Print this usage message\n"
+ display " -n|notify: Who to notify of problems (default root)"
+
+ error "$1" 1
+} # usage
+
+lab_admin=cdsadmin # For now
+local_admin=cdsadmin
+
+function notify {
+ debug "ENTER notify"
+ who=$1
+ logfile=$2
+
+ cat > $tmpfile <<END
+Notice: $me cronjob discovered the following problems:
+
+END
+
+ cat $logfile >> $tmpfile
+
+ mailx -s "Notice: $me cronjob discovered the following problems" $who <
+$tmpfile
+ debug "EXIT notify"
+} # notify
+
+# Get parameters
+while [ $# -ge 1 ]; do
+ case "$1" in
+ -usage)
+ usage
+ ;;
+
+ -v|-verbose)
+ verbose=yes
+ ;;
+
+ -d|-debug)
+ debug=yes
+ ;;
+
+ -n|-notify)
+ shift
+ if [ $# -lt 1 ]; then
+ error "Notify email address was unspecified!" 1
+ fi
+ local_admin="$1"
+ ;;
+
+ *)
+ usage "Unrecognized parameter $1"
+ ;;
+ esac
+ shift
+done
+
+## Main
+# Some common portions of log filenames:
+host=$(uname -n) # System's name
+date=$(date +%d) # Note we keep one month of rolling logs
+
+if [ "$host" = "$admin_host" ]; then
+ network_diskspace_log=$logs/network.diskspace.$date.log
+ verbose "Diskspace Report -> $network_diskspace_log"
+ diskspace -network > $network_diskspace_log 2>&1
+
+ if [ -s $network_diskspace_log ]; then
+ notify $lab_admin $network_diskspace_log
+ fi
+
+ view_storage_log=$logs/viewstorage.$date.log
+ verbose "View Storage Report -> $view_storage_log"
+ check_view_storage > $view_storage_log 2>&1
+
+ if [ -s $view_storage_log ]; then
+ notify $lab_admin $view_storage_log
+ fi
+
+ # Produce a viewspace report for all production view servers
+ viewservers="cds-sundev-rem canon"
+
+ for viewserver in $viewservers; do
+ viewspace_log=$logs/$viewserver.viewspace.$date.log
+ verbose "Viewspace Report for $viewserver -> $viewspace_log"
+ viewspace -host $viewserver > $viewspace_log
+ done
+fi
+
+# Checks run on all machines
+local_diskspace_log=$logs/$host.diskspace.$date.log
+verbose "Diskspace Report -> $local_diskspace_log"
+diskspace -local > $local_diskspace_log 2>&1
+
+if [ -s $local_diskspace_log ]; then
+ notify local_admin $local_diskspace_log
+fi
+
+machine_configuration_log=$logs/$host.machine_configuration.$date.log
+verbose "Machine Configuration Report -> $machine_configuration_log" 2>&1 &
+configure_machine -f > $machine_configuraton_log 2>&1
+
+if [ -s $machine_configuration_log ]; then
+ notify local_admin $machine_configuration_log
+fi
--- /dev/null
+#!/bin/ksh
+################################################################################
+#
+# File: desktopmach
+# Description: A script to execute a command on all desktop class machines
+# Author: Andrew@DeFaria.com
+# Created: Thu May 11 11:08:24 PDT 2000
+# Modified:
+# Language: Korn Shell
+#
+# (c) Copyright 2001, Andrew@DeFaria.com, all rights reserved
+#
+################################################################################
+# Set me to command name
+me=$(basename $0)
+
+# Set adm_base
+adm_base=${adm_base:-$HOME/adm}
+
+# Set adm_fpath
+adm_fpath=${adm_fpath:-$adm_base/functions}
+
+# Source functions
+. $adm_fpath/common
+
+# Set machines
+machines=${machines:-$adm_base/data/machines}
+
+if [ "$1" = "-f" ]; then
+ shift
+ machines="$1"
+ shift
+fi
+
+PATH=/adm/bin:$PATH
+
+if [ "$1" = "-r" ]; then
+ root=yes
+ shift
+fi
+
+for desktop_machine in $(grep -ve ^# $machines | grep :Desktop: | cut -d:
+-f1); do
+ # Execute command. Note if no command is given then the effect is to
+ # rlogin to each machine.
+ print "$desktop_machine:$@"
+ if [ $# -gt 0 ]; then
+ if [ -z "$root" ]; then
+ remsh $desktop_machine -n "$@"
+ else
+ root remsh $desktop_machine -n "$@"
+ fi
+ else
+ if [ -z "$root" ]; then
+ remsh $desktop_machine
+ else
+ root remsh $desktop_machine
+ fi
+ fi
+done
--- /dev/null
+#!/usr/bin/perl
+################################################################################
+#
+# File: diskspace
+# Description: Check filesystems to see if they are becoming too full
+# Author: Andrew@DeFaria.com
+# Created: Fri Mar 12 10:17:44 PST 2004
+# Language: Perl
+# Modifications:
+#
+# (c) Copyright 2004, Andrew@DeFaria.com, all rights reserved
+#
+################################################################################
+use strict;
+use warnings;
+use File::Spec;
+
+my ($me, $abs_path, $lib_path, $bin_path, $log_path);
+
+BEGIN {
+ # Extract relative path and basename from script name.
+ $0 =~ /(.*)[\/\\](.*)/;
+
+ $abs_path = (!defined $1) ? "." : File::Spec->rel2abs ($1);
+ $me = (!defined $2) ? $0 : $2;
+
+ # Setup paths
+ $bin_path = "$abs_path";
+ $lib_path = "$abs_path/../../lib";
+ $log_path = "$abs_path/../../log";
+
+ # Add the appropriate path to our modules to @INC array.
+ unshift (@INC, "$lib_path");
+} # BEGIN
+
+use Display;
+
+my $threshold = 90;
+
+sub Usage {
+ my $msg = shift;
+
+ display "ERROR: $msg\n" if defined $msg;
+
+ display "$me\t[-v] [-d] [-u] [ -n | -l ]";
+ display "\t-v\tTurn on verbose mode";
+ display "\t-d\tTurn on debug mode";
+ display "\t-u\tThis usage message";
+ display "\t-t\tThreshold (0-100)";
+
+ exit 1;
+} # Usage
+
+sub CheckFilesystemSpace {
+ my $filesystem = shift;
+
+ # Isolate the disk usage line
+ my @diskusage = `df -k $filesystem`;
+
+ # Get fields
+ $_ = $diskusage [1];
+ my ($fs, $blocks, $used, $available, $used_percent, $mounted_on) = split;
+
+ if ($used_percent =~ /(\d+)%/) {
+ $used_percent = $1;
+ } # if
+
+ $available = sprintf ("%.3f", $available / 1024);
+
+ # Check if over threshold and report
+ if ($used_percent <= $threshold ) {
+ verbose "$mounted_on is $used_percent% full - $available Megs left";
+ } else {
+ warning "$mounted_on is $used_percent% full - $available Megs left";
+ } # if
+} # CheckFilesystemSpace
+
+sub CheckLocalFilesystems {
+ my @local_filesystems = `df -k`;
+
+ @local_filesystems = grep {/^\/dev/} @local_filesystems;
+
+ foreach (@local_filesystems) {
+ my ($fs, $blocks, $used, $available, $used_percent, $mounted_on) = split;
+ CheckFilesystemSpace $mounted_on;
+ } # foreach
+} # CheckLocalFilesystems
+
+# Get parameters
+while ($ARGV [0]) {
+ if ($ARGV [0] eq "-v") {
+ set_verbose;
+ } elsif ($ARGV [0] eq "-d") {
+ set_debug;
+ } elsif ($ARGV [0] eq "-t") {
+ shift (@ARGV);
+ if (!$ARGV [0]) {
+ Usage "Must specify threshold after -t";
+ } else {
+ $threshold = $ARGV [0];
+ } # if
+ } elsif ($ARGV [0] eq "-u") {
+ Usage;
+ } else {
+ Usage "Unknown argument found: " . $ARGV [0];
+ } # if
+
+ shift (@ARGV);
+} # while
+
+debug "Theshold: $threshold";
+CheckLocalFilesystems;
--- /dev/null
+#!/bin/bash
+################################################################################
+#
+# File: display_path
+# Description: Displays the components in PATH
+# Author: Andrew@DeFaria.com
+# Language: Bash Shell
+#
+# (c) Copyright 2001, Andrew@DeFaria.com, all rights reserved.
+#
+################################################################################
+# Set me to command name
+me=$(basename $0)
+
+# Set adm_base
+adm_base=${adm_base:-$HOME/adm}
+
+# Set adm_fpath
+adm_fpath=${adm_fpath:-$adm_base/functions}
+
+# Source functions
+. $adm_fpath/common
+
+declare -i i=0
+
+for path_component in $(echo $PATH | tr ":" "\n"); do
+ let i=i+1
+ if [ $i -eq 1 ]; then
+ display "PATH consists of the following components:\n"
+ fi
+ display "\t$i) $path_component"
+done | more
--- /dev/null
+#!/bin/bash
+################################################################################
+#
+# File: dum
+# Description: Outputs disk usage in Megabytes (what a concept! :-)
+# Author: Andrew@DeFaria.com
+# Created: Mon Nov 13 16:14:30 1995
+#
+# (c) Copyright 2001, Andrew@DeFaria.com, all rights reserved
+#
+################################################################################
+lines=${LINES:-24}
+du "$@" 2> /dev/null |
+ sort -nr |
+ awk '{
+ filename=substr ($0, length ($1) + 2, (length ($0) - length ($1)) - 1);
+ printf "%.3f%s%s\n", $1/1024, "\t", filename
+ }' |
+ head -$lines
--- /dev/null
+#!/bin/ksh
+################################################################################
+#
+# File: fix_automounts
+# Description: Remounts exported file systems from a machine
+# Author: Andrew DeFaria (defaria@cup.hp.com)
+# Language: Korn Shell
+# Created: Tue Apr 21 11:59:57 PDT 1998
+# Status: Experimental (Do Not Distribute)
+# Modifications: Removed the grep "(everyone)". In the past file systems were
+# exported to everyone and that is no longer the case. This does
+# mean that this script might attempt to mount things it can't
+# but there is no easy way to ascertain if the current machine
+# is allowed to mount given showmount -e output, especially if
+# that output is a netgroup. I could check this via ypmatch
+# but that'll take yet more smarts...
+# Andrew@DeFaria.com
+#
+# (c) Copyright 2001, Andrew@DeFaria.com, all rights reserved
+#
+################################################################################
+# Set me to command name
+me=$(basename $0)
+
+# Set adm_base
+adm_base=${adm_base:-$HOME/adm}
+
+# Set adm_fpath
+adm_fpath=${adm_fpath:-$adm_base/functions}
+
+# Source functions
+. $adm_fpath/common
+
+if [ $(id -u) -ne 0 ]; then
+ print -u2 "$me: Error: You must be root to execute this command!"
+ exit 1
+fi
+
+if [[ "$OS" = "10" ]] ; then
+ mount=/usr/sbin/mount
+else
+ mount=/etc/mount
+fi
+
+if [ $# -lt 1 ]; then
+ print -u2 "Usage: <remote machine> [ <remote machine> ]"
+ exit 1
+fi
+
+function remount_filesystem {
+ machine=$1
+ mount_directory=$2
+ mount_over_directory=/tmp_mnt/net/$machine$2
+ if [ ! -d $mount_over_directory ]; then
+ print Making $mount_over_directory
+ mkdir -p $mount_over_directory
+ fi
+
+ if [ ! -d $mount_over_directory/lost+found ]; then
+ print Mounting $machine:$mount_directory to $mount_over_directory
+ $mount $machine:$mount_directory $mount_over_directory
+ status=$?
+ if [ $status -ne 0 ]; then
+ print -u2 "Warning: Unable to mount $machine:$mount_directory
+$mount_over_directory (Status: $?)"
+ fi
+ fi
+} # remount_filesystem
+
+function kick_automounter {
+ automount_pid=$(ps -ef | grep automount | grep -v "grep automount" | grep -v "fix_automounts" | awk '{print $2}')
+
+ print Kicking automounter \($automount_pid\)
+ kill -HUP $automount_pid
+} # kick_automounter
+
+if [ "$OS" = "10" ]; then
+ showmount=/usr/sbin/showmount
+else
+ showmount=/usr/etc/showmount
+fi
+
+for remote in "$@"; do
+ exported_filesystems=$($showmount -e $remote | grep -v "export list" |
+ cut -f1 -d' ')
+ for filesystem in $exported_filesystems; do
+ remount_filesystem $remote $filesystem
+ done
+done
+
+kick_automounter
--- /dev/null
+#!/bin/ksh
+################################################################################
+#
+# File: fixr_startup
+# Description: This script will fix the local startup scripts. Thist is done
+# by moving them from /sbin/rc2.d to /sbin/rc3.d where they
+# really belong.
+# Author: Andrew DeFaria (defaria@cup.hp.com)
+# Language: Korn Shell
+#
+# (c) Copyright 2001, Andrew@DeFaria.com, all rights reserved
+#
+################################################################################
+# First source /app/appserver
+if [ -x /app/appserver ]; then
+ . /app/appserver
+fi
+
+if [ $(id -u) -ne 0 ]; then
+ print -u2 "Error: You must be root to execute this command!"
+ exit 1
+fi
+
+if [ "$OS" = "09" ]; then
+ print -u2 "Error: $(basename $0) does not run on 9.x!"
+ exit 1
+fi
+
+moved_a_file=no
+
+if [ -x /sbin/rc2.d/S900local ]; then
+ print "Moving /sbin/rc2.d/S900local \-> /sbin/rc3.d/S900local"
+ mv /sbin/rc2.d/S900local /sbin/rc3.d/S900local
+ moved_a_file=yes
+fi
+
+if [ -x /sbin/rc2.d/S920start_views ]; then
+ print "Moving /sbin/rc2.d/S920start_views \-> /sbin/rc3.d/S770start_views"
+ mv /sbin/rc2.d/S920start_views /sbin/rc3.d/S770start_views
+ moved_a_file=yes
+fi
+
+if [ -x /sbin/rc2.d/S910mount_additional_vobs ]; then
+ print "Moving /sbin/rc2.d/S910mount_additional_vobs \-> /sbin/rc3.d/S775mount_additional_vobs"
+ mv /sbin/rc2.d/S910mount_additional_vobs /sbin/rc3.d/S775mount_additional_vobs
+ moved_a_file=yes
+fi
+
+if [ "$moved_a_file" = "no" ]; then
+ print "Startup scripts already in their proper places"
+else
+ print "Fixed startup scripts"
+fi
--- /dev/null
+#!/bin/ksh
+
+echo "Now on `uname -n`"
+grep "root: cll-support" /etc/mail/aliases >/dev/null 2>&1
+if [ $? -ne 0 ]; then
+ echo " No change"
+ exit 0;
+fi
+
+echo " Changing aliases.local"
+sed -e "s/root\: cll-support/root\: cll-root/" \
+ -e "s/paladm\: cll-support/paladm\: cll-paladm/" \
+ < /etc/mail/aliases.local > /tmp/aliases.local.new
+mv /etc/mail/aliases.local /etc/mail/aliases.local.`date +"%m%d%y_%H%M%S"`
+mv /tmp/aliases.local.new /etc/mail/aliases.local
+chmod 644 /etc/mail/aliases.local
+chown root:root /etc/mail/aliases.local
--- /dev/null
+#!/bin/ksh
+################################################################################
+#
+# File: fixntp
+# Description: This script will fix /etc/rc.config.d/netdaemons to set
+# NTPDATE_SERVER to cupertino.ntp.hp.com
+# Author: Andrew DeFaria (defaria@cup.hp.com)
+# Language: Korn Shell
+# Modified:
+#
+# (c) Copyright 2001, Andrew@DeFaria.com, all rights reserved
+#
+################################################################################
+# First source /app/appserver
+if [ -x /app/appserver ]; then
+ . /app/appserver
+fi
+
+if [ $(id -u) -ne 0 ]; then
+ print -u2 "Error: You must be root to execute this command!"
+ exit 1
+fi
+
+if [ "$OS" = "09" ]; then
+ print -u2 "Error: $(basename $0) does not run on 9.x!"
+ exit 1
+fi
+
+netdaemons=/etc/rc.config.d/netdaemons
+netdaemons_new=/etc/rc.config.d/netdaemons.$$
+
+sed 's/NTPDATE_SERVER=$/NTPDATE_SERVER=cupertino.ntp.hp.com/' \
+ $netdaemons > $netdaemons_new
+
+if cmp -s $netdaemons $netdaemons_new; then
+ rm -f $netdaemons_new
+ print "NTPDATE_SERVER already set properly - No fix needed!"
+else
+ mv $netdaemons_new $netdaemons
+ chmod 555 $netdaemons
+ chown bin:bin $netdaemons
+ print "Changed NTPDATE_SERVER to be set properly"
+fi
--- /dev/null
+#!/bin/ksh
+################################################################################
+#
+# File: fixrhosts
+# Description: Generates a new ~/.rhosts file
+# Author: Andrew@DeFaria.com
+# Created: Fri Apr 30 14:13:56 PDT 1999
+# Modifications:
+# Language: Korn Shell
+#
+# (c) Copyright 2001, Andrew@DeFaria.com, all rights reserved
+#
+################################################################################
+# Set me to command name
+me=$(basename $0)
+
+# Set adm_base
+adm_base=${adm_base:-$HOME/adm}
+
+# Set adm_fpath
+adm_fpath=${adm_fpath:-$adm_base/functions}
+
+# Source functions
+. $adm_fpath/common
+
+# Source in tmpfiles function
+tmpprefix=${TMPDIR:-/tmp}/$me.$$
+. $adm_fpath/tmpfiles
+trap cleanup INT EXIT ERR
+
+# Check if root
+if is_root; then
+ error "You should not run the script as root!" 1
+fi
+
+rhosts=$HOME/.rhosts
+rhosts_loc=$HOME/.rhosts.loc
+
+# Generate new $rhosts
+
+if [ -f $rhosts_loc ]; then
+ cp $rhosts_loc $rhosts
+else
+ rm -f $rhosts
+fi
+
+# Add netgroup
+print "+@all-machines $LOGNAME" >> .rhosts
+
+# Insure proper permissions
+chmod 600 $rhosts
+
+# Tell user of this scripts demise
+display "\t\t\t*** NOTICE ***"
+display
+display "Since the lab now users NIS we are employing a different solution"
+display "to the issue of providing passwordless logins to sets of machines"
+display "via rlogin/remsh. This solution adds the following to $rhosts:"
+display
+display "\t+@all-machines $LOGNAME"
+display
+display "Thereafter running $me is unnecessary."
+display
+display "I'd like to take this opportunity to thank you for your support"
+display "of $me! :-) <Andrew@DeFaria.com>"
--- /dev/null
+#!/bin/ksh
+################################################################################
+#
+# File: .tep
+# RCS: $Header: .tep,v 1.5 97/10/05 22:31:46 defaria Exp $
+# Description: Wrapper script to set function keys for the TEP Console
+# Concentrators.
+# Author: Andrew DeFaria, California Language Labs
+# Created: Thu Jun 6 08:31:57 PDT 1996
+# Modified: Thu Jun 6 08:32:13 PDT 1996 (Andrew DeFaria) defaria@spock
+# Language: Korn Shell
+#
+# (c) Copyright 2001, Andrew@DeFaria.com, all rights reserved
+#
+################################################################################
+me=$(basename $0)
+export esc=$(print "\033")
+export cr=$(print "\015")
+
+if [ "$TERM" = "hpterm" \
+ -o "$TERM" = "hp" \
+ -o "$TERM" = "2394" \
+ -o "$TERM" = "70096" ]; then
+ # Turn:
+ # . Enq/Ack: No
+ # . RecvPace: Xon/Xoff
+ # . InhHndShk (G): Yes
+ # . Inh DC2 (H): Yes
+ print "${esc}&q0n1h${esc}&s1g1H\c"
+
+ if [ "$me" = fk1 ]; then
+ print "\
+${esc}&f1k2a16d7L Young hpcleareQQQQT1${cr}\
+${esc}&f2k2a16d7L Loomis hpclsv1 QQQQT2${cr}\
+${esc}&f3k2a16d7L hpcll237QQQQT3${cr}\
+${esc}&f4k2a16d7L Stablerhpclear1QQQQT4${cr}\
+${esc}&f5k2a16d7L Unitas hpclear3QQQQT5${cr}\
+${esc}&f6k2a16d7L Griese hpclear5QQQQT6${cr}\
+${esc}&f7k2a16d7L Simms hpclear7QQQQT7${cr}\
+${esc}&f8k2a16d5L Dis connect QQQQ${cr}\c"
+ elif [ $me = fk2 ]; then
+ print "\
+${esc}&f1k2a16d7LDynamitehpclldynQQQQT1${cr}\
+${esc}&f2k2a16d7L Mobius hpclang6QQQQT2${cr}\
+${esc}&f3k2a16d7L Starr hpclearnQQQQT3${cr}\
+${esc}&f4k2a16d7L hpcll208QQQQT4${cr}\
+${esc}&f5k2a16d7LTarkentnhpclear9QQQQT5${cr}\
+${esc}&f6k2a16d7L Veil QQQQT6${cr}\
+${esc}&f7k2a16d7L Kilmer hpclearkQQQQT7${cr}\
+${esc}&f8k2a16d7L hpcll207QQQQT8${cr}\c"
+ elif [ $me = fk3 ]; then
+ print "\
+${esc}&f1k2a16d7LDuchess QQQQT1${cr}\
+${esc}&f2k2a16d7LCatbert QQQQT2${cr}\
+${esc}&f3k2a16d7L Nala QQQQT3${cr}\
+${esc}&f4k2a16d7LPywacket QQQQT4${cr}\
+${esc}&f5k2a16d7L Alley QQQQT5${cr}\
+${esc}&f6k2a16d7L QQQQT6${cr}\
+${esc}&f7k2a16d7L QQQQT7${cr}\
+${esc}&f8k2a16d5L Dis connect QQQQ${cr}\c"
+ elif [ $me = fk4 ]; then
+ print "\
+${esc}&f1k2a16d7L Wampus QQQQT1${cr}\
+${esc}&f2k2a16d7Lcllvob01 QQQQT2${cr}\
+${esc}&f3k2a16d7Lcllvob02 QQQQT3${cr}\
+${esc}&f4k2a16d7Lcllvob03 QQQQT4${cr}\
+${esc}&f5k2a16d7Lcllvob04 QQQQT5${cr}\
+${esc}&f6k2a16d7L QQQQT6${cr}\
+${esc}&f7k2a16d7L QQQQT7${cr}\
+${esc}&f8k2a16d5L Dis connect QQQQ${cr}\c"
+ elif [ $me = fk5 ]; then
+ print "\
+${esc}&f1k2a16d7Lcllvob05 QQQQT1${cr}\
+${esc}&f2k2a16d7Lcllvob06 QQQQT2${cr}\
+${esc}&f3k2a16d7Lcllvob07 QQQQT3${cr}\
+${esc}&f4k2a16d7Lcllvob08 QQQQT4${cr}\
+${esc}&f5k2a16d7Lcllvob09 QQQQT5${cr}\
+${esc}&f6k2a16d7Lcllvob10 QQQQT6${cr}\
+${esc}&f7k2a16d7L QQQQT7${cr}\
+${esc}&f8k2a16d5L Dis connect QQQQ${cr}\c"
+ elif [ $me = fk6 ]; then
+ print "\
+${esc}&f1k2a16d7L Gideon QQQQT1${cr}\
+${esc}&f2k2a16d7L Oliver QQQQT2${cr}\
+${esc}&f3k2a16d7L Dinah QQQQT3${cr}\
+${esc}&f4k2a16d7LCheshire QQQQT4${cr}\
+${esc}&f5k2a16d7Lcllbld01 QQQQT5${cr}\
+${esc}&f6k2a16d7Lcllbld02 QQQQT6${cr}\
+${esc}&f7k2a16d7Lcllbld03 QQQQT7${cr}\
+${esc}&f8k2a16d7Lhpcll321 QQQQT8${cr}\c"
+ fi
+
+ # Turn on Function keys to see changes
+ print "${esc}&jB\c"
+else
+ print -u2 "Sorry but the terminal type $TERM, is not supported"
+ exit 1
+fi
--- /dev/null
+#!/bin/ksh
+################################################################################
+#
+# File: .tep
+# RCS: $Header: .tep,v 1.5 97/10/05 22:31:46 defaria Exp $
+# Description: Wrapper script to set function keys for the TEP Console
+# Concentrators.
+# Author: Andrew DeFaria, California Language Labs
+# Created: Thu Jun 6 08:31:57 PDT 1996
+# Modified: Thu Jun 6 08:32:13 PDT 1996 (Andrew DeFaria) defaria@spock
+# Language: Korn Shell
+#
+# (c) Copyright 2001, Andrew@DeFaria.com, all rights reserved
+#
+################################################################################
+me=$(basename $0)
+export esc=$(print "\033")
+export cr=$(print "\015")
+
+if [ "$TERM" = "hpterm" \
+ -o "$TERM" = "hp" \
+ -o "$TERM" = "2394" \
+ -o "$TERM" = "70096" ]; then
+ # Turn:
+ # . Enq/Ack: No
+ # . RecvPace: Xon/Xoff
+ # . InhHndShk (G): Yes
+ # . Inh DC2 (H): Yes
+ print "${esc}&q0n1h${esc}&s1g1H\c"
+
+ if [ "$me" = fk1 ]; then
+ print "\
+${esc}&f1k2a16d7L Young hpcleareQQQQT1${cr}\
+${esc}&f2k2a16d7L Loomis hpclsv1 QQQQT2${cr}\
+${esc}&f3k2a16d7L hpcll237QQQQT3${cr}\
+${esc}&f4k2a16d7L Stablerhpclear1QQQQT4${cr}\
+${esc}&f5k2a16d7L Unitas hpclear3QQQQT5${cr}\
+${esc}&f6k2a16d7L Griese hpclear5QQQQT6${cr}\
+${esc}&f7k2a16d7L Simms hpclear7QQQQT7${cr}\
+${esc}&f8k2a16d5L Dis connect QQQQ${cr}\c"
+ elif [ $me = fk2 ]; then
+ print "\
+${esc}&f1k2a16d7LDynamitehpclldynQQQQT1${cr}\
+${esc}&f2k2a16d7L Mobius hpclang6QQQQT2${cr}\
+${esc}&f3k2a16d7L Starr hpclearnQQQQT3${cr}\
+${esc}&f4k2a16d7L hpcll208QQQQT4${cr}\
+${esc}&f5k2a16d7LTarkentnhpclear9QQQQT5${cr}\
+${esc}&f6k2a16d7L Veil QQQQT6${cr}\
+${esc}&f7k2a16d7L Kilmer hpclearkQQQQT7${cr}\
+${esc}&f8k2a16d7L hpcll207QQQQT8${cr}\c"
+ elif [ $me = fk3 ]; then
+ print "\
+${esc}&f1k2a16d7LDuchess QQQQT1${cr}\
+${esc}&f2k2a16d7LCatbert QQQQT2${cr}\
+${esc}&f3k2a16d7L Nala QQQQT3${cr}\
+${esc}&f4k2a16d7LPywacket QQQQT4${cr}\
+${esc}&f5k2a16d7L Alley QQQQT5${cr}\
+${esc}&f6k2a16d7L QQQQT6${cr}\
+${esc}&f7k2a16d7L QQQQT7${cr}\
+${esc}&f8k2a16d5L Dis connect QQQQ${cr}\c"
+ elif [ $me = fk4 ]; then
+ print "\
+${esc}&f1k2a16d7L Wampus QQQQT1${cr}\
+${esc}&f2k2a16d7Lcllvob01 QQQQT2${cr}\
+${esc}&f3k2a16d7Lcllvob02 QQQQT3${cr}\
+${esc}&f4k2a16d7Lcllvob03 QQQQT4${cr}\
+${esc}&f5k2a16d7Lcllvob04 QQQQT5${cr}\
+${esc}&f6k2a16d7L QQQQT6${cr}\
+${esc}&f7k2a16d7L QQQQT7${cr}\
+${esc}&f8k2a16d5L Dis connect QQQQ${cr}\c"
+ elif [ $me = fk5 ]; then
+ print "\
+${esc}&f1k2a16d7Lcllvob05 QQQQT1${cr}\
+${esc}&f2k2a16d7Lcllvob06 QQQQT2${cr}\
+${esc}&f3k2a16d7Lcllvob07 QQQQT3${cr}\
+${esc}&f4k2a16d7Lcllvob08 QQQQT4${cr}\
+${esc}&f5k2a16d7Lcllvob09 QQQQT5${cr}\
+${esc}&f6k2a16d7Lcllvob10 QQQQT6${cr}\
+${esc}&f7k2a16d7L QQQQT7${cr}\
+${esc}&f8k2a16d5L Dis connect QQQQ${cr}\c"
+ elif [ $me = fk6 ]; then
+ print "\
+${esc}&f1k2a16d7L Gideon QQQQT1${cr}\
+${esc}&f2k2a16d7L Oliver QQQQT2${cr}\
+${esc}&f3k2a16d7L Dinah QQQQT3${cr}\
+${esc}&f4k2a16d7LCheshire QQQQT4${cr}\
+${esc}&f5k2a16d7Lcllbld01 QQQQT5${cr}\
+${esc}&f6k2a16d7Lcllbld02 QQQQT6${cr}\
+${esc}&f7k2a16d7Lcllbld03 QQQQT7${cr}\
+${esc}&f8k2a16d7Lhpcll321 QQQQT8${cr}\c"
+ fi
+
+ # Turn on Function keys to see changes
+ print "${esc}&jB\c"
+else
+ print -u2 "Sorry but the terminal type $TERM, is not supported"
+ exit 1
+fi
--- /dev/null
+#!/bin/ksh
+################################################################################
+#
+# File: .tep
+# RCS: $Header: .tep,v 1.5 97/10/05 22:31:46 defaria Exp $
+# Description: Wrapper script to set function keys for the TEP Console
+# Concentrators.
+# Author: Andrew DeFaria, California Language Labs
+# Created: Thu Jun 6 08:31:57 PDT 1996
+# Modified: Thu Jun 6 08:32:13 PDT 1996 (Andrew DeFaria) defaria@spock
+# Language: Korn Shell
+#
+# (c) Copyright 2001, Andrew@DeFaria.com, all rights reserved
+#
+################################################################################
+me=$(basename $0)
+export esc=$(print "\033")
+export cr=$(print "\015")
+
+if [ "$TERM" = "hpterm" \
+ -o "$TERM" = "hp" \
+ -o "$TERM" = "2394" \
+ -o "$TERM" = "70096" ]; then
+ # Turn:
+ # . Enq/Ack: No
+ # . RecvPace: Xon/Xoff
+ # . InhHndShk (G): Yes
+ # . Inh DC2 (H): Yes
+ print "${esc}&q0n1h${esc}&s1g1H\c"
+
+ if [ "$me" = fk1 ]; then
+ print "\
+${esc}&f1k2a16d7L Young hpcleareQQQQT1${cr}\
+${esc}&f2k2a16d7L Loomis hpclsv1 QQQQT2${cr}\
+${esc}&f3k2a16d7L hpcll237QQQQT3${cr}\
+${esc}&f4k2a16d7L Stablerhpclear1QQQQT4${cr}\
+${esc}&f5k2a16d7L Unitas hpclear3QQQQT5${cr}\
+${esc}&f6k2a16d7L Griese hpclear5QQQQT6${cr}\
+${esc}&f7k2a16d7L Simms hpclear7QQQQT7${cr}\
+${esc}&f8k2a16d5L Dis connect QQQQ${cr}\c"
+ elif [ $me = fk2 ]; then
+ print "\
+${esc}&f1k2a16d7LDynamitehpclldynQQQQT1${cr}\
+${esc}&f2k2a16d7L Mobius hpclang6QQQQT2${cr}\
+${esc}&f3k2a16d7L Starr hpclearnQQQQT3${cr}\
+${esc}&f4k2a16d7L hpcll208QQQQT4${cr}\
+${esc}&f5k2a16d7LTarkentnhpclear9QQQQT5${cr}\
+${esc}&f6k2a16d7L Veil QQQQT6${cr}\
+${esc}&f7k2a16d7L Kilmer hpclearkQQQQT7${cr}\
+${esc}&f8k2a16d7L hpcll207QQQQT8${cr}\c"
+ elif [ $me = fk3 ]; then
+ print "\
+${esc}&f1k2a16d7LDuchess QQQQT1${cr}\
+${esc}&f2k2a16d7LCatbert QQQQT2${cr}\
+${esc}&f3k2a16d7L Nala QQQQT3${cr}\
+${esc}&f4k2a16d7LPywacket QQQQT4${cr}\
+${esc}&f5k2a16d7L Alley QQQQT5${cr}\
+${esc}&f6k2a16d7L QQQQT6${cr}\
+${esc}&f7k2a16d7L QQQQT7${cr}\
+${esc}&f8k2a16d5L Dis connect QQQQ${cr}\c"
+ elif [ $me = fk4 ]; then
+ print "\
+${esc}&f1k2a16d7L Wampus QQQQT1${cr}\
+${esc}&f2k2a16d7Lcllvob01 QQQQT2${cr}\
+${esc}&f3k2a16d7Lcllvob02 QQQQT3${cr}\
+${esc}&f4k2a16d7Lcllvob03 QQQQT4${cr}\
+${esc}&f5k2a16d7Lcllvob04 QQQQT5${cr}\
+${esc}&f6k2a16d7L QQQQT6${cr}\
+${esc}&f7k2a16d7L QQQQT7${cr}\
+${esc}&f8k2a16d5L Dis connect QQQQ${cr}\c"
+ elif [ $me = fk5 ]; then
+ print "\
+${esc}&f1k2a16d7Lcllvob05 QQQQT1${cr}\
+${esc}&f2k2a16d7Lcllvob06 QQQQT2${cr}\
+${esc}&f3k2a16d7Lcllvob07 QQQQT3${cr}\
+${esc}&f4k2a16d7Lcllvob08 QQQQT4${cr}\
+${esc}&f5k2a16d7Lcllvob09 QQQQT5${cr}\
+${esc}&f6k2a16d7Lcllvob10 QQQQT6${cr}\
+${esc}&f7k2a16d7L QQQQT7${cr}\
+${esc}&f8k2a16d5L Dis connect QQQQ${cr}\c"
+ elif [ $me = fk6 ]; then
+ print "\
+${esc}&f1k2a16d7L Gideon QQQQT1${cr}\
+${esc}&f2k2a16d7L Oliver QQQQT2${cr}\
+${esc}&f3k2a16d7L Dinah QQQQT3${cr}\
+${esc}&f4k2a16d7LCheshire QQQQT4${cr}\
+${esc}&f5k2a16d7Lcllbld01 QQQQT5${cr}\
+${esc}&f6k2a16d7Lcllbld02 QQQQT6${cr}\
+${esc}&f7k2a16d7Lcllbld03 QQQQT7${cr}\
+${esc}&f8k2a16d7Lhpcll321 QQQQT8${cr}\c"
+ fi
+
+ # Turn on Function keys to see changes
+ print "${esc}&jB\c"
+else
+ print -u2 "Sorry but the terminal type $TERM, is not supported"
+ exit 1
+fi
--- /dev/null
+#!/bin/ksh
+################################################################################
+#
+# File: .tep
+# RCS: $Header: .tep,v 1.5 97/10/05 22:31:46 defaria Exp $
+# Description: Wrapper script to set function keys for the TEP Console
+# Concentrators.
+# Author: Andrew DeFaria, California Language Labs
+# Created: Thu Jun 6 08:31:57 PDT 1996
+# Modified: Thu Jun 6 08:32:13 PDT 1996 (Andrew DeFaria) defaria@spock
+# Language: Korn Shell
+#
+# (c) Copyright 2001, Andrew@DeFaria.com, all rights reserved
+#
+################################################################################
+me=$(basename $0)
+export esc=$(print "\033")
+export cr=$(print "\015")
+
+if [ "$TERM" = "hpterm" \
+ -o "$TERM" = "hp" \
+ -o "$TERM" = "2394" \
+ -o "$TERM" = "70096" ]; then
+ # Turn:
+ # . Enq/Ack: No
+ # . RecvPace: Xon/Xoff
+ # . InhHndShk (G): Yes
+ # . Inh DC2 (H): Yes
+ print "${esc}&q0n1h${esc}&s1g1H\c"
+
+ if [ "$me" = fk1 ]; then
+ print "\
+${esc}&f1k2a16d7L Young hpcleareQQQQT1${cr}\
+${esc}&f2k2a16d7L Loomis hpclsv1 QQQQT2${cr}\
+${esc}&f3k2a16d7L hpcll237QQQQT3${cr}\
+${esc}&f4k2a16d7L Stablerhpclear1QQQQT4${cr}\
+${esc}&f5k2a16d7L Unitas hpclear3QQQQT5${cr}\
+${esc}&f6k2a16d7L Griese hpclear5QQQQT6${cr}\
+${esc}&f7k2a16d7L Simms hpclear7QQQQT7${cr}\
+${esc}&f8k2a16d5L Dis connect QQQQ${cr}\c"
+ elif [ $me = fk2 ]; then
+ print "\
+${esc}&f1k2a16d7LDynamitehpclldynQQQQT1${cr}\
+${esc}&f2k2a16d7L Mobius hpclang6QQQQT2${cr}\
+${esc}&f3k2a16d7L Starr hpclearnQQQQT3${cr}\
+${esc}&f4k2a16d7L hpcll208QQQQT4${cr}\
+${esc}&f5k2a16d7LTarkentnhpclear9QQQQT5${cr}\
+${esc}&f6k2a16d7L Veil QQQQT6${cr}\
+${esc}&f7k2a16d7L Kilmer hpclearkQQQQT7${cr}\
+${esc}&f8k2a16d7L hpcll207QQQQT8${cr}\c"
+ elif [ $me = fk3 ]; then
+ print "\
+${esc}&f1k2a16d7LDuchess QQQQT1${cr}\
+${esc}&f2k2a16d7LCatbert QQQQT2${cr}\
+${esc}&f3k2a16d7L Nala QQQQT3${cr}\
+${esc}&f4k2a16d7LPywacket QQQQT4${cr}\
+${esc}&f5k2a16d7L Alley QQQQT5${cr}\
+${esc}&f6k2a16d7L QQQQT6${cr}\
+${esc}&f7k2a16d7L QQQQT7${cr}\
+${esc}&f8k2a16d5L Dis connect QQQQ${cr}\c"
+ elif [ $me = fk4 ]; then
+ print "\
+${esc}&f1k2a16d7L Wampus QQQQT1${cr}\
+${esc}&f2k2a16d7Lcllvob01 QQQQT2${cr}\
+${esc}&f3k2a16d7Lcllvob02 QQQQT3${cr}\
+${esc}&f4k2a16d7Lcllvob03 QQQQT4${cr}\
+${esc}&f5k2a16d7Lcllvob04 QQQQT5${cr}\
+${esc}&f6k2a16d7L QQQQT6${cr}\
+${esc}&f7k2a16d7L QQQQT7${cr}\
+${esc}&f8k2a16d5L Dis connect QQQQ${cr}\c"
+ elif [ $me = fk5 ]; then
+ print "\
+${esc}&f1k2a16d7Lcllvob05 QQQQT1${cr}\
+${esc}&f2k2a16d7Lcllvob06 QQQQT2${cr}\
+${esc}&f3k2a16d7Lcllvob07 QQQQT3${cr}\
+${esc}&f4k2a16d7Lcllvob08 QQQQT4${cr}\
+${esc}&f5k2a16d7Lcllvob09 QQQQT5${cr}\
+${esc}&f6k2a16d7Lcllvob10 QQQQT6${cr}\
+${esc}&f7k2a16d7L QQQQT7${cr}\
+${esc}&f8k2a16d5L Dis connect QQQQ${cr}\c"
+ elif [ $me = fk6 ]; then
+ print "\
+${esc}&f1k2a16d7L Gideon QQQQT1${cr}\
+${esc}&f2k2a16d7L Oliver QQQQT2${cr}\
+${esc}&f3k2a16d7L Dinah QQQQT3${cr}\
+${esc}&f4k2a16d7LCheshire QQQQT4${cr}\
+${esc}&f5k2a16d7Lcllbld01 QQQQT5${cr}\
+${esc}&f6k2a16d7Lcllbld02 QQQQT6${cr}\
+${esc}&f7k2a16d7Lcllbld03 QQQQT7${cr}\
+${esc}&f8k2a16d7Lhpcll321 QQQQT8${cr}\c"
+ fi
+
+ # Turn on Function keys to see changes
+ print "${esc}&jB\c"
+else
+ print -u2 "Sorry but the terminal type $TERM, is not supported"
+ exit 1
+fi
--- /dev/null
+#!/bin/ksh
+################################################################################
+#
+# File: .tep
+# RCS: $Header: .tep,v 1.5 97/10/05 22:31:46 defaria Exp $
+# Description: Wrapper script to set function keys for the TEP Console
+# Concentrators.
+# Author: Andrew DeFaria, California Language Labs
+# Created: Thu Jun 6 08:31:57 PDT 1996
+# Modified: Thu Jun 6 08:32:13 PDT 1996 (Andrew DeFaria) defaria@spock
+# Language: Korn Shell
+#
+# (c) Copyright 2001, Andrew@DeFaria.com, all rights reserved
+#
+################################################################################
+me=$(basename $0)
+export esc=$(print "\033")
+export cr=$(print "\015")
+
+if [ "$TERM" = "hpterm" \
+ -o "$TERM" = "hp" \
+ -o "$TERM" = "2394" \
+ -o "$TERM" = "70096" ]; then
+ # Turn:
+ # . Enq/Ack: No
+ # . RecvPace: Xon/Xoff
+ # . InhHndShk (G): Yes
+ # . Inh DC2 (H): Yes
+ print "${esc}&q0n1h${esc}&s1g1H\c"
+
+ if [ "$me" = fk1 ]; then
+ print "\
+${esc}&f1k2a16d7L Young hpcleareQQQQT1${cr}\
+${esc}&f2k2a16d7L Loomis hpclsv1 QQQQT2${cr}\
+${esc}&f3k2a16d7L hpcll237QQQQT3${cr}\
+${esc}&f4k2a16d7L Stablerhpclear1QQQQT4${cr}\
+${esc}&f5k2a16d7L Unitas hpclear3QQQQT5${cr}\
+${esc}&f6k2a16d7L Griese hpclear5QQQQT6${cr}\
+${esc}&f7k2a16d7L Simms hpclear7QQQQT7${cr}\
+${esc}&f8k2a16d5L Dis connect QQQQ${cr}\c"
+ elif [ $me = fk2 ]; then
+ print "\
+${esc}&f1k2a16d7LDynamitehpclldynQQQQT1${cr}\
+${esc}&f2k2a16d7L Mobius hpclang6QQQQT2${cr}\
+${esc}&f3k2a16d7L Starr hpclearnQQQQT3${cr}\
+${esc}&f4k2a16d7L hpcll208QQQQT4${cr}\
+${esc}&f5k2a16d7LTarkentnhpclear9QQQQT5${cr}\
+${esc}&f6k2a16d7L Veil QQQQT6${cr}\
+${esc}&f7k2a16d7L Kilmer hpclearkQQQQT7${cr}\
+${esc}&f8k2a16d7L hpcll207QQQQT8${cr}\c"
+ elif [ $me = fk3 ]; then
+ print "\
+${esc}&f1k2a16d7LDuchess QQQQT1${cr}\
+${esc}&f2k2a16d7LCatbert QQQQT2${cr}\
+${esc}&f3k2a16d7L Nala QQQQT3${cr}\
+${esc}&f4k2a16d7LPywacket QQQQT4${cr}\
+${esc}&f5k2a16d7L Alley QQQQT5${cr}\
+${esc}&f6k2a16d7L QQQQT6${cr}\
+${esc}&f7k2a16d7L QQQQT7${cr}\
+${esc}&f8k2a16d5L Dis connect QQQQ${cr}\c"
+ elif [ $me = fk4 ]; then
+ print "\
+${esc}&f1k2a16d7L Wampus QQQQT1${cr}\
+${esc}&f2k2a16d7Lcllvob01 QQQQT2${cr}\
+${esc}&f3k2a16d7Lcllvob02 QQQQT3${cr}\
+${esc}&f4k2a16d7Lcllvob03 QQQQT4${cr}\
+${esc}&f5k2a16d7Lcllvob04 QQQQT5${cr}\
+${esc}&f6k2a16d7L QQQQT6${cr}\
+${esc}&f7k2a16d7L QQQQT7${cr}\
+${esc}&f8k2a16d5L Dis connect QQQQ${cr}\c"
+ elif [ $me = fk5 ]; then
+ print "\
+${esc}&f1k2a16d7Lcllvob05 QQQQT1${cr}\
+${esc}&f2k2a16d7Lcllvob06 QQQQT2${cr}\
+${esc}&f3k2a16d7Lcllvob07 QQQQT3${cr}\
+${esc}&f4k2a16d7Lcllvob08 QQQQT4${cr}\
+${esc}&f5k2a16d7Lcllvob09 QQQQT5${cr}\
+${esc}&f6k2a16d7Lcllvob10 QQQQT6${cr}\
+${esc}&f7k2a16d7L QQQQT7${cr}\
+${esc}&f8k2a16d5L Dis connect QQQQ${cr}\c"
+ elif [ $me = fk6 ]; then
+ print "\
+${esc}&f1k2a16d7L Gideon QQQQT1${cr}\
+${esc}&f2k2a16d7L Oliver QQQQT2${cr}\
+${esc}&f3k2a16d7L Dinah QQQQT3${cr}\
+${esc}&f4k2a16d7LCheshire QQQQT4${cr}\
+${esc}&f5k2a16d7Lcllbld01 QQQQT5${cr}\
+${esc}&f6k2a16d7Lcllbld02 QQQQT6${cr}\
+${esc}&f7k2a16d7Lcllbld03 QQQQT7${cr}\
+${esc}&f8k2a16d7Lhpcll321 QQQQT8${cr}\c"
+ fi
+
+ # Turn on Function keys to see changes
+ print "${esc}&jB\c"
+else
+ print -u2 "Sorry but the terminal type $TERM, is not supported"
+ exit 1
+fi
--- /dev/null
+#!/bin/ksh
+################################################################################
+#
+# File: .tep
+# RCS: $Header: .tep,v 1.5 97/10/05 22:31:46 defaria Exp $
+# Description: Wrapper script to set function keys for the TEP Console
+# Concentrators.
+# Author: Andrew DeFaria, California Language Labs
+# Created: Thu Jun 6 08:31:57 PDT 1996
+# Modified: Thu Jun 6 08:32:13 PDT 1996 (Andrew DeFaria) defaria@spock
+# Language: Korn Shell
+#
+# (c) Copyright 2001, Andrew@DeFaria.com, all rights reserved
+#
+################################################################################
+me=$(basename $0)
+export esc=$(print "\033")
+export cr=$(print "\015")
+
+if [ "$TERM" = "hpterm" \
+ -o "$TERM" = "hp" \
+ -o "$TERM" = "2394" \
+ -o "$TERM" = "70096" ]; then
+ # Turn:
+ # . Enq/Ack: No
+ # . RecvPace: Xon/Xoff
+ # . InhHndShk (G): Yes
+ # . Inh DC2 (H): Yes
+ print "${esc}&q0n1h${esc}&s1g1H\c"
+
+ if [ "$me" = fk1 ]; then
+ print "\
+${esc}&f1k2a16d7L Young hpcleareQQQQT1${cr}\
+${esc}&f2k2a16d7L Loomis hpclsv1 QQQQT2${cr}\
+${esc}&f3k2a16d7L hpcll237QQQQT3${cr}\
+${esc}&f4k2a16d7L Stablerhpclear1QQQQT4${cr}\
+${esc}&f5k2a16d7L Unitas hpclear3QQQQT5${cr}\
+${esc}&f6k2a16d7L Griese hpclear5QQQQT6${cr}\
+${esc}&f7k2a16d7L Simms hpclear7QQQQT7${cr}\
+${esc}&f8k2a16d5L Dis connect QQQQ${cr}\c"
+ elif [ $me = fk2 ]; then
+ print "\
+${esc}&f1k2a16d7LDynamitehpclldynQQQQT1${cr}\
+${esc}&f2k2a16d7L Mobius hpclang6QQQQT2${cr}\
+${esc}&f3k2a16d7L Starr hpclearnQQQQT3${cr}\
+${esc}&f4k2a16d7L hpcll208QQQQT4${cr}\
+${esc}&f5k2a16d7LTarkentnhpclear9QQQQT5${cr}\
+${esc}&f6k2a16d7L Veil QQQQT6${cr}\
+${esc}&f7k2a16d7L Kilmer hpclearkQQQQT7${cr}\
+${esc}&f8k2a16d7L hpcll207QQQQT8${cr}\c"
+ elif [ $me = fk3 ]; then
+ print "\
+${esc}&f1k2a16d7LDuchess QQQQT1${cr}\
+${esc}&f2k2a16d7LCatbert QQQQT2${cr}\
+${esc}&f3k2a16d7L Nala QQQQT3${cr}\
+${esc}&f4k2a16d7LPywacket QQQQT4${cr}\
+${esc}&f5k2a16d7L Alley QQQQT5${cr}\
+${esc}&f6k2a16d7L QQQQT6${cr}\
+${esc}&f7k2a16d7L QQQQT7${cr}\
+${esc}&f8k2a16d5L Dis connect QQQQ${cr}\c"
+ elif [ $me = fk4 ]; then
+ print "\
+${esc}&f1k2a16d7L Wampus QQQQT1${cr}\
+${esc}&f2k2a16d7Lcllvob01 QQQQT2${cr}\
+${esc}&f3k2a16d7Lcllvob02 QQQQT3${cr}\
+${esc}&f4k2a16d7Lcllvob03 QQQQT4${cr}\
+${esc}&f5k2a16d7Lcllvob04 QQQQT5${cr}\
+${esc}&f6k2a16d7L QQQQT6${cr}\
+${esc}&f7k2a16d7L QQQQT7${cr}\
+${esc}&f8k2a16d5L Dis connect QQQQ${cr}\c"
+ elif [ $me = fk5 ]; then
+ print "\
+${esc}&f1k2a16d7Lcllvob05 QQQQT1${cr}\
+${esc}&f2k2a16d7Lcllvob06 QQQQT2${cr}\
+${esc}&f3k2a16d7Lcllvob07 QQQQT3${cr}\
+${esc}&f4k2a16d7Lcllvob08 QQQQT4${cr}\
+${esc}&f5k2a16d7Lcllvob09 QQQQT5${cr}\
+${esc}&f6k2a16d7Lcllvob10 QQQQT6${cr}\
+${esc}&f7k2a16d7L QQQQT7${cr}\
+${esc}&f8k2a16d5L Dis connect QQQQ${cr}\c"
+ elif [ $me = fk6 ]; then
+ print "\
+${esc}&f1k2a16d7L Gideon QQQQT1${cr}\
+${esc}&f2k2a16d7L Oliver QQQQT2${cr}\
+${esc}&f3k2a16d7L Dinah QQQQT3${cr}\
+${esc}&f4k2a16d7LCheshire QQQQT4${cr}\
+${esc}&f5k2a16d7Lcllbld01 QQQQT5${cr}\
+${esc}&f6k2a16d7Lcllbld02 QQQQT6${cr}\
+${esc}&f7k2a16d7Lcllbld03 QQQQT7${cr}\
+${esc}&f8k2a16d7Lhpcll321 QQQQT8${cr}\c"
+ fi
+
+ # Turn on Function keys to see changes
+ print "${esc}&jB\c"
+else
+ print -u2 "Sorry but the terminal type $TERM, is not supported"
+ exit 1
+fi
--- /dev/null
+#! /bin/ksh
+#
+# Usage get_info { all_projects |
+# all_members |
+# all_project_members |
+# member_project { asok | dgross } |
+# project_attribute { Codegen vwstation} |
+# member_attribute { asok phone } |
+# server_names {
+# buildserver |
+# mailserver |
+# viewserver |
+# virtualws |
+# vobserver |
+# webserver } |
+# is_project
+# emit_error { error_code returned by get_info()
+}
+# }
+#
+#
+# Set me to command name
+me=$(basename $0)
+
+# Set adm_base
+adm_base=${adm_base:-$HOME/adm}
+
+# Set adm_fpath
+adm_fpath=${adm_fpath:-$adm_base/functions}
+
+# Set machines
+machines=${machines:-$adm_base/data/machines}
+
+# Source functions
+. $adm_fpath/common
+
+DBDIR=$adm_base/data/db/get_info
+alias grep='grep -i'
+
+#
+trap "cleanup" 1 2 3 8 15
+
+####### Begin error message catalog. #############
+typeset MSG
+MSG[0]="get_info:LDAP CONNECTION SUCCESSFUL"
+MSG[1]="get_info:LDAP OPERATIONS ERROR"
+MSG[2]="get_info:LDAP PROTOCOL ERROR"
+MSG[3]="get_info:LDAP TIMELIMIT EXCEEDED"
+MSG[4]="get_info:LDAP SIZELIMIT EXCEEDED"
+MSG[5]="get_info:LDAP COMPARE FALSE"
+MSG[6]="get_info:LDAP COMPARE TRUE"
+MSG[7]="get_info:LDAP STRONG AUTH NOT SUPPORTED"
+MSG[8]="get_info:LDAP STRONG AUTH REQUIRED"
+MSG[9]="get_info:LDAP PARTIAL RESULTS"
+
+MSG[16]="get_info:LDAP NO SUCH ATTRIBUTE"
+MSG[17]="get_info:LDAP UNDEFINED TYPE"
+MSG[18]="get_info:LDAP INAPPROPRIATE MATCHING "
+MSG[19]="get_info:LDAP CONSTRAINT VIOLATION "
+MSG[20]="get_info:LDAP TYPE OR VALUE EXISTS "
+MSG[21]="get_info:LDAP INVALID SYNTAX "
+
+MSG[32]="get_info:LDAP NO SUCH OBJECT "
+MSG[33]="get_info:LDAP ALIAS PROBLEM "
+MSG[34]="get_info:LDAP INVALID DN SYNTAX "
+MSG[35]="get_info:LDAP IS LEAF "
+MSG[36]="get_info:LDAP ALIAS DEREF PROBLEM "
+MSG[37]="NAME ERROR(n) ((n & 0xf0) == 0x20)"
+
+MSG[48]="get_info:LDAP INAPPROPRIATE AUTH "
+MSG[49]="get_info:LDAP INVALID CREDENTIALS "
+MSG[50]="get_info:LDAP INSUFFICIENT ACCESS "
+MSG[51]="get_info:LDAP BUSY "
+MSG[52]="get_info:LDAP UNAVAILABLE "
+MSG[53]="get_info:LDAP UNWILLING TO PERFORM "
+MSG[54]="get_info:LDAP LOOP DETECT "
+
+MSG[64]="get_info:LDAP NAMING VIOLATION "
+MSG[65]="get_info:LDAP OBJECT CLASS VIOLATION "
+MSG[66]="get_info:LDAP NOT ALLOWED ON NONLEAF "
+MSG[67]="get_info:LDAP NOT ALLOWED ON RDN "
+MSG[68]="get_info:LDAP ALREADY EXISTS "
+MSG[69]="get_info:LDAP NO OBJECT CLASS MODS "
+MSG[70]="get_info:LDAP RESULTS TOO LARGE "
+
+MSG[80]="get_info:LDAP OTHER "
+MSG[81]="get_info:LDAP SERVER DOWN "
+MSG[82]="get_info:LDAP LOCAL ERROR "
+MSG[83]="get_info:LDAP ENCODING ERROR "
+MSG[84]="get_info:LDAP DECODING ERROR "
+MSG[85]="get_info:LDAP TIMEOUT "
+MSG[86]="get_info:LDAP AUTH UNKNOWN "
+MSG[87]="get_info:LDAP FILTER ERROR "
+MSG[88]="get_info:LDAP USER CANCELLED "
+MSG[89]="get_info:LDAP PARAM ERROR "
+MSG[90]="get_info:LDAP NO MEMORY "
+MSG[91]="get_info:LDAP CONNECT ERROR "
+#
+# errors related to remsh or OS interface.
+MSG[201]="get_info:ERROR while fixing .rhosts file in preparation for
+remsh."
+MSG[202]="get_info:ERROR remsh failed while invoking get_info on CLLWEB"
+MSG[203]="get_info:ERROR uname returned un-supported OS."
+#
+# User interface errors while using get_info()
+MSG[210]="get_info:ERROR insufficient arguments to get_info()"
+MSG[211]="get_info:ERROR requested member project not found in data-base."
+MSG[212]="get_info:ERROR requested project not found in data-base."
+MSG[213]="get_info:ERROR database directory not found."
+MSG[214]="get_info:ERROR gven member not found in data-base."
+#
+#
+MSG[500]="get_info:ERROR BAD/un-implemented Error number"
+####### End error message catalog. #############
+
+print_error_msg()
+{
+[ -z "${MSG[$1]}" ] && echo ${MSG[500]} || echo ${MSG[$1]}
+exit 0
+}
+
+function cleanup
+{
+exit $1
+}
+
+#######################################################
+# Start processing questions . . .
+# Get member project name for a given member name.
+# usage# save_get_info member_project amitp
+#
+# This function will save information from data-base in
+# a temporary file, so that cleanup can prefix this
+# output with error code. This is done to pass error
+# code returned by the command passed to remsh.
+#
+# Ex: remsh "get_info member_project amitp"
+#
+# remsh returns status of itself(remsh) not the status
+# of "get_info".
+#
+save_get_info()
+{
+case "$1" in
+all_project_members)
+ # Get all members for a given project.
+ [ $# -ne 2 ] && cleanup 210
+ [ ! -f $2.proj ] && cleanup 212
+ RESULT=`grep "^project:$2" *.mem | awk -F. '{print $1}'`
+ ;;
+
+member_project)
+ # Get member project name for a given member name.
+ [ $# -ne 2 ] && cleanup 210
+ [ ! -f $2.mem ] && cleanup 214
+ RESULT=`grep "^project:" $2.mem | awk -F: '{print $2}'`
+ ;;
+
+project_attribute)
+ # Get project attribute for a given project name.
+ [ ! -f $2.proj ] && cleanup 212
+ [ $# -eq 3 ] && RESULT=`grep "^$3:" $2.proj | awk -F: '{print $2}'`
+|| RESULT=`awk -F: '{printf "%s= %s\n", $1, $2}' $2.proj`
+ ;;
+
+member_attribute)
+ # Get member attribute for a given member name.
+ [ ! -f $2.mem ] && cleanup 212
+ [ $# -eq 3 ] && RESULT=`grep "^$3:" $2.mem | awk -F: '{print $2}'`
+|| RESULT=`awk -F: '{printf "%s = %s\n", $1, $2}' $2.mem`
+ ;;
+
+machine_attribute)
+ # Get machine attribute for a given machine name.
+ [ ! -f $2.mach ] && cleanup 212
+ [ $# -eq 3 ] && RESULT=`grep "^$3:" $2.mach | awk -F: '{print $2}'`
+|| RESULT=`awk -F: '{printf "%s = %s\n", $1, $2}' $2.mach`
+ ;;
+
+is_project)
+ # Get project attribute for a given project name.
+ [ $# -ne 2 ] && cleanup 210
+ [ ! -f $2.proj ] && cleanup 212
+ RESULT=`grep "^project:" $2.proj | awk -d: '{print $2}'`
+ ;;
+
+all_projects)
+ RESULT=`/bin/ls *.proj | awk -F. '{print $1}'`
+ ;;
+
+all_members)
+ RESULT=`/bin/ls *.mem | awk -F. '{print $1}'`
+ ;;
+
+server_names)
+ [ $# -ne 2 ] && cleanup 210
+ case $2 in
+ buildserver)
+ grepfor="Build Server"
+ ;;
+ mailserver)
+ grepfor="Mail Server"
+ ;;
+ viewserver)
+ grepfor="View Server"
+ ;;
+ virtualws)
+ grepfor="Virtual Workstation"
+ ;;
+ vobserver)
+ grepfor="Vob Server"
+ ;;
+ webserver)
+ grepfor="Web Server"
+ ;;
+ *)
+ cleanup 210
+ ;;
+ esac
+# RESULT=`grep "^server:$2" *.mach | awk -F. '{print $1}'`
+ RESULT=`grep -v "^#" $machines | grep ":Infrastructure:" | grep
+"$grepfor" | awk -F: '{print $1}'`
+ ;;
+*)
+ # Error in input argument.
+ cleanup 210
+ ;;
+esac
+}
+
+######################## Main starts here ############
+#
+
+case $1 in
+-qldap)
+ shift
+ typeset integer MULTILINE=1
+ ;;
+noloop)
+ shift
+ # old version compatibility
+ ;;
+
+emit_error)
+ [ $# -eq 2 ] && print_error_msg $2 || exit 210 # Incorrect argument
+list.
+ ;;
+*)
+ # go to processing outside case block
+ ;;
+esac
+
+[ ! -d $DBDIR ] && cleanup 213
+cd $DBDIR
+save_get_info $@
+[ $MULTILINE ] && echo "$RESULT" || echo $RESULT
+cleanup 0
--- /dev/null
+#!/bin/ksh
+################################################################################
+#
+# File: infrastructuremach
+# Description: A script to execute a command on all infrastructure class machines
+# Author: Andrew@DeFaria.com
+# Created: Thu May 11 11:08:24 PDT 2000
+# Modified:
+# Language: Korn Shell
+#
+# (c) Copyright 2001, Andrew@DeFaria.com, all rights reserved
+#
+################################################################################
+# Set me to command name
+me=$(basename $0)
+
+# Set adm_base
+adm_base=${adm_base:-$HOME/adm}
+
+# Set adm_fpath
+adm_fpath=${adm_fpath:-$adm_base/functions}
+
+# Source functions
+. $adm_fpath/common
+
+# Set machines
+machines=${machines:-$adm_base/data/machines}
+
+if [ "$1" = "-f" ]; then
+ shift
+ machines="$1"
+ shift
+fi
+
+PATH=/adm/bin:$PATH
+
+if [ "$1" = "-r" ]; then
+ root=yes
+ shift
+fi
+
+for infrastructure_machine in $(grep -ve ^# $machines | grep Infrastructure
+| cut -d: -f1); do
+ # Execute command. Note if no command is given then the effect is to
+ # rlogin to each machine.
+ print "$infrastructure_machine:$@"
+ if [ $# -gt 0 ]; then
+ if [ -z "$root" ]; then
+ remsh $infrastructure_machine -n "$@"
+ else
+ root remsh $infrastructure_machine -n "$@"
+ fi
+ else
+ if [ -z "$root" ]; then
+ remsh $infrastructure_machine
+ else
+ root remsh $infrastructure_machine
+ fi
+ fi
+done
--- /dev/null
+#!/usr/bin/ksh
+
+# Logfile
+logfile=/new.system.1.log
+
+## Set global env variables
+# Set me
+me=${0##*/}
+
+# Set OS
+OS=$(uname -r | cut -c3-)
+
+# Get configfiles from Bismol (IP address is used because the machine is not
+# currently setup enough to know how to resolve bismol to an IP address)
+configfiles_machine=15.0.96.154
+
+# Set step_nbr
+integer step_nbr=0
+
+# Filename for configuration files
+configfiles=${OS}configfiles.shar
+
+function error {
+ print -u2 "$me: Error: $1"
+} # error
+
+function warning {
+ print -u2 "$me: Warning: $1"
+} # warning
+
+function display {
+ print "$1"
+} # display
+
+function info {
+ display "$me: Info: $1"
+} # info
+
+function verbose {
+ if [ ! -z "$verbose" ]; then
+ display "$1"
+ fi
+} # verbose
+
+function debug {
+ if [ ! -z "$debug" ]; then
+ print -u2 "$me: Debug: $1"
+ fi
+} # debug
+
+function usage {
+ display "$ME -c/learcase [-v|verbose] [-d|debug] [-usage]"
+ display " -c/learcase Perform ClearCase installation"
+ display " -v|verbose: Turns on verbose mode"
+ display " -d|debug: Turns on debug mode"
+ display " -usage: Print this usage message"
+ display " "
+ display "The following options will be prompted for if not supplied on the"
+ display "command line. If any parameter has spaces in it then you need to"
+ display "surround it in quotes (e.g. -owners_fullname \"Andrew DeFaria\"."
+ display "You'll probably need to do this for the first 3 in the list below:"
+ display " "
+ display " -owners_fullname Specify owners full name"
+ display " -machine_usage Specify what this machine is to be used for"
+ display " -location Specify where this machine is located"
+ display " -owners_email Specify email address (no @cup.hp.com)"
+ display " -owners_extension Specify phone extenstion in the format of"
+ display " 7-XXXX (the t-44 will be prepended)"
+ display " -new_machine_name Specify the name of this system (REQUIRED)"
+
+ error "$1"
+ exit 1
+} # usage
+
+function step {
+ let step_nbr=step_nbr+1
+ display "Step #$step_nbr: $@"
+} # step
+
+function get_configfiles {
+ user=anonymous
+ passwd=$LOGNAME@$(uname -n).cup.hp.com
+ directory=pub/Configuration
+ cd /
+ ftp -n $configfiles_machine <<@EOD
+user $user $passwd
+cd $directory
+get $configfiles
+quit
+@EOD
+
+ return $?
+} # get_configfiles
+
+function export_disks {
+ # First check to see if all local disks are exported
+ cut -f1 -d' ' /etc/xtab > /tmp/xtab
+ bdf -t hfs | grep "/dev" | grep -v "/stand" | awk '{print $NF}' >
+/tmp/exports
+
+ if $(diff /tmp/exports /tmp/xtab > /dev/null 2>&1); then
+ verbose "All local disks exported"
+ else
+ verbose "Some local disks are not exported"
+ if [ "$mode" != "check" ]; then
+ verbose "Fixing the problem..."
+ cp /etc/exports /etc/exports.old
+ cp /tmp/exports /etc/exports
+ verbose "Exporting all disks..."
+ /usr/sbin/exportfs -a
+ verbose "Done"
+ fi
+ fi
+} # export_disks
+
+function display_options {
+ display "Setup this machine according to the following profile:"
+ print -
+--------------------------------------------------------------------------------
+
+ display "Clearcase:\t\t\c"
+ if [ "_$clearcase" = "_" ]; then
+ display "No"
+ else
+ display "Yes"
+ fi
+
+ display "Verbose Mode:\t\t\c"
+ if [ "_$verbose" = "_" ]; then
+ display "Off"
+ else
+ display "On"
+ fi
+
+ display "Debug Mode:\t\t\c"
+ if [ "_$debug" = "_" ]; then
+ display "Off"
+ else
+ display "On"
+ fi
+
+ display "Machine Name:\t\t$new_machine_name"
+ display "Machine Usage:\t\t$machine_usage"
+ display "Macine Location:\t$location"
+ display "Owner's Fullname:\t$owners_fullname"
+ display "Owner's Email:\t\t$owners_email"
+ display "Owner's Extension:\t$owners_extension"
+} # display_options
+
+# Set initial parm values
+display
+display "\t\tWelcome to the new system setup script"
+display "\t\tThis is the first script of 4 that you"
+display "\t\twill need to run to setup a new Virtual"
+display "\t\tWorkstation Server or Buildpool Server."
+display
+clearcase=
+verbose=
+debug=
+owners_fullname=
+owners_email=
+owners_extension=
+machine_usage=
+location=
+new_machine_name=
+
+# Get parameters
+while [ $# -ge 1 ]; do
+ case "$1" in
+ -usage)
+ usage
+ ;;
+
+ -v|-verbose)
+ verbose=yes
+ ;;
+
+ -d|-debug)
+ debug=yes
+ ;;
+
+ -c|-clearcase)
+ clearcase=y
+ ;;
+
+ -owners_fullname)
+ if [ $# -le 1 ]; then
+ usage "Owner's Full Name is not specified!"
+ fi
+ shift
+ owners_fullname="$1"
+ ;;
+
+ -machine_usage)
+ if [ $# -le 1 ]; then
+ usage "Machine Usage was not specified!"
+ fi
+ shift
+ machine_usage="$1"
+ ;;
+
+ -location)
+ if [ $# -le 1 ]; then
+ usage "Location was not specified!"
+ fi
+ shift
+ location="$1"
+ ;;
+
+ -owners_email)
+ if [ $# -le 1 ]; then
+ usage "Owner's Email was not specified!"
+ fi
+ shift
+ owners_email="$1"
+ ;;
+
+ -owners_extension)
+ if [ $# -le 1 ]; then
+ usage "Owner's Extention was not specified!"
+ fi
+ shift
+ owners_extension="$1"
+ ;;
+
+ -new_machine_name)
+ if [ $# -le 1 ]; then
+ usage "New Machine Name not specified!"
+ fi
+ shift
+ new_machine_name="$1"
+ ;;
+
+ *)
+ usage "Unrecognized parameter $1"
+ ;;
+ esac
+ shift
+done
+
+# Prompt for options not specified on the command line
+
+if [ "_$clearcase" = "_" ]; then
+ print "Do you wish to install Clearcase?"
+ print "[y/n]> \c"
+ read clearcase
+ if [ "_$clearcase" = "_" ]; then
+ error "You must specify y or n"
+ exit 1 fi
+fi
+
+if [ "_$owners_fullname" = "_" ]; then
+ print "Owner's Fullname"
+ print "> \c"
+ read owners_fullname
+ if [ "_$owners_fullname" = "_" ]; then
+ owners_fullname=Unknown
+ fi
+fi
+
+if [ "_$machine_usage" = "_" ]; then
+ print "What is this machine used for?"
+ print "> \c"
+ read machine_usage
+ if [ "_$machine_usage" = "_" ]; then
+ machine_usage="This machine is used by \<whom\> for \<what\>"
+ fi
+fi
+
+if [ "_$location" = "_" ]; then
+ print "Where is this machine located?"
+ print "> \c"
+ read location
+ if [ "_$location" = "_" ]; then
+ location="\<Physical Location\>"
+ fi
+fi
+
+if [ "_$owners_email" = "_" ]; then
+ print "Owner's Email address:"
+ print "(Should be the same as username. This script will supply the cup.hp.com)"
+ print "> \c"
+ read owners_email
+ if [ "_$owners_email" = "_" ]; then
+ owners_email=Unknown
+ fi
+fi
+
+if [ "_$owners_extension" = "_" ]; then
+ print "Owner's Phone extention:"
+ print "(Should be of the format 7-XXXX This script will prepend \"t-44\" to"
+ print "the entered extension)"
+ print "> \c"
+ read owners_extension
+ if [ "_$owners_extension" = "_" ]; then
+ owners_extension=7-XXXX
+ fi
+fi
+
+until [ "_$new_machine_name" != "_" ]; do
+ new_machine_name="garbage"
+ print "New machine name:"
+ print "> \c"
+ read new_machine_name
+
+ if [ "_$new_machine_name" = "_" ]; then
+ error "Must enter a new machine name"
+ fi
+done
+
+if [ $(id -u) -ne 0 ]; then
+ error "Must be root to execute this command"
+ exit 1
+fi
+
+display_options
+
+display
+display "Continue Installation (Y/n)?\c"
+answer=y
+read answer
+case "$answer" in
+ y|Y|yes|Yes|YES|"")
+ continue
+ ;;
+ *)
+ display "Installation aborted. Rerun $me if you wish to install again"
+ exit 1
+ ;;
+esac
+
+function do_installation {
+display_options
+
+step "Get configuration files"
+
+get_configfiles
+
+if [ $? -ne 0 ]; then
+ error "Unable to ftp $configfiles from $configfiles_machine"
+ exit 1
+fi
+
+step "Unpack configuration files"
+
+cd /
+sh $configfiles >> $logfile 2>&1
+rm -f $configfiles
+
+step "Change GenericSysName in /etc/issue"
+
+sed "s/GenericSysName/$new_machine_name/" /etc/issue > /etc/issue.new
+mv /etc/issue /etc/issue.old
+mv /etc/issue.new /etc/issue
+
+step "Allow Access to at(1)"
+
+touch /var/adm/cron/at.deny
+rm -f /var/adm/cron/at.allow
+
+step "Setup ClearCase Build Hosts File"
+echo `uname -n` > /.bldhost.hppa
+cat /etc/bldhost.hppa >> /.bldhost.hppa
+rm /etc/bldhost.hppa
+
+step "Symlink /nfs -> /net"
+
+ln -s /net /nfs 2>> $logfile
+
+step "Symlink /usr/preserve -> /var/preserve"
+
+ln -s /var/preserve /usr/preserve 2>> $logfile
+
+step "Setup Application Server"
+
+/net/bismol/app/admin/bin/setup
+
+step "Setup Mother of All Passwords (AKA MoA)"
+
+/net/bismol/app/admin/bin/mkpass -f
+
+step "Create /etc/motd"
+
+banner $new_machine_name > /etc/motd
+uname -a >> /etc/motd
+cat >> /etc/motd <<:END
+
+*******************************************************************************
+* This is a private system operated for the Hewlett-Packard Company business. *
+* Authorization from HP management is required to use this system. *
+* Use by unauthorized persons is prohibited. *
+*******************************************************************************
+For System Support: Mon-Fri 8:00-5:00 Email (site-ux@cup.hp.com)
+Phone: t-447-1212 After hours/weekend Pre-arrange: t-447-0629
+-------------------------------------------------------------------------------
+Usage: $machine_usage
+Owner: $owners_fullname ($owners_email@cup.hp.com) Phone:
+t-44$owners_extension
+Location: $location
+-------------------------------------------------------------------------------
+:END
+
+step "Edit /etc/gettydefs: Change \"Console login:\" to \"$new_machine_name login:\""
+
+sed "s/Console Login:/$new_machine_name Login:/" /etc/gettydefs \
+ > /etc/gettydefs.new
+mv /etc/gettydefs /etc/gettydefs.old
+mv /etc/gettydefs.new /etc/gettydefs
+
+step "Ninstalling lp, adm and net3 packages"
+
+/usr/local/bin/ninstall -h bismol lp adm net3 >> $logfile 2>&1
+
+step "Run netdaemon.dy"
+
+/usr/adm/netdist/netdaemon.dy 2>> $logfile
+
+step "Fix /usr/sbin/rlp"
+
+chmod +x /usr/sbin/rlp
+
+step "Install root crontab"
+
+crontab /crontab.root >> $logfile 2>&1
+rm -f /crontab.root
+
+step "Allow usage of crontab for ordinary users"
+
+touch /var/adm/cron/cron.deny
+rm -f /var/adm/cron/cron.allow
+
+if [ "$clearcase" = "y" ]; then
+ step "Make symlink for the Build Environment"
+
+ ln -s /CLO/BUILD_ENV/usr/lib /usr/shlib 2>> $logfile
+
+ step "Symlinking clearmake for parallel build support"
+
+ ln -s /usr/eclipse/bin/clearmake /usr/contrib/bin/clearmake
+fi
+
+step "Adjust nfsd/biod's"
+
+integer nfsd=4
+integer biod=4
+case $(uname -m) in
+ 9000/712|9000/715)
+ ;;
+
+ 9000/755)
+ nfsd=24
+ biod=8
+ ;;
+
+ 9000/780|9000/813|9000/829|9000/849|9000/889|9000/898)
+ nfsd=48
+ biod=16
+ ;;
+
+ *)
+ warning "Unknown machine model $(uname -m)!"
+ warning "Leaving nfsd/biod's as default"
+ ;;
+esac
+
+if [ $nfsd -ne 4 ]; then
+ cp /etc/rc.config.d/nfsconf /etc/rc.config.d/nfsconf.old
+ sed "s/NUM_NFSD=4/NUM_NFSD=$nfsd/" /etc/rc.config.d/nfsconf \
+ > /etc/rc.config.d/nfsconf.new
+ mv /etc/rc.config.d/nfsconf.new /etc/rc.config.d/nfsconf
+ sed "s/NUM_NFSIOD=4/NUM_NFSIOD=$biod/" /etc/rc.config.d/nfsconf \
+ > /etc/rc.config.d/nfsconf.new
+ mv /etc/rc.config.d/nfsconf.new /etc/rc.config.d/nfsconf
+fi
+
+step "Setting up for 9.x build environment"
+
+mv /usr/lib/libisamstub.1 /usr/lib/libisamstub.0
+cp /net/bismol/app/admin/lib/libisamstub.1 /usr/lib/libisamstub.1
+chmod 555 /usr/lib/libisamstub.1
+chown bin:bin /usr/lib/libisamstub.1
+
+step "Setup DTS"
+
+ln -s /net/bismol/aspirin/DTS /usr/DTS 2>> $logfile
+
+step "Setup automounter to use hard mounts"
+
+echo "/net -hosts -intr" > /etc/auto_master
+
+step "Link /var/mail"
+
+mv /var/mail /var/mail.orig
+ln -s /net/cllmail/var/mail/ /var/mail
+
+step "Fix Root's name entry in /etc/passwd.loc"
+
+sed "s/Root user/Root\@$(uname -n)/" /etc/passwd.loc > /tmp/passwd.loc
+mv /tmp/passwd.loc /etc/passwd.loc
+
+step "Fix permissions on /dev/lan*"
+
+chmod 644 /dev/lan*
+
+step "Installing OptionalSoftware"
+
+display
+display "This step will take several minutes and then the machine will
+reboot."
+display "After the machine is back up continue with new.system.2."
+
+/usr/sbin/swinstall
+ -s wampus:/Depots/$OS \
+ -x autoreboot=true \
+ OptionalSoftware \
+>> $logfile 2>&1
+
+info "Swinstall complete, system will reboot if there were no errors"
+
+} # do_installation
+
+do_installation | tee $logfile
--- /dev/null
+#!/bin/ksh
+#
+# Move a new kernel, previously generated, into place
+#
+me=$(basename $0)
+
+if [ $(id -u) -ne 0 ]; then
+ print -u2 "$me: Error: Must be root to execute this command!"
+ exit 1
+fi
+
+OS=$(/bin/uname -r | /usr/bin/cut -f2 -d.)
+
+kernel_1_source=
+kernel_2_source=
+kernel_1_destination=
+kernel_2_destination=
+
+case "$OS" in
+ 10)
+ kernel_1_source=/stand/build/vmunix_test
+ kernel_2_source=/stand/build/system.SAM
+ kernel_1_destination=/stand/vmunix
+ kernel_2_destination=/stand/system
+ ;;
+ 09)
+ kernel_1_source=/etc/conf/hp-ux
+ kernel_2_source=/etc/conf/dfile.SAM
+ kernel_1_destination=/hp-ux
+ kernel_2_destination=/etc/conf/dfile
+ ;;
+ *)
+ print -u2 "$me: Error: Unable to determine OS level: $OS"
+ exit 1
+ ;;
+esac
+
+if [ -f $kernel_1_source -a -f $kernel_2_source ]; then
+ answer=y
+ print "New kernel found, move into place (Y/n)?\c"
+ read answer
+ if [ "$answer" = "y" -o "$answer" = "Y" ]; then
+ print -u2 "Moving kernel into place..."
+ mv $kernel_1_source $kernel_1_destination
+ mv $kernel_2_source $kernel_2_destination
+ else
+ print "WARNING: kernel not moved into place!"
+ fi
+
+ answer=y
+ print "Restart system (Y/n)?\c"
+ read answer
+ if [ "$answer" = "y" -o "$answer" = "Y" ]; then
+ cd /
+ /etc/shutdown -yr 0
+ else
+ print "System not restarted"
+ exit
+ fi
+else
+ print -u2 "$me: Error: Unable to find new kernel files:"
+ print -u2 "\t$kernel_1_source"
+ print -u2 "\t$kernel_2_source"
+ exit 1
+fi
--- /dev/null
+#!/bin/ksh
+################################################################################
+#
+# File: install_pwplus
+# Description: This script will install pwplus
+# Author: Andrew DeFaria (defaria@cup.hp.com)
+# Language: Korn Shell
+# Modified:
+#
+# (c) Copyright 2001, Andrew@DeFaria.com, all rights reserved
+#
+################################################################################
+# First source /app/appserver
+if [ -x /app/appserver ]; then
+ . /app/appserver
+fi
+
+if [ $(id -u) -ne 0 ]; then
+ print -u2 "Error: You must be root to execute this command!"
+ exit 1
+fi
+
+if [ "$OS" = "09" ]; then
+ print -u2 "Error: $(basename $0) does not run on 9.x!"
+ exit 1
+fi
+
+/usr/sbin/swinstall -s medusa.corp:/var/depot/security PWplus
--- /dev/null
+#!/bin/ksh
+################################################################################
+#
+# File: inventory
+# Description: Displays information about a machine including hardware and
+# software inventories
+# Author: Andrew@DeFaria.com
+# Created: Fri Jun 15 15:26:27 PDT 2001
+# Language: Korn Shell
+#
+# (c) Copyright 2001, Andrew DeFaria, all rights reserved.
+#
+################################################################################
+# Set me to command name
+me=$(basename $0)
+
+# Set adm_base
+adm_base=${adm_base:-$HOME/adm}
+
+# Set adm_fpath
+adm_fpath=${adm_fpath:-$adm_base/functions}
+
+# Source functions
+. $adm_fpath/common
+
+tmpprefix=${TMPDIR:-/tmp}/$me.$$
+tmpfile=$tmpprefix
+tmpfile=~v801310/adm/data/$(hostname).sysinfo
+. $adm_fpath/tmpfiles
+
+function usage {
+ print -u2 "Usage: $me -[h|ardware] -[s|oftware] -[da|emon]"
+ exit 1
+} # usage
+
+function display_inventory {
+ # This function displays the "inventory" for this machine. Currently
+ # "inventory" consists of hardware, software and daemons.
+ display_hardware_inventory
+ display_software_inventory
+ display_daemon_inventory
+} # display_inventory
+
+function display_hardware_inventory {
+ # This function displays the hardware inventory. Only "important" hardware
+ # values are displayed.
+ #
+ # This function may be enhanced in the future.
+ debug "ENTER: $0"
+
+ # Hostname
+ host=$(grep ^HOSTNAME: $tmpfile | cut -c16-)
+
+ # OS
+ os=$(uname -r)
+
+ # Model
+ model=$(grep ^MODEL: $tmpfile | cut -c16-)
+
+ # CPU Speed
+ cpu_speed=$(grep "^CPU SPEED:" $tmpfile | cut -c16-)
+
+ # CPUs
+ cpus=$(grep ^CPUS: $tmpfile | awk '{print $2}')
+
+ # Main Memory
+ memory=$(grep MEMORY: $tmpfile | awk '{printf "%s %s", $2, $3}')
+
+ # Swap
+ if is_root; then
+ swap=$(swapinfo -m -t | tail -1 | awk '{print $2}')
+ swap="$swap Meg"
+ else
+ swap="(Not run as root)"
+ fi
+
+ # Number of disks
+ if is_root; then
+ verbose "Determining the number of disks"
+ nbr_disks=$(ioscan -C disk | grep -ve "^H/W" -e "^==" -e "CD-ROM" | wc -l)
+ else
+ nbr_disks="(Not run as root)"
+ fi
+
+ # Volume groups and logical volumes
+ integer nbr_vg=0
+ integer nbr_lv=0
+
+ verbose "Determining volume groups and logical volumes"
+ for vg in $(vgdisplay | grep "^VG Name" | awk '{print $NF}'); do
+ let nbr_vg=nbr_vg+1
+ for v in $(vgdisplay -v $vg | grep " LV Name" | awk '{print $NF}'); do
+ let nbr_lv=nbr_lv+1
+ done
+ done
+
+ # Display information
+ display "Machine: $host"
+ display "OS: $os"
+ display "Model: $model"
+ display "CPUs: $cpus ($cpu_speed)"
+ display "Memory: $memory"
+ display "Swap: $swap"
+ display "Number of disks: $nbr_disks"
+ display "Volume Groups: $nbr_vg"
+ display "Logical Volumes: $nbr_lv"
+
+ # Print filesystems with percentage filled in descending order:
+ display
+ bdf -l | grep -ve "^Filesystem" -e "^AFS" |
+ awk '{printf "%s\t%s\n", $(NF-1), $NF}' | sort -nr
+ debug "EXIT: $0"
+} # display_hardware_inventory
+
+function display_software_inventory {
+ # This function displays the software inventory. Only "important" software
+ # values are displayed. Currently these are:
+ #
+ # . Certain "interesting" software registered in the SD-UX product
+ # database
+ # . Certain "interesting" 3rd party software (typically not recorded
+ # properly in the SD-UX product database)
+ #
+ # This function may be enhanced in the future.
+ debug "ENTER: $0"
+
+ verbose "Checking for certain important software (SD-UX)"
+ display "\nInstalled software (SD-UX):\n"
+ for package in \
+ Apache \
+ DB2V7CAE \
+ DB2V7CONN \
+ DB2V7SDK \
+ DB2V7WGRP \
+ C-ANSI-C \
+ C-Plus-Plus \
+ CCASE-MVFS \
+ Glance \
+ Ignite-UX \
+ Java-PlugIn1-2 \
+ Java-Runtime1-1 \
+ Java2JDK_base \
+ Java2RTE_base \
+ gcc \
+ NscapeDir40Srv \
+ NscapeFastrakSrv \
+ NscapeNavGold \
+ NSEntrpr36Srv \
+ NSNavigator40 \
+ ; do
+ grep "$package" $tmpfile > /dev/null 2>&1
+
+ if [ $? -eq 0 ]; then
+ if [ -n "$packages" ]; then
+ packages="$packages, $package"
+ else
+ packages="$package"
+ fi
+ fi
+ done
+ display "\t$packages"
+
+ display "\nNumber of patches: \c"
+ grep -c "^ PH" $tmpfile
+
+ display "\nContents of /usr/local/bin:\n\t\c"
+ l -F /usr/local/bin
+
+ display "\nOther software:\n"
+
+ for other_software_dir in \
+ /sybase \
+ /usr/local/flexlm \
+ /opt/perl \
+ /opt/perl5 \
+ /opt/tuxedo \
+ /opt/weblogic \
+ ; do
+ if [ -d $other_software_dir ]; then
+ if [ -n "$other_software_dirs" ]; then
+ other_software_dirs="$other_software_dirs, $other_software_dir"
+ else
+ other_software_dirs="$other_software_dir"
+ fi
+ fi
+ done
+
+ display "\t$other_software_dirs"
+
+ debug "EXIT: $0"
+} # display_software_inventory
+
+function display_daemon_inventory {
+ # This function displays the daemon inventory. Only "important" daemon
+ # values are displayed.
+ #
+ # This function may be enhanced in the future.
+ debug "ENTER: $0"
+
+ display "\nRunning daemons on $(uname -n):\n"
+
+ # Check to see if Oracle is running
+ if [ $(who | cut -f1 -d' ' | sort -u | grep -c oracle) -eq 1 ]; then
+ daemons="Oracle"
+ fi
+
+ verbose "Checking for running daemons"
+ # Check other running daemons
+ for daemon in \
+ ns-httpd \
+ uxwdog \
+ /opt/perf/bin/midaemon \
+ /usr/afs/bin/bosserver \
+ /usr/afs/bin/busserver \
+ /usr/afs/bin/fileserver \
+ /usr/afs/bin/kasserver \
+ /usr/afs/bin/ptserver \
+ /usr/afs/bin/runntp \
+ /usr/afs/bin/vlserver \
+ /usr/afs/bin/volserver \
+ /usr/excalib/efsd \
+ /usr/sbin/inetd.afs \
+ /usr/vice/etc/afsd\
+ ; do
+ integer n=$(ps -ef | grep "$daemon" | grep -v "grep $daemon" | wc -l)
+
+ if [ $n -gt 0 ]; then
+ if [ -n "$daemons" ]; then
+ daemons="$daemons, $daemon"
+ else
+ daemons="$daemon"
+ fi
+ fi
+ done
+ display "\t$daemons"
+
+ debug "EXIT: $0"
+} # display_daemon_inventory
+
+# Get parms
+hardware=true
+softare=true
+daemon=true
+while [ $# -ge 1 ]; do
+ case "$1" in
+ -usage)
+ usage
+ ;;
+
+ -v|-verbose)
+ verbose=yes
+ ;;
+
+ -d|-debug)
+ debug=yes
+ ;;
+
+ -h|-hardware)
+ hardware=true
+ ;;
+
+ -s|-software)
+ software=true
+ ;;
+
+ -da|-daemon)
+ daemon=true
+ ;;
+
+ *)
+ error "Unknown parameter encounter: \"$1\""
+ usage
+ ;;
+ esac
+ shift
+done
+
+# Find sysinfo
+
+# First check to see if we can access our own sysinfo
+sysinfo=/usr/contrib/bin/sysinfo
+
+if [ ! -x $sysinfo ]; then
+ # Next check to see if we can find sysinfo on PATH
+ sysinfo=$(whence sysinfo)
+ if [ "_$sysinfo" = "_" ]; then
+ error "Unable to find sysinfo!" 1
+ else
+ warning "Using nonstandard sysinfo: $sysinfo. Results may vary"
+ fi
+fi
+verbose "Using sysinfo: $sysinfo"
+
+# Hack alert! During testing I'm letting $tmpfile hang around. Therefore if it
+# exists already we'll simply use it assuming it contains valid output from
+# a previous run. This speeds up things quite a bit
+if [ ! -f $tmpfile ]; then
+ # Check to see if user is running as root
+ if is_root; then
+ error "You must run this as root" 1
+ else
+ verbose "Gathering information...\c"
+ $sysinfo -a > $tmpfile
+ chown v801310:sfokt $tmpfile
+ chmod 666 $tmpfile
+ verbose " done"
+ fi
+fi
+
+display_inventory
--- /dev/null
+#!/usr/bin/ksh
+################################################################################
+#
+# File: lpsetup
+# Description: Script to recreate printer definitions
+# Author: Andrew@DeFaria.com
+# Created: Wed Sep 6 16:38:14 PDT 2000
+# Language: Korn Shell
+#
+# (c) Copyright 2001, Andrew@DeFaria.com, all rights reserved
+#
+################################################################################
+# Set me to command name
+me=$(basename $0)
+
+# Set adm_base
+adm_base=${adm_base:-$HOME/adm}
+
+# Set adm_fpath
+adm_fpath=${adm_fpath:-$adm_base/functions}
+
+# Source functions
+. $adm_fpath/common
+
+# Global variables
+printer_definitions=${printer_definitions:-$adm_base/etc/printer.defs}
+local_printers=
+
+# Commands used
+accept=/usr/sbin/accept
+enable=/usr/bin/enable
+lpadmin=/usr/sbin/lpadmin
+lpshut=/usr/sbin/lpshut
+lpsched=/usr/sbin/lpsched
+
+function usage {
+ if [ "_$1" != "_" ]; then
+ display "$1"
+ display
+ fi
+ display "Usage: $me"
+ exit 1
+} # usage
+
+function remove_all_printers {
+ debug "ENTER: $0"
+
+ verbose "Removing all printers"
+
+ # First list all known printers
+ all_printers=$(lpstat -s | grep device | cut -f3 -d' ' | cut -f1 -d:)
+
+ # Now determine if the printer is local. If it's local then we do not delete
+ # it.
+ for printer in $all_printers; do
+ if [ $(lpstat -v$printer | wc -l) -gt 1 ]; then
+ verbose "Removing $printer"
+ $lpadmin -x$printer
+ else
+ local_printers="$local_printers $printer"
+ verbose "$printer is local to this machine. Will not automatically remove it"
+ fi
+ done
+ verbose "Removed all printers"
+ debug "EXIT: $0"
+} # remove_all_printers
+
+# Check for execution by root
+if is_not_root; then
+ error "This script must be run as root" 1
+fi
+
+while [ $# -ge 1 ]; do
+ case "$1" in
+ -usage)
+ usage
+ ;;
+
+ -v|-verbose)
+ verbose=yes
+ ;;
+
+ -d|-debug)
+ debug=yes
+ ;;
+
+ *)
+ usage "Unrecognized parameter $1"
+ ;;
+ esac
+ shift
+done
+
+if [ ! -r $printer_definitions ]; then
+ error "Unable to find printer definitions ($printer_definitions)" 2
+fi
+
+if [ $(uname -r) = "B.11.11" ]; then
+ verbose "Prereleased OS (B.11.11) detected. No processing done"
+ exit 0
+fi
+
+# You must shutdown the spooler before making any changes
+$lpshut > /dev/null 2>&1
+
+if [ $? -ne 0 ]; then
+ error "Unable to stop LP Scheduler!" 3
+fi
+
+# First remove all printer definitions
+remove_all_printers
+
+# Now add them back
+verbose "Adding all printers"
+grep -v "^#" $printer_definitions | grep -v "^$" | while read printer server; do
+ is_a_local_printer=false
+ for local_printer in $local_printers; do
+ if [ "$printer" = "$local_printer" ]; then
+ is_a_local_printer=true
+ break
+ fi
+ done
+
+ if [ "$is_a_local_printer" = "false" ]; then
+ verbose "Adding $printer:$server... \c"
+ server=$server.cup.hp.com
+ $lpadmin \
+ -p$printer \
+ -orm$server \
+ -orp$printer \
+ -mrmodel \
+ -v/dev/null \
+ -ocmrcmodel \
+ -osmrsmodel
+
+ verbose "accepting... \c"
+ $accept $printer > /dev/null 2>&1
+
+ verbose "enabling... \c"
+ $enable $printer > /dev/null 2>&1
+
+ verbose "done"
+ else
+ verbose "Skipping local printer $printer..."
+ fi
+done
+
+verbose "Added all printers"
+
+# Start up the print spooler
+verbose "Restarting the print spooler"
+$lpsched -v > /dev/null 2>&1
+
+if [ $? -ne 0 ]; then
+ error "Unable to start LP Scheduler!" 6
+fi
--- /dev/null
+#!/bin/ksh
+################################################################################
+#
+# File: lspatches
+# RCS: $Header: lspatches,v 1.1 97/04/21 14:23:58 defaria Exp $
+# Description: Lists patches for a 10.x machine
+# Author: Andrew DeFaria, California Language Labs
+# Created: Mon Nov 13 16:14:30 1995
+# Modified: Mon Nov 13 16:16:56 1995 (Andrew DeFaria) defaria@spock
+# Language: Korn Shell
+#
+# (c) Copyright 2001, Andrew@DeFaria.com, all rights reserved
+#
+################################################################################
+# First source the appserver script
+if [ -x /app/appserver ]; then
+ . /app/appserver
+fi
+
+if [ $# -eq 0 ]; then
+ print -u2 "Patches for $(uname -n):"
+ /usr/sbin/swlist -l product | grep PH
+else
+ for machine in "$@"; do
+ print -u2 "Patches for $machine:"
+ remsh $machine -n /usr/sbin/swlist -l product | grep PH
+ done
+fi
--- /dev/null
+#!/bin/ksh
+################################################################################
+#
+# File: lsproduct
+# RCS: $Header: lsproduct,v 1.1 96/07/24 04:01:51 defaria Exp $
+# Description: Lists products for a 10.x machine
+# Author: Andrew DeFaria, California Language Labs
+# Created: Wed Jul 24 04:00:36 PDT 1996
+# Modified:
+# Language: Korn Shell
+#
+# (c) Copyright 2001, Andrew@DeFaria.com, all rights reserved
+#
+################################################################################
+# First source the appserver script
+if [ -x /app/appserver ]; then
+ . /app/appserver
+fi
+
+if [ $# -eq 0 ]; then
+ print -u2 "All products on $(uname -n):"
+ /usr/sbin/swlist -l product
+else
+ /usr/sbin/swlist -l product "$@"
+fi
--- /dev/null
+#!/bin/ksh
+################################################################################
+#
+# File: lvs
+# RCS: $Header: lvs,v 1.1 97/04/08 15:27:22 defaria Exp $
+# Description: A script to list the LVM's and their disk devices
+# Author: Jeff Bralley (Contrator), California Language Labs
+# Created: Tue Apr 8 14:35:00 PDT 1997
+# Modified: Tue Apr 8 15:11:13 PDT 1997 Andrew DeFaria (defaria@cup.hp.com)
+# Language: Korn Shell
+#
+# (c) Copyright 2001, Andrew@DeFaria.com, all rights reserved
+#
+################################################################################
+print "Mount Point\tLogical Volume\t\tPhysical Volume"
+echo '--------------- ----------------------- ---------------'
+
+vgdisplay |
+ grep '^VG Name' |
+ awk '{print $3}' |
+ while read vgName; do
+ for volumeName in $vgName/*; do
+ if [ ! -b $volumeName ]; then
+ continue
+ fi
+ pd=$(lvdisplay -v $volumeName | grep '^[ ]*/dev/dsk' | awk '{print $1}')
+ mp=$(bdf $volumeName 2> /dev/null | grep -v Filesystem | awk '{print $NF}')
+ if [ "$mp" = "" ]; then
+ mp=swap
+ fi
+ print "$mp\t\t$volumeName\t\t$pd"
+ done
+done
--- /dev/null
+#!/bin/ksh
+################################################################################
+#
+# File: machine_info
+# Description: Displays information about a machine
+# Author: Andrew@DeFaria.com
+# Created: Fri Apr 30 14:13:56 PDT 1999
+# Language: Korn Shell
+#
+# (c) Copyright 2001, Andrew@DeFaria.com, all rights reserved
+#
+################################################################################
+# Set me to command name
+me=$(basename $0)
+
+# Set adm_base
+adm_base=${adm_base:-$HOME/adm}
+
+# Set adm_fpath
+adm_fpath=${adm_fpath:-$adm_base/functions}
+
+# Source functions
+. $adm_fpath/common
+
+# Set machines
+machines=${machines:-$adm_base/data/machines}
+
+if [ ! -f $machines ]; then
+ print -u2 "$me: Error: Unable to find $machines file!"
+ exit 1
+fi
+
+function display_machine_info {
+ machine=$1
+
+ ISF=" "
+ line=$(grep "^$machine:" $machines 2> /dev/null)
+
+ if [ "_$line" = "_" ]; then
+ print -u2 "No information on machine $machine"
+ else
+ machine=$(print $line | cut -f1 -d:)
+ ip_address=$(print $line | cut -f2 -d:)
+ model=$(print $line | cut -f3 -d:)
+ osversion=$(print $line | cut -f4 -d:)
+ ccversion=$(print $line | cut -f5 -d:)
+ owner=$(print $line | cut -f6 -d:)
+ phone=$(print $line | cut -f7 -d:)
+ usage=$(print $line | cut -f8 -d:)
+ class=$(print $line | cut -f9 -d:)
+ location=$(print $line | cut -f10 -d:)
+ eclipseid=$(print $line | cut -f11 -d:)
+ print "Machine:\t\t$machine"
+ print "IP Address:\t\t$ip_address"
+ print "Model:\t\t\t$model"
+ print "OS Version:\t\t$osversion"
+ print "ClearCase Version:\t$ccversion"
+ print "Owner:\t\t\t$owner" | tr -s "(" "<" | tr -s ")" ">"
+ print "Phone:\t\t\t$phone"
+ print "Usage:\t\t\t$usage"
+ print "Class:\t\t\t$class"
+ print "Location:\t\t$location"
+ print "Eclipse ID:\t\t$eclipseid"
+ fi
+} # display_machine_info
+
+function dump_all_machines {
+ grep -v "^#" $machines | cut -f1 -d: | while read machine; do
+ print -
+--------------------------------------------------------------------------------
+ display_machine_info $machine
+ done
+} # dump_all_machines
+if [ $# -eq 0 ]; then
+ display_machine_info $(uname -n)
+else
+ if [ "$1" = "-all" ]; then
+ dump_all_machines
+ else
+ for i in $@; do
+ display_machine_info $i
+ done
+ fi
+fi
--- /dev/null
+#!/bin/ksh
+################################################################################
+#
+# File: machine_stats
+# Description: Displays statistical information about all machines
+# Author: Andrew@DeFaria.com
+# Created: Fri Apr 30 14:13:56 PDT 1999
+# Language: Korn Shell
+#
+# (c) Copyright 2001, Andrew@DeFaria.com, all rights reserved
+#
+################################################################################
+# Set me to command name
+me=$(basename $0)
+
+# Set adm_base
+adm_base=${adm_base:-$HOME/adm}
+
+# Set adm_fpath
+adm_fpath=${adm_fpath:-$adm_base/functions}
+
+# Source functions
+. $adm_fpath/common
+
+# Set machines
+machines=${machines:-$adm_base/data/machines}
+
+if [ ! -f $machines ]; then
+ print -u2 "$me: Error: Unable to find $machines file!"
+ exit 1
+fi
+
+total_machines=$(grep -cv "^#" $machines)
+total_infrastructure=$(grep -v "^#" $machines | grep -c ":Infrastructure:")
+total_test=$(grep -v "^#" $machines | grep -c ":Test:")
+total_desktop=$(grep -v "^#" $machines | grep -c ":Desktop:")
+total_unknown=$(grep -v "^#" $machines | cut -f9 -d: | grep -c "Unknown")
+total_5_6=$(grep -v "^#" $machines | grep -c "5\.6\:")
+total_5_6_other=$(grep -v "^#" $machines | grep -c "5\.6[^:]")
+total_11_00=$(grep -v "^#" $machines | grep -c "B\.11\.00")
+total_11_11=$(grep -v "^#" $machines | grep -c "B\.11\.11")
+total_10_30=$(grep -v "^#" $machines | grep -c "B\.10\.30")
+total_10_20=$(grep -v "^#" $machines | grep -c "B\.10\.20")
+total_10_10=$(grep -v "^#" $machines | grep -c "B\.10\.10")
+total_10_01=$(grep -v "^#" $machines | grep -c "B\.10\.01")
+total_4_0_cc=$(grep -v "^#" $machines | grep -c "4\.0\:")
+total_3_2_cc=$(grep -v "^#" $machines | grep -c "3\.2\:")
+total_3_2_1_cc=$(grep -v "^#" $machines | grep -c "3\.2\.1")
+total_eclipse01=$(grep -v "^#" $machines | awk -F: '{print $11}' | grep -c
+"01")
+total_eclipse02=$(grep -v "^#" $machines | awk -F: '{print $11}' | grep -c
+"02")
+total_eclipse03=$(grep -v "^#" $machines | awk -F: '{print $11}' | grep -c
+"03")
+total_eclipseno=$(grep -v "^#" $machines | awk -F: '{print $11}' | grep -c
+"No Eclipse")
+let total_cc=total_4_0_cc+total_3_2_cc+total_3_2_1_cc
+
+print "PDL Machines"
+let
+hp_machines=total_11_00+total_11_11+total_10_30+total_10_20+total_10_10+total_10_01
+
+if [ $hp_machines -gt 0 ]; then
+ print " "
+ print "HP-UX Versions:"
+ print - ---------------
+ if [ $total_11_00 -gt 0 ]; then
+ print "Total 11.00 .................. $total_11_00"
+ fi
+ if [ $total_11_11 -gt 0 ]; then
+ print "Total 11.11 .................. $total_11_11"
+ fi
+ if [ $total_10_30 -gt 0 ]; then
+ print "Total 10.30 .................. $total_10_30"
+ fi
+ if [ $total_10_20 -gt 0 ]; then
+ print "Total 10.20 .................. $total_10_20"
+ fi
+ if [ $total_10_10 -gt 0 ]; then
+ print "Total 10.10 .................. $total_10_10"
+ fi
+ if [ $total_10_01 -gt 0 ]; then
+ print "Total 10.01 .................. $total_10_01"
+ fi
+fi
+let sun_machines=total_5_6+total_5_6_other
+if [ $sun_machines -gt 0 ]; then
+ print " "
+ print "Sun Versions:"
+ print - -------------
+ print "5.6 .......................... $total_5_6"
+ print "5.6 (other) .................. $total_5_6_other"
+fi
+print " "
+print "Total Machines ............... $total_machines"
+print " "
+print "ClearCase Machines:"
+print - -------------------
+if [ $total_4_0_cc -gt 0 ]; then
+ print "4.0 .......................... $total_4_0_cc"
+fi
+if [ $total_3_2_cc -gt 0 ]; then
+ print "3.2 .......................... $total_3_2_cc"
+fi
+if [ $total_3_2_1_cc -gt 0 ]; then
+ print "3.2.1 ........................ $total_3_2_1_cc"
+fi
+if [ $total_eclipse01 -gt 0 ]; then
+ print "Eclipse 01 ................... $total_eclipse01"
+fi
+if [ $total_eclipse02 -gt 0 ]; then
+ print "Eclipse 02 ................... $total_eclipse02"
+fi
+if [ $total_eclipse03 -gt 0 ]; then
+ print "Eclipse 03 ................... $total_eclipse03"
+fi
+if [ $total_eclipseno -gt 0 ]; then
+ print "No Eclipse ................... $total_eclipseno"
+fi
+print " "
+print "Total ClearCase Machines ..... $total_cc"
+
+print
+print "Machine classes:"
+print - -----------------
+print "Infrastructure ............... $total_infrastructure"
+print "Test ......................... $total_test"
+print "Desktop ...................... $total_desktop"
+if [ $total_unknown -gt 0 ]; then
+ print "Unknown ...................... $total_unknown"
+fi
--- /dev/null
+#!/usr/bin/ksh
+
+# Logfile
+logfile=make_motd.log
+
+## Set global env variables
+# Set me
+me=${0##*/}
+
+# Set OS
+OS=$(uname -r | cut -c3-)
+
+unames=$(uname -s)
+unamen=$(uname -n)
+unamer=$(uname -r)
+unamev=$(uname -v)
+unamem=$(model)
+unamei=$(uname -i)
+unamel=$(uname -l)
+
+# Set step_nbr
+integer step_nbr=0
+
+function error {
+ print -u2 "$me: Error: $1"
+} # error
+
+function warning {
+ print -u2 "$me: Warning: $1"
+} # warning
+
+function display {
+ print "$1"
+} # display
+
+function info {
+ display "$me: Info: $1"
+} # info
+
+function verbose {
+ if [ ! -z "$verbose" ]; then
+ display "$1"
+ fi
+} # verbose
+
+function debug {
+ if [ ! -z "$debug" ]; then
+ print -u2 "$me: Debug: $1"
+ fi
+} # debug
+
+function usage {
+ display "$me [-v|verbose] [-d|debug] [-usage]"
+ display " -v|verbose: Turns on verbose mode"
+ display " -d|debug: Turns on debug mode"
+ display " -usage: Print this usage message"
+ display " "
+ display "The following options will be prompted for if not supplied on the"
+ display "command line. If any parameter has spaces in it then you need to"
+ display "surround it in quotes (e.g. -owners_fullname \"Andrew DeFaria\"."
+ display "You'll probably need to do this for the first 3 in the list below:"
+ display " "
+ display " -owners_fullname Specify owners full name"
+ display " -machine_usage Specify what this machine is to be used for"
+ display " -location Specify where this machine is located"
+ display " -owners_email Specify email address (no @cup.hp.com)"
+ display " -owners_extension Specify phone extenstion in the format of"
+ display " 7-XXXX (the t-44 will be prepended)"
+ display " -new_machine_name Specify the name of this system (REQUIRED)"
+
+ error "$1"
+ exit 1
+} # usage
+
+function step {
+ let step_nbr=step_nbr+1
+ display "Step #$step_nbr: $@"
+} # step
+
+function display_options {
+ display "Setup this machine according to the following profile:"
+ print -
+--------------------------------------------------------------------------------
+
+ display "Machine Name:\t\t$new_machine_name"
+ display "Machine Usage:\t\t$machine_usage"
+ display "Macine Location:\t$location"
+ display "Owner's Fullname:\t$owners_fullname"
+ display "Owner's Email:\t\t$owners_email"
+ display "Owner's Extension:\t$owners_extension"
+} # display_options
+
+# Set initial parm values
+display
+display "\t\tWelcome to the motd creation script"
+display
+verbose=
+debug=
+owners_fullname=
+owners_email=
+owners_extension=
+machine_usage=
+location=
+new_machine_name=
+
+if [ $(id -u) -ne 0 ]; then
+ error "Must be root to create or modify /etc/motd"
+ exit 1
+fi
+
+# Get parameters
+while [ $# -ge 1 ]; do
+ case "$1" in
+ -usage)
+ usage
+ ;;
+
+ -v|-verbose)
+ verbose=yes
+ ;;
+
+ -d|-debug)
+ debug=yes
+ ;;
+
+ -owners_fullname)
+ if [ $# -le 1 ]; then
+ usage "Owner's Full Name is not specified!"
+ fi
+ shift
+ owners_fullname="$1"
+ ;;
+
+ -machine_usage)
+ if [ $# -le 1 ]; then
+ usage "Machine Usage was not specified!"
+ fi
+ shift
+ machine_usage="$1"
+ ;;
+
+ -location)
+ if [ $# -le 1 ]; then
+ usage "Location was not specified!"
+ fi
+ shift
+ location="$1"
+ ;;
+
+ -owners_email)
+ if [ $# -le 1 ]; then
+ usage "Owner's Email was not specified!"
+ fi
+ shift
+ owners_email="$1"
+ ;;
+
+ -owners_extension)
+ if [ $# -le 1 ]; then
+ usage "Owner's Extention was not specified!"
+ fi
+ shift
+ owners_extension="$1"
+ ;;
+
+ -new_machine_name)
+ if [ $# -le 1 ]; then
+ usage "New Machine Name not specified!"
+ fi
+ shift
+ new_machine_name="$1"
+ ;;
+
+ *)
+ usage "Unrecognized parameter $1"
+ ;;
+ esac
+ shift
+done
+
+# Prompt for options not specified on the command line
+
+if [ "_$owners_fullname" = "_" ]; then
+ print "Owner's Fullname"
+ print "> \c"
+ read owners_fullname
+ if [ "_$owners_fullname" = "_" ]; then
+ owners_fullname=Unknown
+ fi
+fi
+
+if [ "_$machine_usage" = "_" ]; then
+ print "What is this machine used for?"
+ print "> \c"
+ read machine_usage
+ if [ "_$machine_usage" = "_" ]; then
+ machine_usage="This machine is used by \<whom\> for \<what\>"
+ fi
+fi
+
+if [ "_$location" = "_" ]; then
+ print "Where is this machine located?"
+ print "> \c"
+ read location
+ if [ "_$location" = "_" ]; then
+ location="\<Physical Location\>"
+ fi
+fi
+
+if [ "_$owners_email" = "_" ]; then
+ print "Owner's Email address:"
+ print "(Should be the same as username. This script will supply the @cup.hp.com)"
+ print "> \c"
+ read owners_email
+ if [ "_$owners_email" = "_" ]; then
+ owners_email=Unknown
+ fi
+fi
+
+if [ "_$owners_extension" = "_" ]; then
+ print "Owner's Phone extention:"
+ print "(Should be of the format 7-XXXX This script will prepend \"t-44\" to"
+ print "the entered extension)"
+ print "> \c"
+ read owners_extension
+ if [ "_$owners_extension" = "_" ]; then
+ owners_extension=7-XXXX
+ fi
+fi
+
+until [ "_$new_machine_name" != "_" ]; do
+ new_machine_name="garbage"
+ print "New machine name:"
+ print "> \c"
+ read new_machine_name
+
+ if [ "_$new_machine_name" = "_" ]; then
+ error "Must enter a new machine name"
+ fi
+done
+
+display_options
+
+display
+display "Continue Installation (Y/n)?\c"
+answer=y
+read answer
+case "$answer" in
+ y|Y|yes|Yes|YES|"")
+ continue
+ ;;
+ *)
+ display "Installation aborted. Rerun $me if you wish to install again"
+ exit 1
+ ;;
+esac
+
+function do_installation {
+#display_options
+
+banner $new_machine_name > /etc/motd
+echo $unames $unamen $unamer $unamev $unamem $unamei $unamel >> /etc/motd
+cat >> /etc/motd <<:END
+
+*******************************************************************************
+* This is a private system operated for the Hewlett-Packard Company business. *
+* Authorization from HP management is required to use this system. *
+* Use by unauthorized persons is prohibited. *
+*******************************************************************************
+For System Support: Mon-Fri 8:00-5:00 Email (site-ux@cup.hp.com)
+Phone: t-447-1212 After hours/weekend Pre-arrange: t-447-0629
+-------------------------------------------------------------------------------
+Usage: $machine_usage
+Owner: $owners_fullname ($owners_email@cup.hp.com) Phone:
+t-44$owners_extension
+Location: $location
+-------------------------------------------------------------------------------
+:END
+
+display "/etc/motd successfully created"
+
+} # do_installation
+
+do_installation | tee $logfile
--- /dev/null
+#!/bin/ksh
+################################################################################
+#
+# File: make_resolv_conf
+# Description: A script to create a valid /etc/resolv.conf
+# Author: Andrew DeFaria, California Language Labs
+# Created: Wed Jan 15 16:52:22 PST 1997
+# Modified: Wed Jan 15 16:52:22 PST 1997 (Andrew DeFaria) defaria@cup.hp.com
+# Language: Korn Shell
+#
+# (c) Copyright 2001, Andrew@DeFaria.com, all rights reserved
+#
+################################################################################
+me=$(basename $0)
+
+function usage {
+ print -u2 "$me: [ <primary dns> ] [ <secondary dns> ]"
+ exit 1
+} # usage
+
+# Get parameters
+primary_dns="15.28.98.95 # smildon"
+secondary_dns="15.0.96.86 # masher"
+trierary_dns="15.13.168.80 # hparch4"
+
+if [ $# -eq 2 ]; then
+ primary_dns="$1"
+ secondary_dns="$2"
+elif [ $# -eq 1 ]; then
+ primary_dns="$1"
+fi
+
+resolv_conf_file=/etc/resolv.conf
+
+# Don't copy this time...
+#cp $resolv_conf_file $resolv_conf_file.old
+
+print "domain cup.hp.com" > $resolv_conf_file
+print "search cup.hp.com hp.com ch.apollo.hp.com" >> $resolv_conf_file
+print "nameserver $primary_dns" >> $resolv_conf_file
+print "nameserver $secondary_dns" >> $resolv_conf_file
+print "nameserver $trierary_dns" >> $resolv_conf_file
+
+# If machine runs cupmail (see root crontab) then we need to make a .local
+# file.
+cp $resolv_conf_file $resolv_conf_file.local
+
+print "$me: Created new $resolv_conf_file"
+#print "$me: Saved old $resolv_conf_file in $resolv_conf_file.old"
--- /dev/null
+#!/bin/ksh
+################################################################################
+#
+# File: makehome
+# Description: Makes a users home directory
+# Author: Andrew@DeFaria.com
+# Created: Thu Jun 3 17:21:24 PDT 1999
+# Modified:
+# Language: Korn Shell
+#
+# (c) Copyright 2001, Andrew@DeFaria.com, all rights reserved
+#
+################################################################################
+# Set me to command name
+me=$(basename $0)
+
+# Set adm_base
+adm_base=${adm_base:-$HOME/adm}
+
+# Set adm_fpath
+adm_fpath=${adm_fpath:-$adm_base/functions}
+
+# Source functions
+. $adm_fpath/common
+
+function usage {
+ display "$me: Usage: makehome [ -v|erbose ] [ -d|ebug ] -username
+<username>
+\t\t\t -uid <uid>"
+
+ exit 1
+} # usage
+
+function prompt_for_field {
+ fieldname="$1"
+ fieldvalue=
+
+ while [ ! -n "$fieldvalue" ]; do
+ display "Enter the value for $fieldname:\c"
+ read fieldvalue
+
+ if [ ! -n "$fieldvalue" ]; then
+ error "Must specify $fieldname!"
+ fi
+ done
+} # prompt_for_field
+
+function show_parms {
+ display "$me"
+ display "-------------------------------------"
+ display "username = $username"
+ display "uid = $uid"
+ display "homedrive = $homedrive"
+ display "devdrive = $devdrive"
+ display "homepath = $homepath"
+ display "devpath = $devpath"
+ display
+ display "Command line equivalent:"
+ display
+ display "$me -username $username -uid $uid"
+ display
+ display "Are the parameters correct [Y|n]?\c"
+ read answer
+ case "$answer" in
+ Y|y)
+ : OK!
+ ;;
+ *)
+ exit
+ ;;
+ esac
+} # show_parms
+
+if is_not_root; then
+ error "You must be root to use this command" 1
+fi
+
+case "$(hostname)" in
+ dreamcicle|fudgecicle)
+ ;;
+
+ *)
+ error "Must be running on either dreamcicle or fudgecicle to execute
+this command" 2
+ ;;
+
+esac
+
+# Get options
+debug=
+verbose=
+
+while [ $# -ge 1 ]; do
+ case "$1" in
+ -u|usage)
+ usage
+ ;;
+
+ -v|-verbose)
+ verbose=yes
+ ;;
+
+ -d|-debug)
+ debug=yes
+ ;;
+
+ -username)
+ if [ $# -le 1 ]; then
+ error "Username not specified!" 0
+ usage
+ fi
+ shift
+ username="$1"
+ ;;
+
+ -uid)
+ if [ $# -le 1 ]; then
+ error "UID not specified!" 0
+ usage
+ fi
+ shift
+ uid="$1"
+ ;;
+
+ *)
+ error "Unknown option \"$1\" encountered" 0
+ usage
+ ;;
+
+ esac
+ shift
+done
+
+if [ "$username" = "" ]; then
+ prompt_for_field "Username"
+ username=$fieldvalue
+fi
+
+if [ "$uid" = "" ]; then
+ prompt_for_field "UID"
+ uid=$fieldvalue
+fi
+
+homedrive=home1
+devdrive=dev1
+homepath=/netapp/dvd/$homedrive/$username
+devpath=/netapp/dvd/$devdrive/$username
+
+show_parms
+
+mkdir -p $homepath
+chown $uid:cdseng $homepath
+chmod 775 $homepath
+mkdir -p $devpath
+chown $uid:cdseng $devpath
+chmod 775 $devpath
+
+if [ ! -h $homepath/dev ]; then
+ ln -s /auto/dev/$username $homepath/dev
+fi
--- /dev/null
+#!/bin/ksh
+################################################################################
+#
+# File: makehosts
+# Description: Makes an /etc/hosts file
+# Author: Andrew@DeFaria.com
+# Created: Thu Jun 3 17:21:24 PDT 1999
+# Modified:
+# Language: Korn Shell
+#
+# (c) Copyright 2001, Andrew@DeFaria.com, all rights reserved
+#
+################################################################################
+me=$(basename $0)
+
+# Set adm_base
+adm_base=${adm_base:-$HOME/adm}
+
+# Set adm_fpath
+adm_fpath=${adm_fpath:-$adm_base/functions}
+
+# Source functions
+. $adm_fpath/common
+
+if [ $(/usr/xpg4/bin/id -u) -ne 0 ]; then
+ print -u2 "$me: Error: You must be root to use this command"
+ exit 1
+fi
+
+stdhosts=${stdhosts:-$adm_base/etc/stdhosts}
+syshosts=${syshosts:-/etc/hosts}
+localhosts=${localhosts:-/etc/hosts.local}
+
+current_ip=$(nslookup $(hostname) | tail -2 | awk '{print $NF}')
+
+cp $stdhosts $syshosts
+
+if ! grep $(hostname) $syshosts > /dev/null; then
+ print "$current_ip\t$(hostname).cisco.com\t\t$(hostname)" >> $syshosts
+fi
+
+if [ -f $localhosts ]; then
+ cat $localhosts >> $syshosts
+fi
--- /dev/null
+#!/bin/ksh
+################################################################################
+#
+# File: mkpass
+# Description: Mother of All (MoA) passwd administration script
+# Author: Cory Chan (cory@cup.hp.com)
+# Language: Korn Shell
+# Modified: 11/18/1994 Ryan Fong (fong@cup.hp.com) Modified for 10.0
+# 07/26/1995 Andrew DeFaria (defaria@cup.hp.com) Revamped to use
+# NFS mount point to avoid rcp. Script now works for both 9.0
+# and 10.0.
+# 08/21/1995 Andrew DeFaria (defaria@cup.hp.com) Revamped mail
+# message sending.
+# 03/25/98 Michael Coulter (coulter) Changed "ch.apollo" to
+# "che.hp.com" because of a domain name change for Chelmsford.
+#
+# (c) Copyright 2001, Andrew@DeFaria.com, all rights reserved
+#
+################################################################################
+# First source the appserver script
+if [ -x /app/appserver ]; then
+ . /app/appserver
+fi
+
+if [ "$OS" = "09" ]; then
+ /bin/cp /usr/spool/cron/crontabs/root /tmp/root-crontab
+ /usr/bin/crontab /tmp/root-crontab >> /nisclient.log 2>&1
+ /bin/rm /tmp/root-crontab
+else
+ /bin/cp /var/spool/cron/crontabs/root /tmp/root-crontab
+ /usr/bin/crontab /tmp/root-crontab >> /nisclient.log 2>&1
+ /bin/rm /tmp/root-crontab
+fi
+exit
+
+# Set ADMIN_ROOT
+ADMIN_ROOT=/app/admin
+
+# Check for force flag
+FORCE="False"
+
+if [ "$1" = "-f" ]; then
+ FORCE="True"
+fi
+
+# Whom to notify of problems.
+NOTIFY=root@$(hostname)
+
+# Determine OS level
+OS=`uname -r | cut -c 3-4`
+
+MASTER_PASSWD=$ADMIN_ROOT/lib/master_passwd
+MASTER_PASSWD_MLL=$ADMIN_ROOT/lib/master_passwd.mll
+LOCAL_PASSWD=/etc/passwd.loc
+EXCLUDED_PASSWD=/etc/passwd.exc
+MARKER_FILE=/etc/pass.time
+PASSWD_OLD=/etc/passwd.old
+PASSWD=/etc/passwd
+TMP_PASSWD=/tmp/passwd.$$
+TMP_PASSWD2=/tmp/passwd2.$$
+
+# Log and save old messages if there were any problems
+MESSAGE_FILE=$ADMIN_ROOT/log/mkpass.$(uname -n)
+
+# Set file attribute
+umask 022
+# Check for existance of $MASTER_PASSWD file. If missing send message and
+# abort.
+if [[ ! -f $MASTER_PASSWD ]]; then
+ mailx -s "mkpass: $MASTER_PASSWD file is missing!" $NOTIFY < /dev/null
+ exit 1
+fi
+
+# Check existence of necessary files; make when necessary.
+if [[ ! -f $MARKER_FILE ]]; then
+ # make time marker if not exists
+ touch $MARKER_FILE
+fi
+
+if [[ ! -f $EXCLUDED_PASSWD ]]; then
+ echo "# one login per line, no space/tab/null line#" > $EXCLUDED_PASSWD
+fi
+
+if [[ ! -f $PASSWD_OLD ]]; then
+ # make old passwd file if not exists
+ cp $PASSWD $PASSWD_OLD
+fi
+
+if [[ ! -f $LOCAL_PASSWD ]]; then
+ # no local file, notify and exit
+ cat > $MESSAGE_FILE <<!EOM
+There was no $LOCAL_PASSWD file found on `uname -n`. This file must exist
+and have root as its first entry. Please correct the problem.
+
+For more information see:
+
+http://cllweb/productivity/SysAdmin/Passwords.html#root
+
+!EOM
+ mailx -s "mkpass: $LOCAL_PASSWD missing!" $NOTIFY < $MESSAGE_FILE
+ exit 0
+fi
+
+if [ $FORCE = "False" ]; then
+ # Check if passwd was changed directly since last check, if so mail the
+ # differences to $NOTIFY
+ if [[ $PASSWD -nt $MARKER_FILE ]] ; then
+ cat > $MESSAGE_FILE <<!EOM
+$PASSWD on `uname -n` changed without using merge script! This is not the
+proper way to update passwords. For help regarding what you should do see:
+
+http://cllweb/productivity/SysAdmin/Passwords.html#email
+
+Here are the differences between the files:
+
+(< = /etc/passwd > = /etc/passwd.old)
+-----------------------------------------------------------------------------
+!EOM
+ diff $PASSWD $PASSWD_OLD >> $MESSAGE_FILE
+ mailx -s "mkpass: $PASSWD incorrectly changed" $NOTIFY < $MESSAGE_FILE
+ exit 0
+ fi
+fi
+
+# Check to see if $LOCAL_PASSWD, $MASTER_PASSWD or $EXCLUDED_PASSWD is newer
+# than $PASSWD. If so, combine $LOCAL_PASSWD and $MASTER_PASSWD (excluding
+# entries from $EXCLUDED_PASSWD) to form new $PASSWD
+if [[ $FORCE = "True" ||
+ $LOCAL_PASSWD -nt $PASSWD ||
+ $MASTER_PASSWD -nt $PASSWD ||
+ $MASTER_PASSWD_MLL -nt $PASSWD ||
+ $EXCLUDED_PASSWD -nt $PASSWD ]]; then
+
+ # If only the $MASTER_PASSWD changed then make a note not to send email
+ if [[ $LOCAL_PASSWD -nt $PASSWD ||
+ $EXCLUDED_PASSWD -nt $PASSWD ]]; then
+ NOTIFY_OF_CHANGE=True
+ else
+ NOTIFY_OF_CHANGE=False
+ fi
+
+ # Save an old copy around
+ cp $PASSWD $PASSWD_OLD
+
+ # Check root entry in $LOCAL_PASSWD
+ if grep -v "^#" $LOCAL_PASSWD | head -n 1 | grep "^root:" > /dev/null; then
+ # 1st entry root OKAY in $LOCAL_PASSWD
+ :
+ else
+ # 1st entry NOT root in passwd.loc
+ cat > $MESSAGE_FILE <<!EOM
+The first entry of $LOCAL_PASSWD on `uname -n` should be for root.
+Please correct this problem.
+
+For more information see:
+
+http://cllweb/productivity/SysaAdmin/Passwords.html#root
+
+!EOM
+ mailx -s "mkpass: Missing first root in $LOCAL_PASSWD" $NOTIFY < $MESSAGE_FILE
+ rm -f $TMP_PASSWD
+ exit 0
+ fi
+
+ # Make new $PASSWD
+ rm -f $TMP_PASSWD2
+
+ # MLL gives us a passwd file that does not qualify the machine name portion
+ # of the home directory. This code fixes that up and also adds "_MoA" to the
+ # geos field.
+ #
+ # Some engineers also use a local copy of tcsh, therefore we must also check
+ # shell and add on .che.hp.com to the shell path.
+ IFS=:
+ while read user pass uid gid geos home shell; do
+ first_component_home=$(print $home | cut -f2 -d/)
+ machine_component_home=$(print $home | cut -f3 -d/)
+ rest_home=$(print $home | cut -f4- -d/)
+ home=/$first_component_home/$machine_component_home.che.hp.com/$rest_home
+ first_component_shell=$(print $shell | cut -f2 -d/)
+ machine_component_shell=$(print $shell | cut -f3 -d/)
+ rest_shell=$(print $shell | cut -f4- -d/)
+ if [ $first_component_shell = "net" ]; then
+ shell=\
+/$first_component_shell/$machine_component_shell.che.hp.com/$rest_shell
+ fi
+ print "$user:$pass:$uid:$gid:$geos,_MoA_:$home:$shell" >> $TMP_PASSWD2
+ done < $MASTER_PASSWD_MLL
+
+ cat $LOCAL_PASSWD $MASTER_PASSWD $TMP_PASSWD2 > $TMP_PASSWD
+
+ # Do exclusion
+ grep -v "^#" $EXCLUDED_PASSWD |\
+ grep -vf $EXCLUDED_PASSWD $TMP_PASSWD > $TMP_PASSWD2
+
+ # Transform password file to 10.0 format
+ if [ $OS = "10" ]; then
+ sed -e 's/:\/nfs/:\/net/' -e 's/:\/bin/:\/usr\/bin/' \
+ $TMP_PASSWD2 > $TMP_PASSWD
+ rm -f $TMP_PASSWD2
+ else
+ mv $TMP_PASSWD2 $TMP_PASSWD
+ fi
+
+ if [ -s $TMP_PASSWD ]; then
+ mv $TMP_PASSWD $PASSWD
+ chmod 444 $PASSWD
+ else
+ rm -f $TMP_PASSWD
+ mailx -s "mkpass: Error: Zero length passwd file resulted!" $NOTIFY <<!EOM
+For some reason mkpass resulted in a zero length passwd file. Please
+investigate this.
+!EOM
+ fi
+
+ if [[ $NOTIFY_OF_CHANGE = "True" ]]; then
+ # Notify... (This could be improved by implementing a logging facility
+ # instead of tons of email).
+ cat > $MESSAGE_FILE <<!EOM
+MoA has updated the $PASSWD file on `uname -n`. Here were the differences
+before the update occured. Unless you feel that these updates were made
+incorrectly you can probably safely ignore this message.
+
+(< = /etc/passwd > = /etc/passwd.old)
+-----------------------------------------------------------------------------
+!EOM
+ diff $PASSWD $PASSWD_OLD >> $MESSAGE_FILE
+ mailx -s "mkpass: Made new $PASSWD" $NOTIFY < $MESSAGE_FILE
+ fi
+fi
+
+# Update marker file
+touch -ma $MARKER_FILE
+
+# Update log file
+echo "$PASSWD on `uname -n` is up to date as of `date`" > $MESSAGE_FILE
+
+exit 0
--- /dev/null
+#!/bin/ksh
+################################################################################
+#
+# File: mkpass
+# Description: Mother of All (MoA) passwd administration script
+# Author: Cory Chan (cory@cup.hp.com)
+# Language: Korn Shell
+# Modified: 11/18/1994 Ryan Fong (fong@cup.hp.com) Modified for 10.0
+# 07/26/1995 Andrew DeFaria (defaria@cup.hp.com) Revamped to use
+# NFS mount point to avoid rcp. Script now works for both 9.0
+# and 10.0.
+# 08/21/1995 Andrew DeFaria (defaria@cup.hp.com) Revamped mail
+# message sending.
+# 03/25/98 Michael Coulter (coulter) Changed "ch.apollo" to
+# "che.hp.com" because of a domain name change for Chelmsford.
+#
+# (c) Copyright 2001, Andrew@DeFaria.com, all rights reserved
+#
+################################################################################
+# First source the appserver script
+if [ -x /app/appserver ]; then
+ . /app/appserver
+fi
+
+if [ "$OS" = "09" ]; then
+ /app/admin/bin/nisclient-9.x
+else
+ /app/admin/bin/nisclient
+fi
+exit
+
+# Set ADMIN_ROOT
+ADMIN_ROOT=/app/admin
+
+# Check for force flag
+FORCE="False"
+
+if [ "$1" = "-f" ]; then
+ FORCE="True"
+fi
+
+# Whom to notify of problems.
+NOTIFY=root@$(hostname)
+
+# Determine OS level
+OS=`uname -r | cut -c 3-4`
+
+MASTER_PASSWD=$ADMIN_ROOT/lib/master_passwd
+MASTER_PASSWD_MLL=$ADMIN_ROOT/lib/master_passwd.mll
+LOCAL_PASSWD=/etc/passwd.loc
+EXCLUDED_PASSWD=/etc/passwd.exc
+MARKER_FILE=/etc/pass.time
+PASSWD_OLD=/etc/passwd.old
+PASSWD=/etc/passwd
+TMP_PASSWD=/tmp/passwd.$$
+TMP_PASSWD2=/tmp/passwd2.$$
+
+# Log and save old messages if there were any problems
+MESSAGE_FILE=$ADMIN_ROOT/log/mkpass.$(uname -n)
+
+# Set file attribute
+umask 022
+# Check for existance of $MASTER_PASSWD file. If missing send message and
+# abort.
+if [[ ! -f $MASTER_PASSWD ]]; then
+ mailx -s "mkpass: $MASTER_PASSWD file is missing!" $NOTIFY < /dev/null
+ exit 1
+fi
+
+# Check existence of necessary files; make when necessary.
+if [[ ! -f $MARKER_FILE ]]; then
+ # make time marker if not exists
+ touch $MARKER_FILE
+fi
+
+if [[ ! -f $EXCLUDED_PASSWD ]]; then
+ echo "# one login per line, no space/tab/null line#" > $EXCLUDED_PASSWD
+fi
+
+if [[ ! -f $PASSWD_OLD ]]; then
+ # make old passwd file if not exists
+ cp $PASSWD $PASSWD_OLD
+fi
+
+if [[ ! -f $LOCAL_PASSWD ]]; then
+ # no local file, notify and exit
+ cat > $MESSAGE_FILE <<!EOM
+There was no $LOCAL_PASSWD file found on `uname -n`. This file must exist
+and have root as its first entry. Please correct the problem.
+
+For more information see:
+
+http://cllweb/productivity/SysAdmin/Passwords.html#root
+
+!EOM
+ mailx -s "mkpass: $LOCAL_PASSWD missing!" $NOTIFY < $MESSAGE_FILE
+ exit 0
+fi
+
+if [ $FORCE = "False" ]; then
+ # Check if passwd was changed directly since last check, if so mail the
+ # differences to $NOTIFY
+ if [[ $PASSWD -nt $MARKER_FILE ]] ; then
+ cat > $MESSAGE_FILE <<!EOM
+$PASSWD on `uname -n` changed without using merge script! This is not the
+proper way to update passwords. For help regarding what you should do see:
+
+http://cllweb/productivity/SysAdmin/Passwords.html#email
+
+Here are the differences between the files:
+
+(< = /etc/passwd > = /etc/passwd.old)
+-----------------------------------------------------------------------------
+!EOM
+ diff $PASSWD $PASSWD_OLD >> $MESSAGE_FILE
+ mailx -s "mkpass: $PASSWD incorrectly changed" $NOTIFY < $MESSAGE_FILE
+ exit 0
+ fi
+fi
+
+# Check to see if $LOCAL_PASSWD, $MASTER_PASSWD or $EXCLUDED_PASSWD is newer
+# than $PASSWD. If so, combine $LOCAL_PASSWD and $MASTER_PASSWD (excluding
+# entries from $EXCLUDED_PASSWD) to form new $PASSWD
+if [[ $FORCE = "True" ||
+ $LOCAL_PASSWD -nt $PASSWD ||
+ $MASTER_PASSWD -nt $PASSWD ||
+ $MASTER_PASSWD_MLL -nt $PASSWD ||
+ $EXCLUDED_PASSWD -nt $PASSWD ]]; then
+
+ # If only the $MASTER_PASSWD changed then make a note not to send email
+ if [[ $LOCAL_PASSWD -nt $PASSWD ||
+ $EXCLUDED_PASSWD -nt $PASSWD ]]; then
+ NOTIFY_OF_CHANGE=True
+ else
+ NOTIFY_OF_CHANGE=False
+ fi
+
+ # Save an old copy around
+ cp $PASSWD $PASSWD_OLD
+
+ # Check root entry in $LOCAL_PASSWD
+ if grep -v "^#" $LOCAL_PASSWD | head -n 1 | grep "^root:" > /dev/null; then
+ # 1st entry root OKAY in $LOCAL_PASSWD
+ :
+ else
+ # 1st entry NOT root in passwd.loc
+ cat > $MESSAGE_FILE <<!EOM
+The first entry of $LOCAL_PASSWD on `uname -n` should be for root.
+Please correct this problem.
+
+For more information see:
+
+http://cllweb/productivity/SysaAdmin/Passwords.html#root
+
+!EOM
+ mailx -s "mkpass: Missing first root in $LOCAL_PASSWD" $NOTIFY < $MESSAGE_FILE
+ rm -f $TMP_PASSWD
+ exit 0
+ fi
+
+ # Make new $PASSWD
+ rm -f $TMP_PASSWD2
+
+ # MLL gives us a passwd file that does not qualify the machine name portion
+ # of the home directory. This code fixes that up and also adds "_MoA" to the
+ # geos field.
+ #
+ # Some engineers also use a local copy of tcsh, therefore we must also check
+ # shell and add on .che.hp.com to the shell path.
+ IFS=:
+ while read user pass uid gid geos home shell; do
+ first_component_home=$(print $home | cut -f2 -d/)
+ machine_component_home=$(print $home | cut -f3 -d/)
+ rest_home=$(print $home | cut -f4- -d/)
+ home=/$first_component_home/$machine_component_home.che.hp.com/$rest_home
+ first_component_shell=$(print $shell | cut -f2 -d/)
+ machine_component_shell=$(print $shell | cut -f3 -d/)
+ rest_shell=$(print $shell | cut -f4- -d/)
+ if [ $first_component_shell = "net" ]; then
+ shell=\
+/$first_component_shell/$machine_component_shell.che.hp.com/$rest_shell
+ fi
+ print "$user:$pass:$uid:$gid:$geos,_MoA_:$home:$shell" >> $TMP_PASSWD2
+ done < $MASTER_PASSWD_MLL
+
+ cat $LOCAL_PASSWD $MASTER_PASSWD $TMP_PASSWD2 > $TMP_PASSWD
+
+ # Do exclusion
+ grep -v "^#" $EXCLUDED_PASSWD |\
+ grep -vf $EXCLUDED_PASSWD $TMP_PASSWD > $TMP_PASSWD2
+
+ # Transform password file to 10.0 format
+ if [ $OS = "10" ]; then
+ sed -e 's/:\/nfs/:\/net/' -e 's/:\/bin/:\/usr\/bin/' \
+ $TMP_PASSWD2 > $TMP_PASSWD
+ rm -f $TMP_PASSWD2
+ else
+ mv $TMP_PASSWD2 $TMP_PASSWD
+ fi
+
+ if [ -s $TMP_PASSWD ]; then
+ mv $TMP_PASSWD $PASSWD
+ chmod 444 $PASSWD
+ else
+ rm -f $TMP_PASSWD
+ mailx -s "mkpass: Error: Zero length passwd file resulted!" $NOTIFY <<!EOM
+For some reason mkpass resulted in a zero length passwd file. Please
+investigate this.
+!EOM
+ fi
+
+ if [[ $NOTIFY_OF_CHANGE = "True" ]]; then
+ # Notify... (This could be improved by implementing a logging facility
+ # instead of tons of email).
+ cat > $MESSAGE_FILE <<!EOM
+MoA has updated the $PASSWD file on `uname -n`. Here were the differences
+before the update occured. Unless you feel that these updates were made
+incorrectly you can probably safely ignore this message.
+
+(< = /etc/passwd > = /etc/passwd.old)
+-----------------------------------------------------------------------------
+!EOM
+ diff $PASSWD $PASSWD_OLD >> $MESSAGE_FILE
+ mailx -s "mkpass: Made new $PASSWD" $NOTIFY < $MESSAGE_FILE
+ fi
+fi
+
+# Update marker file
+touch -ma $MARKER_FILE
+
+# Update log file
+echo "$PASSWD on `uname -n` is up to date as of `date`" > $MESSAGE_FILE
+
+exit 0
--- /dev/null
+#!/bin/ksh
+################################################################################
+#
+# File: mkpass
+# Description: Mother of All (MoA) passwd administration script
+# Author: Cory Chan (cory@cup.hp.com)
+# Language: Korn Shell
+# Modified: 11/18/1994 Ryan Fong (fong@cup.hp.com) Modified for 10.0
+# 07/26/1995 Andrew DeFaria (defaria@cup.hp.com) Revamped to use
+# NFS mount point to avoid rcp. Script now works for both 9.0
+# and 10.0.
+# 08/21/1995 Andrew DeFaria (defaria@cup.hp.com) Revamped mail
+# message sending.
+# 03/25/98 Michael Coulter (coulter) Changed "ch.apollo" to
+# "che.hp.com" because of a domain name change for Chelmsford.
+#
+# (c) Copyright 2001, Andrew@DeFaria.com, all rights reserved
+#
+################################################################################
+# First source the appserver script
+if [ -x /app/appserver ]; then
+ . /app/appserver
+fi
+
+# Set ADMIN_ROOT
+ADMIN_ROOT=/app/admin
+
+# Check for force flag
+FORCE="False"
+
+if [ "$1" = "-f" ]; then
+ FORCE="True"
+fi
+
+# Whom to notify of problems.
+NOTIFY=root@$(hostname)
+
+# Determine OS level
+OS=`uname -r | cut -c 3-4`
+
+MASTER_PASSWD=$ADMIN_ROOT/lib/master_passwd
+MASTER_PASSWD_MLL=$ADMIN_ROOT/lib/master_passwd.mll
+LOCAL_PASSWD=/etc/passwd.loc
+EXCLUDED_PASSWD=/etc/passwd.exc
+MARKER_FILE=/etc/pass.time
+PASSWD_OLD=/etc/passwd.old
+PASSWD=/etc/passwd
+TMP_PASSWD=/tmp/passwd.$$
+TMP_PASSWD2=/tmp/passwd2.$$
+
+# Log and save old messages if there were any problems
+MESSAGE_FILE=$ADMIN_ROOT/log/mkpass.$(uname -n)
+
+# Set file attribute
+umask 022
+# Check for existance of $MASTER_PASSWD file. If missing send message and
+# abort.
+if [[ ! -f $MASTER_PASSWD ]]; then
+ mailx -s "mkpass: $MASTER_PASSWD file is missing!" $NOTIFY < /dev/null
+ exit 1
+fi
+
+# Check existence of necessary files; make when necessary.
+if [[ ! -f $MARKER_FILE ]]; then
+ # make time marker if not exists
+ touch $MARKER_FILE
+fi
+
+if [[ ! -f $EXCLUDED_PASSWD ]]; then
+ echo "# one login per line, no space/tab/null line#" > $EXCLUDED_PASSWD
+fi
+
+if [[ ! -f $PASSWD_OLD ]]; then
+ # make old passwd file if not exists
+ cp $PASSWD $PASSWD_OLD
+fi
+
+if [[ ! -f $LOCAL_PASSWD ]]; then
+ # no local file, notify and exit
+ cat > $MESSAGE_FILE <<!EOM
+There was no $LOCAL_PASSWD file found on `uname -n`. This file must exist
+and have root as its first entry. Please correct the problem.
+
+For more information see:
+
+http://cllweb/productivity/SysAdmin/Passwords.html#root
+
+!EOM
+ mailx -s "mkpass: $LOCAL_PASSWD missing!" $NOTIFY < $MESSAGE_FILE
+ exit 0
+fi
+
+if [ $FORCE = "False" ]; then
+ # Check if passwd was changed directly since last check, if so mail the
+ # differences to $NOTIFY
+ if [[ $PASSWD -nt $MARKER_FILE ]] ; then
+ cat > $MESSAGE_FILE <<!EOM
+$PASSWD on `uname -n` changed without using merge script! This is not the
+proper way to update passwords. For help regarding what you should do see:
+
+http://cllweb/productivity/SysAdmin/Passwords.html#email
+
+Here are the differences between the files:
+
+(< = /etc/passwd > = /etc/passwd.old)
+-----------------------------------------------------------------------------
+!EOM
+ diff $PASSWD $PASSWD_OLD >> $MESSAGE_FILE
+ mailx -s "mkpass: $PASSWD incorrectly changed" $NOTIFY < $MESSAGE_FILE
+ exit 0
+ fi
+fi
+
+# Check to see if $LOCAL_PASSWD, $MASTER_PASSWD or $EXCLUDED_PASSWD is newer
+# than $PASSWD. If so, combine $LOCAL_PASSWD and $MASTER_PASSWD (excluding
+# entries from $EXCLUDED_PASSWD) to form new $PASSWD
+if [[ $FORCE = "True" ||
+ $LOCAL_PASSWD -nt $PASSWD ||
+ $MASTER_PASSWD -nt $PASSWD ||
+ $MASTER_PASSWD_MLL -nt $PASSWD ||
+ $EXCLUDED_PASSWD -nt $PASSWD ]]; then
+
+ # If only the $MASTER_PASSWD changed then make a note not to send email
+ if [[ $LOCAL_PASSWD -nt $PASSWD ||
+ $EXCLUDED_PASSWD -nt $PASSWD ]]; then
+ NOTIFY_OF_CHANGE=True
+ else
+ NOTIFY_OF_CHANGE=False
+ fi
+
+ # Save an old copy around
+ cp $PASSWD $PASSWD_OLD
+
+ # Check root entry in $LOCAL_PASSWD
+ if grep -v "^#" $LOCAL_PASSWD | head -n 1 | grep "^root:" > /dev/null; then
+ # 1st entry root OKAY in $LOCAL_PASSWD
+ :
+ else
+ # 1st entry NOT root in passwd.loc
+ cat > $MESSAGE_FILE <<!EOM
+The first entry of $LOCAL_PASSWD on `uname -n` should be for root.
+Please correct this problem.
+
+For more information see:
+
+http://cllweb/productivity/SysaAdmin/Passwords.html#root
+
+!EOM
+ mailx -s "mkpass: Missing first root in $LOCAL_PASSWD" $NOTIFY < $MESSAGE_FILE
+ rm -f $TMP_PASSWD
+ exit 0
+ fi
+
+ # Make new $PASSWD
+ rm -f $TMP_PASSWD2
+
+ # MLL gives us a passwd file that does not qualify the machine name portion
+ # of the home directory. This code fixes that up and also adds "_MoA" to the
+ # geos field.
+ #
+ # Some engineers also use a local copy of tcsh, therefore we must also check
+ # shell and add on .che.hp.com to the shell path.
+ IFS=:
+ while read user pass uid gid geos home shell; do
+ first_component_home=$(print $home | cut -f2 -d/)
+ machine_component_home=$(print $home | cut -f3 -d/)
+ rest_home=$(print $home | cut -f4- -d/)
+ home=/$first_component_home/$machine_component_home.che.hp.com/$rest_home
+ first_component_shell=$(print $shell | cut -f2 -d/)
+ machine_component_shell=$(print $shell | cut -f3 -d/)
+ rest_shell=$(print $shell | cut -f4- -d/)
+ if [ $first_component_shell = "net" ]; then
+ shell=\
+/$first_component_shell/$machine_component_shell.che.hp.com/$rest_shell
+ fi
+ print "$user:$pass:$uid:$gid:$geos,_MoA_:$home:$shell" >> $TMP_PASSWD2
+ done < $MASTER_PASSWD_MLL
+
+ cat $LOCAL_PASSWD $MASTER_PASSWD $TMP_PASSWD2 > $TMP_PASSWD
+
+ # Do exclusion
+ grep -v "^#" $EXCLUDED_PASSWD |\
+ grep -vf $EXCLUDED_PASSWD $TMP_PASSWD > $TMP_PASSWD2
+
+ # Transform password file to 10.0 format
+ if [ $OS = "10" ]; then
+ sed -e 's/:\/nfs/:\/net/' -e 's/:\/bin/:\/usr\/bin/' \
+ $TMP_PASSWD2 > $TMP_PASSWD
+ rm -f $TMP_PASSWD2
+ else
+ mv $TMP_PASSWD2 $TMP_PASSWD
+ fi
+
+ if [ -s $TMP_PASSWD ]; then
+ mv $TMP_PASSWD $PASSWD
+ chmod 444 $PASSWD
+ else
+ rm -f $TMP_PASSWD
+ mailx -s "mkpass: Error: Zero length passwd file resulted!" $NOTIFY <<!EOM
+For some reason mkpass resulted in a zero length passwd file. Please
+investigate this.
+!EOM
+ fi
+
+ if [[ $NOTIFY_OF_CHANGE = "True" ]]; then
+ # Notify... (This could be improved by implementing a logging facility
+ # instead of tons of email).
+ cat > $MESSAGE_FILE <<!EOM
+MoA has updated the $PASSWD file on `uname -n`. Here were the differences
+before the update occured. Unless you feel that these updates were made
+incorrectly you can probably safely ignore this message.
+
+(< = /etc/passwd > = /etc/passwd.old)
+-----------------------------------------------------------------------------
+!EOM
+ diff $PASSWD $PASSWD_OLD >> $MESSAGE_FILE
+ mailx -s "mkpass: Made new $PASSWD" $NOTIFY < $MESSAGE_FILE
+ fi
+fi
+
+# Update marker file
+touch -ma $MARKER_FILE
+
+# Update log file
+echo "$PASSWD on `uname -n` is up to date as of `date`" > $MESSAGE_FILE
+
+exit 0
--- /dev/null
+#!/bin/ksh
+# usage: mkpty -n number [-d dir] [ -m mastermajor ]
+
+# Algorithm:
+# For master side, the files have a ptym/pty prefix.
+# For slave side, the files have a pty/tty prefix.
+# The suffix naming convention is:
+# First 400: pty[p-za-ce-o]<hex_digit>
+# Next 2500: pty[p-za-ce-o]<digit><digit>
+# Last 25000: pty[p-za-ce-o]<digit><digit><digit>
+
+export OS=$(/bin/uname -r | /usr/bin/cut -f2 -d.)
+
+if [ "$OS" = "10" ]; then
+ mknod=/sbin/mknod
+else
+ mknod=/etc/mknod
+fi
+
+function makepty {
+ [[ -c $1 ]] && return 0
+ $mknod $1 c $2 $3
+ chmod 666 $1 && chown bin:bin $1
+}
+
+typeset -i major=16 slave
+typeset -i npty=0 minor=0 j k
+typeset -Z2 n2
+typeset -Z3 n3
+typeset -l prefix[25] hex[16]
+
+set -A prefix p q r s t u v w x y z a b c e f g h i j k l m n o
+set -A hex 0 1 2 3 4 5 6 7 8 9 a b c d e f
+
+dir=/dev
+
+while getopts :n:Dd:m: c; do
+ case $c in
+ n) npty=$OPTARG;;
+ d) dir=$OPTARG;;
+ m) major=$OPTARG;;
+ D) set -x;;
+ :) print -u2 $OPTARG requires a value; exit 1;;
+ *) print -u2 Invalid argument $OPTARG; exit 1;;
+ esac
+done
+
+shift OPTIND-1;
+
+if [[ $# -ne 0 ]]; then
+ print -u2 "Usage: $0 -n number [-d dir] [-m mastermajor]"
+ exit 1;
+fi
+
+slave=major+1
+cd ${dir}
+
+mkdir -p pty ptym
+
+j=0;k=0
+while (( j < 25 && npty>0 )); do
+ name=${prefix[j]}${hex[k]}
+ makepty ptym/pty${name} ${major} ${minor}
+ makepty pty/tty${name} ${slave} ${minor}
+ if (( j<3 )); then
+ rm -f pty${name} && ln ptym/pty${name} pty${name}
+ rm -f tty${name} && ln pty/tty${name} tty${name}
+ fi
+ npty=npty-1
+ (( (k=k+1) >= 16 )) && k=0 && j=j+1
+ minor=minor+1
+done
+
+j=0;k=0
+while (( j < 25 && npty>0 )); do
+ n2=$k
+ name=${prefix[j]}${n2}
+ makepty ptym/pty${name} ${major} ${minor}
+ makepty pty/tty${name} ${slave} ${minor}
+ npty=npty-1
+ (( (k=k+1) >= 100 )) && k=0 && j=j+1
+ minor=minor+1
+done
+
+j=0;k=0
+while (( j < 25 && npty>0 )); do
+ n3=$k
+ name=${prefix[j]}${n3}
+ makepty ptym/pty${name} ${major} ${minor}
+ makepty pty/tty${name} ${slave} ${minor}
+ npty=npty-1
+ (( (k=k+1) >= 1000 )) && k=0 && j=j+1
+ minor=minor+1
+done
+
+if hp9000s700; then
+:
+elif hp9000s800; then
+ mknod ptym/clone c ${major} 0xffffff
+ chmod 666 ptym/clone
+ chown bin:bin ptym/clone
+fi
--- /dev/null
+#!/bin/ksh
+################################################################################
+#
+# File: monitor_taskbroker
+# Description: Quick script to monitor the taskbroker/build pool
+# Author: Andrew DeFaria (defaria@cup.hp.com)
+# Language: Korn Shell
+# Modified::
+#
+# (c) Copyright 2001, Andrew@DeFaria.com, all rights reserved
+#
+################################################################################
+me=$(basename $0)
+
+integer day_of_week=$(date +%w)
+integer sleep_time=5*60
+
+talktotaskbroker=/usr/eclipse/etc/talktotaskbroker
+logfile=/tmp/taskbroker$day_of_week.log
+
+function get_status {
+ print "At $(date)"
+ $talktotaskbroker mstatus
+} # get_status
+
+rm -f $logfile
+
+print "$me started"
+while true; do
+ if [ $day_of_week -ne $(date +%w) ]; then
+ day_of_week=$(date +%w)
+ logfile_old=$logfile
+ logfile=/tmp/taskbroker$day_of_week.log
+ print "Continuing in $logfile..." >> $logfile_old
+ fi
+
+ get_status >> $logfile
+ sleep $sleep_time
+done &
--- /dev/null
+#!/bin/ksh
+################################################################################
+#
+# File: unmount_nfs
+# RCS: $Header:$
+# Description: A script to unmount all nfs mounts. Note if the automounter is
+# running then this script will first shutdown the automounter.
+# This script returns 0 for success or non zero if it was unable
+# to umount all nfs mounts. This script must run as root.
+# Author: Andrew DeFaria, California Language Labs
+# Created: Fri Jun 6 10:31:51 PDT 1997
+# Modified:
+# Language: Korn Shell
+#
+# (c) Copyright 2001, Andrew@DeFaria.com, all rights reserved
+#
+################################################################################
+export me=`basename $0`
+export OS=$(/bin/uname -r | /usr/bin/cut -f2 -d.)
+
+if [ $(id -u) -ne 0 ]; then
+ print -u2 "$me: Error: You must be root to use this command"
+ exit 1
+fi
+
+# First try to mount any nfs mounts listed in /etc/checklist
+print "Re-establishing all static NFS mounts..."
+if [ "$OS" = "10" ]; then
+ /usr/sbin/mount -aQF nfs
+else
+ /etc/mount -at nfs
+fi
+
+# Restart automounter if necessary
+if [ -f /etc/automounter_was_here ]; then
+ print "Restarting automounter..."
+ if [ "$OS" = "10" ]; then
+ /usr/sbin/automount -f /etc/auto_master
+ else
+ /usr/etc/automount -f /etc/auto_master
+ fi
+ rm -f /etc/automounter_was_here
+fi
--- /dev/null
+#!/bin/ksh
+################################################################################
+#
+# File: mount_project_lvm
+# Description: This script will mount all project's logical volumes
+# Author: Andrew DeFaria (defaria@cup.hp.com)
+# Language: Korn Shell
+# Modifications:
+#
+# (c) Copyright 2001, Andrew@DeFaria.com, all rights reserved
+#
+################################################################################
+me=$(basename $0)
+if [ $(id -u) -ne 0 ]; then
+ print -u2 "$me: Error: You must be root to execute this command!"
+ exit 1
+fi
+
+if [ $# -ne 2 ]; then
+ print -u2 "Usage: $me projectID fileserver"
+ exit 1
+fi
+
+projectID=$1
+fileserver=$2
+
+print Mounting $projectID LVMs on $fileserver and build servers...
+/app/admin/bin/buildservers "/app/admin/bin/mountlvm $projectID $fileserver"
+
+print Mounting $projectID and $fileserver on virtual workstations...
+/app/admin/bin/wrkservers "/app/admin/bin/mountlvm $projectID $fileserver"
--- /dev/null
+#!/bin/ksh
+################################################################################
+#
+# File: mountlvm
+# Description: This script will mount a project's logical volumes
+# Author: Andrew DeFaria (defaria@cup.hp.com)
+# Language: Korn Shell
+# Modifications:
+#
+# (c) Copyright 2001, Andrew@DeFaria.com, all rights reserved
+#
+################################################################################
+me=$(basename $0)
+if [ $(id -u) -ne 0 ]; then
+ print -u2 "$me: Error: You must be root to execute this command!"
+ exit 1
+fi
+
+if [ $# -ne 2 ]; then
+ print -u2 "Usage: $me projectID fileserver"
+ exit 1
+fi
+
+projectID=$1
+fileserver=$2
+
+function create_dir_and_mount {
+ machine=$1
+ mount_directory=$2
+ mount_over_directory=/tmp_mnt/net/$machine$2
+ if [ ! -d $mount_over_directory ]; then
+ print Making $mount_over_directory
+ mkdir -p $mount_over_directory
+ fi
+
+ if [ ! -d $mount_over_directory/lost+found ]; then
+ print Mounting $machine:$mount_directory to $mount_over_directory
+ /usr/sbin/mount $machine:$mount_directory $mount_over_directory
+ fi
+} # create_dir_and_mount
+
+function kick_automounter {
+ automount_pid=$(/app/sj automount | awk '{print $2}')
+
+ print Kicking automounter \($automount_pid\)
+ kill -HUP $automount_pid
+} # kick_automounter
+
+create_dir_and_mount cllvu01 /CLO/Storage/Views/$projectID
+create_dir_and_mount cllvu02 /CLO/Storage/Views/$projectID
+create_dir_and_mount cllvu03 /CLO/Storage/Views/$projectID
+create_dir_and_mount $fileserver /data/proj/$projectID
+
+kick_automounter
--- /dev/null
+#!/bin/ksh
+###############################################################################
+# This script sets a machine up to be an NIS client.
+# Kevin Lister 10.28.98
+###############################################################################
+
+# Variables
+logfile=/nisclient.log
+me=${0##*/}
+
+admin=cll-support@cup.hp.com
+nisdomain=cll
+domainname=
+namesvrs=/etc/rc.config.d/namesvrs
+nsswitch=/etc/nsswitch.conf
+pwfile=/etc/passwd
+lclpwfile=/etc/passwd.loc
+nispwfile=/etc/passwd.nis
+crontab=/var/spool/cron/crontabs/root
+newcrontab=/tmp/root-crontab
+null=/dev/null
+ypdir=/var/yp
+
+# Functions
+function error {
+ print -u2 "$me: Error: $1"
+ /usr/bin/mailx -s "$(uname -n): NIS setup error: $1" $admin < $null
+ #exit 255;
+} # error
+
+function warning {
+ print -u2 "$me: Warning: $1"
+} # warning
+
+function display {
+ print "$1"
+} # display
+
+function info {
+ display "$me: Info: $1"
+} # info
+
+##
+########## Main
+##
+
+##
+########## Check the status of the system before proceeding
+##
+
+# Must be root to run this
+if [ $(id -u) -ne 0 ]; then
+ error "Must be root to execute this command... Exiting."
+fi
+
+# Check to see if this script has already been ran
+if [ -a $logfile ]; then
+ error "$me has already been ran on $(uname -n)... Exiting"
+fi
+
+# Check to see if domainname has been set
+domainname=`/bin/domainname`
+if [ "_$domainname" != "_" ]; then
+ error "NIS Domain name is already set to -> $domainname... Exiting."
+fi
+
+# Are we already running NIS?
+/usr/bin/ypwhich >> $logfile 2>&1
+if [ $? -eq 0 ]; then
+ error "This system is already running NIS... Exiting."
+fi
+
+# Check to see if there is a name service switch config file
+if [ -a $nsswitch ]; then
+ error "This system has a name service switch config file... Exiting."
+fi
+
+# Check to see if /var/yp exists
+if [ ! -a $ypdir ]; then
+ error "Directory /var/yp does not exist... Exiting"
+fi
+
+##
+########## System checks out. Set up the files and start NIS.
+##
+
+# Set the NIS domain name - This is probably not needed
+/bin/domainname $nisdomain >> $logfile 2>&1
+if [ $? -ne 0 ]; then
+ error "Could not set NIS domain name... Exiting."
+fi
+
+# Setup the /etc/rc.config.d/namesvrs file
+/usr/sbin/ch_rc -ap NIS_CLIENT=1 \
+ -p NIS_DOMAIN=cll \
+ -p YPBIND_OPTIONS="-ypsetme"
+
+# Email us if there are local passwd entries other than root
+if [ $( /bin/wc -l $lclpwfile | /bin/cut -d " " -f 1) != "1" ]; then
+ /usr/bin/mailx -s "$(uname -n): passwd.loc has more than 1 line" $admin < $lclpwfile
+fi
+
+# Create NIS passwd file
+if [ -a $lclpwfile ]; then
+ /bin/grep "^root" $lclpwfile > $nispwfile
+else
+ /bin/grep "^root" $pwfile > $nispwfile
+fi
+
+/bin/cat >> $nispwfile <<:END
+adm:*:4:4::/usr/adm:/usr/bin/sh
+anon:*:21:5:placeholder for future:/:/usr/bin/sync
+bin:*:2:2::/usr/bin:/bin/sh
+daemon:*:1:5::/:/usr/bin/sh
+ftp:*:500:10:anonymous ftp:/home/ftp:/usr/bin/false
+lp:*:9:7:[Line Printer]:/usr/spool/lp:/usr/bin/sh
+nuucp:*:6:1:0000-uucp(0000):/usr/spool/uucppublic:/usr/lib/uucp/uucico
+sync:*:20:1::/:/usr/bin/sync
+tftp:*:510:1:Trivial FTP user:/usr/tftpdir:/usr/bin/false
+uucp:*:5:3::/usr/spool/uucppublic:/usr/lib/uucp/uucico
+who:*:90:1::/:/usr/bin/who
+:END
+
+/bin/grep -v "^root" $lclpwfile >> $nispwfile
+
+/bin/cat >> $nispwfile <<:END2
+-@dangerous-users
++@sysadmin
++@site-ux
++:
+:END2
+
+mv $pwfile $pwfile.preNIS
+mv $nispwfile $pwfile
+chmod 444 $pwfile
+chown root:other $pwfile
+
+# Remove MoA from the root crontab
+sed -e "/MoA/d" -e "/mkpass/d" < $crontab > $newcrontab
+mv $crontab $crontab-preNIS
+/usr/bin/crontab $newcrontab
+chmod 444 $crontab
+chown root:other $crontab
+
+# Start the NIS Client daemons
+/sbin/init.d/nis.client start >> $logfile 2>&1
+if [ $? -ne 0 ]; then
+ error "Problem starting the NIS client daemons... Exiting."
+fi
+
+# Email us that a machine was updated
+/usr/bin/mailx -s "$(uname -n): NIS setup complete" $admin < $null
--- /dev/null
+#!/bin/ksh
+###############################################################################
+# This script sets a machine up to be an NIS client.
+# Kevin Lister 10.28.98
+
+###############################################################################
+# Variables
+logfile=/nisclient.log
+me=${0##*/}
+
+admin=cll-support@cup.hp.com
+nisdomain=cll
+domainname=
+netnfsrc=/etc/netnfsrc
+nsswitch=/etc/nsswitch.conf
+pwfile=/etc/passwd
+lclpwfile=/etc/passwd.loc
+nispwfile=/etc/passwd.nis
+crontab=/usr/spool/cron/crontabs/root
+newcrontab=/tmp/root-crontab
+null=/dev/null
+ypdir=/usr/etc/yp
+
+# Functions
+function error {
+ print -u2 "$me: Error: $1"
+ /usr/bin/mailx -s "$(uname -n): NIS setup error: $1" $admin < $null
+ exit 255;
+} # error
+
+function warning {
+ print -u2 "$me: Warning: $1"
+} # warning
+
+function display {
+ print "$1"
+} # display
+
+function info {
+ display "$me: Info: $1"
+} # info
+
+##
+########## Main
+##
+
+##
+########## Check the status of the system before proceeding
+##
+
+# Must be root to run this
+if [ $(id -u) -ne 0 ]; then
+ error "Must be root to execute this command... Exiting."
+fi
+
+# Check to see if this script has already been ran
+if [ -a $logfile ]; then
+ error "$me has already been ran on $(uname -n)... Exiting"
+fi
+
+# Check to see if domainname has been set
+domainname=`/bin/domainname`
+if [ "_$domainname" != "_" ]; then
+ error "NIS Domain name is already set to -> $domainname... Exiting."
+fi
+
+# Are we already running NIS?
+/usr/bin/ypwhich >> $logfile 2>&1
+if [ $? -eq 0 ]; then
+ error "This system is already running NIS... Exiting."
+fi
+
+# Check to see if there is a name service switch config file
+if [ -a $nsswitch ]; then
+ error "This system has a name service switch config file...
+Exiting."
+fi
+
+# Check to see if /etc/yp exists
+if [ ! -a $ypdir ]; then
+ error "Directory /etc/yp does not exist... Exiting"
+fi
+
+##
+########## System checks out. Set up the files and start NIS.
+##
+
+# Set the NIS domain name - This is probably not needed
+/bin/domainname $nisdomain >> $logfile 2>&1
+if [ $? -ne 0 ]; then
+ error "Could not set NIS domain name... Exiting."
+fi
+
+# Setup the /etc/netnfsrc file
+mv $netnfsrc $netnfsrc.preNIS
+cp $netnfsrc.preNIS $netnfsrc
+sed -e "s/^NIS_CLIENT=0/NIS_CLIENT=1/" \
+ -e "s/^NISDOMAIN=/NISDOMAIN=cll/" \
+ < $netnfsrc > $netnfsrc-tmp
+mv $netnfsrc-tmp $netnfsrc
+chmod 544 $netnfsrc
+chown bin:bin $netnfsrc
+
+# Email us if there are local passwd entries other than root
+if [ $( /bin/wc -l $lclpwfile | /usr/bin/cut -d " " -f 1) != "1" ]; then
+ /usr/bin/mailx -s "$(uname -n): passwd.loc has more than 1 line"
+$admin < $lclpwfile
+fi
+
+# Create NIS passwd file
+if [ -a $lclpwfile ]; then
+ /bin/grep "^root" $lclpwfile > $nispwfile
+else
+ /bin/grep "^root" $pwfile > $nispwfile
+fi
+
+/bin/cat >> $nispwfile <<:END
+adm:*:4:4:,_MoA_:/usr/adm:/bin/sh
+anon:*:21:5:placeholder for future,_MoA_:/:/bin/sync
+bin:*:2:2:,_MoA_:/bin:/bin/sh
+daemon:*:1:5:,_MoA_:/:/bin/sh
+ftp:*:24:5:Anonymous &,,,_LcL_:/home/ftp:/bin/sync
+ftp:*:500:10:anonymous ftp,_MoA_:/home/ftp:/bin/false
+lp:*:9:7:[Line Printer],,,,_MoA_:/usr/spool/lp:/bin/sh
+nuucp:*:6:1:0000-uucp(0000),_MoA_:/usr/spool/uucppublic:/usr/lib/uucp/uucico
+sync:*:20:1:,_MoA_:/:/bin/sync
+tftp:*:510:1:Trivial FTP user,_MoA_:/usr/tftpdir:/bin/false
+uucp:*:5:3:,_MoA_:/usr/spool/uucppublic:/usr/lib/uucp/uucico
+who:*:90:1:,_MoA_:/:/bin/who
+:END
+
+/bin/grep -v "^root" $lclpwfile >> $nispwfile
+
+/bin/cat >> $nispwfile <<:END2
+-@dangerous-users
++@sysadmin
++@site-ux
++:
+:END2
+
+mv $pwfile $pwfile.preNIS
+mv $nispwfile $pwfile
+chmod 444 $pwfile
+chown root:other $pwfile
+
+# Remove MoA from the root crontab
+sed -e "/MoA/d" -e "/mkpass/d" < $crontab > $newcrontab
+mv $crontab $crontab-preNIS
+/usr/bin/crontab $newcrontab
+chmod 444 $crontab
+chown root:other $crontab
+
+# Start the NIS Client daemons
+/etc/ypbind -ypset >> $logfile 2>&1
+sleep 10
+/usr/bin/ypwhich >> $logfile 2>&1
+if [ $? -ne 0 ]; then
+ error "Problem starting the NIS client daemons... Exiting."
+fi
+
+# Create /net symlink if automounter is NOT running
+/bin/ps -ef | /bin/grep automount | /bin/grep -v grep >> $logfile 2>&1
+if [ $? -ne 0 ]; then
+ /bin/ln -s /nfs /net >> $logfile 2>&1
+fi
+
+# Create symlinks to shells so new passwd file doesn't blow up
+/bin/ln -s /bin/sh /usr/bin/sh
+/bin/ln -s /bin/csh /usr/bin/csh
+/bin/ln -s /bin/ksh /usr/bin/ksh
+
+# Create symlinks to ypdir, not required, just friendlier
+/bin/ln -s /usr/etc/yp /var/yp
+
+# Email us that a machine was updated
+/usr/bin/mailx -s "$(uname -n): NIS setup complete" $admin < $null
--- /dev/null
+#!/bin/ksh
+###############################################################################
+# This script sets a machine up to be an NIS client.
+# Kevin Lister 10.28.98
+###############################################################################
+# Variables
+logfile=/nisclient.log
+me=${0##*/}
+
+admin=adl-support@cup.hp.com
+nisdomain=adl
+domainname=
+namesvrs=/etc/rc.config.d/namesvrs
+nsswitch=/etc/nsswitch.conf
+pwfile=/etc/passwd
+lclpwfile=/etc/passwd.loc
+nispwfile=/etc/passwd-nis
+grpfile=/etc/group
+nisgrpfile=/etc/group-nis
+crontab=/var/spool/cron/crontabs/root
+newcrontab=/tmp/root-crontab
+null=/dev/null
+ypdir=/var/yp
+
+# Functions
+function error {
+ print -u2 "$me: Error: $1"
+ /usr/bin/mailx -s "$(uname -n): NIS setup error: $1" $admin < $null
+ exit 255;
+} # error
+
+function warning {
+ print -u2 "$me: Warning: $1"
+} # warning
+
+function display {
+ print "$1"
+} # display
+
+function info {
+ display "$me: Info: $1"
+} # info
+
+##
+########## Main
+##
+
+##
+########## Check the status of the system before proceeding
+##
+
+# Must be root to run this
+if [ $(id -u) -ne 0 ]; then
+ error "Must be root to execute this command... Exiting."
+fi
+
+# Check to see if this script has already been ran
+if [ -a $logfile ]; then
+ error "$me has already been ran on $(uname -n)... Exiting"
+fi
+
+# Check to see if domainname has been set
+domainname=`/bin/domainname`
+if [ "_$domainname" != "_" ]; then
+ error "NIS Domain name is already set to -> $domainname... Exiting."
+fi
+
+# Are we already running NIS?
+/usr/bin/ypwhich >> $logfile 2>&1
+if [ $? -eq 0 ]; then
+ error "This system is already running NIS... Exiting."
+fi
+
+# Check to see if there is a name service switch config file
+if [ -a $nsswitch ]; then
+ error "This system has a name service switch config file...
+Exiting."
+fi
+
+# Check to see if /var/yp exists
+if [ ! -a $ypdir ]; then
+ error "Directory /var/yp does not exist... Exiting"
+fi
+
+##
+########## System checks out. Set up the files and start NIS.
+##
+
+# Set the NIS domain name - This is probably not needed
+/bin/domainname $nisdomain >> $logfile 2>&1
+if [ $? -ne 0 ]; then
+ error "Could not set NIS domain name... Exiting."
+fi
+
+# Setup the /etc/rc.config.d/namesvrs file
+/usr/sbin/ch_rc -ap NIS_CLIENT=1 \
+ -p NIS_DOMAIN=adl \
+ -p WAIT_FOR_NIS_SERVER=FALSE
+
+# Email us if there are local passwd entries other than root
+if [ $( /bin/wc -l $lclpwfile | /bin/cut -d " " -f 1) != "1" ]; then
+ /usr/bin/mailx -s "$(uname -n): passwd.loc has more than 1 line"
+$admin < $lclpwfile
+fi
+
+# Create NIS passwd file
+if [ -a $lclpwfile ]; then
+ /bin/grep "^root" $lclpwfile > $nispwfile
+else
+ /bin/grep "^root" $pwfile > $nispwfile
+fi
+
+/bin/cat >> $nispwfile <<:END
+adm:*:4:4::/usr/adm:/usr/bin/sh
+anon:*:21:5:placeholder for future:/:/usr/bin/sync
+bin:*:2:2::/usr/bin:/bin/sh
+daemon:*:1:5::/:/usr/bin/sh
+ftp:*:500:10:anonymous ftp:/home/ftp:/usr/bin/false
+lp:*:9:7:[Line Printer]:/usr/spool/lp:/usr/bin/sh
+nuucp:*:6:1:0000-uucp(0000):/usr/spool/uucppublic:/usr/lib/uucp/uucico
+sync:*:20:1::/:/usr/bin/sync
+tftp:*:510:1:Trivial FTP user:/usr/tftpdir:/usr/bin/false
+uucp:*:5:3::/usr/spool/uucppublic:/usr/lib/uucp/uucico
+who:*:90:1::/:/usr/bin/who
+:END
+
+/bin/grep -v "^root" $lclpwfile >> $nispwfile
+
+/bin/cat >> $nispwfile <<:END2
+-@dangerous-users
++@sysadmin
++@site-ux
++:
+:END2
+
+mv $pwfile $pwfile.preNIS
+mv $nispwfile $pwfile
+chmod 444 $pwfile
+chown root:other $pwfile
+
+/bin/cat >> $nisgrpfile <<:GRPEND
+root:*:0:root
+other:*:1:root,hpdb
+bin:*:2:root,bin
+sys:*:3:root,uucp
+adm:*:4:root,adm
+daemon:*:5:root,daemon
+mail:*:6:root
+lp::7:root,lp
+nogroup:*:-2:
++:
+:GRPEND
+
+mv $grpfile $grpfile-preNIS
+mv $nisgrpfile $grpfile
+chmod 444 $grpfile
+chown bin:bin $grpfile
+
+# Start the NIS Client daemons
+/sbin/init.d/nis.client start >> $logfile 2>&1
+if [ $? -ne 0 ]; then
+ error "Problem starting the NIS client daemons... Exiting."
+fi
+
+# Email us that a machine was updated
+/usr/bin/mailx -s "$(uname -n): NIS setup complete" $admin < $null
--- /dev/null
+#!/usr/bin/ksh
+################################################################################
+#
+# File: pdl-config
+# Description: ADL system configuration script
+# To run this script you must have the pdl-config.src parameter
+# file located in root. It is important that the source parameter
+# file be read and understood before running the script.
+# See below for useful comments.
+# Author: Kevin Lister - kel@cup.hp.com
+# Date 3.11.99
+# Language: Korn Shell
+#
+# (c) Copyright 1991, Hewlett-Packard Company, all rights reserved.
+#
+# Revision History
+# 3.25.99 kel Changed the name of the Clearcase install script in shell
+# archive, so it had to be changed here as well. Added an
+# eclipse install script to the shell archive, so a line to
+# to remove it if Clearcase is not installed had to be added
+# here as well.
+# 4.1.99 kel Added code to determine if the installed system is going to have
+# a graphics console. If yes, then the /etc/dt/config/Xservers
+# file needs to have the console server line uncommented.
+# Also added absolute paths to the unix commands.
+# 6.22.99 kel Added "bufpages 0" to the kernel config function. This is
+# required if dynamic buffer cache sizes are being used.
+#
+################################################################################
+# Useful (hopefully) Comments Section
+#
+# This script will configure a system to operate nicely in the ADL
+# infrastructure. This script requires the pdl-config.src file in order to
+# run. The pdl-config.src file contains variables that determine exactly
+# what type of optional software to install, which patch bundle to install,
+# configures various system files, etc.
+#
+# Here is a brief description of what this script will do:
+#
+# 1) Check that the script is run as root
+# 2) Check that the architecture is correct. The script will run on most
+# hardware. The architecture is really only important when trying to
+# determine which 100Mbit drivers to install.
+# 3) Sources the input parameter source file.
+# 4) Determine if script is run intereactive or not.
+# 5) Determine if 100Mbit drivers are to be installed
+# 6) If intereactive, greet the user and display the parameter settings.
+# 7) Modify the kernel system file located in /stand/system
+# 8) Download the shell archive file from the anonymous ftp server and unpack.
+# The shell archive contains many files and symlinks and will not be
+# listed here. See the README in the ahell archive build area and the shell
+# archive itself for more details. One can also look through the "root"
+# directory that is used to build the archive to see which files and
+# symlinks are included.
+# 9) Modify the /etc/rc.config.d files. (turn off unused stuff)
+# 10) Modify the /etc/issue, /etc/gettydefs and /etc/motd files.
+# 11) Modify miscellaneous files.
+# 12) Perform miscellaneous setup procedures:
+# a) Run /net/bismol/App/admin/bin/setup
+# b) Run /usr/local/bin/ninstall -h bismol lp adm net3
+# c) Run /usr/adm/netdist/netdaemon.dy
+# d) Run /usr/sbin/catman -w
+# 13) Set the system up for ClearCase installation upon automatic reboot.
+# 14) Install optional software and patches from the specified depot server.
+#
+# END of Useful Comments Section
+################################################################################
+#
+##
+### Variables
+##
+#
+
+SRC_FILE=/pdl-config.src
+
+BASE=${0##*/}
+HOST=`/bin/uname -n`
+ARCH=`/bin/uname -m`
+OS=`/bin/uname -r | /usr/bin/cut -c 3-4`
+integer INDEX=0
+
+#
+##
+### Functions
+##
+#
+
+function error {
+ print -u2 "\t$BASE: Error: $1"
+}
+
+function warning {
+ print -u2 "\t$BASE: Warning: $1"
+}
+
+function display {
+ print "\t$1"
+}
+
+function usage {
+ display "\t$BASE [-usage]"
+ display " -usage: Print this usage message"
+ display " "
+ error "$1"
+ exit 1
+}
+
+function step {
+ let INDEX=INDEX+1
+ display "\tStep #$INDEX: $@"
+}
+
+function get_shar {
+step "Get shell archive from ftp server and unpack"
+ cd /
+ ftp -n $FTP_SERVER <<@EOD
+user $FTP_USER $FTP_PASSWD
+cd $SHAR_DIR
+get $SHAR_FILE
+quit
+@EOD
+if [ $? -ne 0 ]; then
+ error "Unable to ftp $SHAR_FILE from $FTP_SERVER"
+ exit 1
+fi
+sh $SHAR_FILE >> $LOGFILE 2>&1
+if [ $? -ne 0 ]; then
+ error "Cannot unpack shell archive."
+ exit 1
+fi
+/bin/rm -f $SHAR_FILE
+}
+
+function clearcase_setup {
+ if [ "$CLEARCASE" = "no" ]; then
+ /bin/rm -f /sbin/rc3.d/S998install_clearcase
+ /bin/rm -f /sbin/rc3.d/S999install_eclipse
+ fi
+}
+
+function chk_uid {
+ if [ $(id -u) -ne 0 ]; then
+ error "Must be root to execute this command... Exiting!"
+ exit 1
+ fi
+}
+
+function chk_arch {
+ case $ARCH in
+ 9000/7[1-3]*|9000/755|9000/7[7-8]*|9000/8**)
+ continue
+ ;;
+
+ *)
+ warning "\tUnknown machine type $ARCH, Exiting!"
+ exit 1
+ ;;
+ esac
+}
+
+function read_src {
+ if [ -a $SRC_FILE ]; then
+ . $SRC_FILE
+ case "$CLEARCASE" in
+ y|Y|yes|YES|Yes|1)
+ CLEARCASE=yes
+ ;;
+ *)
+ CLEARCASE=no
+ ;;
+ esac
+ case "$SWINSTALL" in
+ y|Y|yes|YES|Yes|1)
+ SWINSTALL=yes
+ ;;
+ *)
+ SWINSTALL=no
+ ;;
+ esac
+ else
+ error "Source file does not exist!"
+ exit 1
+ fi
+}
+
+function set_mode {
+ case "$INTERACTIVE" in
+ y|Y|yes|YES|Yes|1)
+ INTERACTIVE=yes
+ ;;
+ *)
+ INTERACTIVE=no
+ ;;
+ esac
+}
+
+function fast_enet {
+ if [ "_$ENET_DRVRS" = "_" ]; then
+ FAST_ENET=no
+ else
+ FAST_ENET=yes
+ fi
+}
+
+function mod_kernel {
+ step "Modify /stand/system file."
+ grep -v -E 'maxswapchunks|default_disk_ir|nstrpty' /stand/system \
+ > /stand/system.new
+ /bin/mv /stand/system /stand/system.orig
+ /bin/mv /stand/system.new /stand/system
+
+ case $ARCH in
+ 9000/7[1-5]*)
+ echo "bufpages 0" >> /stand/system
+ echo "create_fastlinks 1" >> /stand/system
+ echo "dbc_max_pct 25" >> /stand/system
+ echo "default_disk_ir 1" >> /stand/system
+ echo "fs_async 1" >> /stand/system
+ echo "maxdsiz (256*1024*1024)" >> /stand/system
+ echo "maxfiles 256" >> /stand/system
+ echo "maxfiles_lim 2048" >> /stand/system
+ echo "maxssiz (80*1024*1024)" >> /stand/system
+ echo "maxswapchunks 4096" >> /stand/system
+ echo "maxuprc 500" >> /stand/system
+ echo "maxusers 150" >> /stand/system
+ echo "netmemmax 0" >> /stand/system
+ echo "nfile 7000" >> /stand/system
+ echo "nflocks 400" >> /stand/system
+ echo "ninode 20000" >> /stand/system
+ echo "nproc 1500" >> /stand/system
+ echo "npty 512" >> /stand/system
+ echo "nstrpty 512" >> /stand/system
+ echo "semmns 200" >> /stand/system
+ if [ "$OS" = "10" ]; then
+ echo "large_ncargs_enabled 1" >> /stand/system
+ fi
+ ;;
+
+ 9000/7[7-8]*|9000/8**)
+ echo "bufpages 0" >> /stand/system
+ echo "create_fastlinks 1" >> /stand/system
+ echo "dbc_max_pct 25" >> /stand/system
+ echo "default_disk_ir 1" >> /stand/system
+ echo "fs_async 1" >> /stand/system
+ echo "maxdsiz (512*1024*1024)" >> /stand/system
+ echo "maxfiles 256" >> /stand/system
+ echo "maxfiles_lim 2048" >> /stand/system
+ echo "maxssiz (80*1024*1024)" >> /stand/system
+ echo "maxswapchunks 4096" >> /stand/system
+ echo "maxuprc 1000" >> /stand/system
+ echo "maxusers 256" >> /stand/system
+ echo "netmemmax 0" >> /stand/system
+ echo "nfile 14000" >> /stand/system
+ echo "nflocks 800" >> /stand/system
+ echo "ninode 40000" >> /stand/system
+ echo "nproc 3000" >> /stand/system
+ echo "npty 512" >> /stand/system
+ echo "nstrpty 512" >> /stand/system
+ echo "semmns 400" >> /stand/system
+ if [ "$OS" = "10" ]; then
+ echo "large_ncargs_enabled 1" >> /stand/system
+ fi
+ ;;
+
+ *)
+ warning "Unknown machine model $ARCH!"
+ warning "Leaving kernel parameters as default"
+ /bin/mv /stand/system.orig /stand/system
+ ;;
+ esac
+} # mod_kernel
+
+function greet {
+ display "\tADL System Configuration script."
+ display
+ display "\tYou are about to install and modify various system files,"
+ display "\tinstall system patches, install optional software and,"
+ display "\tif you elected to do so, install ClearCase 3.2."
+ display
+ display "\tIf you wish to modify the parameters below exit the install"
+ display "\tand modify the parameters in the $SRC_FILE file."
+ display
+ display "\tMachine Name:\t\t\t$MACHINE_NAME"
+ display "\tMachine Usage:\t\t\t$MACHINE_USAGE"
+ display "\tMacine Location:\t\t$LOCATION"
+ display "\tOwner's Fullname:\t\t$OWNER_NAME"
+ display "\tOwner's Email:\t\t\t$OWNER_EMAIL"
+ display "\tOwner's Extension:\t\t$OWNER_EXTENSION"
+ display "\tInstall ClearCase?:\t\t$CLEARCASE"
+ display "\tInstall 100Mbit Drivers?:\t$FAST_ENET"
+ if [ "$SWINSTALL" = "yes" ]; then
+ display "\tThe following products will be installed from $DEPOT:"
+ display "\t$PRODUCTS"
+ display
+ else
+ display
+ fi
+ if [ "$INTERACTIVE" = "yes" ]; then
+ display "\tContinue installation with these parameters (Y|n)?\c"
+ display
+ answer=y
+ read answer
+ case "$answer" in
+ y|Y|yes|Yes|YES|"")
+ continue
+ ;;
+ *)
+ display
+ display "\tYou have chosen NOT to run the $BASE setup script...
+Exiting"
+ exit 1
+ ;;
+ esac
+ fi
+} # greet
+
+function mod_rc_files {
+ /usr/sbin/ch_rc -ap AUDIO_SERVER=0 >> $LOGFILE 2>&1
+ /usr/sbin/ch_rc -ap LIST_TEMPS=0 >> $LOGFILE 2>&1
+ /usr/sbin/ch_rc -ap CLEAR_TMP=1 >> $LOGFILE 2>&1
+ /usr/sbin/ch_rc -ap HPARRAY_START_STOP=0 >> $LOGFILE 2>&1
+ /usr/sbin/ch_rc -ap NIS_CLIENT=1 >> $LOGFILE 2>&1
+ /usr/sbin/ch_rc -ap NIS_DOMAIN=pdl >> $LOGFILE 2>&1
+ /usr/sbin/ch_rc -ap START_LLBD=0 >> $LOGFILE 2>&1
+ /usr/sbin/ch_rc -ap NTPDATE_SERVER=cupertino.ntp.hp.com >> $LOGFILE 2>&1
+ /usr/sbin/ch_rc -ap XNTPD=1 >> $LOGFILE 2>&1
+ /usr/sbin/ch_rc -ap NETTL=0 >> $LOGFILE 2>&1
+ /usr/sbin/ch_rc -ap NUM_NFSIOD=16 >> $LOGFILE 2>&1
+ /usr/sbin/ch_rc -ap VTDAEMON_START=0 >> $LOGFILE 2>&1
+ if [ "$OS" = "10" ]; then
+ /usr/sbin/ch_rc -ap WAIT_FOR_NIS_SERVER=FALSE >> $LOGFILE 2>&1
+ fi
+}
+
+function mod_etc_files {
+ step "/etc files setup"
+ print "+auto.master" > /etc/auto_master
+ /bin/chmod 644 /etc/auto_master
+ /bin/chown root:root /etc/auto_master
+
+ sed "s/GenericSysName/$MACHINE_NAME/" /etc/issue > /etc/issue-new
+ /bin/mv /etc/issue /etc/issue-orig
+ /bin/mv /etc/issue-new /etc/issue
+
+ sed "s/Console Login:/$MACHINE_NAME Console Login:/" /etc/gettydefs \
+ > /etc/gettydefs-new
+ /bin/mv /etc/gettydefs /etc/gettydefs-orig
+ /bin/mv /etc/gettydefs-new /etc/gettydefs
+
+ /bin/banner $MACHINE_NAME > /etc/motd
+ /bin/uname -a >> /etc/motd
+ cat >> /etc/motd <<:END
+
+*******************************************************************************
+* This is a private system operated for the Hewlett-Packard Company
+business. *
+* Authorization from HP management is required to use this system.
+*
+* Use by unauthorized persons is prohibited.
+*
+
+*******************************************************************************
+For System Support: Mon-Fri 8:00-5:00 Email (site-ux@cup.hp.com)
+Phone: t-447-1212 After hours/weekend Pre-arrange: t-447-0629
+
+-------------------------------------------------------------------------------
+Usage: $MACHINE_USAGE
+Owner: $OWNER_NAME ($OWNER_EMAIL) Phone: $OWNER_EXTENSION
+Location: $LOCATION
+
+-------------------------------------------------------------------------------
+:END
+
+ sed "s/Root user/Root\@$HOST/" /etc/passwd > /tmp/passwd-new
+ /bin/mv /tmp/passwd-new /etc/passwd
+} # mod_etc_files
+
+function mod_misc_files {
+ step "Miscellaneous file setup"
+ /bin/rm -f /var/adm/cron/at.allow
+ /bin/rm -f /var/adm/cron/cron.allow
+ /bin/chmod 644 /dev/lan*
+ case "$WORKSTATION" in
+ y|Y|yes|YES|Yes|1)
+ WORKSTATION=yes
+ ;;
+ *)
+ WORKSTATION=no
+ ;;
+ esac
+ if [ "$WORKSTATION" = "yes" ]; then
+ /bin/sed -e "s/# \*/ \*/" Xservers > /tmp/Xservers-new
+ /bin/mv /tmp/Xservers-new /etc/dt/config/Xservers
+ /bin/chmod 444 /etc/dt/config/Xservers
+ /bin/chown root:other /etc/dt/config/Xservers
+ fi
+}
+
+function misc_setup {
+ step "Setup Application Server"
+ /net/bismol/App/admin/bin/setup >> $LOGFILE 2>&1
+
+ step "Ninstalling lp, adm and net3 packages"
+ /usr/local/bin/ninstall -h bismol lp adm net3 >> $LOGFILE 2>&1
+
+ step "Run netdaemon.dy"
+ /usr/adm/netdist/netdaemon.dy >> $LOGFILE 2>&1
+
+ step "Create the whatis database"
+ /usr/sbin/catman -w >> $LOGFILE 2>&1
+}
+
+function inst_sw {
+ if [ "$SWINSTALL" = "yes" ]; then
+ step "Installing Patches and Optional Software, be patient!"
+ /usr/sbin/swinstall -s $DEPOT -x $OPTIONS $PRODUCTS $ENETDRVR >>
+$LOGFILE 2>&1
+ else
+ step "Rebuilding kernel with new parameters."
+ /usr/sbin/mk_kernel -v -o /stand/vmunix >> $LOGFILE 2>&1
+ step "Rebooting the system..."
+ cd /
+ /usr/sbin/shutdown -ry 0
+ fi
+}
+
+#
+##
+### Main
+##
+#
+
+chk_uid
+chk_arch
+read_src
+set_mode
+fast_enet
+greet
+mod_kernel
+get_shar
+mod_rc_files
+mod_etc_files
+mod_misc_files
+misc_setup
+clearcase_setup
+inst_sw
--- /dev/null
+################################################################################
+#
+# File: pdl-config.src
+# Description: Parameter Source File for the ADL system configuration script
+# pdl-config. This file is required by the pdl-config script
+# in order to run.
+# See below for useful comments.
+# Author: Kevin Lister (C) - kel@cup.hp.com
+# Date: 3.11.99
+# Language: Korn Shell
+#
+# (c) Copyright 1991, Hewlett-Packard Company, all rights reserved.
+#
+# Revision History
+# 4.1.99 kel added the WORKSTATION variable. Setting the WORKSTATION
+# variable to yes will set the machine up with a graphics console
+# login using CDE.
+#
+################################################################################
+# Useful (hopefully) Comments Section
+#
+# Do not make your changes to the varibales in the comment section. Change
+# the variables at the end of this file.
+#
+# Below you will find all of the ENV variables that the pdl-config script
+# will use to configure the system.
+# Descriptions for these variables can be found below, read on.
+#
+# Set the INTERACTIVE ENV variable to yes if you wish to have a chance to view
+# the configuration parameters the script will use before proceeding. Set to
+# no otherwise.
+#
+# INTERACTIVE=yes
+#
+# Set the WORKSTATION variable to yes if you are installing a system that will
+# have a graphics console monitor attached. Setting WORKSTATION to no disbales
+# CDE on the console.
+#
+# WORKSTATION=no
+#
+# You can have ClearCase 3.2 installed automatically by setting CLEARCASE
+# to yes. If you do not want ClearCase, set to no.
+#
+# CLEARCASE=yes
+#
+# If you want the Patch bundle (see below) and Optional Software installed
+# set SWINSTALL to yes.
+#
+# SWINSTALL=yes
+#
+# If you plan to use a 100Mbit network interface then set FAST_ENET to yes
+# to have the correct drivers installed. Set to no if you don't.
+#
+# FAST_ENET=yes
+#
+# Set the location of the logfile for the configure script using the LOGFILE
+# variable.
+#
+# LOGFILE=/pdl-config.log
+#
+# The /etc/motd file will be set up with the information contained in the next
+# several variables. The /etc/issue and /etc/gettydefs files will also be
+# setup by using the MACHINE_NAME variable. You should set these to something
+# that makes sense.
+#
+# OWNER_NAME="ADL Support"
+# OWNER_EMAIL=pdl-support@cup.hp.com
+# OWNER_EXTENSION=t-447-5790
+# MACHINE_USAGE="X Terminal Server"
+# LOCATION=RDC
+# MACHINE_NAME=Generic
+#
+# The next several variables set up the depot server name, depot path and
+# names of the software bundles and products to install. It is likely that you
+# you will only need to change ENET_DRVRS. Set ENET_DRVRS to 100BT-HSC for a
+# J282 (780). Set ENET_DRVRS to SX00306 for a 755. The default for XTERM_SVR
+# is "". If you really don't want patches and optional software then set
+# PATCHES and OPTIONAL to "". You should never need to modify PRODUCTS, DEPOT
+# or OPTIONS.
+#
+# PATCHES=Patches-Generic
+# OPTIONAL="OptionalSoftware SysMonSoftware VUEtoCDE"
+# XTERM_SVR="ENWARE netstation"
+# ENET_DRVRS=100BT-HSC
+# ENET_DRVRS=SX00306
+# PRODUCTS="$PATCHES $OPTIONAL $XTERM_SVR $ENET_DRVRS"
+# DEPOT=pdliux01:/depots/10.20
+# OPTIONS="autoreboot=true"
+#
+# Finally, the next several variables set up the ftp server, directory and
+# filename of the shell archive that the script uses to unpack all kinds
+# of useful files and symlinks. You should never have to modify these.
+#
+# FTP_SERVER=15.0.98.138
+# FTP_USER=anonymous
+# FTP_PASSWD=$LOGNAME@$(uname -n).cup.hp.com
+# SHAR_DIR=productivity/pdl-config
+# SHAR_FILE=pdl-config.shar
+#
+# END of Useful Comments Section
+################################################################################
+#
+##
+### Change these to suit your fancy.
+##
+#
+
+INTERACTIVE=yes
+WORKSTATION=no
+CLEARCASE=yes
+SWINSTALL=yes
+FAST_ENET=no
+LOGFILE=/pdl-config.log
+
+#
+##
+### /etc/motd setup
+##
+#
+
+OWNER_NAME="PDL Support"
+OWNER_EMAIL=pdl-support@cup.hp.com
+OWNER_EXTENSION=t-447-????
+MACHINE_USAGE="Change Me"
+LOCATION=RDC
+MACHINE_NAME=GENERIC
+
+#
+##
+### Patches and Optional Software
+##
+#
+
+PATCHES=Patches-VUServer
+OPTIONAL="OptionalSoftware SysMonSoftware VUEtoCDE"
+XTERM_SVR=""
+ENET_DRVRS=""
+PRODUCTS="$PATCHES $OPTIONAL $XTERM_SVR $ENET_DRVRS"
+
+#
+##
+### Depot Server Information
+##
+#
+
+DEPOT=pdliux01:/depots/10.20
+OPTIONS="autoreboot=true"
+
+#
+##
+### Shell Archive Server and Location
+##
+#
+
+FTP_SERVER=15.0.98.138
+FTP_USER=anonymous
+FTP_PASSWD=$LOGNAME@$(uname -n).cup.hp.com
+SHAR_DIR=productivity/pdl-config
+SHAR_FILE=pdl-config.shar
--- /dev/null
+#!/bin/ksh
+################################################################################
+#
+# File: newpasswd
+# Description: Change the root passwd entry in /etc/passwd
+# Author: Kevin Lister kel@cup.hp.com
+# Language: Korn Shell
+#
+# (c) Copyright 1999, Hewlett-Packard Company, all rights reserved.
+#
+################################################################################
+#
+##
+### Variables
+##
+#
+
+ADMIN=pdl-support@cup.hp.com
+PWFILE=/etc/passwd
+PWFILENEW=/etc/passwd-new
+PWFILEOLD=/etc/passwd-old
+SYSNAME=$(uname -n)
+BASE=${0##*/}
+WHOAMI=$(id -u)
+NULL=/dev/null
+
+#
+##
+### Functions
+##
+#
+
+# Functions
+function error {
+ print -u2 "$BASE: Error: $1"
+}
+
+#
+##
+### Main
+##
+#
+
+# Must be root to run this
+if [ $WHOAMI -ne 0 ]; then
+ error "Must be root to execute this command... Exiting."
+ exit 0
+fi
+
+# Create the new passwd file
+/bin/cat >> $PWFILENEW <<:NEWPW
+root:u4/rTgJX35zHg:0:1:Root@$SYSNAME:/:/sbin/sh
+:NEWPW
+/bin/grep -v "^root" $PWFILE >> $PWFILENEW
+
+# Save the old passwd file, install the new one
+/bin/mv $PWFILE $PWFILEOLD
+/bin/mv $PWFILENEW $PWFILE
+/bin/chmod 444 $PWFILE
+/bin/chown root:other $PWFILE
+
+# Email us that a machine was updated
+/usr/bin/mailx -s "$SYSNAME: Root passwd changed!" $ADMIN < $NULL
--- /dev/null
+#!/bin/ksh
+################################################################################
+#
+# File: pingnet
+# RCS: $Header: pingnet,v 1.3 98/03/04 00:42:49 defaria Exp $
+# Description: A script to ping all machines and report status. This script
+# uses /etc/hosts and selects only machines in the IP range of
+# 15.0.96.x to 15.0.99.x.
+# Author: Andrew DeFaria <Andrew@DeFaria.com>
+# Created: Sat Oct 26 10:04:28 PDT 1996
+# Modified: Sat Oct 26 12:05:26 PDT 1996 Andrew DeFaria <defaria@cup.hp.com>
+# Parameters: count (default 2): number of times to ping a machine before
+# considering it not responding.
+# Language: Korn Shell
+#
+# (c) Copyright 2001, Andrew@DeFaria.com, all rights reserved
+#
+################################################################################
+me=$(basename $0)
+
+function usage {
+ print "$me: Usage: $me { count }"
+ print "\twhere count = number of times to ping a machine before
+considering"
+ print "\tthe machine to be not responding (default count = 2)."
+ exit 1
+} # usage
+
+os=
+
+function get_os {
+ machine=$1
+ # Attempt to determine the OS. First attempt to remsh to the machine and
+ # do a uname(1). This assumes Unix. We are unable to remsh then we'll
+ # assume that it's a PC (it could also be a line printer or any other of
+ # a number of network pingable devices!)
+ os=$(remsh $machine -n uname 2>&1)
+
+ # We're gonna make some guesses here...
+ if [[ "$os" = "HP-UX" ||
+ "$os" = "Linux" ]]; then
+ : Do nothing!
+ elif [[ "$os" = *Lost\ connection ]]; then
+ os="Linux? (Lost connection)"
+ elif [[ "$os" = *Permission\ denied. ]]; then
+ os="Linux? (Permission denied)"
+ elif [[ "$os" = *Login\ incorrect ]]; then
+ os="HP-UX? (Login incorrect)"
+ elif [[ "$os" = *Connection\ refused ]]; then
+ os="NT? (Connection refused)"
+ else
+ os="Unknown: $os"
+ fi
+} # get_os
+
+integer count=2
+
+if [ $# -eq 1 ]; then
+ count=$1
+elif [ $# -gt 1 ]; then
+ usage
+fi
+
+esc=$(print "\033")
+
+if [ "$TERM" = "dtterm" -o -z DTTERM ]; then
+ export normal="$esc[39m"
+ export red="$esc[31m"
+ export green="$esc[32m"
+elif [ "$TERM" = "hp" -o "$TERM" = "hpterm" ]; then
+ export normal="$esc&d@$esc&v0S"
+ export red="$esc&v1S"
+ export green="$esc&v2S"
+fi
+
+# Print heading
+print " Machine\t\t IP\tState\t OS"
+print - "-----------------------\t-------------\t-----\t-------"
+
+subnet=${subnet:-15.28}
+integer starting_subnet_octect=${starting_subnet_octect:-96}
+integer ending_subnet_octect=${ending_subnet_octect:-103}
+integer subnet_octect=starting_subnet_octect
+integer starting_octect=${starting_octect:-0}
+integer ending_octect=${ending_octect:-255}
+integer octect=$starting_octect
+
+while [ $subnet_octect -le $ending_subnet_octect ]; do
+ while [ $octect -le $ending_octect ]; do
+ ip=$subnet.$subnet_octect.$octect
+ machine=$ip
+ nslookup $ip 2>&1 | grep Non-exist > /dev/null 2>&1
+ if [ $? -ne 0 ]; then
+ machine=$(nslookup $ip | grep Name: | awk '{print $2}' | cut -f1 -d.)
+ fi
+ print "$machine\t\c"
+ if [ ${#machine} -lt 8 ]; then
+ print "\t\t\c"
+ elif [ ${#machine} -lt 16 ]; then
+ print "\t\c"
+ fi
+ print "$ip\t\c"
+ ping_result=$(ping $ip -n $count | tail -1 | grep "100% packet loss")
+ if [ -z "$ping_result" -eq 0 ]; then
+ print "${green}UP${normal}\t\c"
+ get_os $machine
+ print "$os"
+ else
+ print "${red}DOWN${normal}\tUnknown"
+ fi
+ let octect=octect+1
+ done
+ let subnet_octect=subnet_octect+1
+ let octect=starting_octect
+done
--- /dev/null
+#!/bin/ksh
+################################################################################
+#
+# File: reinstall_patch_bundle
+# RCS: $Header:$
+# Description: A script to reinstall the Patches bundle by removing it and
+# reinstalling it.
+# Author: Andrew DeFaria, California Language Labs
+# Created: Thu May 1 23:06:48 PDT 1997
+# Modified:
+# Language: Korn Shell
+#
+# (c) Copyright 2001, Andrew@DeFaria.com, all rights reserved
+#
+################################################################################
+me=`basename $0`
+notify=defaria@cup.hp.com
+machine=`uname -n`
+osver=`uname -r | cut -f2- -d.`
+major_osver=`echo $osver | cut -f1 -d.`
+depot="wampus:/Depots/$osver"
+
+if [ "$major_osver" = "10" ]; then
+ if [ `id -u` -ne 0 ]; then
+ print -u2 "$me: Error: You must be root to use this command"
+ exit 1
+ fi
+ message="Reinstalling Patches bundle from $depot to $machine via $0"
+ mailx -s "$message" $notify <<!EOF
+$message
+!EOF
+ # First remove the old Patches bundle. Note that we do not enforce_scripts
+ # nor auto_kernel_build because we are going to be totally replacing the
+ # Patches bundle
+ additional_patches=$(/usr/sbin/swlist | grep PH | tr " " " " | cut -c3- | cut -f1 -d' ')
+ /usr/sbin/swremove \
+ -x enforce_scripts=false \
+ -x auto_kernel_build=false \
+ Patches $additional_patches > /tmp/$me.$$ 2>&1
+
+ if [ $? -ne 0 ]; then
+ message="Removal of Patches bundle failed!"
+ mailx -s "$message" $notify < /tmp/$me.$$
+ exit 1
+ fi
+
+ # Next install the new Patches bundle.
+ /usr/sbin/swinstall \
+ -x autoreboot=true \
+ -s $depot Patches > /tmp/$me.$$ 2>&1
+
+ if [ $? -ne 0 ]; then
+ message="Installation of Patches bundle failed!"
+ mailx -s "$message" $notify < /tmp/$me.$$
+ exit 1
+ fi
+else
+ message="Sorry but $0 only works on 10.x machines. This machine is
+$major_osver."
+ exit 1
+fi
--- /dev/null
+#!/bin/ksh
+################################################################################
+#
+# File: reinstall_unixsysadm
+# Description: Script to reinstall this package.
+# Author: Andrew@DeFaria.com
+# Created: Fri Sep 24 10:11:56 PDT 1999
+# Language: Korn Shell
+#
+# (c) Copyright 2001, Andrew@DeFaria.com, all rights reserved
+#
+################################################################################
+# Set me to command name
+me=$(basename $0)
+
+# Set adm_base
+adm_base=${adm_base:-$HOME/adm}
+
+# Set adm_fpath
+adm_fpath=${adm_fpath:-$adm_base/functions}
+
+# Source functions
+. $adm_fpath/common
+
+function usage {
+ if [ "_$1" != "_" ]; then
+ display "$1"
+ display
+ fi
+ display "Usage: $me"
+ exit 1
+} # usage
+
+# Check for execution by root
+if is_not_root; then
+ error "This script must be run as root" 1
+fi
+
+while [ $# -ge 1 ]; do
+ case "$1" in
+ -usage)
+ usage
+ ;;
+
+ -v|-verbose)
+ verbose=yes
+ ;;
+
+ -d|-debug)
+ debug=yes
+ ;;
+
+ *)
+ usage "Unrecognized parameter $1"
+ ;;
+ esac
+ shift
+done
+
+# Currently we must swremove and swinstall this package. In the future the
+# swinstall package may be made smarter and clean up older files...
+
+verbose "Removing old UnixSysadm package..."
+/usr/sbin/swremove UnixSysadm > /tmp/swremove.log 2>&1
+
+if [ $? -ne 0 ]; then
+ error "Unable to swremove UnixSysadm! Check /tmp/swremove.log"
+else
+ rm /tmp/swremove.log
+fi
+
+verbose "Reinstalling new UnixSysAdm package..."
+/usr/sbin/swinstall -s pdlapp:/var/depot/adm UnixSysadm > /tmp/swinstall.log
+2>&1
+
+if [ $? -ne 0 ]; then
+ error "Unable to swinstall UnixSysadm! Check /tmp/swinstall.log"
+else
+ rm /tmp/swinstall.log
+fi
--- /dev/null
+#!/bin/ksh
+################################################################################
+#
+# File: remount_viewserver
+# Description: This script will remount a viewservers LVMs. This is handy
+# when a viewserver goes down and needs to be remounted to
+# the build servers.
+# Author: Andrew DeFaria (defaria@cup.hp.com)
+# Language: Korn Shell
+# Modified:
+#
+# (c) Copyright 1998, Hewlett-Packard Company, all rights reserved.
+#
+
+################################################################################
+me=$(basename $0)
+if [ $(id -u) -ne 0 ]; then
+ print -u2 "$me: Error: You must be root to execute this command!"
+ exit 1
+fi
+
+if [ $# -ne 1 ]; then
+ print -u2 "Usage: $me viewserver"
+ exit 1
+fi
+
+viewserver=$1
+
+function remount {
+ cd /tmp_mnt/net/$viewserver/CLO/Storage/Views
+ for dir in *; do
+ print Mounting $viewserver:/CLO/Storage/Views/$dir to $PWD/$dir
+ /usr/sbin/mount $viewserver:/CLO/Storage/Views/$dir $PWD/$dir 2>&1 |
+grep -v "already mounted"
+ done
+ cd $OLDPWD
+} # remount
+
+function kick_automounter {
+ automount_pid=$(/app/sj automount | awk '{print $2}')
+
+ print Kicking automounter \($automount_pid\)
+ kill -HUP $automount_pid
+} # kick_automounter
+
+remount $viewserver
+
+kick_automounter
--- /dev/null
+#!/bin/ksh
+################################################################################
+#
+# File: restart_system
+# Description: A script to restart a system. Used for at jobs mainly.
+# Author: Andrew@DeFaria.com
+# Created: Wed Apr 16 14:14:17 PDT 1997
+# Modified:
+# Language: Korn Shell
+#
+# (c) Copyright 2001, Andrew@DeFaria.com, all rights reserved
+#
+################################################################################
+# Set me to command name
+me=$(basename $0)
+
+# Set adm_base
+adm_base=${adm_base:-$HOME/adm}
+
+# Set adm_fpath
+adm_fpath=${adm_fpath:-$adm_base/functions}
+
+# Source functions
+. $adm_fpath/common
+
+# Who do notify about the restart
+notify=${notify:-$LOGNAME}
+
+if is_not_root; then
+ error "This script must be run as root" 1
+fi
+
+message="Restarting $(hostname) ($(uname -s)) via $me"
+info $message
+#mailx -s "$message" $notify <<!EOF
+#$message
+#!EOF
+
+cd /
+
+if [ $(uname -s) = "HP-UX" ]; then
+ /etc/shutdown -yr 0
+else
+ /etc/shutdown -yg 0 -i 6
+fi
--- /dev/null
+#!/bin/ksh
+################################################################################
+#
+# File: restrict_passwd
+# Description: This script will convert /etc/passwd to a "restricted" passwd
+# file. There is a list of "special" users such as system users
+# like anon, ftp, etc as well as some administrative engineers.
+# These users have their passwd entries passed through
+# unmodified. All other users get either a restricted shell
+# (sorry just rksh) and are homed to /home/vumover (this was
+# done for the purposes of migrating views to the new view
+# servers and may be changed at some time in the future).
+#
+# If -mailmode is specified then the only change to the original
+# passwd line is that shell is set to /bin/false. This is to
+# prevent user logins to the mail server.
+#
+# Note that all su users are conciously not written to the new
+# passwd file unless they appear in the special users list.
+#
+# Finally, users from MLL are skipped.
+#
+# Author: Andrew DeFaria, California Language Labs
+# Created: Fri Oct 17 09:06:46 PDT 1997
+# Modified:
+# Language: Korn Shell
+#
+# (c) Copyright 2001, Andrew@DeFaria.com, all rights reserved
+#
+################################################################################
+me=$(basename $0)
+
+function error {
+ print -u2 "$me: Error: $1"
+} # error
+
+function info {
+ print -u2 "$1"
+}
+
+function verbose {
+ if [ ! -z "$VERBOSE" ]; then
+ info "$1"
+ fi
+} # verbose
+
+function debug {
+ if [ ! -z "$DEBUG" ]; then
+ info "$1"
+ fi
+} # debug
+
+function usage {
+ info "$me [-v] [-d] [-m] [-o file] [-u]"
+ info " -v: Turns on verbose mode"
+ info " -d: Turns on debug mode"
+ info " -m: Generate passwd file for mail server"
+ info " -o file: Specify file to place output into"
+ info " -u: Print this usage message"
+ info ""
+ info "$me reads password entries from stdin and writes a restricted version"
+ info "of the password entry to stdout. Some users are special and are"
+ info "unaltered. Root (su) users are skipped and not written out."
+ exit
+} # usage
+
+## Main body
+
+# Get parameters
+while getopts ":dmo:vu" options; do
+ case $options in
+ u)
+ usage
+ ;;
+
+ v)
+ VERBOSE=yes
+ ;;
+
+ d)
+ DEBUG=yes
+ ;;
+
+ m)
+ mailmode=yes
+ ;;
+
+ o)
+ outfile=$OPTARG
+ ;;
+
+ *)
+ usage
+ ;;
+ esac
+done
+shift $(($OPTIND - 1))
+
+IFS=:
+
+while read user pass uid gid geos home shell; do
+ case "$user" in
+anon|\
+dts|\
+bin|\
+daemon|\
+ftp|\
+gridmgr0|\
+gridmgr1|\
+jun|\
+junsu|\
+lp|\
+stevew|\
+stevewsu|\
+sync|\
+tftp|\
+uucp|\
+vobadm|\
+root)
+ verbose "****> User $user is \"special\""
+ print "$user:$pass:$uid:$gid:$geos:$home:$shell"
+ ;;
+
+ *)
+ # In mail mode change shell to /bin/false. Otherwise use a restricted
+ # shell and also set the home directory to /home/vumover.
+ if [ ! -z "$mailmode" ]; then
+ shell=/bin/false
+ else
+ shell=/usr/bin/rksh
+ home=/home/vumover
+ fi
+
+ # Change MoA marking to Restricted
+ geos="$(print "$geos" | sed 's/_MoA_/_Restricted_/')"
+
+ # Allow no other uid 0 users other than those listed above
+ if [ $uid -eq 0 ]; then
+ verbose "****> User $user is in uid 0 - skipping..."
+ continue
+ fi
+
+ # Skip users from MLL
+ print $home | grep "\.ch\.apollo" > /dev/null 2>&1
+ if [ $? -eq 0 ]; then
+ verbose "****> User $user is from Apollo - skipping..."
+ continue
+ fi
+
+ print "$user:$pass:$uid:$gid:$geos:$home:$shell"
+ ;;
+ esac
+done < /etc/passwd > /tmp/passwd.$$
+
+if [ "_$outfile" = "_" ]; then
+ mv /etc/passwd /etc/passwd.old
+ mv /tmp/passwd.$$ /etc/passwd
+ chmod 444 /etc/passwd
+else
+ mv /tmp/passwd.$$ $outfile
+fi
--- /dev/null
+#!/bin/ksh
+################################################################################
+#
+# File: roll_logs
+# Description: Rolls log files
+# Author: Andrew@DeFaria.com
+# Created: Thu Dec 9 10:05:09 PST 1999
+# Modified:
+# Language: Korn Shell
+#
+# (c) Copyright 2001, Andrew@DeFaria.com, all rights reserved
+#
+################################################################################
+# Set me to command name
+me=$(basename $0)
+
+# Set adm_base
+adm_base=${adm_base:-$HOME/adm}
+
+# Set adm_fpath
+adm_fpath=${adm_fpath:-$adm_base/functions}
+
+# Source functions
+. $adm_fpath/common
+. $adm_fpath/logs
+
+function usage {
+ if [ "_$1" != "_" ]; then
+ display "$1"
+ display
+ fi
+ display "Usage: $me -[da|aily] | -[w|eekly]"
+ exit 1
+} # usage
+
+# Check for execution by root
+if is_not_root; then
+ error "This script must be run as root" 1
+fi
+
+type=
+while [ $# -ge 1 ]; do
+ case "$1" in
+ -usage)
+ usage
+ ;;
+
+ -v|-verbose)
+ verbose=yes
+ ;;
+
+ -d|-debug)
+ debug=yes
+ ;;
+
+ -da|-daily)
+ type=daily
+ ;;
+
+ -w|-weekly)
+ type=weekly
+ ;;
+
+ *)
+ usage "Unrecognized parameter $1"
+ ;;
+ esac
+ shift
+done
+
+if [ "_$type" = "_" ]; then
+ usage "Must specify -daily or -weekly"
+fi
+
+#Directory logfile backuplog what
+dailylogs="\
+/var/adm automount.log autolog.week automount\n\
+/var/adm nettl.LOG00 nettl.week nettracelog\n\
+/var/adm ninstall.log nlog.week ninstall\n\
+/var/adm ptydaemonlog ptylog.week ptydaemon\n\
+/var/adm rpc.lockd.log rpc.lockd.week rpc.lockd\n\
+/var/adm rpc.statd.log rpc.statd.week rpc.statd\n\
+/var/adm vtdaemonlog vtlog.week vtdaemon\n\
+/var/adm/cron log log.week cron\n\
+/var/adm/lp log log.week lp\n\
+/var/adm/syslog syslog.log syslog.week syslogd"
+
+weeklylogs="\
+/var/adm autolog.week autolog.oldweek automount\n\
+/var/adm nettl.week nettl.oldweek nettracelog\n\
+/var/adm nlog.week nlog.oldweek ninstall\n\
+/var/adm ptylog.week ptylog.oldweek ptydaemon\n\
+/var/adm rpc.lockd.week rpc.lockd.oldweek rpc.lockd\n\
+/var/adm rpc.statd.week rpc.statd.oldweek rpc.statd\n\
+/var/adm vtlog.week vtlog.oldweek vtdaemon\n\
+/var/adm/cron log.week log.oldweek cron\n\
+/var/adm/lp log.week log.oldweek lp\n\
+/var/adm/syslog syslog.week syslog.oldweek syslogd"
+
+if [ "$type" = "daily" ]; then
+ verbose "Daily roll_logs"
+ logfiles="$dailylogs"
+else
+ verbose "Weekly roll_logs"
+ logfiles="$weeklylogs"
+fi
+
+print "$logfiles" | while read dir logfile backup_logfile what; do
+ verbose "Rolling ($what) logfile $logfile -> $backup_logfile..."
+ if [ "$type" = "weekly" ]; then
+ # Clear out oldweek file first
+ rm -f $backup_logfile
+ fi
+ roll_log $dir $logfile $backup_logfile $what
+done
--- /dev/null
+#!/bin/bash
+################################################################################
+#
+# File: root
+# Description: A script to go into "wizard" mode
+# Author: Andrew@DeFaria.com
+# Created: Mon May 17 07:35:59 PDT 1999
+# Language: Bash shell
+#
+# (c) Copyright 1999, Andrew DeFaria, all rights reserved.
+#
+################################################################################
+me=$(basename $0)
+
+# Set adm_base
+adm_base=${adm_base:-$HOME/adm}
+
+# Set adm_fpath
+adm_fpath=${adm_fpath:-$adm_base/functions}
+
+# Source functions
+. $adm_fpath/common
+
+if [ ! -x $(type -p sudo) ]; then
+ warning "$me: Warning: Unable to find sudo!"
+ exit 1
+fi
+
+if [ $# -gt 0 ]; then
+ # Execute the commands
+ sudo $@
+else
+ # Become a "wizard"!
+ sudo -s
+
+ if [ -x ~/.rc/functions ]; then
+ # Source in ksh functions (needed for set_title and set_prompt)
+ . ~/.rc/functions
+ # Reset title and prompt (if you can)
+ set_title
+ set_prompt
+ fi
+fi
--- /dev/null
+#!/bin/ksh
+################################################################################
+#
+# File: rootmail
+# RCS: $Header: rootmail,v 1.1 97/04/21 14:27:10 defaria Exp $
+# Description: Lists who receives root mail for a particular machine
+# Author: Andrew DeFaria, California Language Labs
+# Created: Mon Nov 13 16:14:30 1995
+# Modified: Mon Nov 13 16:16:56 1995 (Andrew DeFaria) defaria@spock
+# Language: Korn Shell
+#
+# (c) Copyright 2001, Andrew@DeFaria.com, all rights reserved
+#
+################################################################################
+if [ -x /app/appserver ]; then
+ . /app/appserver
+fi
+
+me=$(basename $0)
+
+function usage {
+ print -u2 "Usage: $me: hostname"
+ exit 1
+} # usage
+
+# Get parameters
+if [ $# -eq 0 ]; then
+ host=
+elif [ $# -eq 1 ]; then
+ host="/nfs/$1"
+else
+ usage
+fi
+
+path=usr/lib
+if [ "_$host" = "_" ]; then
+ if [ "$OS" = "10" ]; then
+ path=etc/mail
+ fi
+fi
+
+alias_file=$host/$path/aliases.local
+
+if [ ! -f $alias_file ]; then
+ print -u2 "$me: Unable to find local alias file: $alias_file"
+ exit 1
+fi
+
+grep "^root" $alias_file
--- /dev/null
+/usr/bin/X11/resize
--- /dev/null
+#!/bin/ksh
+################################################################################
+#
+# File: audit
+# Description: Security audit
+# Author: Andrew DeFaria (defaria@cup.hp.com)
+# Language: Korn Shell
+# Modifications:Combined security checking scripts from Chip Chapin
+# (chip@cup.hp.com) and Michael Coulter (coulter@cup.hp.com).
+#
+# (c) Copyright 1991, Hewlett-Packard Company, all rights reserved.
+#
+################################################################################
+# First source the appserver script
+if [ -x /app/appserver ]; then
+ . /app/appserver
+fi
+
+me=$(basename $0)
+
+case $OS in
+ 09)
+ crondir=/usr/spool/cron/crontabs
+ atdir=/usr/spool/cron/atjobs
+ ;;
+ 10)
+ crondir=/var/spool/cron/crontabs
+ atdir=/var/spool/cron/atjobs
+ ;;
+ *)
+ print -u2 "$me: Error: Unknown OS version: $OS"
+ exit 1
+ ;;
+esac
+
+function local_user {
+ # Determines is $user has a home directory local to this machine
+ first_component=$(print $home | cut -f2 -d/)
+ machine_component=$(print $home | cut -f3 -d/)
+ this_machine=$(uname -n)
+
+ if [ "$first_component" = "nfs" -o "$first_component" = "net" ]; then
+ if [ $machine_component = $this_machine ]; then
+ return 1
+ else
+ return 0
+ fi
+ else
+ return 1
+ fi
+} # local_user
+
+function starred_out_checks {
+ print "$me: Warning: Non standard user \"$user\" has \"*\" out password!\n"
+ print "If this user no longer works here you should assign ownership of their"
+ print "files to somebody else then have this user's password entry removed.\n"
+ # If the password is "*", there should not be a .rhosts or hosts.equiv
+ # in the home directory or .forward
+ if [ -d "$home" ]; then
+ if [ -f "$home/.rhosts" ]; then
+ print "$me: Warning: User: $user has a .rhosts file in $home\n"
+ print "You should remove this user's ~/.rhosts file.\n"
+ fi
+
+ if [ -f "$home/.forward" ]; then
+ print "$me: Warning: User: $user has a .forward file in $home\n"
+ print "You should remove this user's ~/.forward file.\n"
+ fi
+ fi # home directory exists
+
+ # There should not be a crontab or atjob for the user
+ if [ -f $crondir/$user ]; then
+ print "$me: Warning: User: $user has a crontab file in $crondir/$user\n"
+ print "You should remove this user's crontab file.\n"
+ fi
+
+ if [ -f $atdir/$user ]; then
+ print "$me: Warning: User: $user has a at file in $atdir/$user\n"
+ print "You should remove this user's at file.\n"
+ fi
+} # starred_out_checks
+
+function check_users {
+ # This function checks users in the password file.
+
+ # Parse all the lines in /etc/passwd
+ IFS=":"
+ while read user password uid gid comment home shell rest; do
+ # Check if the user has a local home directory
+ local_user $user $home
+ local=$?
+
+ # Checks for users who shouldn't log-in, i.e. password is "*"
+ if [ $local -eq 1 ]; then # Only check local users
+ if [ "$password" = '*' ]; then
+ if [ "$user" = "adm" -o \
+ "$user" = "anon" -o \
+ "$user" = "bin" -o \
+ "$user" = "daemon" -o \
+ "$user" = "ftp" -o \
+ "$user" = "lp" -o \
+ "$user" = "nuucp" -o \
+ "$user" = "rje" -o \
+ "$user" = "root" -o \
+ "$user" = "sync" -o \
+ "$user" = "tftp" -o \
+ "$user" = "uucp" -o \
+ "$user" = "who" ]; then
+ : # Skip some users who should be starred out
+ else
+ starred_out_checks
+ fi
+ else
+ if [ "$password" = "" ]; then
+ print "$me: Warning: User: $user has a NULL password\n"
+ print "You must assign a proper password to this user.\n"
+ fi
+
+ # No wildcards in ~/.rhosts or /etc/host.equiv
+ if [ -f ~/.rhosts -a $local -eq 1 ]; then
+ LINES="$(sed -e '/^#/d' ~/.rhosts | grep -e '+' 2> /dev/null | wc -l)"
+ if [ "$LINES" -ne 0 ]; then
+ print "$me: Warning: User: $user has \"+\" in $home/.rhosts\n"
+ print "This can be fixed by logging on as $user and running:"
+ print "/app/admin/bin/fixrhosts\n"
+ fi
+ fi
+ fi
+ fi
+ done < /etc/passwd
+} # check_users
+
+function miscellaneous_checks {
+ # Check for execution by root
+
+ if [ "$(whoami)" != "root" ]; then
+ print -u2 "$me: Error: This script must be run by root".
+ exit 1
+ fi
+
+ # Checks that are only done once
+
+ # Check no wildcards in /etc/host.equiv
+ if [ -f /etc/hosts.equiv ]; then
+ lines="$(sed '/^#/d' /etc/hosts.equiv | grep -e '+' 2> /dev/null | wc -l)"
+ if [ "$lines" -ne 0 ]; then
+ print "$me: Warning: System has \"+\" in /etc/host.equiv\n"
+ print "You should remove this \"+\" from /etc/host.equiv\n"
+ fi
+ fi
+} # miscellaneous_checks
+
+miscellaneous_checks
+check_users
+/usr/local/etc/admdaemon.dy -clear -secu -mailto root
+
+exit 0
--- /dev/null
+#!/bin/ksh
+################################################################################
+#
+# File: setup
+# RCS: $Header: setup,v 1.2 99/02/15 20:35:58 root Exp $
+# Description: This script will setup the necessary links for the AppServer.
+# Author: Andrew DeFaria, California Language Labs
+# Created: Thu May 16 09:51:15 PDT 1996
+# Modified:
+# Language: Korn Shell
+#
+# (c) Copyright 2001, Andrew@DeFaria.com, all rights reserved
+#
+################################################################################
+# First determine where/how the appserver is mounted on local machine
+if [ -d "/net/bismol" ]; then
+ MOUNTPOINT=/net
+ export APPSERVER=bismol
+elif [ -d "/net/hpclbis" ]; then
+ MOUNTPOINT=/net
+ export APPSERVER=hpclbis
+elif [ -d "/nfs/bismol" ]; then
+ MOUNTPOINT=/nfs
+ export APPSERVER=bismol
+elif [ -d "/nfs/hpclbis" ]; then
+ MOUNTPOINT=/nfs
+ export APPSERVER=hpclbis
+fi
+
+# Export APPROOT properly
+export APPROOT=$MOUNTPOINT/$APPSERVER
+
+function make_symlink {
+ if [ ! -h "$1" ]; then
+ ln -sf $APPROOT$1 $1
+ fi
+} # make_symlink
+
+make_symlink /etc/socks.conf
+make_symlink /usr/lib/font
+make_symlink /usr/local/lib/emacs
+make_symlink /usr/local/etc/newsdomain
+make_symlink /usr/local/hindsight_4.0
+
+# Create ispell directory if not there already
+mkdir -p /usr/local/lib/ispell
+
+make_symlink /usr/local/lib/ispell/english.hash
+
+# Create import directory if not there already.
+mkdir -p /usr/vue/config/import
+
+# Special symlink
+ln -sf $APPROOT/usr/vue/config/export/tools /usr/vue/config/import/tools
+ln -s /app/mh /usr/local/bin/mh
+ln -s /app/mh-lib /usr/local/lib/mh
+
+# Xsession stuff
+
+# Check that Xsession is indeed a link
+if [ -f /usr/vue/config/Xsession ]; then
+ if [ ! -h /usr/vue/config/Xsession ]; then
+ mv /usr/vue/config/Xsession /usr/vue/config/Xsession.old
+ ln -sf $APPROOT/usr/vue/config/export/Xsession /usr/vue/config/Xsession
+ fi
+fi
+
+# Turned off as per Mark Keil's request
+#if [ ! -h /usr/softbench ]; then
+# ln -sf $APPROOT/aspirin/softbench /usr/softbench
+#fi
+
+# Fix ups for SURF
+mkdir -p /opt/surf
+make_symlink /opt/surf/newconfig
--- /dev/null
+#!/bin/ksh
+################################################################################
+#
+# File: setup.new.system2
+# RCS: $Header:$
+# Description: This script sets up a new system.
+# Author: Andrew DeFaria, California Language Labs
+# Created: Tue Apr 15 14:20:02 PDT 1997
+# Modified:
+# Language: Korn Shell
+#
+# (c) Copyright 2001, Andrew@DeFaria.com, all rights reserved
+#
+################################################################################
+# Logfile
+logfile=/tmp/setup.new.system2.log
+
+# Redirect all output to setup.new.system.log
+exec | tee -a $logfile > /dev/tty 2>&1
+
+## Set global env variables
+# Set me
+me=${0##*/}
+
+# Set OS
+OS=$(uname -r | cut -c3-)
+
+# Set step_nbr
+integer step_nbr=0
+
+function error {
+ print -u2 "$me: Error: $1"
+} # error
+
+function warning {
+ print -u2 "$me: Warning: $1"
+} # warning
+
+function display {
+ print "$1"
+} # display
+
+function info {
+ display "$me: Info: $1"
+} # info
+
+function verbose {
+ if [ ! -z "$verbose" ]; then
+ display "$1"
+ fi
+} # verbose
+
+function debug {
+ if [ ! -z "$debug" ]; then
+ print -u2 "$1"
+ fi
+} # debug
+
+function usage {
+ display "$ME -c/learcase [-v|verbose] [-d|debug] [-usage]"
+ display " -c/learcase Perform ClearCase installation"
+ display " -v|verbose: Turns on verbose mode"
+ display " -d|debug: Turns on debug mode"
+ display " -usage: Print this usage message"
+
+ error "$1"
+ exit 1
+} # usage
+
+function step {
+ let step_nbr=step_nbr+1
+ display "Step #$step_nbr: $@"
+} # step
+
+function install_clearcase {
+ license_host=wampus
+ registry_host=wampus
+ registry_region=cll
+ log_file=/tmp/ClearCase.install_log
+ os=$(print "$OS" | cut -c1-2)
+
+ if [ "$os" = "09" ]; then
+ os="9"
+ fi
+
+ case "$(uname -m)" in
+ 9000/712|9000/715)
+ model=link
+ ;;
+ 9000/829|9000/849)
+ model=full
+ ;;
+
+ *)
+ model=standard
+ ;;
+ esac
+
+ case "$clearcase" in
+ 2.1)
+
+clearcase_release_area=/net/bismol/aspirin/cc_v$clearcase/clearcase_v$clearcase/hp${os}_pa
+ cd $clearcase_release_area/install
+ ./install_release \
+ -model $model \
+ -to /usr/atria \
+ -from $clearcase_release_area \
+ -lh $license_host \
+ -rh $registry_host \
+ -rr $registry_region \
+ -mvfs \
+ -log $log_file \
+ -local \
+ -no_query >> $logfile
+ ;;
+
+ 3.0)
+
+
+clearcase_release_area=/net/wampus/opt/ccase_rls/clearcase_v$clearcase/hp${os}_pa
+ cd $clearcase_release_area/install
+ ./install_release \
+ -model $model \
+ -to /usr/atria \
+ -from $clearcase_release_area \
+ -lh $license_host \
+ -rh $registry_host \
+ -rr $registry_region \
+ -mvfs \
+ -log $log_file \
+ -local \
+ -comp
+atria_install,atria_base,CC_base,atria_X11_base,atria_hlp_viewer,atria_server,CC_client,atria_cplus_base,atria_gui,CC_doc,CC_vob_svr,CC_bld_client,CC_view_svr,CC_int_client,CC_gui_client,CC_cnv_client,CC_MIN_STD,CC_ONLY_SERVER,CC_FULL
+\
+ -nlog \
+ -level 5 \
+ -no_query >> $logfile
+ ;;
+
+ *)
+ usage "Unknown ClearCase version $clearcase"
+ ;;
+ esac
+} # install_clearcase
+
+# Set initial parm values
+clearcase=
+verbose=
+debug=
+
+# Get parameters
+while [ $# -ge 1 ]; do
+ case "$1" in
+ -usage)
+ usage
+ ;;
+
+ -v|-verbose)
+ verbose=yes
+ ;;
+
+ -d|-debug)
+ debug=yes
+ ;;
+
+ -c|-clearcase)
+ if [ $# -le 1 ]; then
+ usage "ClearCase version not specified!"
+ fi
+ shift
+ clearcase="$1"
+ ;;
+
+ *)
+ usage "Unrecognized parameter $1"
+ ;;
+ esac
+ shift
+done
+
+if [ $(id -u) -ne 0 ]; then
+ error "Must be root to execute this command"
+ exit 1
+fi
+
+if [ "_$clearcase" = "_" ]; then
+ usage "ClearCase version not specified!"
+else
+ step "Installing ClearCase Version $clearcase"
+ display "This step will reboot the machine"
+ install_clearcase
+ # Preceeding step should reboot the system. If we get here then there
+ # is something definitely wrong!
+ error "Unable to install ClearCase Version $clearcase!"
+fi
--- /dev/null
+#!/bin/bash
+################################################################################
+#
+# File: setup_cron
+# Description: This script sets up Cygwin's cron on the local machine
+# Author: Andrew@DeFaria.com
+# Created: <date>
+# Language: Bash Shell
+# Modifications:<modifications>
+#
+# (c) Copyright 2002, Andrew@DeFaria.com, all rights reserved
+#
+################################################################################
+me=$(basename $0)
+# Make sure that certain directories and files do not exist! This is to let
+# cron create them, which appears to be the only way to get these created
+# correctly!
+if [ -d /var/cron ]; then
+ rm -rf /var/cron
+ rm -rf /var/run/cron.pid
+ rm -rf /var/log/cron.log
+
+ # Install cron service:
+ cygrunsrv -I cron -p /usr/sbin/cron -a -D -d "Cygwin cron" -e "MAILTO=$USER@broadcom.com" -e "CYGWIN=ntsec"
+fi
+
+# Start cron service
+cygrunsrv -S cron
--- /dev/null
+#!/bin/bash
+################################################################################
+#
+# File: setup_ssmtp
+# Description: This script sets up ssmtp mail configuration
+# Author: Andrew@DeFaria.com
+# Created: Wed Jan 9 12:57:13 2002
+# Language: Bash Shell
+# Modifications:<modifications>
+#
+# (c) Copyright 2002, Andrew@DeFaria.com, all rights reserved
+#
+################################################################################
+# Setup /etc/ssmtp config directory
+ssmtp_dir=/etc/ssmtp
+domain=${domain:-broadcom.com}
+mail_server=smtphost
+
+mkdir -p $ssmtp_dir
+chmod 700 $ssmtp_dir
+
+# Make some simple aliases. Alias $USER to the proper email address and then
+# alias root, Administrator and postmaster to the user's address thus making
+# the user "god" of smtp on this machine only.
+cat > $ssmtp_dir/revaliases <<EOF
+# sSMTP aliases
+#
+# Format: local_account:outgoing_address:mailhub
+#
+# Example: root:your_login@your.domain:mailhub.your.domain:[port]
+# where [port] is an optional port number that defaults to 25.
+$USER:$USER@$domain:$mail_server:25
+root:$USER@$domain:$mail_server:25
+Administrator:$USER@$domain:$mail_server:25
+postmaster:$USER@$domain:$mail_server:25
+EOF
+
+# Get a downshifted hostname
+hostname=$(hostname | tr '[:upper:]' '[:lower:]')
+
+# Make ssmtp.conf
+cat > $ssmtp_dir/ssmtp.conf <<EOF
+# ssmtp.conf: Config file for Cygwin's sstmp sendmail
+#
+# The person who gets all mail for userids < 10
+root=postmaster
+# The place where the mail goes. The actual machine name is required
+# no MX records are consulted. Commonly mailhosts are named mail.domain.com
+# The example will fit if you are in domain.com and you mailhub is so named.
+mailhub=$mail_server
+# Where will the mail seem to come from?
+#rewriteDomain=$USER.$domain
+# The full hostname
+hostname=$hostname.$domain
+# Set this to never rewrite the "From:" line (unless not given) and to
+# use that address in the "from line" of the envelope.
+#FromLineOverride=YES
+EOF
--- /dev/null
+#!/bin/ksh
+################################################################################
+#
+# File: switch_licsrv
+# Description: A script to switch the ClearCase License Server from one
+# machine to another.
+# Author: Andrew DeFaria, California Language Labs
+# Created: Wed Jan 15 16:52:22 PST 1997
+# Modified: Wed Jan 15 16:52:22 PST 1997 (Andrew DeFaria) defaria@cup.hp.com
+# Language: Korn Shell
+#
+# (c) Copyright 1997, Hewlett-Packard Company, all rights reserved.
+#
+################################################################################
+me=$(basename $0)
+
+function usage {
+ print "Usage: $me: <new ClearCase License Server>"
+ exit 1
+} # usage
+
+if [ $(id -u) -ne 0 ]; then
+ print -u2 "$me: Error: Must be root to execute this command!"
+ usage
+fi
+
+# Get parameters
+if [ $# -ne 1 ]; then
+ usage;
+else
+ new_license_server="$1"
+fi
+
+license_server_file=/usr/adm/atria/config/license_host
+
+if [ -f $license_server_file ]; then
+ old_license_server=$(cat $license_server_file)
+ if [ "$old_license_server" = "$new_license_server" ]; then
+ print -u2 "$me: The license server is already $new_license_server"
+ print -u2 "$me: Nothing changed!"
+ exit
+ fi
+ cp $license_server_file $license_server_file.old
+ print $new_license_server > $license_server_file
+ print "$me: Switched license server from $old_license_server \c"
+ print "to $new_license_server."
+ print "$me: Saved old license server setting in $license_server_file.old"
+fi
--- /dev/null
+#!/bin/ksh
+################################################################################
+#
+# File: switch_region
+# Description: A script to switch the registry region from one region to
+# another.
+# Author: Andrew DeFaria, California Language Labs
+# Created: Wed Jan 15 16:52:22 PST 1997
+# Modified: Wed Jan 15 16:52:22 PST 1997 (Andrew DeFaria) defaria@cup.hp.com
+# Language: Korn Shell
+#
+# (c) Copyright 2001, Andrew@DeFaria.com, all rights reserved
+#
+################################################################################
+me=$(basename $0)
+
+function usage {
+ print "Usage: $me: <new ClearCase Region>"
+ exit 1
+} # usage
+
+if [ $(id -u) -ne 0 ]; then
+ print -u2 "$me: Error: Must be root to execute this command!"
+ usage
+fi
+
+# Get parameters
+if [ $# -ne 1 ]; then
+ usage;
+else
+ new_registry_region="$1"
+fi
+
+registry_region_file=/usr/adm/atria/rgy/rgy_region.conf
+
+if [ -f $registry_region_file ]; then
+ old_registry_region=$(cat $registry_region_file)
+ if [ "$old_registry_region" = "$new_registry_region" ]; then
+ print -u2 "$me: The registry region is already $new_registry_region"
+ print -u2 "$me: Nothing changed!"
+ exit
+ fi
+ cp $registry_region_file $registry_region_file.old
+ print $new_registry_region > $registry_region_file
+ print "$me: Switched registry region from $old_registry_region \c"
+ print "to $new_registry_region."
+ print "$me: Saved old registry setting in $registry_region_file.old"
+fi
--- /dev/null
+#!/bin/ksh
+################################################################################
+#
+# File: switch_rgy
+# Description: A script to switch the registry host from one machine to
+# another.
+# Author: Andrew DeFaria, California Language Labs
+# Created: Wed Jan 15 16:52:22 PST 1997
+# Modified: Wed Jan 15 16:52:22 PST 1997 (Andrew DeFaria) defaria@cup.hp.com
+# Language: Korn Shell
+#
+# (c) Copyright 2001, Andrew@DeFaria.com, all rights reserved
+#
+################################################################################
+me=$(basename $0)
+
+function usage {
+ print "Usage: $me: <new ClearCase Registry Server>"
+ exit 1
+} # usage
+
+if [ $(id -u) -ne 0 ]; then
+ print -u2 "$me: Error: Must be root to execute this command!"
+ usage
+fi
+
+# Get parameters
+if [ $# -ne 1 ]; then
+ usage;
+else
+ new_registry_server="$1"
+fi
+
+registry_host_file=/usr/adm/atria/rgy/rgy_hosts.conf
+
+if [ -f $registry_host_file ]; then
+ old_registry_server=$(cat $registry_host_file)
+ if [ "$old_registry_server" = "$new_registry_server" ]; then
+ print -u2 "$me: The registry server is already $new_registry_server"
+ print -u2 "$me: Nothing changed!"
+ exit
+ fi
+ cp $registry_host_file $registry_host_file.old
+ print $new_registry_server > $registry_host_file
+ print "$me: Switched registry server from $old_registry_server \c"
+ print "to $new_registry_server."
+ print "$me: Saved old registry setting in $registry_host_file.old"
+fi
--- /dev/null
+#!/bin/ksh
+#
+#
+# Title: sysinfo
+# Author: Scott Truesdale
+# Organization: Hewlett-Packard Account Support Organization
+# America's Engineering Services Team
+#
+# NOTE: This script is a contributed utility. No official support for it
+# will be provided by Hewlett-Packard. Any requests for bug fixes
+# or enhancements will be handled by the author, time permitting.
+#
+# Version: 1.00 08/01/96
+# Changes: 1.01 08/05/96 added functions to handle each module
+# 1.02 \ cleaned up various
+# 1.03 / output screens
+# 1.04 08/20/96 added filesystem check using lvol
+# 1.05 08/25/96 added savecore flag and space check
+# 1.06 09/03/96 changed filesystem check to use mnttab
+# 1.07 09/03/96 fixed filesystem check when bdf is 2 lines
+# 1.08 10/10/96 general cleanup, added more dump checking
+# 1.09 10/10/96 added use of pager variable for output
+# 1.10 10/23/96 fixed dump checking section (I hope)
+# added 10.10 compression calculation (-s)
+# 1.11 10/30/96 fixed display of number of stale extents (-l)
+# added comments to help document functions.
+# 1.12 10/31/96 added -N option to disable paging option.
+# 1.13 11/06/96 added cpu speed display (in MHz). (-s)
+# 1.14 11/08/96 removed tabs and added comments.
+# 1.15 11/11/96 added check for non HP-UX systems.
+# 1.16 11/20/96 expanded mapping to include number of
+# extents and mirrors. (-m)
+# 1.17 11/21/96 added kernel size display (-k)
+# added check for non-LVM disks (-p)
+# 1.18 11/26/96 added license, machine id (-s)
+# added domain name (-k)
+# fixed batch to include header information
+# added check for vgcfg files > 1 year old. (-v)
+# added kernel size to memory dump calculations
+# 1.19 12/03/96 fixed error if no CD mounted in CD-ROM drive
+# changed help (-h) to use man page
+# 1.20 12/12/96 added physical disk mapping option (-M)
+# for 10.x systems
+# added dbc_max_pct kernel parm
+# 1.21 12/17/96 added physical disk mapping for 9.x
+# 1.22 01/07/97 fixed bug in path display for cdroms
+# 1.23 02/04/97 added last patch date display
+# 1.24 02/10/97 fixed bug in physical check for cdrom
+# device busy error
+# 1.25 02/12/97 fixed display of dump on default for 9.x
+# 1.26 02/28/97 added display of default router
+# 1.27 03/10/97 added display of MAC address
+# 1.28 03/18/97 added display of alternate links
+# added bootable check to Physical info
+# 1.29 04/15/97 added check for dynamic buffer caching
+# added nflocks kernel parm
+# added check for async disk write
+# added check for savecore compression in
+# /etc/rc.config.d/savecore
+# fixed exit code for warnings
+# added auto boot string output
+# 1.30 04/22/97 cleaned up swap and dump disk display
+# added check for cdfs to % full warning
+# fixed dbc and its warning for only 10.x
+# added ability to specify savecore
+# compression factor as variable
+# 1.31 04/22/97 fixed bug in calculating savecore capacity
+# 1.32 04/22/97 added display of boot disks
+# 1.33 07/08/97 fixed pre 10.20 warning for not
+# enough savecore space
+# 1.34 07/19/97 added dns server display
+# changed netmask to decimal.dot format
+# 1.35 07/29/97 added use of model command to detect new
+# system models
+# added following from Mike Ryan:
+# fixed display of multiple MAC addresses
+# patch for pvdisplay difference in 10.20
+# fix VG display when PVG-strict policies used
+# (thanks Mike!)
+# 1.36 07/31/97 fixed bug in alternate PV link detection
+# 1.37 08/01/97 added super page check
+# removed dynamic buffer warning
+# improved debug message handling
+# changed debug messages to tee to file
+# 1.38 08/17/97 added check for number of volume groups equal
+# to maxvgs
+# started adding HTML hooks (-H option)
+# added HTML headers to each section
+# added HTML links to each section
+# added HTML info to man page
+# 1.39 08/20/97 added check for existing logfiles
+# ask user if we should delete batch logfile
+# automatically delete HTML logfile
+# changed temp file names to sysinfo.$$.
+# 1.40 08/26/97 changed physical disk section to not query
+# alternate links
+# 1.41 08/28/97 added kernel parms section extracted using
+# tools from SAM.
+# 1.42 09/19/97 changed network to use lanscan due to
+# problems with multiple I/F cards.
+# 1.43 10/21/97 added hw path to network card info.
+# added fstype display to filesystem info.
+# fixed display of cdfs space usage.
+# fixed man page that incorrectly stated free
+# space threshold was 10% instead of 5%.
+# 1.44 04/09/98 major enhancements
+# added ioscan listing.
+# added software listing (10.x only)
+# added listing of striped discs.
+# launched io, kernel and lvm scans
+# as background jobs to speed things up.
+# 1.45 04/17/98 fixed bug that caused dbc parms not to
+# be displayed.
+# 1.46 04/30/98 changed swap disk header to swap data
+# added fs swaptype to total swap display
+# 1.47 05/03/98 added warning about static buffer cache
+# numbers reported from kernel.
+# 1.48 05/20/98 added variable for logfile directory.
+# removed user query if removing existing logfile.
+# reworked logical volume section into two parts.
+# 1.49 07/01/98 first set of changes to work on 11.x
+# savecore now called savecrash
+# changed BOOTABLE to check for >= 10
+# physmem now called phys_mem_pages
+# 1.49a added host name to WARNING messages
+# added TOP link to html output
+# 1.49b 07/16/98 fixed problems for 9.x induced by background
+# scans of sam, swap and ioscan
+# samscan, ioscan, swapmem
+# removed samscan (getkinfo) from 9.x
+# changed to force getkinfo to rescan (-b)
+# 1.49c 07/23/98 more ioscan changes for 9.x
+# 1.49d 07/27/98 major kernel changes
+# 1.49e 08/01/98 fixed problem with filesystem display
+# if size greater than 65 GB.
+# 1.49f 08/03/98 added separate 9.x kernel function
+# including many more kernel metrics
+# moved kernel size to system section
+# rewrote header section for HTML
+# added batch print for software section
+# changed lanscan -i for 9.x
+# 1.49g 08/05/98 lots
+# 1.50 08/06/98 fixed kernel parms on 10.x & 11.x
+# 1.51 08/27/98 fixed savecore free space calculation when
+# using non-standard lvol name
+# added cstm extract of cpu & memory info
+# 1.52 10/14/98 fixed adb on 11.0 with 64 bit kernel
+# added display of 32 or 64 bit kernel on 11.0
+# 1.53 10/16/98 added processor info from stm
+# removed old SAM kernel code
+# 1.54 10/20/98 increased field for PDC to 12 chars
+# 1.55 10/20/98 fixed ifconfig problem with grep
+# 1.56 10/20/98 added No such file or directory check to diskinfo
+# changed rphysvol to use ioscan rather than
+# calculating
+# increased display of hwpath for EMC drives
+# 1.57 10/22/98 fixed bug in getting rdsk name
+# 1.58 10/27/98 added bad block relocation to logical display
+# added warning for EMC disks with LVM bad
+# block relocation enabled
+# 1.59 11/3/98 added check for iodevice w/o phyvol
+#
+# 1.70 04/12/99 added check for unsupported cstm versions
+# < 09 & > 13
+# 1.71 04/12/99 Numerous changes by Greg Sterling
+# Code handles CRASHCONF utility
+# Allows for dump devices in V11.x.
+# Dump devices can be disk drives in addition
+# to logical volumes.
+# Allow for Fibrechannel devices to be
+# accurately parsed in the Phys Device section.
+# Updated the wait for ioscan to complete.
+# The prior time was 15 seconds, this is not
+# enough for a large system with many devices.
+# I increased the wait to 125 seconds.
+# Fixed the "Last Patch" section to work with
+# a standard swinstall type system.
+# Added security check. Checks file permissions
+# on some critical files and dirs, and checks
+# modem access.
+# Check system log files (i.e. syslog.log,
+# mail.log, btmp, and wtmp). These files are
+# known to get large very quickly.
+# Changes the Date stamp on output files
+# to include a four digit year for Y2K reasons.
+# Check the sendmail queue for old (older than
+# 2 days) or large qty of entries.
+# Added code to check/output information
+# related to system diags (if its installed).
+# This included diags and predictive.
+# This option only applies to V10.x and up.
+# Fixed a few bugs in the code which limited
+# output to 10.10 or 10.20 systems. I had
+# to change some of the IF statements.
+# For V10.x systems and higher I added the
+# /var/adm/sw/*.log files to the logfile
+# check routine.
+# 1.72 04/25/99 fixed bug in crashconf size calculation
+# added ip name to ip addr in networking
+# moved 32/64 bit to follow OS version
+# added check for non-configured software
+# i.e. transient, corrupt, available
+# or installed
+# added listing of boot paths under bootable disks
+# 1.73 05/14/99 fixed cstm hang problem - finally!
+# vers 12 reversed the meanings of the
+# SaveAs and Print commands for Infolog
+# 1.74 05/25/99 improved formatting of cstm output
+# 1.75 06/02/99 fixed bug when cstm_tot_phys = N/A
+# added path to crashconf executable (/sbin/)
+# fixed bug when Online dir has .2 suffix
+# 1.76 07/12/99 several performance changes thanks to J. Semroc
+# changed filesystem section
+# added vxfs fragmentation; removed inodes
+# added check if Vxfs version < 3 on > 10.10
+# replaced cstm memory output
+# added umask of 077 for security purposes
+# 1.77 08/03/99 fixed Ignite version check for older versions
+# removed cd-rom size from total p_size
+# 1.78 09/07/99 added PA RISC chip and version
+# removed cstm upper version check
+# 1.78a 9/14/99 removed DVD size from total p_size
+# increased sum lines for CAPACITY
+# increased display size of product (model)
+# 1.78b 9/18/99 Incorporated numerous changes by Jerry Schwartz:
+# changed HTML output to use frames
+# #fixed bug in physical disk enumeration
+# fixed bug in check for /.profile
+# made cosmetic changes to error messages
+# ("Logfile" changed to "Important file",
+# "doesn not" changed to "does not")
+# 1.78c 10/2/99 Added cstm disk scan to retrieve firmware
+# and serial number info.
+# 1.78d 10/11/99 Updated models table
+# 1.78e
+# 1.78f Added XP256 information
+# 1.79b
+# |
+# 1.79f 04/18/00 Added INSTALL script
+# Added checks for diagmond to prevent hangs
+# Added disk array checks for FC60, AutoRaid
+# Cascade, and Nike.
+# 1.79g 04/19/00 Added return to diagmond check
+# 1.79h 05/15/00 Added additional system models
+# Removed get_array_data due to cstm problem
+#
+#
+# Acknowledgements:
+# I would like to acknowledge the following for assistance in
+# developing and testing this tool.
+#
+# Jerry Schwartz, Jeff Semroc, Greg Sterling, Mike Ryan & Bill Taylor
+# from the HP Account Support Organization for their help in debugging
+# and improving the code.
+#
+# LVMcollect.* scripts from Peter Van Giel in the Hewlett-Packard
+# Country Response Center Belgium.
+# capture script from Dave Olker of the Hewlett-Packard Worldwide
+# Technology Expert Center.
+#
+# Most of all I would like to thank the PRODUNIX support team
+# at Oracle Corp. for allowing me access and time to develop
+# and test using their systems.
+#
+#
+version="1.79h" #
+umask 077
+ROOT=$PWD #
+export RESOLV_CONF=/etc/resolv.conf #
+#script=`basename $0` #
+script="SysInfo" #
+typeset PAGER=${PAGER:-more} #
+typeset -x osmajor #
+typeset -R4 lcount=0 # number of logical volumes
+typeset -R4 pcount=0 # number of physical volumes
+typeset -R4 vgcount=0 # number of volume groups
+typeset -i total_stale=0 # number of stales extents
+typeset stale=0 # flag set if stale extents found
+typeset all_logvols # list of all logical volumes
+typeset -L17 physvol # name of phyical volume
+typeset -R21 rphysvold # name of raw phyical volume
+typeset -R24 hwpathd # path information for disk
+typeset -L8 vendor # vendor id string from disk
+typeset EMC_found=0 # flag for EMC disks
+typeset -R14 product # vendor model number from disk
+typeset -R1 bootable_pv # is disk bootable?
+typeset -R5 rev_level # firmware revision code from disk
+#typeset -R12 kernel_size #\
+typeset -i shmem # \
+typeset -R8 shmmni # \
+typeset -R8 shmmax # \
+typeset -R8 shmseg # \
+typeset -R8 maxfiles # \
+typeset -R8 maxfiles_lim # \
+typeset -R8 maxuprc # \
+typeset -R8 nproc # \
+typeset -R8 fs_async # \
+typeset -R8 nfile # kernel parameters
+typeset -R8 nflocks #
+typeset -R8 super_page_support # /
+typeset -R8 dbc_max_pct # /
+typeset -R8 dbc_min_pct # /
+typeset -R8 ninode # /
+typeset -R8 npty # /
+typeset -R8 nbuf # /
+typeset -R8 bufpages # /
+typeset -R8 maxvgs # /
+typeset SAVECORE # flag set if savecore is enabled
+typeset COMPRESS=0 #
+typeset COMPRESSION="N/A" # set if on 10.10 or later
+typeset Compress_Option="N/A" # enabled in /etc/rc.config.d/savecore
+typeset -R8 lv_pbuf_cnt # \
+typeset -R8 lv_pbuf_inuse # \
+typeset -R8 lv_pbuf_maxuse # more kernel parameters
+typeset -R8 lv_pbuf_pending_Q # for lvm
+typeset -R8 lv_vgs_opn # /
+typeset -R8 lv_lvs_opn # /
+typeset -i psize # physical disk size (in KBytes)
+typeset -R8 psize_mb # physical disk size (in Mbytes)
+### Changed 6/15/99 J.Semroc - Changed to handle large systems with 1000+ LU's
+### typeset -R3 lu # physical disk logical unit number
+typeset -R4 lu # physical disk logical unit number
+### end of Change
+typeset -L20 volgroup #
+typeset -R6 CURLV #
+typeset -R10 CURPV #
+typeset -R8 PeSize #
+typeset -R9 AllocPe #
+typeset -R8 FreePe #
+typeset -R8 TotalPe #
+typeset -R11 AllocMb #
+typeset -R8 FreeMb #
+typeset -R8 TotalMb #
+typeset -R8 TotalAllocMb=0 # total allocated Megabytes
+typeset -R8 TotalFreeMb=0 # total free Megabytes
+typeset -R8 SystemTotalMb=0 # total of all Megabytes
+typeset -R8 MirrorMb=0 # size of mirror
+typeset -R8 TotalMirrorMb=0 # total size of mirrors
+typeset -R8 OtherMb=0 #
+typeset -R11 total_p_mb=0 # total physical Megabytes
+typeset -R8 total_l_mb=0 # total logical Megabytes
+typeset -R8 unused_cap=0 #
+typeset -L4 fs_type #
+typeset -R4 vxfs_frag #
+typeset -i no_lost=0 # flag if lost+found/.fsadm not found
+typeset logvol #
+typeset -L40 logvold #
+typeset pvol #
+typeset -L16 statusout # status of extents (e.g. stale)
+typeset -R6 LVSize # size of logical volume
+typeset -R7 LogicalExtents #
+typeset -R8 StaleExtents #
+typeset -L35 MOUNT #
+typeset -R8 MirrorCopies # number of mirrors
+typeset -R8 Consistency # mirror consistency strategy
+typeset -i REAL_MEM # memory size (in pages)
+typeset -i memory # memory size (in MBytes)
+typeset -i num_cpus # number of active CPUs
+typeset -i StaleMB=0 # stale Megabytes
+typeset -i TotalStaleMb=0 # total stale Megabytes
+typeset -i cpu_speed=0 # clock speed in MHz
+typeset exit_code=0 # exit code [ 0, 1, 2, 3 ]
+typeset ERROR=1 # exit condition (program error)
+typeset WARN=2 # exit condition (system warning)
+typeset SYS_ERROR=3 # exit condition (system error)
+typeset SYSTEM=0 # \
+typeset FULL_KERNEL=0 # \
+typeset LITE_KERNEL=0 # \
+typeset FILESYSTEM=0 # \
+typeset NETWORK=0 # \
+typeset DEBUG=0 # \
+typeset SWLIST=0 # \
+typeset PHYSICAL=0 # flags set at runtime via
+typeset LOGICAL=0 # command line options
+typeset IOSCAN=0 # /
+typeset -x HTML=0 # /
+typeset NOPAGER=0 # /
+typeset VOLUMES=0 # /
+typeset CAPACITY=0 # /
+typeset BATCH=0 # /
+typeset LMAP=0 # /
+typeset PMAP=0 #/
+typeset KernelSafetyFactor=2 # adds two MBytes to kernel size
+typeset lvm_installed=0 # flag set if lvm present
+typeset -R6 DumpDiskCapacity=0 # space to hold memory dump
+typeset -R6 CompressedMemoryDumpSize #
+typeset -R6 compression_factor #
+typeset -i MemoryDumpSize # amount of memory (in MBytes)
+typeset -i TotalMemoryDumpSize # amount of memory + kernel size
+typeset -R6 MemoryDumpSizeOut # display version of MemoryDumpSize
+typeset -R6 TotalMemoryDumpSizeOut # display version of TotalMemoryDumpSize
+typeset -R6 SaveCoreAvail_Out # space to hold savecore
+ # can be compressed on 10.10 and later
+##############
+# Variables for Chk_Logfiles section
+##############
+LOGFILELISTV10="/var/adm/syslog/syslog.log /var/adm/syslog/mail.log \
+ /var/adm/btmp /var/adm/wtmp /var/adm/sw/swagent.log /var/adm/sw/swagentd.log \
+ /var/adm/sw/swconfig.log /var/adm/sw/swcopy.log /var/adm/sw/swinstall.log \
+ /var/adm/sw/swmodify.log /var/adm/sw/swreg.log /var/adm/sw/swremove.log"
+
+LOGFILELISTV9="/usr/adm/syslog /usr/spool/mqueue/log /etc/btmp /etc/wtmp"
+##############
+# Variables for Chk_SysAccess section
+##############
+WORLDREADFILES="/etc/passwd /etc/group /etc/hosts /etc/services \
+ /etc/inetd.conf"
+
+NOREADFILES=~root/.profile
+##############
+# variables for io_scan section
+##############
+GREP_ARGS=""
+GREP_V_ARGS="-eNO_HW"
+typeset -x ioscan_args="-F"
+typeset -x io_scan_out=/tmp/sysinfo.$$.io_scan.out
+typeset -x io_scan_tmp=/tmp/sysinfo.$$.io_scan.tmp
+typeset -x io_scan_done=/tmp/sysinfo.$$.io_scan_done
+typeset -x io_scan_command_file=/tmp/sysinfo.$$.io_scan_command_file
+##############
+# variables for lvm_scan section
+##############
+typeset -x vg_list_file=/tmp/sysinfo.$$.vg.list
+typeset -x vg_out_file=/tmp/sysinfo.$$.vg.out
+typeset -x lvol_list_file=/tmp/sysinfo.$$.lvol.list
+typeset -x lvol_out_file=/tmp/sysinfo.$$.lvol.out
+typeset -x pvol_list_file=/tmp/sysinfo.$$.pvol.list
+typeset -x pvol_out_file=/tmp/sysinfo.$$.pvol.out
+typeset -x lvm_scan_command_file=/tmp/sysinfo.$$.lvm_scan_command_file
+typeset -x lvm_scan_done=/tmp/sysinfo.$$.lvm_scan_done
+##############
+# variables for sam_scan section
+##############
+typeset -x sam_scan_command_file=/tmp/sysinfo.$$.sam_scan_command_file
+typeset -x sam_scan_done=/tmp/sysinfo.$$.sam_scan_done
+typeset -x sam_out_file=/tmp/sysinfo.$$.sam.out
+#typeset -x sam_kinfo=/tmp/sysinfo.$$.kinfo
+typeset -x sam_kinfo_new=/tmp/sysinfo.$$.kinfo_new
+##############
+# variables for kernel section
+##############
+typeset -x sam_kinfo=${sam_kinfo:-/tmp/sysinfo.$$.sam_kinfo}
+typeset -x all_parms_file=/tmp/sysinfo.$$.all_parms
+typeset -x all_classes_file=/tmp/sysinfo.$$.all_classes
+##############
+# variables for cstm section
+##############
+typeset -x cstm_command_file=/tmp/sysinfo.$$.cstm_command_file
+typeset -x cstm_cpu_out=/tmp/sysinfo.$$.cstm_cpu_out
+typeset -x cstm_cpu_out2=/tmp/sysinfo.$$.cstm_cpu_out2
+typeset -x cstm_mem_out=/tmp/sysinfo.$$.cstm_mem_out
+typeset -x cstm_disk_out=/tmp/sysinfo.$$.cstm_disk_out
+typeset -x cstm_array_out=/tmp/sysinfo.$$.cstm_array_out
+#############
+# variables for sap section
+#############
+# translate uppercase to lowercase
+TRUL='tr "ABCDEFGHIJKLMNOPQRSTUVWXYZ" "abcdefghijklmnopqrstuvwxyz"'
+typeset -x r3_dir=/var/opt/perf/datafiles/r3dsi
+typeset -x r3_prog=${r3_dir}/r3agent
+typeset -i num_instances=0
+
+
+ALL="TRUE"
+FORCE="FALSE"
+TEMPFILE=/var/sam/sam.$$
+save_lang=$LANG
+LANG=C
+
+
+################################################################################
+# Function: DebugOn()
+# Description: Turns debugging mode on.
+# Arguments: none
+# Returns: none
+
+DebugOn() {
+# set -o xtrace
+ export _DEBUG=1
+ export _DEBUG_FILE=/tmp/sysinfo_${sysname}_`date '+%Y%m%d'`_debug
+ #Debug Debug ON: info will be logged to screen and to $_DEBUG_FILE
+ print "\nDebug ON: info will be logged to $_DEBUG_FILE"
+ Debug Debug ON: info will be logged to $_DEBUG_FILE
+}
+
+################################################################################
+# Function: DebugOff()
+# Description: Turns debugging mode off.
+# Arguments: none
+# Returns: none
+
+DebugOff() {
+
+ Debug Debug OFF
+ _DEBUG=0
+ _DEBUG_FILE=$ROOT/debug.out
+}
+
+###############################################################################
+# Function: Debug()
+# Description: Prints debug statements to stderr when debug mode is on.
+# Arguments: Text to echo.
+# Returns: none
+
+Debug() {
+
+ if [ "$_DEBUG" -gt 0 ]
+ then
+ #echo "DEBUG (PID $$): $*" | tee -a $_DEBUG_FILE 1>&2
+ echo "DEBUG (PID $$): $*" >> $_DEBUG_FILE 2>&1
+ fi
+}
+
+
+#-----------------------------------------------------------#
+# Exit function, called by trapped signals
+#-----------------------------------------------------------#
+function _sigexit
+{
+# print "Cleaning up, please wait."
+ if (($DEBUG)) && ((!(($NOPAGER)) ))
+ then
+ read answer?"Delete temp files? [Y/n]"
+ if [[ ${answer} = n ]]
+ then
+ print "O.K. Don't forget to delete /tmp/sysinfo.$$.*"
+ print "exit value = ${exit_code}"
+ else
+ print "O.K. I'm deleting temp files /tmp/sysinfo.$$.*"
+ rm -f /tmp/sysinfo.$$.* > /dev/null 2>&1
+ print "exit_code = ${exit_code}"
+ fi
+ else
+ rm -f /tmp/sysinfo.$$.* > /dev/null 2>&1
+ fi
+ exit ${exit_code}
+}
+trap _sigexit EXIT KILL HUP QUIT INT
+
+
+function usage
+{
+cat << EOF | $PAGER
+
+${script} ${version} by Scott Truesdale
+
+Usage: ${script} [-aADfikKlLmMnpsSv] [-b|-H|-N]
+ ${script} [-h]
+
+ -a displays all of the following options.
+ -A displays file access security.
+ -D checks system diagnostic information.
+ -f checks filesystems for free space.
+ -h displays detailed help message.
+ -i displays io configuration.
+ -k displays brief kernel parameters.
+ -K displays verbose kernel parameters.
+ -l displays logical volume data.
+ -L displays system logfile info.
+ -m displays logical to physical disk mapping.
+ -M displays physical to logical disk mapping.
+ -n displays network interface data.
+ -p displays physical disk data.
+ -P checks for R/3 instances.
+ -s displays the system and root disk data.
+ -S displays software listing (swlist).
+ -v displays volume group data.
+
+ -b send output to a logfile.
+ -H send output to a logfile in HTML format.
+ -N turn off paging in screen mode.
+
+Note: disk capacity data is displayed only when using -a or -lpv.
+
+EOF
+} # end of usage
+
+function print_help
+{
+export MANPATH=/usr/contrib/man:${where}:$MANPATH
+# to debug help -d must come before -h
+Debug "print_help"
+Debug " where=${where}"
+Debug " MANPATH=${MANPATH}"
+if [[ -f ${where}/man1m/sysinfo.1m ]] || \
+ [[ -f /usr/contrib/man/man1m/sysinfo.1m ]]
+then
+ man sysinfo
+ exit_code=0
+else
+ print "Cannot find man page for ${script}!"
+ print "Expected to find it in /usr/contrib/man/man1m/"
+ exit_code=${ERROR}
+fi
+}
+
+
+#===================================================================
+# get_args
+# gets command line arguments passed in at run time
+#===================================================================
+function get_args
+{
+if (($# == 0))
+then
+#print "\n$Must specify one or more of the following:$\n"
+ usage
+ exit ${ERROR}
+fi
+while getopts :abdfhiklmnpsvADHKLMNPS arguments
+do
+ case $arguments in
+ a) LITE_KERNEL=1
+ LOGFILES=1
+ FILEACCESS=1
+ DIAGNOSTICS=1
+ SYSTEM=1
+ NETWORK=1
+ IOSCAN=1
+ LVMSCAN=1
+ PHYSICAL=1
+ VOLUMES=1
+ LOGICAL=1
+ FILESYSTEM=1
+ SWLIST=1
+ PMAP=1
+ LMAP=1;;
+ A) FILEACCESS=1;;
+ b) BATCH=1
+
+ LOGDIR=${SYSINFO_LOGDIR:-"/tmp"}
+ LOGFILE="${LOGDIR}/sysinfo_${sysname}_`date '+%Y%m%d'`"
+ Debug "Removing $LOGFILE"
+ rm -f $LOGFILE > /dev/null 2>&1
+
+ ;;
+ d) DEBUG=1
+ DebugOn;;
+ D) DIAGNOSTICS=1;;
+ f) FILESYSTEM=1;;
+ h) print_help
+ exit ${exit_code};;
+ H) HTML=1
+ BATCH=1
+ LOGFILES=1
+ LITE_KERNEL=1
+ FILEACCESS=1
+ DIAGNOSTICS=1
+ SYSTEM=1
+ NETWORK=1
+ PHYSICAL=1
+ VOLUMES=1
+ IOSCAN=1
+ LVMSCAN=1
+ LOGICAL=1
+ FILESYSTEM=1
+ SWLIST=1
+ PMAP=1
+ LMAP=1
+ LOGDIR=${SYSINFO_LOGDIR:-"/tmp"}
+ LOGFILE="${LOGDIR}/sysinfo_${sysname}_`date '+%Y%m%d'`.html"
+ if [[ -f ${LOGFILE} ]]
+ then
+ rm -f $LOGFILE >> /dev/null 2>&1
+ Debug "Removing $LOGFILE"
+ fi
+ LOGFILE_INDEX_REL="`basename ${LOGFILE} .html`.index.html"
+ LOGFILE_INDEX="`dirname ${LOGFILE}`/${LOGFILE_INDEX_REL}"
+ if [[ -f ${LOGFILE_INDEX} ]]
+ then
+ rm -f ${LOGFILE_INDEX} >> /dev/null 2>&1
+ Debug "Removing ${LOGFILE_INDEX}"
+ fi
+ LOGFILE_MAIN_REL="`basename ${LOGFILE} .html`.main.html"
+ LOGFILE_MAIN="`dirname ${LOGFILE}`/${LOGFILE_MAIN_REL}"
+ if [[ -f ${LOGFILE_MAIN} ]]
+ then
+ rm -f ${LOGFILE_MAIN} >> /dev/null 2>&1
+ Debug "Removing ${LOGFILE_MAIN}"
+ fi;;
+ i) IOSCAN=1;;
+ k) LITE_KERNEL=1;;
+ K) FULL_KERNEL=1;;
+ l) LOGICAL=1
+ LVMSCAN=1;;
+ L) LOGFILES=1;;
+ m) LMAP=1;;
+ M) PHYSICAL=1
+ SYSTEM=1
+ PMAP=1;;
+ n) NETWORK=1;;
+ p) PHYSICAL=1
+ SYSTEM=1;;
+ P) PASS=1;;
+ s) SYSTEM=1;;
+ S) SWLIST=1;;
+ v) VOLUMES=1
+ LVMSCAN=1;;
+ N) NOPAGER=1;;
+ ?) print "\nI don't understand that option\n"
+ usage
+ exit ${ERROR};;
+ esac
+ if (($PHYSICAL)) && (($VOLUMES)) && (($LOGICAL))
+ then
+ CAPACITY=1
+ fi
+ if (($LITE_KERNEL)) && (($FULL_KERNEL))
+ then
+ LITE_KERNEL=0
+ fi
+ if (($BATCH)) && (($DEBUG))
+ then
+ NOPAGER=1
+ fi
+done
+Debug "FLAGS: System=$SYSTEM Batch=$BATCH FullKernel=$FULL_KERNEL"
+Debug "FLAGS: LiteKernel=$LITE_KERNEL Network=$NETWORK"
+Debug "FLAGS: Volumes=$VOLUMES Capacity=$CAPACITY Logical=$LOGICAL"
+Debug "FLAGS: Physical=$PHYSICAL LMapping=$LMAP PMapping=$PMAP"
+Debug "FLAGS: Filesystem=$FILESYSTEM NoPager=$NOPAGER Html=$HTML"
+Debug "FLAGS: Ioscan=$IOSCAN lvm_scan=$LVMSCAN Sam_scan=$SAMSCAN"
+Debug "FLAGS: Swlist=$SWLIST Diagnostics=$DIAGNOSTICS"
+Debug "FLAGS: PASS=$PASS"
+if (($BATCH))
+then
+ print "\nOutput going to ${LOGFILE}"
+fi
+} # end of get_args
+
+
+#===================================================================
+# f_display_file
+# this function displays a file to the screen. it takes one parm,
+# the file to display. It uses the defined PAGER or more if that
+# variable is not defined.
+#===================================================================
+function f_display_file
+{
+ if [[ -s $1 ]]
+ then
+ if (($BATCH))
+ then
+ cat $1 >> $LOGFILE
+ if (($HTML))
+ then
+ grep -v "#Top" $1 | grep -v "TOP</A" >> $LOGFILE_MAIN
+ fi
+ elif (($NOPAGER))
+ then
+ cat $1
+ else # not batch so use PAGER
+ $PAGER $1
+ fi
+ fi
+} # end of f_display_file
+
+
+###############################################################################
+# Function: check_for_sap
+# Description: Check for any instances of R/3 by running r3agent -all.
+# The output is scanned for the required info.
+#
+# The r3agentSYSTEM output is as follows:
+# 01 "31G" "QAS" "sapgui sapd370 nr=01 name=QAS"
+#
+# The r3agentCONFIGURATION output is as follows:
+# 01 "DVEBMGS01" "QAS" "sapd370" ""
+
+function check_for_sap
+{
+ print "Checking for SAP R/3 instances."
+ DB_on_this_sys=0
+ if (($HTML))
+ then
+ print "</PRE>" >> /tmp/sysinfo.$$.sap
+ print "<A name='SAP'></A>" >> /tmp/sysinfo.$$.sap
+ print "<H2>" >> /tmp/sysinfo.$$.sap
+ print "<P ALIGN=RIGHT><A HREF='#Top'>" >> /tmp/sysinfo.$$.sap
+ print "TOP</A></P>" >> /tmp/sysinfo.$$.sap
+ print "<FONT COLOR=red>" >> /tmp/sysinfo.$$.sap
+ print "SAP R/3 Info</FONT></H2>" >> /tmp/sysinfo.$$.sap
+ print "<PRE><font size = '4'>" >> /tmp/sysinfo.$$.sap
+ else
+ print "" >> /tmp/sysinfo.$$.sap
+ print "SAP R/3 Information" >> /tmp/sysinfo.$$.sap
+ print "===================" >> /tmp/sysinfo.$$.sap
+ print "" >> /tmp/sysinfo.$$.sap
+ fi
+ if [ -f ${r3_prog} ]
+ then
+ ${r3_prog} -all
+ num_instances=$( cat ./r3agentSYSTEM | wc -l)
+ if ((num_instances == 0))
+ then
+ print "No R/3 instances found."
+ print "No R/3 instances found." >> /tmp/sysinfo.$$.sap
+ rm ./r3agent[A-Z]* > /dev/null 2>&1
+ break
+ else
+ print "Found ${num_instances} instances."
+ cat ./r3agentCONFIGURATION |
+ while read inst_id INSTANCE_NAME SAPSYSTEMNAME SAPDBHOST p5 p6 p7
+ do
+ INSTANCE_NAME=$(echo ${INSTANCE_NAME} | sed -e 's/\"*//g')
+ SID=$(echo ${SAPSYSTEMNAME} | sed -e 's/\"*//g')
+ SAPDBHOST=$(echo ${SAPDBHOST} | sed -e 's/\"*//g')
+ SAP_ADM="`echo $SID | $TRUL`adm"
+ startsap=$(su - ${SAP_ADM} -c "alias startsap" 2>&1 | tail -1)
+ sapstart=$(ps -ef | grep sapstart | grep -v grep | awk '{print $9}')
+ #PROFILE_DIR=$(grep "^PROFILE_DIR" ${startsap} | awk -F\" '{print $2}')
+ PROFILE_DIR=/usr/sap/${SID}/SYS/profile
+ EXE_DIR=/usr/sap/${SID}/SYS/exe/run
+ startprofile=$(grep "^START_PROFILE" ${startsap} |awk -F\" '{print $2}')
+ #SAPDBHOST=$(awk -F= '/SAPDBHOST/ {print $2}' $PROFILE_DIR/DEFAULT.PFL)
+ ${EXE_DIR}/disp+work -V > /tmp/sysinfo.$$.dispwork 2>&1
+
+ Debug "Saving dispwork -V output file"
+ cp /tmp/sysinfo.$$.dispwork ${r3_dir}/dispwork > /dev/null 2>&1
+
+ r3kernel=$(grep "kernel release" /tmp/sysinfo.$$.dispwork | \
+ awk '{print $3}')
+ r3patch=$(grep "patch level" /tmp/sysinfo.$$.dispwork | \
+ head -1 | awk '{print $3}')
+ r3db=$(grep "database kernel" /tmp/sysinfo.$$.dispwork | \
+ awk '{print $4}')
+ r3dbver=$(grep "database kernel" /tmp/sysinfo.$$.dispwork | \
+ awk '{print $5}')
+ if [[ -f ${PROFILE_DIR}/${startprofile} ]]
+ then
+ Debug "Saving profile ${PROFILE_DIR}/${startprofile}"
+ cp ${PROFILE_DIR}/${startprofile} ${r3_dir} > /dev/null 2>&1
+ fi
+ if [[ $SAPDBHOST = $sysname ]]
+ then
+ DB_on_this_sys=1
+ startdb=${EXE_DIR}/startsb
+ ORASID="ora`echo $SID | $TRUL`"
+ ORACLE_HOME=/oracle/${SID}
+ db_profile=${ORACLE_HOME}/dbs/init${SID}.ora
+ INITORA=$ORACLE_HOME/dbs/init${SID}.ora
+ if [[ -f ${db_profile} ]]
+ then
+ Debug "Saving profile ${db_profile}"
+ cp ${db_profile} ${r3_dir} > /dev/null 2>&1
+ fi
+ fi
+ print " Instance ID = $inst_id" >> /tmp/sysinfo.$$.sap
+ print " Instance Name = ${INSTANCE_NAME}" >> /tmp/sysinfo.$$.sap
+ print " SAP System Name = ${SID}" >> /tmp/sysinfo.$$.sap
+ print " R/3 Kernel Vers = ${r3kernel}" >> /tmp/sysinfo.$$.sap
+ print " R/3 Patch Level = ${r3patch}" >> /tmp/sysinfo.$$.sap
+ print " R/3 DB Vendor = ${r3db}" >> /tmp/sysinfo.$$.sap
+ print " R/3 DB Version = ${r3dbver}" >> /tmp/sysinfo.$$.sap
+ print " SAP adm user = ${SAP_ADM}" >> /tmp/sysinfo.$$.sap
+ print " startsap = ${startsap}" >> /tmp/sysinfo.$$.sap
+ print " sapstart = ${sapstart}" >> /tmp/sysinfo.$$.sap
+ print " Profile Dir = ${PROFILE_DIR}" >> /tmp/sysinfo.$$.sap
+ print " startprofile = ${startprofile}" >> /tmp/sysinfo.$$.sap
+ print " SAPDBHOST = ${SAPDBHOST}" >> /tmp/sysinfo.$$.sap
+ if (($DB_on_this_sys))
+ then
+ print " DB_on_this_sys = true" >> /tmp/sysinfo.$$.sap
+ print " ORASID = ${ORASID}" >> /tmp/sysinfo.$$.sap
+ print " ORACLE_HOME = ${ORACLE_HOME}" >> /tmp/sysinfo.$$.sap
+ print " INITORA = ${INITORA}" >> /tmp/sysinfo.$$.sap
+ else
+ print " DB_on_this_sys = false" >> /tmp/sysinfo.$$.sap
+ fi
+ print "" >> /tmp/sysinfo.$$.sap
+ done
+ fi
+ else
+ print " r3agent not found!"
+ print " Scanning for dw.sap processes."
+ allinst=$(ps -ef | grep dw.sap | grep -v grep | awk '{print $(NF -1)}' | sort | uniq)
+ if [[ -z $allinst ]]
+ then
+ num_instances=0
+ else
+ num_instances=$(echo $allinst | wc -w)
+ fi
+ if ((num_instances == 0))
+ then
+ print "No R/3 instances found."
+ print "No R/3 instances found." >> /tmp/sysinfo.$$.sap
+ break
+ else
+ print "Found ${num_instances} instances."
+ for inst in ${allinst}
+ do
+ numchar=$(echo $inst | wc -c)
+ (( numchar = numchar - 1 ))
+ (( numchar1 = numchar - 1 ))
+ SID=$(echo $inst | cut -b7-9)
+ inst_id=$(echo $inst | cut -b${numchar1}-${numchar})
+ INSTANCE_NAME=$(echo $inst | cut -b11-${numchar})
+ SAP_ADM="`echo $SID | $TRUL`adm"
+ PROFILE_DIR=/usr/sap/${SID}/SYS/profile
+ startsap=$(su - ${SAP_ADM} -c "alias startsap" 2>&1 | tail -1)
+ #sapstart=$(ps -ef | grep sapstart | grep $SID |grep -v grep | awk '{print $9}')
+ sapstart=$(ls -L ${PROFILE_DIR}/START_${INSTANCE_NAME})
+ #echo $sapstart
+ startprofile=$(grep "^START_PROFILE" ${sapstart} |awk -F\" '{print $2}')
+ EXE_DIR=/usr/sap/${SID}/SYS/exe/run
+ SAPDBHOST=$(awk -F= '/SAPDBHOST/ {print $2}' $PROFILE_DIR/DEFAULT.PFL)
+ SAPDBHOST=$(echo $SAPDBHOST | sed -e 's/\ *//g')
+ if [[ $SAPDBHOST = $sysname ]]
+ then
+ DB_on_this_sys=1
+ startdb=${EXE_DIR}/startsb
+ ORASID="ora`echo $SID | $TRUL`"
+ ORACLE_HOME=/oracle/${SID}
+ INITORA=$ORACLE_HOME/dbs/init${SID}.ora
+ if [[ -f ${db_profile} ]]
+ then
+ Debug "Saving profile ${db_profile}"
+ cp ${db_profile} ${r3_dir} > /dev/null 2>&1
+ fi
+ fi
+ ${EXE_DIR}/disp+work -V > /tmp/sysinfo.$$.dispwork 2>&1
+
+ Debug "Saving dispwork -V output file"
+ cp /tmp/sysinfo.$$.dispwork ${r3_dir}/dispwork > /dev/null 2>&1
+
+ r3kernel=$(grep "kernel release" /tmp/sysinfo.$$.dispwork | \
+ awk '{print $3}')
+ r3patch=$(grep "patch level" /tmp/sysinfo.$$.dispwork | \
+ head -1 | awk '{print $3}')
+ r3db=$(grep "database kernel" /tmp/sysinfo.$$.dispwork | \
+ awk '{print $4}')
+ r3dbver=$(grep "database kernel" /tmp/sysinfo.$$.dispwork | \
+ awk '{print $5}')
+
+ print " Instance ID = $inst_id" >> /tmp/sysinfo.$$.sap
+ print " Instance Name = ${INSTANCE_NAME}" >> /tmp/sysinfo.$$.sap
+ print " SAP System Name = ${SID}" >> /tmp/sysinfo.$$.sap
+ print " R/3 Kernel Vers = ${r3kernel}" >> /tmp/sysinfo.$$.sap
+ print " R/3 Patch Level = ${r3patch}" >> /tmp/sysinfo.$$.sap
+ print " R/3 DB Vendor = ${r3db}" >> /tmp/sysinfo.$$.sap
+ print " R/3 DB Version = ${r3dbver}" >> /tmp/sysinfo.$$.sap
+ print " SAP adm user = ${SAP_ADM}" >> /tmp/sysinfo.$$.sap
+ print " startsap = ${startsap}" >> /tmp/sysinfo.$$.sap
+ print " sapstart = ${sapstart}" >> /tmp/sysinfo.$$.sap
+ print " Profile Dir = ${PROFILE_DIR}" >> /tmp/sysinfo.$$.sap
+ print " startprofile = ${startprofile}" >> /tmp/sysinfo.$$.sap
+ print " SAPDBHOST = ${SAPDBHOST}" >> /tmp/sysinfo.$$.sap
+ if (($DB_on_this_sys))
+ then
+ print " DB_on_this_sys = true" >> /tmp/sysinfo.$$.sap
+ print " ORASID = ${ORASID}" >> /tmp/sysinfo.$$.sap
+ print " ORACLE_HOME = ${ORACLE_HOME}" >> /tmp/sysinfo.$$.sap
+ print " INITORA = ${INITORA}" >> /tmp/sysinfo.$$.sap
+ else
+ print " DB_on_this_sys = false" >> /tmp/sysinfo.$$.sap
+ fi
+ print "" >> /tmp/sysinfo.$$.sap
+ done
+ fi
+ fi
+
+}
+
+###############################################################################
+# Function: chk_ignite()
+# Description: Check if IgniteUX is installed. If so, check for the last
+# completed make_recovery. Check if make_recovery -C has been
+# run. If so, run check_recovery and display results.
+#
+# Arguments: none
+# Returns: none
+
+function chk_ignite
+{
+ Debug " Starting chk_ignite"
+ if [[ ${osmajor} < 10 ]]
+ then
+ print "IgniteUX is not supported on less that HP-UX 10.x"
+ Debug " Unsupported HP-UX version $osmajor"
+ break
+ fi
+ print "Checking for IgniteUX."
+ if [ -d /opt/ignite ]
+ then
+ if [ -f /opt/ignite/Version ]
+ then
+ ignite_ver=$(cat /opt/ignite/Version)
+ print "IgniteUX is installed. Version = $ignite_ver" >> \
+ /tmp/sysinfo.$$.ignite
+ else
+ print "IgniteUX is installed. Version = N/A." \
+ >> /tmp/sysinfo.$$.ignite
+ fi
+ if [ -f /var/opt/ignite/logs/makerec.log1 ]
+ then
+ last_make_recovery=$(grep Completed /var/opt/ignite/logs/makerec.log1)
+ if [ -z $last_make_recovery ]
+ then
+ print "WARNING (${sysname}): IGNITE make_recovery not run." >> \
+ /tmp/sysinfo.$$.errwarn
+ else
+ print "Most recent make_recovery = ${last_make_recovery}" >> \
+ /tmp/sysinfo.$$.ignite
+ fi
+ else
+ print "WARNING (${sysname}): IGNITE make_recovery not run or logfile deleted." \
+ >> /tmp/sysinfo.$$.errwarn
+ fi
+ if [ -f /var/opt/ignite/recovery/makerec.last ]
+ then
+ check_recovery #> /dev/null 2>&1
+ else
+ print "WARNING (${sysname}): IGNITE check_recovery log not found" \
+ >> /tmp/sysinfo.$$.errwarn
+ fi
+ else
+ print "WARNING (${sysname}): IgniteUX is NOT installed." \
+ >> /tmp/sysinfo.$$.errwarn
+ fi
+ f_display_file /tmp/sysinfo.$$.ignite
+}
+###############################################################################
+# Function: chk_diags()
+# Description: Check the system's diagnostic software configuration. Output
+# the predictive setting if its installed. This is important info.
+#
+# Arguments: none
+# Returns: none
+
+chk_diags()
+{
+ Debug " Starting Chk_Diags. OSMAJOR = $osmajor"
+
+ if (($HTML))
+ then
+ print "</PRE>" >> /tmp/sysinfo.$$.diagnostics.info
+ print "<A NAME='DIAGNOSTICS'></A>" >> \
+ /tmp/sysinfo.$$.diagnostics.info
+ print "<H2>" >> \
+ /tmp/sysinfo.$$.diagnostics.info
+ print "<P ALIGN=RIGHT><A HREF='#Top'>TOP</A></P>" >> \
+ /tmp/sysinfo.$$.diagnostics.info
+ print "<FONT COLOR=red>" >> \
+ /tmp/sysinfo.$$.diagnostics.info
+ print "System Diagnostics Settings</H2>" >> \
+ /tmp/sysinfo.$$.diagnostics.info
+ print "</FONT><PRE><font size = '4'>" >> \
+ /tmp/sysinfo.$$.diagnostics.info
+ else
+ print "SYSTEM DIAGNOSTICS SETTINGS" >> \
+ /tmp/sysinfo.$$.diagnostics.info
+ print "==========================" >> \
+ /tmp/sysinfo.$$.diagnostics.info
+ fi
+
+ print -n "checking system diagnostics "
+
+ print "" >> /tmp/sysinfo.$$.diagnostics.info
+ case $osmajor in
+ 10 | 11 )
+#
+# Look for the OnlineDiag product file. If it exists, then the product is
+# installed on the system. You can use the product's INDEX file to get the
+# product version (this can be important info).
+#
+ print ".\c"
+ prodfile=$(ls -d /var/adm/sw/products/OnlineDiag* 2>&1)
+ Debug "Found OnlineDiag dir - ${prodfile}"
+ if [ -d "$prodfile" ]
+ then
+ print -n "Online Diagnostics are Installed: " \
+ >> /tmp/sysinfo.$$.diagnostics.info
+ print "Version: $(grep ^revision $prodfile/pfiles/INDEX \
+ | awk '{print $NF}')\t\c" >> /tmp/sysinfo.$$.diagnostics.info
+ print "Status: \c" >> /tmp/sysinfo.$$.diagnostics.info
+#
+# Now use the PS command to see if diagnostics are running.
+#
+ ps -ef | grep -q diagmon
+ if [ $? -eq 0 ]
+ then
+ print "Running" >> /tmp/sysinfo.$$.diagnostics.info
+ else
+ print "Down" >> /tmp/sysinfo.$$.diagnostics.info
+ fi
+ print "" >> /tmp/sysinfo.$$.diagnostics.info
+#
+# If the diagnostics software is properly installed then there should be
+# programs in the LIF area named ODE, MAPPER, and MAPFILE. If these values
+# are not present, then diags will not run from console mode.
+#
+# By checking all boot disks (obtained from lvlnboot -v), we also check
+# any mirrored volumes. This is good because mirrored root volumes are
+# often missed.
+#
+ typeset -i liferrors
+ bootdsks=$(lvlnboot -v 2>/dev/null | grep "Boot Disk" | awk '{print $1}')
+
+ print "Checking LIF Information (ODE, MAPPER and, MAPFILE)" >> \
+ /tmp/sysinfo.$$.diagnostics.info
+ print ".\c"
+#
+# Now loop for each boot disk found by lvlnboot -v. This will check mirrors
+# as well as primary disks. All boot disks should have diags installed.
+#
+ for bdisk in $bootdsks
+ do
+ liferrors=0
+ lifls -l $bdisk >> /tmp/sysinfo.$$.diagnostics.lifinfo
+ for lfdiag in ODE MAPPER MAPFILE
+ do
+ grep -q $lfdiag /tmp/sysinfo.$$.diagnostics.lifinfo
+ if [ $? -ne 0 ]
+ then
+ print "WARNING (${sysname}): Missing $lfdiag on ${bdisk}." \
+ >> /tmp/sysinfo.$$.errwarn
+ liferrors=liferrors+1
+ fi
+ done
+#
+# If the liferrors variable is greater than zero then this disk was missing at
+# least one of the required LIF files. If its equal to zero, then this disk
+# has all the required info.
+#
+ if [ $liferrors -eq 0 ]
+ then
+ print "$bdisk\tOK" >> /tmp/sysinfo.$$.diagnostics.info
+ fi
+ done
+ else
+ print "WARNING (${sysname}): Online Diagnostics are NOT Installed." >> \
+ /tmp/sysinfo.$$.errwarn
+ print "Online Diagnostics are NOT Installed." >> \
+ /tmp/sysinfo.$$.diagnostics.info
+ fi
+#
+# Now check the system product database to see if Predictive is installed.
+# If it is, then output its version info, and check to see if its running
+# (again using the ps command).
+#
+ print ".\c"
+ print " " >> /tmp/sysinfo.$$.diagnostics.info
+ prodfile=$(ls -d /var/adm/sw/products/Predictive* 2>&1)
+ Debug "Found Predictive dir - ${prodfile}"
+ if [ -d "$prodfile" ]
+ then
+ print -n "Predictive is Installed: Version:" \
+ >> /tmp/sysinfo.$$.diagnostics.info
+ print " $(grep ^revision $prodfile/pfiles/INDEX | awk \
+ '{print $NF}')\t\c" >> /tmp/sysinfo.$$.diagnostics.info
+ print "Status: \c" >> /tmp/sysinfo.$$.diagnostics.info
+ ps -ef | grep -q psmond
+ if [ $? -eq 0 ]
+ then
+ print "Running" >> /tmp/sysinfo.$$.diagnostics.info
+ else
+ print "Down" >> /tmp/sysinfo.$$.diagnostics.info
+ fi
+#
+# Predictive is installed. Run PSCONFIG to output the configuration info and
+# the recent log history. This is good documentation of the system, and shows
+# whether the system has been reporting problems to the response center.
+#
+ print ".\c"
+ print "" >> /tmp/sysinfo.$$.diagnostics.info
+ print "Predictive Configuration Information" >> \
+ /tmp/sysinfo.$$.diagnostics.info
+ if [ -x /opt/pred/bin/PSCONFIG ]
+ then
+ print ".\c"
+ /opt/pred/bin/PSCONFIG print configuration >> \
+ /tmp/sysinfo.$$.diagnostics.info 2>/dev/null
+ print ".\c"
+ /opt/pred/bin/PSCONFIG print action >> \
+ /tmp/sysinfo.$$.diagnostics.info 2>/dev/null
+ else
+ print "ARNING (${sysname}): PSCONFIG is not executable" >> \
+ /tmp/sysinfo.$$.errwarn
+ fi
+ else
+ print "Predictive is NOT Installed." >> \
+ /tmp/sysinfo.$$.diagnostics.info
+ print "WARNING (${sysname}): Predictive is NOT Installed." >> \
+ /tmp/sysinfo.$$.errwarn
+ fi
+ ;;
+#
+# I did not implement any code which would work with V9.x or earlier. At this
+# point, most customers should be at V10.x by now. V9.x is off support life.
+#
+ 8 | 9 )
+ print "This module was created for V10.x and higher. Sorry."
+ ;;
+ esac
+
+ print ""
+ print "" >> /tmp/sysinfo.$$.diagnostics.info
+
+ f_display_file /tmp/sysinfo.$$.diagnostics.info
+
+ return $return_code
+}
+
+###############################################################################
+# Function: chk_sysaccess()
+# Description: Routine used to check some of the security characteristics of
+# the system. This includes checking the permissions of the
+# /etc/passwd, and /etc/group files as well as checking for
+# .rhosts and other files.
+# Arguments: none
+# Returns: none
+
+chk_sysaccess() {
+ Debug " Starting Chk_SysAccess. OSMAJOR = $osmajor"
+
+ if (($HTML))
+ then
+ print "</PRE>" >> /tmp/sysinfo.$$.sysaccess.info
+ print "<A NAME='SYSACCESS'></A>" >> /tmp/sysinfo.$$.sysaccess.info
+ print "<H2>" >> /tmp/sysinfo.$$.sysaccess.info
+ print "<P ALIGN=RIGHT><A HREF='#Top'>" >> /tmp/sysinfo.$$.sysaccess.info
+ print "TOP</A></P>" >> /tmp/sysinfo.$$.sysaccess.info
+ print "<FONT COLOR=red>" >> /tmp/sysinfo.$$.sysaccess.info
+ print "System Security Audit</H2>" >> /tmp/sysinfo.$$.sysaccess.info
+ print "</FONT><PRE><font size = '4'>" >> /tmp/sysinfo.$$.sysaccess.info
+ else
+ print "SYSTEM SECURITY AUDIT" >> /tmp/sysinfo.$$.sysaccess.info
+ print "==========================" >> /tmp/sysinfo.$$.sysaccess.info
+ fi
+
+ last -R > /tmp/sysinfo.$$.last
+ print -n "checking system security "
+ print "" >> /tmp/sysinfo.$$.sysaccess.info
+
+ print "File Permissions. Files which should be World and Group Read-Only." \
+ >> /tmp/sysinfo.$$.sysaccess.info
+
+ for lfile in $WORLDREADFILES
+ do
+ Debug " chk_SysAccess. Checking $lfile."
+ if [[ ! -a "$lfile" ]]
+ then
+ print "ERROR ($sysname): Important file $lfile does not exist." >> \
+ /tmp/sysinfo.$$.errwarn
+ return_code=$ERROR
+ else
+#
+# Get the important file's directory information.
+#
+ llinfo=$(ll -d $lfile)
+#
+# Now check the file's permissions
+#
+ echo "$llinfo" | cut -c5-10 | egrep -q "w"
+ if [ $? -eq 0 ]
+ then
+ print "WARNING ($sysname): Important file $lfile has Group or World WRITE access. " >> /tmp/sysinfo.$$.errwarn
+ return_code=$WARN
+ fi
+ echo "$llinfo" >> /tmp/sysinfo.$$.sysaccess.info
+ fi
+ done
+#
+# Now check the system for files/directories which should be accessible to
+# root only. This code will flag files which have any access other than the
+# owner.
+#
+ print "" >> /tmp/sysinfo.$$.sysaccess.info
+ print "File Permissions. Files which should be Accessible to Root only." >> \
+ /tmp/sysinfo.$$.sysaccess.info
+
+ for lfile in $NOREADFILES
+ do
+ Debug " chk_SysAccess. Checking $lfile."
+ if [[ ! -a "$lfile" ]]
+ then
+ print "WARNING ($sysname): Important file $lfile does not exist." >> \
+ /tmp/sysinfo.$$.errwarn
+ return_code=$WARN
+ else
+#
+# Get the Important file's directory information.
+#
+ llinfo=$(ll -d $lfile)
+#
+# Now check the file's permissions
+#
+ echo "$llinfo" | cut -c5-10 | egrep -q "r|w|x"
+ if [ $? -eq 0 ]
+ then
+ print "WARNING ($sysname): Important file $lfile has Group or World access." \
+ >> /tmp/sysinfo.$$.errwarn
+ return_code=$WARN
+ fi
+ echo "$llinfo" >> /tmp/sysinfo.$$.sysaccess.info
+ fi
+ done
+
+ print "" >> /tmp/sysinfo.$$.sysaccess.info
+ print "Check for Important Audit Files:" >> /tmp/sysinfo.$$.sysaccess.info
+#
+# Now check for the wtmp and btmp files. These are important to login history.
+# make sure they exist, if not, then give a warning. then check their security.
+# The wtmp file tracks login history. The btmp file tracks invalid logons.
+#
+# Also check the sulog file. This file tracks the history of SU'ing to root.
+#
+ case $osmajor in
+ 8 | 9 )
+ WTMP="/etc/wtmp"
+ BTMP="/etc/btmp"
+ SULOG="/usr/adm/sulog"
+ ;;
+
+ * )
+ WTMP="/var/adm/wtmp"
+ BTMP="/var/adm/btmp"
+ SULOG="/var/adm/sulog"
+ ;;
+ esac
+#
+# Check the wtmp file
+#
+ if [[ ! -a "$WTMP" ]]
+ then
+ print "WARNING ($sysname): Audit File $WTMP does not exist." >> \
+ /tmp/sysinfo.$$.errwarn
+ print "If you create $WTMP you can track logon history." >> \
+ /tmp/sysinfo.$$.errwarn
+ print " " >> /tmp/sysinfo.$$.errwarn
+ else
+ llinfo=$(ll -d $WTMP)
+
+ echo "$llinfo" | cut -c8-10 | egrep -q "w"
+ if [ $? -eq 0 ]
+ then
+ print -n "WARNING ($sysname): Audit File $WTMP has Group or " >> \
+ /tmp/sysinfo.$$.errwarn
+ print "World WRITE access." >> /tmp/sysinfo.$$.errwarn
+ print " $WTMP should have at most World read access." >> \
+ /tmp/sysinfo.$$.errwarn
+ print " " >> /tmp/sysinfo.$$.errwarn
+ fi
+ echo "$llinfo" >> /tmp/sysinfo.$$.sysaccess.info
+ fi
+#
+# Now check the btmp file.
+#
+ if [[ ! -a "$BTMP" ]]
+ then
+ print "WARNING ($sysname): Audit File $BTMP does not exist." >> \
+ /tmp/sysinfo.$$.errwarn
+ print "If you create $BTMP you can track invalid logon history." >> \
+ /tmp/sysinfo.$$.sysaccess.warn
+ print " " >> /tmp/sysinfo.$$.sysaccess.warn
+ else
+ llinfo=$(ll -d $BTMP)
+
+ echo "$llinfo" | cut -c5-10 | egrep -q "w"
+ if [ $? -eq 0 ]
+ then
+ print -n "WARNING ($sysname): Audit File $BTMP has Group or ">> \
+ /tmp/sysinfo.$$.errwarn
+ print "World WRITE access." >> /tmp/sysinfo.$$.errwarn
+ print "$BTMP should have at most Group or World read access." >> \
+ /tmp/sysinfo.$$.errwarn
+ print " " >> /tmp/sysinfo.$$.errwarn
+ fi
+
+ echo "$llinfo" >> /tmp/sysinfo.$$.sysaccess.info
+ fi
+#
+# Check the sulog file now.
+#
+ if [[ ! -a "$SULOG" ]]
+ then
+ print "WARNING ($sysname): Audit File $SULOG does not exist." >> \
+ /tmp/sysinfo.$$.errwarn
+ print "If you create $SULOG you can track su logon history." >> \
+ /tmp/sysinfo.$$.sysaccess.warn
+ print " " >> /tmp/sysinfo.$$.sysaccess.warn
+ else
+ llinfo=$(ll -d $SULOG)
+
+ echo "$llinfo" | cut -c5-10 | egrep -q "w"
+ if [ $? -eq 0 ]
+ then
+ print -n "WARNING ($sysname): Audit File $SULOG has Group or " >> \
+ /tmp/sysinfo.$$.errwarn
+ print "World WRITE access." >> /tmp/sysinfo.$$.sysaccess.warn
+ print "$SULOG should have at most Group or World read access." >> \
+ /tmp/sysinfo.$$.sysaccess.warn
+ print " " >> /tmp/sysinfo.$$.sysaccess.warn
+ fi
+
+ echo "$llinfo" >> /tmp/sysinfo.$$.sysaccess.info
+ print " " >> /tmp/sysinfo.$$.sysaccess.info
+ print "Five Most Recent SUlog entries:" >> /tmp/sysinfo.$$.sysaccess.info
+ tail -5 $SULOG >> /tmp/sysinfo.$$.sysaccess.info
+ fi
+#
+# Check the validity of the /etc/passwd and /etc/group files by running
+# the pwck and grpck commands. This will help identify illegal password and
+# group entries. Also, check the /etc/passwd file for entries missing
+# passwords.
+#
+ if [[ -x "/etc/pwck" ]]
+ then
+ print " " >> /tmp/sysinfo.$$.sysaccess.info
+ print "Running Passwd Check Script:" >> /tmp/sysinfo.$$.sysaccess.info
+ /etc/pwck >> /tmp/sysinfo.$$.sysaccess.info 2>&1
+ fi
+#
+# Check the password file for entries w/o a password.
+#
+ awk -F: -v sysname=$sysname ' $2 == "" { printf("\nERROR. (%s). NULL Password found in /etc/passwd\nPassword Record = %s\n\n",sysname,$0)}' /etc/passwd >> \
+ /tmp/sysinfo.$$.errwarn 2>&1
+
+ if [[ -x "/etc/grpck" ]]
+ then
+ print " " >> /tmp/sysinfo.$$.sysaccess.info
+ print "Running Group Check Script:" >> /tmp/sysinfo.$$.sysaccess.info
+ /etc/grpck >> /tmp/sysinfo.$$.sysaccess.info 2>&1
+
+ fi
+#
+# Now check for an .rhost file definition for root.
+# If this file exists, then print a message since this is a potential security
+# issue.
+#
+ if [[ -a "/.rhosts" ]]
+ then
+ print "WARNING ($sysname): Root has a /.rhosts file." >> \
+ /tmp/sysinfo.$$.errwarn
+ print "This file allows users from other systems to logon as root w/o a password." >> /tmp/sysinfo.$$.errwarn
+ print " " >> /tmp/sysinfo.$$.errwarn
+
+ llinfo=$(ll -d /.rhosts)
+
+ echo "$llinfo" | cut -c5-10 | egrep -q "r|w|x"
+ if [ $? -eq 0 ]
+ then
+ print "WARNING ($sysname): The /.rhosts file has Group or World access." \
+ >> /tmp/sysinfo.$$.errwarn
+ print "If this existence if this file is required then ONLY root should have access." >> /tmp/sysinfo.$$.errwarn
+ print " " >> /tmp/sysinfo.$$.errwarn
+ fi
+
+ echo "$llinfo" >> /tmp/sysinfo.$$.sysaccess.warn
+ print "" >> /tmp/sysinfo.$$.sysaccess.warn
+ print "Contents of /.rhosts file:" >> /tmp/sysinfo.$$.sysaccess.warn
+ cat /.rhosts >> /tmp/sysinfo.$$.sysaccess.warn
+ fi
+#
+# Now check the system for modem definitions. This first pass will not include
+# uucp items. I'm checking for ttyd* files in the /dev directory, then I'll
+# campare any matches to the /etc/inittab file. This will allow me to
+# look for getty processes.
+#
+ print " " >> /tmp/sysinfo.$$.sysaccess.info
+ print "Dialin/Modem Definitions:" >> /tmp/sysinfo.$$.sysaccess.info
+ print " " >> /tmp/sysinfo.$$.sysaccess.info
+
+ MLIST=$(ls /dev/ttyd* 2>&1)
+
+ Debug " chk_SysAccess. MLIST = $MLIST"
+ for modtty in $MLIST
+ do
+ modttyb=$(basename $modtty)
+ Debug " chk_SysAccess. Checking = $modtty"
+#
+# Check the /etc/inittab file for the terminal entry. Exclude lines which
+# begin with a '#'. Include lines which contain 'getty'
+#
+ gettyinfo=$( grep -v '^#' /etc/inittab | grep 'getty' | grep -i $modttyb )
+ gettystate=$( echo $gettyinfo | awk -F: '{print $3}' )
+
+ Debug " chk_SysAccess. Getty Info/State = $gettyinfo $gettystate"
+ case $gettystate in
+ respawn )
+ Debug " chkSysAccess. Respawn in getty"
+ ps -ef | grep getty | grep -q $modttyb
+ if [ $? -eq 0 ]
+ then
+ Debug "Found Getty for $modttyb"
+ print "Modem: $modttyb (waiting for a connection)" >> \
+ /tmp/sysinfo.$$.sysaccess.info
+ else
+ Debug "No Getty Found for $modttyb"
+ if ps -t $modttyb | tail +2 | wc -l
+ then
+ Debug "No Processes Found for $modttyb"
+ print "Modem: $modttyb (getty missing?)" >> \
+ /tmp/sysinfo.$$.sysaccess.info
+ print "WARNING ($sysname): $modttyb does not have a getty or a login process" >> /tmp/sysinfo.$$.errwarn
+ else
+ Debug "Modem in Use"
+ print "Modem: $modttyb (currently in use)" >> \
+ /tmp/sysinfo.$$.sysaccess.info
+ fi
+ fi
+
+ echo $gettyinfo | awk -F: '{printf("Inittab Info: %s\n",$4)}' >> \
+ /tmp/sysinfo.$$.sysaccess.info
+ print " " >> /tmp/sysinfo.$$.sysaccess.info
+ print "Five most recent Logons for $modttyb" >> \
+ /tmp/sysinfo.$$.sysaccess.info
+ #last -R > /tmp/sysinfo.$$.last
+ grep -i $modttyb /tmp/sysinfo.$$.last | tail -5 >> /tmp/sysinfo.$$.sysaccess.info
+ print " " >> /tmp/sysinfo.$$.sysaccess.info
+ ;;
+
+ off )
+ print "Modem: $modttyb (disabled in /etc/inittab)" >> \
+ /tmp/sysinfo.$$.sysaccess.info
+ ;;
+
+ * )
+ ;;
+ esac
+ done
+ print " "
+
+ print " " >> /tmp/sysinfo.$$.sysaccess.info
+
+ f_display_file /tmp/sysinfo.$$.sysaccess.info
+ f_display_file /tmp/sysinfo.$$.sysaccess.warn
+
+ return $return_code
+}
+
+
+###############################################################################
+# Function: chk_logfiles()
+# Description: Routine used to check the system logfiles. We want to make sure
+# that the logfiles exist, and are not greater than 2 Mbytes.
+# Arguments: none
+# Returns: none
+
+chk_logfiles() {
+ Debug " Starting Chk_Logfiles. OSMAJOR = $osmajor"
+
+ case $osmajor in
+ 8 | 9 )
+ FLIST="$LOGFILELISTV9"
+ ;;
+
+ * )
+ FLIST="$LOGFILELISTV10"
+ ;;
+ esac
+
+ Debug " chk_logfiles. FLIST=$FLIST"
+ if (($HTML))
+ then
+ print "</PRE>" >> /tmp/sysinfo.$$.logfile.info
+ print "<A NAME='LOGFILES'></A>" >> /tmp/sysinfo.$$.logfile.info
+ print "<H2>" >> /tmp/sysinfo.$$.logfile.info
+ print "<P ALIGN=RIGHT><A HREF='#Top'>" >> /tmp/sysinfo.$$.logfile.info
+ print "TOP</A></P>" >> /tmp/sysinfo.$$.logfile.info
+ print "<FONT COLOR=red>" >> /tmp/sysinfo.$$.logfile.info
+ print "System Logfile Information</H2>" >> /tmp/sysinfo.$$.logfile.info
+ print "</FONT><PRE><font size = '4'>" >> /tmp/sysinfo.$$.logfile.info
+ else
+ print "SYSTEM LOGFILE INFORMATION" >> /tmp/sysinfo.$$.logfile.info
+ print "==========================" >> /tmp/sysinfo.$$.logfile.info
+ fi
+ print -n "checking system logfiles"
+ print "" >> /tmp/sysinfo.$$.logfile.info
+ print "Checking System Logfiles. Validating file sizes and Permissions." >> \
+ /tmp/sysinfo.$$.logfile.info
+
+ for lfile in $FLIST
+ do
+ Debug " chk_logfiles. Checking $lfile."
+ if [[ ! -a "$lfile" ]]
+ then
+ print "ERROR ($sysname): Logfile $lfile does not exist." >> \
+ /tmp/sysinfo.$$.errwarn
+ return_code=$ERROR
+ else
+#
+# Get the logfile's directory information. Then check its size.
+#
+ llinfo=$(ll -d $lfile)
+
+ psize=$( echo $llinfo | awk '{print $5}' )
+ if (( $psize >= 2097152 ))
+ then
+ print "WARNING ($sysname): Logfile $lfile is greater than 2 Mbytes." \
+ >> /tmp/sysinfo.$$.errwarn
+ return_code=$WARN
+ fi
+#
+# Now check the file's permissions
+#
+ echo "$llinfo" | cut -c5-10 | egrep -q "w"
+ if [ $? -eq 0 ]
+ then
+ print "WARNING ($sysname): Logfile $lfile has Group or World WRITE access. " >> /tmp/sysinfo.$$.errwarn
+ return_code=$WARN
+ fi
+ echo "$llinfo" >> /tmp/sysinfo.$$.logfile.info
+ fi
+ done
+
+ print " " >> /tmp/sysinfo.$$.logfile.info
+#
+# Now check the system's crash directory for crash files. If these files exist
+# there could be space problems later.
+#
+ case $osmajor in
+ 10 | 11 )
+ if [[ -a "/etc/rc.config.d/savecrash" ]]
+ then
+ . /etc/rc.config.d/savecrash
+ if [ ! -z "$CRASHDIR" ]
+ then
+ LOGCRASH=$CRASHDIR
+ else
+ LOGCRASH="/var/adm/crash"
+ fi
+ else
+ LOGCRASH="/var/adm/crash"
+ fi
+
+ CRASHFILES=$(ll $LOGCRASH | tail +2)
+ if [ -z "$CRASHFILES" ]
+ then
+ print "There are NO Crash Dumps in $LOGCRASH." >> \
+ /tmp/sysinfo.$$.logfile.info
+ else
+ print " " >> /tmp/sysinfo.$$.logfile.warn
+ print "WARNING ($sysname): There are files in the Crash Dump directory $LOGCRASH." >> /tmp/sysinfo.$$.errwarn
+ echo "$CRASHFILES" >> /tmp/sysinfo.$$.errwarn
+ fi
+ ;;
+
+ * )
+ ;;
+ esac
+#
+# Now output the contents of the DMESG command. This can provide useful
+# info regarding recent events on the system.
+#
+ print " " >> /tmp/sysinfo.$$.logfile.info
+ print "Ouput of System DMESG Info:" >> /tmp/sysinfo.$$.logfile.info
+ print "___________________________" >> /tmp/sysinfo.$$.logfile.info
+
+ dmesg >> /tmp/sysinfo.$$.logfile.info 2>&1
+
+ print " " >> /tmp/sysinfo.$$.logfile.info
+ print "End of DMESG Output" >> /tmp/sysinfo.$$.logfile.info
+ print "___________________________" >> /tmp/sysinfo.$$.logfile.info
+ print " " >> /tmp/sysinfo.$$.logfile.info
+#
+# Now check the Sendmail Queue for a large number of entries, or entries
+# which are older than two days. Finding entries in the queue could represent
+# a problem.
+#
+ print " " >> /tmp/sysinfo.$$.logfile.info
+ print "Checking Sendmail Queue: \c" >> /tmp/sysinfo.$$.logfile.info
+#
+# Before changing to the Sendmail Queue directory, save our current directory
+# value so we can change back to it when we're finished.
+#
+ OLDPWD=$(pwd)
+ case $osmajor in
+ 8 | 9 )
+ mailqdir=/usr/spool/mqueue
+ mailpodir=/usr/mail
+ ;;
+
+ * )
+ mailqdir=/var/spool/mqueue
+ mailpodir=/var/mail
+ ;;
+ esac
+#
+# Go to the Sendmail Queue directory and scan it for entries. Iff some are
+# found then check to see if any are older than 2 days.
+#
+ cd $mailqdir
+ llinfo=$(ll 2>&1 | tail +2)
+
+ if [[ -z "$llinfo" ]]
+ then
+ print "Sendmail Queue is Empty." >> /tmp/sysinfo.$$.logfile.info
+ else
+ print "Sendmail Queue has $(ls | wc -w | awk '{print $1}') entries." >> \
+ /tmp/sysinfo.$$.logfile.info
+ ll 2>&1 | tail +2 >> /tmp/sysinfo.$$.logfile.info
+#
+# Use the find command to list entries older than 2 days
+#
+ findinfo=$(find . -mtime +2 -exec ll -d {} \;)
+ if [[ ! -z "$findinfo" ]]
+ then
+ print " " >> /tmp/sysinfo.$$.logfile.warn
+ print "Sendmail Queue has Entries Older than 2 days." >> \
+ /tmp/sysinfo.$$.logfile.warn
+ find . -mtime +2 -exec ll -d {} \; >> /tmp/sysinfo.$$.logfile.warn
+ print " " >> /tmp/sysinfo.$$.logfile.warn
+ fi
+ fi
+#
+# Now change to the Sendmail Post Office directory. This is the directory
+# where mail is normally stored on the system. Check for entries which are
+# large and very old.
+#
+ cd $mailpodir
+ print " " >> /tmp/sysinfo.$$.logfile.info
+ print "Checking the Mail Post Office Directory: \c" >> \
+ /tmp/sysinfo.$$.logfile.info
+
+ llinfo=$(ls 2>&1)
+ if [[ -z "$llinfo" ]]
+ then
+ print "No Entries Found." >> /tmp/sysinfo.$$.logfile.info
+ else
+ print "Found $(echo $llinfo | wc -w) Entries." >> \
+ /tmp/sysinfo.$$.logfile.info
+ ll 2>&1 >> /tmp/sysinfo.$$.logfile.info
+#
+# Now that we have found entries in the directory, check to see if they are
+# larger than 2 Mbytes.
+#
+ find . -size +4096 -exec ll -d {} \; > /tmp/sysinfo.$$.logfile.tmp 2>&1
+ if [[ -s "/tmp/sysinfo.$$.logfile.tmp" ]]
+ then
+ print " " >> /tmp/sysinfo.$$.logfile.warn
+ print "WARNING ($sysname): Post Office Directory has Files Larger than 2 Mbytes." >> /tmp/sysinfo.$$.errwarn
+ cat /tmp/sysinfo.$$.logfile.tmp >> /tmp/sysinfo.$$.errwarn
+ print " " >> /tmp/sysinfo.$$.errwarn
+ fi
+#
+# Now check for entries which have not been access in 90 days. These files
+# may be considered obsolete.
+#
+ find . -mtime +90 -exec ll -d {} \; > /tmp/sysinfo.$$.logfile.tmp 2>&1
+ if [[ -s "/tmp/sysinfo.$$.logfile.tmp" ]]
+ then
+ print " " >> /tmp/sysinfo.$$.logfile.warn
+ print "WARNING ($sysname): Post Office Directory has Files Older than 90 days." >> /tmp/sysinfo.$$.errwarn
+ cat /tmp/sysinfo.$$.logfile.tmp >> /tmp/sysinfo.$$.errwarn
+ print " " >> /tmp/sysinfo.$$.errwarn
+ fi
+ fi
+#
+# Change back to our original directory
+#
+ cd $OLDPWD
+
+ print " " >> /tmp/sysinfo.$$.logfile.info
+ print " "
+
+ f_display_file /tmp/sysinfo.$$.logfile.info
+ f_display_file /tmp/sysinfo.$$.logfile.warn
+
+ return $return_code
+}
+
+
+
+################################################################################
+# Function: LookupName()
+# Description: Lookup the full name for a specified hostname. Uses nslookup.
+# Arguments: <hostname, domainname or address>
+# Output: fully qualified hostname
+# Returns: 0: successfully determined name
+# 1: unable to find name (using /etc/hosts)
+# 2: unable to find name (using name server)
+
+LookupName() {
+
+# if [ $# -ne 1 ]
+# then
+# Panic "${0}: expect <hostname|address> argument"
+# fi
+
+ #nslookup "$1" > $_TMP 2>&1
+ # Return 0 if name found, 1 if not found and using /etc/hosts,
+ # 2 if not found and using some sort of name server.
+ #
+ nslookup "$1" 2>&1 |
+ awk '
+ BEGIN { ret_val=2 }
+ $0 ~ "/etc/hosts" { ret_val=1 }
+ $1 == "Name:" { print $2; ret_val=0 }
+ END { exit (ret_val) }
+ ' $_TMP
+ return_value=$?
+ case $return_value in
+ 0) return_string="found using nslookup";;
+ 1) return_string="found in /etc/hosts/";;
+ 2) return_string="not found";;
+ esac
+ Debug " return from LookupName = $return_value ($return_string)"
+ return $return_value
+
+}
+
+################################################################################
+# GetCurrentDNS()
+GetCurrentDNS() {
+
+### Changed 6/16/99 J.Semroc - allows for possibility of multiple nameservers,
+### domain search directive, and possibility that
+### no domain is specified
+### <ST> 07/12/99 - added -s option to cut in case nslookup does not return
+### fully qualified name.
+### added ^ to nameserver to ignore commented entries
+
+ if [ -f $RESOLV_CONF ]
+ then
+ CURRENT_DOMAIN=$(nslookup ${sysname} | grep "^Name: " | \
+ awk -F: '{print $2}'| cut -s -d. -f2- )
+ if [[ -z ${CURRENT_DOMAIN} ]]
+ then
+ Debug "Could not find domain using nslookup - checking resolv.conf"
+# Extract the domain from resolv.conf
+ set -- $(awk '
+ $1 == "domain" { DOMAIN=$2 }
+ $1 == "nameserver" { ADDRESS=$2 ; exit }
+ END { printf "%s %s\n", DOMAIN, ADDRESS }' $RESOLV_CONF)
+ CURRENT_DOMAIN="$1"
+ else
+ Debug "Found domain using nslookup"
+ fi
+
+### Extract the address and name of nameserver from resolv.conf
+### if [ $# -eq 2 ]
+### then
+### # See if we can get a name for the nameserver
+### CURRENT_DOMAIN="$1"
+### CURRENT_DNS_SERVER_IP="$2"
+### CURRENT_DNS_SERVER=$(LookupName $CURRENT_DNS_SERVER_IP)
+### if [ -z "$CURRENT_DNS_SERVER" ]
+### then
+### CURRENT_DNS_SERVER=unknown
+### fi
+### else
+### unset CURRENT_DOMAIN CURRENT_DNS_SERVER_IP CURRENT_DNS_SERVER
+### fi
+
+ CURRENT_DNS_SERVER_IP=$(for server in `grep ^nameserver \
+ ${RESOLV_CONF} | awk '{print $2}'`
+ do
+ print -n $server" "
+ done | awk '{ print $1}')
+ CURRENT_DNS_SERVER=$(LookupName `echo ${CURRENT_DNS_SERVER_IP} \
+ | awk '{ print $1}' `)
+ fi
+
+}
+
+#===================================================================
+# weed_targets
+#
+# Scan the output from ioscan and filter out all SCSI "target"
+# lines. Also filter out entries with a low_level driver of "root"
+#===================================================================
+weed_targets()
+{
+ awk -F: '
+ {
+ class = $9;
+ low_level_driver = $10
+ if (class != "target" && low_level_driver != "root")
+ print $0
+ }' -
+}
+
+
+#==================================================================
+# This routine invokes ioscan with any passed in arguments and
+# generates the above mentioned colon separated output. Note that
+# all lines begin and end with colons. This makes for easy parsing
+# of the output to match specific fields via grep.
+#===================================================================
+formatter()
+{
+ awk -F: '
+ {
+#=====================================================================
+# Not all of the fields of ioscan output are used by SAM.
+# They are all listed here for documentation purposes.
+#=====================================================================
+# bus_type = $1
+ cdio = $2
+# is_block = $3
+# is_char = $4
+# is_pseduo = $5
+# block_major_number = $6
+# character_major_number = $7
+# minor_number = $8
+ class = $9
+# low_level_driver = $10
+ full_hw = $11
+ identify_bytes = $12
+# device instance = $13
+# module_path = $14
+ driver = $15
+ sw_status = $16
+# hardware_type = $17
+ ident = $18
+ instance = $19
+ num_hw = split(full_hw, hw_path, ".");
+ address = "";
+ unit = "";
+#============================================================
+#
+# Identifying bytes for PA Modules contain this information:
+#
+# Byte
+# Address Name Description
+# --------- --------------- --------------------------------------
+# 0-1 IODC_HVERSION Hardware version number
+# 2 IODC_SPA Soft physical address capability
+# 3 IODC_TYPE Type of module
+# 4-7 IODC_SVERSION Software version number
+# 8 IODC_REV IODC revision
+# 9 IODV_DEP HVERSION dependent
+# 10-11 RESERVED
+# 12-13 IODC_CHECK Checksum
+# 14-15 IODC_LENGTH Length of entry point table
+#
+#============================================================
+
+ split(identify_bytes, id_flds, " ");
+ hversion= (((((id_flds[1]*256)+id_flds[2])*256)+id_flds[3])*256)+id_flds[4];
+ sversion= (((((id_flds[5]*256)+id_flds[6])*256)+id_flds[7])*256)+id_flds[8];
+ if ( id_flds[9] != "" ) {
+ device_id = id_flds[9] " " id_flds[10] " " id_flds[11] " " id_flds[12] " " id_flds[13] " " id_flds[14] " " id_flds[15] " " id_flds[16];
+ }
+ else {
+ device_id = "";
+ }
+ #
+ # Specifically for multi path environments (FiberChannel),
+ # save the driver and last 8 bytes of the identify_bytes
+ # of this device ("ext_bus" class; parent of actual devices)
+ # tacking on to actual devices later.
+ #
+ if ( class == "ext_bus") {
+ if ( ( identify_bytes != "") && (( driver == "fcpmux") || ( driver == "fcpdev"))) {
+ parent_driver = driver;
+ parent_id = device_id;
+ }
+ else {
+ parent_driver=""
+ parent_id=""
+ }
+ }
+
+ #
+ # Set driver to "?" if not known
+ #
+ if ((substr(driver, 1, 1) == "?") || (driver == "pdn0") ||
+ (driver == ""))
+ {
+ #
+ # SPECIAL CASES FOR NON-AUTOCONFIGURABLE DEVICES
+ # Check the hardware identifier field, if it matches
+ # a non-autoconfigurable device and there is no driver
+ # bound to the device, fill in the driver field with the
+ # appropriate driver name flag to true
+ #
+#
+# Change this to use the device description.
+#
+ if (ident == "0x2080") {
+ driver = "pdn0";
+ }
+#
+# Change this to use the device description.
+#
+ else if (ident == "0x2f80") {
+ driver = "pdn0";
+ }
+
+ else if ((substr(driver, 1, 1) == "?") || (driver == "")) {
+ driver = "?";
+ }
+
+ not_configured = 1;
+ } else
+ not_configured = 0;
+
+ if (sw_status != "CLAIMED")
+ not_configured = 1;
+
+ if ((driver == "tape1") || (driver == "tape2") ||
+ (driver == "lpr0") || (driver == "lpr1") ||
+ (driver == "disc3") || (driver == "sflop") ||
+ (driver == "schgr") || (driver == "autox0") ||
+ (driver == "cs80") || (driver == "sdisk") ||
+ (driver == "stape") || (driver == "disc4")) {
+ address = hw_path[num_hw-1];
+ unit = hw_path[num_hw];
+ }
+ else if ((driver == "disc1") || (driver == "disc2") ||
+ (driver == "instr0")|| (driver == "pflop")) {
+ address = hw_path[num_hw];
+ }
+
+
+# printf(":%s:%s:%s:%s:%s:%s:%d:%s:0x%x;0x%x:%s:%s:%s:%s:\n",
+# cdio, driver, instance, full_hw, address, unit,
+# not_configured, sw_status, sversion, hversion, ident,
+# device_id, parent_driver, parent_id );
+ printf("%22s %12s %s\n", full_hw, driver, ident );
+ }' -
+} # end of formatter
+
+#===========================================================
+# lvm_scan
+#===========================================================
+function lvm_scan
+{
+ # first get all volume groups, logical volumes & physical volumes
+ vgdisplay -v 2>&1 | \
+ awk '
+ BEGIN { vgprinted = ""; onpvg = ""; numpvgs = 0
+ }
+ /^VG Name/ {
+ vg = substr($3, 6, length($3) - 5);
+ vgprinted = ""; onpvg = ""; numpvgs = 0;
+ freepe_count = 0; next;
+ }
+ /VG Write Access/ {
+ vgwrite = $4;
+ next;
+ }
+ /VG Status/ {
+ vgstatus = "";
+ for(i=3;i<=NF;i++)
+ vgstatus = vgstatus $i;
+ vgstatus = vgstatus "," vgwrite "@";
+ next;
+ }
+ $2 == "Server" {
+ vgstatus = vgstatus $1;
+ next;
+ }
+ $2 == "Client" {
+ vgstatus = vgstatus ",";
+ vgstatus = vgstatus $1;
+ next;
+ }
+ /Max LV/ { maxlv = $3; next; }
+ /Max PV/ { maxpv = $3; next; }
+ /Cur LV/ { numlvs = $3; next; }
+ /Cur PV/ { numpvs = $3; next; }
+ /PE Size/ { pesize = $4; next; }
+ /Max PE per PV/ { maxpe = $5; next; }
+ /Total PVG/ { numpvgs = $3; next; }
+ /LV Name/ {
+ if (vgprinted == "")
+ {
+ printf("VG:%s:%s:%s:%s:%s:%s:%s:%s:%s:%s:%s::::::\n",
+ vg, vgstatus, maxlv, maxpv, numlvs,
+ numpvs, numpvgs, pesize, maxpe,
+ totalpe * pesize, freepe * pesize);
+ vgprinted = "y";
+ }
+ printf("LV:%s:::::::%s::::%s:::::\n",
+ vg, pesize, $3);
+ next;
+ }
+ /Alternate Link$/ {
+ if (onpvg == "")
+ {
+ if (vgprinted == "")
+ {
+ printf("VG:%s:%s:%s:%s:%s:%s:%s:%s:%s:%s:%s::::::\n",
+ vg, vgstatus, maxlv, maxpv, numlvs,
+ numpvs, numpvgs, pesize, maxpe,
+ totalpe * pesize, freepe * pesize);
+ vgprinted = "y";
+ }
+ printf("ALT:%s::::::::::::%s:%s:::\n", vg, pv, $3);
+ }
+ next;
+ }
+ /PV Name/ {
+ pv = $3;
+ if (onpvg == "")
+ {
+ if (vgprinted == "")
+ {
+ printf("VG:%s:%s:%s:%s:%s:%s:%s:%s:%s:%s:%s::::::\n",
+ vg, vgstatus, maxlv, maxpv, numlvs,
+ numpvs, numpvgs, pesize, maxpe,
+ totalpe * pesize, freepe * pesize);
+ vgprinted = "y";
+ }
+ }
+ else
+ {
+ printf("PV:%s::::::::::::%s::::%s\n",vg, pv, pvg);
+ pvg = "";
+ }
+ next;
+ }
+ /Free PE/ {
+ freepe = $3;
+ if (freepe_count > 0)
+ {
+ printf("PV:%s::::::::::::%s::%s:%s:\n",
+ vg, pv, totalpe, freepe);
+ }
+ freepe_count ++;
+ next;
+ }
+
+ ' >> /tmp/sysinfo.vg.tmp
+ mv /tmp/sysinfo.vg.tmp $vg_list_file
+#
+# now get list of all logical volumes
+#
+ awk ' BEGIN { FS = ":" }
+ { type = $1; vgstatus = $2; pesize = $8;
+ if (type == "LV")
+ {
+ printf ("%s\n",$13)
+ }
+ }
+ ' $vg_list_file >> /tmp/sysinfo.lvol.list.tmp
+ sort /tmp/sysinfo.lvol.list.tmp > $lvol_list_file
+ rm -f /tmp/sysinfo.lvol.list.tmp
+#
+# now get details on each logical volume
+#
+ lvol_list=$(cat $lvol_list_file)
+ for lvol in $lvol_list
+ do
+
+ lvdisplay $lvol 2>&1 | \
+ awk '
+ BEGIN { mwc = 0;
+ nummir = 0;
+ mircon = 0;
+ bbr = 0;
+ conalloc = 0 ;
+ numstripes = 0;
+ stripesize = 0 }
+ /LV Name/ { lvname= $3; next }
+ /LV Permission/ { perm = $3; next }
+ /Mirror copies/ { nummir = $3; next }
+ /Consistency Recovery/ { mwc = $3; next }
+ /Schedule/ { sched = $2; next }
+ /LV Size/ { size = $4; next }
+ /Current LE/ { les = $3; next }
+ /Bad block/ { if ($3 == "on") bbr = 1; badblock = $3;
+ if (badblock == "NONE")
+ badblock = "NO";
+ next }
+ /Allocation/ { alloc=$2;
+ if (alloc == "non-strict")
+ alloc = "ns";
+ if (alloc == "non-strict/contiguous")
+ alloc = "ns-c";
+ if (alloc == "strict")
+ alloc = "s";
+ if (alloc == "strict/contiguous")
+ alloc = "s-c";
+ if (alloc == "PVG-strict")
+ alloc = "PVG";
+ if (alloc == "PVG-strict/contiguous")
+ alloc = "PVG-c";
+ if (alloc == "PVG-strict/distributed")
+ alloc = "PVG-d";
+ if (alloc == "PVG-strict/partially-distributed")
+ alloc = "PVG-p";
+ next;
+ }
+ /LV Status/ { state = $3;
+ if (state == "available/stale")
+ state = "stale";
+ if (state == "available/syncd")
+ state = "syncd";
+ if (state == "available")
+ state = "avail";
+ if (state == "unavailable")
+ state = "unavl";
+ next }
+ /Stripes/ { numstripes = $2; next }
+ /Stripe Size/ { stripesize = $4; next }
+
+ {next}
+ END {
+ if ( size == 0 )
+ {
+ pesize = size;
+ }
+ else
+ {
+ pesize = size / les;
+ }
+
+ printf("%-32s %5s %3s %4s %4s %6s %6s %-5s %-5s\n",
+ lvname, size, numstripes,
+ stripesize, nummir, mwc, state, badblock,alloc)
+ }
+ ' >> /tmp/sysinfo.lvol.data.tmp
+ done
+ mv /tmp/sysinfo.lvol.data.tmp $lvol_out_file
+ rm -f /tmp/sysinfo.lvol.data.tmp
+#
+# now get list of all physical volumes
+#
+ awk ' BEGIN { FS = ":" }
+ { type = $1; vgstatus = $2; pesize = $8;
+ if (type == "PV")
+ {
+ printf ("%s\n",$14)
+ }
+ }
+ ' $vg_list_file >> /tmp/sysinfo.pvol.list.tmp
+ sort /tmp/sysinfo.pvol.list.tmp > $pvol_list_file
+ rm -f /tmp/sysinfo.pvol.list.tmp
+#
+# now get details on each physical volume
+#
+ pvol_list=$(cat $pvol_list_file)
+ for pvol in $pvol_list
+ do
+ pvdisplay -v $pvol 2>&1 | \
+ awk '
+ BEGIN {found=0}
+
+ /PE Size/ {pesize = $4; next}
+ /LV Name/ {found=1; next}
+ /Physical extents/ {exit 0}
+
+ #
+ # Print "LV_Name Logical_MB_of_LV Physical_MB_of_LV"
+ #
+ {
+ if (found && NF == 3)
+ printf("%s:%d:%d\n", $1, $2 * pesize, $3 * pesize)
+ }
+ ' - >> $pvol_out_file
+
+ done
+} # end of lvm_scan
+
+#===========================================================
+function launch_lvm_scan
+#===========================================================
+{
+ Debug "Building $lvm_scan_command_file"
+
+ rm -f $lvm_scan_done
+
+ Debug "$vg_out_file, $vg_list_file, $lvol_out_file"
+ Debug "$lvol_list_file, $pvol_list_file $pvol_out_file"
+ Debug "$lvm_scan_done"
+
+ cat <<==end_of_command== > $lvm_scan_command_file
+
+ # now call the lvm_scan function (exported from parent)
+ lvm_scan
+ date > \$lvm_scan_done
+
+==end_of_command==
+
+ chmod +x $lvm_scan_command_file
+ Debug " launching $lvm_scan_command_file"
+ $lvm_scan_command_file &
+ Debug " parent PID = $$, child PID = $!"
+
+} # end of launch_lvm_scan
+
+#===========================================================
+# launch_kernel_scan
+#===========================================================
+function launch_kernel_scan
+{
+ Debug " Starting launch_kernel_scan.....building $kernel_scan_command_file"
+
+ # change filenames to send output to parent's PID
+ rm -f $kernel_scan_done
+
+ Debug "$kernel_kinfo $kernel_out_file"
+ Debug "$kernel_scan_done"
+
+ cat <<==end_of_command== > $kernel_scan_command_file
+
+ # now call the sam_scan function (exported from parent)
+ kernel_scan
+ date > \$kernel_scan_done
+
+==end_of_command==
+
+ chmod +x $kernel_scan_command_file
+ Debug " launching $kernel_scan_command_file"
+ $kernel_scan_command_file &
+ Debug " parent PID = $$, child PID = $!"
+
+
+} # end of launch_kernel_scan
+
+#===========================================================
+# launch_io_scan
+#===========================================================
+function launch_io_scan
+{
+ Debug " Starting launch_io_scan.....building $io_scan_command_file"
+
+ # change filenames to send output to parent's PID
+ rm -f $io_scan_done
+
+ Debug "$io_scan_done"
+
+ if (( ${osmajor} >= 10 ))
+ then
+ cat <<==end_of_command== > $io_scan_command_file
+
+ # now call the io_scan function (exported from parent)
+ io_scan
+ date > \$io_scan_done
+==end_of_command==
+
+ chmod +x $io_scan_command_file
+ Debug " launching $io_scan_command_file"
+ $io_scan_command_file &
+ Debug " parent PID = $$, child PID = $!"
+ else
+ Debug " on 9.x - executing ioscan"
+ print "H/W Path LU Driver" >> ${io_scan_out}
+ print -- "-----------------------------" >> ${io_scan_out}
+ ioscan -f | tail +3 | \
+ awk '{printf ("%-14s %-6s %-20s\n", $3, $2, $4)}' \
+ >> ${io_scan_out}
+ date > $io_scan_done
+ fi
+
+} # end of launch_io_scan
+
+
+
+#===========================================================
+# check_if_scan_done
+#===========================================================
+function check_if_scan_done
+{
+ scan_type=$1
+ done_file=/tmp/sysinfo.$$.${scan_type}_done
+ Debug " starting check_if_scan_done for ${scan_type}."
+ Debug " looking for /tmp/sysinfo.$$.${scan_type}_done"
+ if (($BATCH))
+ then
+ print -n "retrieving ${scan_type} data "
+ fi
+ if [ ! -f ${done_file} ] # enter time out loop
+ then
+ Debug " ${scan_type}_done file not ready, entering loop."
+ FORCE="TRUE"
+ for fil in 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15
+ do
+### Changed 6/15/99 J.Semroc - allow more time for large systems
+### sleep 5
+ sleep 60
+### end of Change
+ Debug " in loop $fil"
+ if (($BATCH))
+ then
+ print -n "."
+ fi
+ if [ -f ${done_file} ]
+ then
+ Debug " ${scan_type} done."
+ FORCE="FALSE"
+ break
+ fi
+ done
+ if [ "$FORCE" = "TRUE" ]
+ then
+ Debug " still no file, forcing an interactive ${scan_type}."
+ ${scan_type}
+ fi
+ else
+ Debug " found ${scan_type}_done file"
+ if (($BATCH))
+ then
+ print ""
+ fi
+ fi
+}
+
+#===========================================================
+# io_scan
+#
+# this routine runs ioscan with the appropriate parameters and
+# places the output in /var/sam/<sysname>.iout It also
+# provides a semaphore for other asyncronous processes, by removing
+# and then creating /var/sam/<sysname>.dion
+#
+#===========================================================
+function io_scan
+{
+
+# bus_type = $1
+# cdio = $2
+# is_block = $3
+# is_char = $4
+# is_pseduo = $5
+# block_major_number = $6
+# character_major_number = $7
+# minor_number = $8
+# class = $9
+# low_level_driver = $10
+# full_hw = $11
+# identify_bytes = $12
+# device instance = $13
+# module_path = $14
+# driver = $15
+# sw_status = $16
+# hardware_type = $17
+# ident = $18
+# instance = $19
+
+#
+# If an inadaquate description is given from ioscan. Initiate a diskinfo
+# request to force an open operation and then perform another ioscan for
+# that device. If the diskinfo operation results in an error containing
+# "Permission Denied" the device may be a tape drive needing a slightly
+# different device file. At the time of this modification to this script
+# (7/5/94) an HPFL Disc will only give a useful description when there is
+# a mounted file system on the disk.
+#
+# Change the Internal Field Separator to ":". All output fields of
+# ioscan -F are separated by a ":".
+#
+ LANG=$save_lang
+ LANG=C
+ rm -f $io_scan_done
+ ioscan $ioscan_args > $io_scan_tmp
+ mv $io_scan_out $io_scan_out.old > /dev/null 2>&1
+ ifs_save=$IFS
+ IFS=:
+ cat $io_scan_tmp | \
+ while read p1 p2 p3 p4 p5 p6 p7 p8 p9 p10 p11 p12 p13 p14 p15 p16 p17 p18 p19
+ do
+ if [ "$p18" = "HP-IB Device" -o "$p18" = "HP-IB Tape" -o \
+ "$p18" = "SCSI Tape" -o "$p18" = "HPFL Disc" ]
+ then
+ mksf -r -H $p11 /var/sam/sam_tmp >/dev/null 2>&1
+ diskinfo /var/sam/sam_tmp >/dev/null 2>/var/sam/sam_err
+ if ( grep Permission /var/sam/sam_err >/dev/null 2>&1 )
+ then
+ mksf -r -c -u 0 -H $p11 /var/sam/sam_tmp >/dev/null 2>&1
+ diskinfo /var/sam/sam_tmp >/dev/null 2>&1
+ fi
+ ioscan -H $p11 -F >>$io_scan_out 2>/dev/null
+ rm -f /var/sam/sam_tmp /var/sam/sam_err
+ else
+ echo "$p1:$p2:$p3:$p4:$p5:$p6:$p7:$p8:$p9:$p10:$p11:$p12:$p13:$p14:$p15:$p16:$p17:$p18:$p19" >>$io_scan_out
+ fi
+ done
+ IFS=$ifs_save
+ date > $io_scan_done
+ rm $io_scan_tmp
+
+} #end of io_scan
+
+#==================================================================
+# sw_scan
+#==================================================================
+function sw_scan
+{
+ Debug "Beginning SW_SCAN"
+ if [[ -f /usr/sbin/swlist ]]
+ then
+ Debug " found swlist"
+ if (($HTML))
+ then
+ print "</PRE>" >> /tmp/sysinfo.$$.swout
+ print "<A name='Software'></A>" >> /tmp/sysinfo.$$.swout
+ print "<H2>" >> /tmp/sysinfo.$$.swout
+ print "<P ALIGN=RIGHT><A HREF='#Top'>TOP</A></P>" >> /tmp/sysinfo.$$.swout
+ print "<FONT COLOR=red>" >> /tmp/sysinfo.$$.swout
+ print "Software Data</FONT></H2>" >> /tmp/sysinfo.$$.swout
+ print "<PRE><font size = '4'>" >> /tmp/sysinfo.$$.swout
+ else
+ print "" >> /tmp/sysinfo.$$.swout
+ print "SOFTWARE DATA" >> /tmp/sysinfo.$$.swout
+ print "=============" >> /tmp/sysinfo.$$.swout
+ fi
+ if (($BATCH))
+ then
+ print "collecting software data "
+ fi
+ print "Product Version Description" >> /tmp/sysinfo.$$.swout
+ print -- "--------------------------------------------------" >> /tmp/sysinfo.$$.swout
+ swlist -l product | grep -v "^#" | expand >> /tmp/sysinfo.$$.swout
+ f_display_file /tmp/sysinfo.$$.swout
+ #check for non-configured software
+ print "checking for incompletely installed software "
+ swlist -l fileset -a state | grep -e transient -e corrupt \
+ -e available -e installed | expand >> /tmp/sysinfo.$$.sw_not_conf
+ if [[ -s /tmp/sysinfo.$$.sw_not_conf ]]
+ then
+ print "" >> /tmp/sysinfo.$$.sw_not_header
+ print "Found incompletely installed filesets" >> \
+ /tmp/sysinfo.$$.sw_not_header
+ print "=====================================" >> \
+ /tmp/sysinfo.$$.sw_not_header
+ print "WARNING (${sysname}): Found incompletely installed software." >> \
+ /tmp/sysinfo.$$.errwarn
+ f_display_file /tmp/sysinfo.$$.sw_not_header
+ f_display_file /tmp/sysinfo.$$.sw_not_conf
+ fi
+ else
+ Debug " could not find swlist."
+ fi
+}
+
+#==================================================================
+#f_build_sched_file
+# This function retrieves the os version information and
+# series type. It then sets the kernel pointers.
+#===================================================================
+function f_build_sched_file
+{
+ Debug "Beginning build_sched_file"
+cat <<==end_of_file== > ${where}/sched.models
+600 1.0 PA7000
+635 1.0 PA7000
+645 1.0 PA7000
+700 1.1 PA7000
+705 1.1a PA7000
+715 1.1c PA7100LC
+710 1.1a PA7000
+712 1.1c PA7100LC
+720 1.1a PA7000
+722 1.1c PA7100LC
+725 1.1c PA7100LC
+728 1.1d PA7200
+730 1.1a PA7000
+735 1.1b PA7100
+742 1.1b PA7100
+743 1.1c PA7100LC
+744 1.1e PA7300
+745 1.1b PA7100
+747 1.1b PA7100
+750 1.1a PA7000
+755 1.1b PA7100
+770 1.1d PA7200
+777 1.1d PA7200
+778 1.1e PA7300
+779 1.1e PA7300
+780 2.0 PA8000
+781 2.0 PA8000
+782 2.0 PA8200
+785 2.0 PA8500
+800 1.0 PA7000
+801 1.1c PA7100LC
+802 2.0 PA8000
+803 1.1e PA7300
+804 2.0 PA8000
+806 1.1c PA7100LC
+807 1.1a PA7000
+808 1.0 PA7000
+809 1.1d PA7200
+810 2.0 PA8000
+811 1.1c PA7100LC
+813 1.1e PA7300
+815 1.0 PA7000
+816 1.1c PA7100LC
+817 1.1a PA7000
+819 1.1d PA7200
+820 2.0 PA8000
+821 1.1d PA7200
+822 1.0 PA7000
+825 1.0 PA7000
+826 1.1c PA7100LC
+827 1.1a PA7000
+829 1.1d PA7200
+831 1.1d PA7200
+832 1.0 PA7000
+834 1.0 PA7000
+835 1.0 PA7000
+837 1.1a PA7000
+839 1.1d PA7200
+840 1.0 PA7000
+841 1.1d PA7200
+842 1.0 PA7000
+845 1.0 PA7000
+847 1.1a PA7000
+849 1.1d PA7200
+850 1.0 PA7000
+851 1.1d PA7200
+852 1.0 PA7000
+855 1.0 PA7000
+856 1.1c PA7100LC
+857 1.1a PA7000
+859 1.1d PA7200
+860 1.0 PA7000
+861 2.0 PA8000
+865 1.0 PA7000
+867 1.1a PA7000
+869 1.1d PA7200
+870 1.0 PA7000
+871 2.0 PA8000
+877 1.1a PA7000
+879 2.0 PA8000
+887 1.1b PA7100
+889 2.0 PA8000
+890 1.0 PA7000
+891 1.1b PA7100
+892 1.1b PA7100
+893 2.0 PA8000
+897 1.1b PA7100
+898 2.0 PA8200
+899 2.0 PA8200
+F10 1.1a PA7000
+F20 1.1a PA7000
+H20 1.1a PA7000
+F30 1.1a PA7000
+G30 1.1a PA7000
+H30 1.1a PA7000
+I30 1.1a PA7000
+G40 1.1a PA7000
+H40 1.1a PA7000
+I40 1.1a PA7000
+G50 1.1b PA7100
+H50 1.1b PA7100
+I50 1.1b PA7100
+G60 1.1b PA7100
+H60 1.1b PA7100
+I60 1.1b PA7100
+G70 1.1b PA7100
+H70 1.1b PA7100
+I70 1.1b PA7100
+E25 1.1c PA7100LC
+E35 1.1c PA7100LC
+E45 1.1c PA7100LC
+E55 1.1c PA7100LC
+T500 1.1b PA7100
+T520 1.1b PA7100
+T540 2.0 PA8000
+T600 2.0 PA8000
+K100 1.1d PA7200
+K200 1.1d PA7200
+K210 1.1d PA7200
+K220 1.1d PA7200
+K230 1.1d PA7200
+K400 1.1d PA7200
+K410 1.1d PA7200
+K420 1.1d PA7200
+DXO 1.1c PA7100LC
+DX0 1.1c PA7100LC
+DX5 1.1c PA7100LC
+D200 1.1c PA7100LC
+D210 1.1c PA7100LC
+D310 1.1c PA7100LC
+D410 1.1d PA7200
+D250 1.1d PA7200
+D350 1.1d PA7200
+J200 1.1d PA7200
+J210 1.1d PA7200
+C100 1.1d PA7200
+J220 2.0 PA8000
+J280 2.0 PA8000
+J282 2.0 PA8000
+S715 1.1e PA7300
+S760 1.1e PA7300
+D650 2.0 PA8000
+J410 2.0 PA8000
+J400 2.0 PA8000
+J210XC 1.1d PA7200
+J2240 2.0 PA8200
+J5000 2.0 PA8500
+J5600 2.0 PA8600
+J6000 2.0 PA8600
+J7000 2.0 PA8500
+C200+ 2.0 PA8200
+C240+ 2.0 PA8200
+C360 2.0 PA8500
+C180 2.0 PA8000
+C180-XP 2.0 PA8000
+C160 2.0 PA8000
+C160L 1.1e PA7300
+C140 2.0 PA8000
+C130 2.0 PA8000
+C120 1.1e PA7300
+C115 1.1e PA7300
+C110 1.1d PA7200
+B160L 1.1e PA7300
+B132L 1.1e PA7300
+B120 1.1e PA7300
+B115 1.1e PA7300
+B1000 2.0 PA8500
+B2000 2.0 PA8500
+C3000 2.0 PA8500
+C3600 2.0 PA8600
+S700i 1.1e PA7300
+S744 1.1e PA7300
+D330 1.1e PA7300
+D230 1.1e PA7300
+D320 1.1e PA7300
+D220 1.1e PA7300
+D360 1.1d PA7200
+K360 2.0 PA8000
+K370 2.0 PA8200
+K460 2.0 PA8000
+K460-EG 2.0 PA8000
+K460-XP 2.0 PA8000
+K260 2.0 PA8000
+K260-EG 2.0 PA8000
+D260 1.1d PA7200
+D270 2.0 PA8000
+D280 2.0 PA8000
+D370 2.0 PA8000
+D380 2.0 PA8000
+D390 2.0 PA8000
+R380 2.0 PA8000
+R390 2.0 PA8000
+K250 2.0 PA8000
+K450 2.0 PA8000
+K270 2.0 PA8200
+K470 2.0 PA8200
+K380 2.0 PA8200
+K580 2.0 PA8200
+V2200 2.0 PA8200
+V2250 2.0 PA8200
+V2500 2.0 PA8500
+V2600 2.0 PA8600
+L1000-36 2.0 PA8500
+L1000-44 2.0 PA8500
+L2000-36 2.0 PA8500
+L2000-44 2.0 PA8500
+N4000-36 2.0 PA8500
+N4000-44 2.0 PA8500
+A180 1.1 PA7300LC
+A180C 1.1 PA7300LC
+
+==end_of_file==
+
+chmod 444 ${where}/sched.models
+}
+
+#==================================================================
+#f_get_sys_type
+# This function retrieves the os version information and
+# series type. It then sets the kernel pointers.
+#===================================================================
+function f_get_sys_type
+{
+ Debug "Beginning GET SYSTEM TYPE"
+ osletter=$(uname -r | awk -F. '{print $1}')
+ osmajor=$(uname -r | awk -F. '{print $2}')
+ osminor=$(uname -r | awk -F. '{print $3}')
+ system=$(uname -m | awk -F/ '{print $1}')
+ series=$(uname -m | awk -F/ '{print $2}')
+ machine_id=$(uname -i)
+ license=$(uname -l)
+ Debug " `uname -a`"
+ Debug " system = $system"
+ Debug " series = $series"
+ Debug " OS = $osletter.$osmajor.$osminor"
+ Debug " machine = $machine_id"
+ Debug " license = $license"
+ if (( `echo $series | cut -b1` == 7 )) && (( $osmajor <= 9 ))
+ then
+ print "\nSorry. Not supported on Series 700 running HP-UX 9.x\n"
+ exit ${ERROR}
+ fi
+ if [[ ! -z $(whence model) ]]
+ then
+ series=`model`
+ Debug " model returned $series"
+ sched_file=${where}/sched.models
+ f_build_sched_file
+ pa_ver="N/A"
+ pa_chip="N/A"
+ if [[ -f ${sched_file} ]]
+ then
+ check_pa=$(model | awk -F/ '{print $NF}')
+ pa_ver=$(grep "${check_pa} " $sched_file | awk '{print $2}')
+ pa_chip=$(grep "${check_pa} " $sched_file | awk '{print $3}')
+ else
+ pa_ver=""
+ pa_chip=""
+ fi
+ else
+ Debug " model not found, using inline series check"
+ case $series in
+ 780) series="780/C160";;
+ 801) series="801/DX0";;
+ 811) series="811/DX5";;
+ 806) series="806/E25";;
+ 807) series="807/F10";;
+ 809) series="809/K100";;
+ 816) series="816/E35";;
+ 817) series="817/F20";;
+ 819) series="819/K200";;
+ 821) series="821/D200/D400";;
+ 826) series="826/E45";;
+ 827) series="827/H20";;
+ 829) series="829/K400";;
+ 831) series="831/D200/D400";;
+ 837) series="837/F30";;
+ 839) series="839/K210";;
+ 841) series="841/D210/D410";;
+ 847) series="847/G30/H30";;
+ 851) series="851/D210/D410";;
+ 849) series="849/K410";;
+ 856) series="856/E55";;
+ 857) series="857/I30";;
+ 859) series="859/K220";;
+ 867) series="867/G40/H40";;
+ 869) series="869/K420";;
+ 877) series="877/I40";;
+ 887) series="887/G50/H50/G60/H60/G70/H70";;
+ 890) series="890";;
+ 891) series="891/T500";;
+ 892) series="892/T520";;
+ 897) series="897/I50/I60/I70";;
+ *) series=$series
+ Debug "Series type not found for $series" ;;
+ esac
+ fi
+ if [ $osmajor -lt 10 ]
+ then
+ kernel=/hp-ux
+ else
+ kernel=/stand/vmunix
+ fi
+ Debug " kernel=${kernel}"
+ if [[ -f /etc/lvmtab ]]
+ then
+ lvm_installed=1
+ Debug " LVM Detected."
+ else
+ lvm_installed=0
+ Debug " LVM NOT Detected."
+ fi
+# set PATH variable to ensure access to required commands
+ for i in \
+ /etc \
+ /usr/sbin \
+ /bin \
+ ;
+ do
+ if [ -d $i ]
+ then
+ PATH=$PATH:$i
+ fi
+ done
+ export PATH
+ Debug " PATH = $PATH"
+ if [ -f ${where}/system_db ]
+ then
+ conf_file=${where}/system_db
+ elif [ -f /usr/local/bin/system_db ]
+ then
+ conf_file=/usr/local/bin/system_db
+ fi
+ if [[ -n ${conf_file} ]]
+ then
+ Debug " Found config file = $conf_file"
+ serial_number=$(grep $sysname $conf_file | awk -F: '{print $4}')
+ Debug " serial number = ${serial_number}"
+ fi
+ swap_devs=$(swapinfo -d | grep -v "Kb" |grep -v "TYPE" \
+ | awk '{printf "%s ", $NF}')
+# if (($FULL_KERNEL)) || (( ${LITE_KERNEL} ))
+# then
+# if (( ${osmajor} >= 10 ))
+# rm -f $kernel_scan_done
+# launch_kernel_scan
+# Debug "Calling kernel_scan"
+# if (($BATCH))
+# then
+# print "launching background kernel scan"
+# fi
+# fi
+# fi
+ if (($IOSCAN)) || (($PHYSICAL))
+ then
+ rm -f $io_scan_done
+ launch_io_scan $ioscan_args
+ Debug "Calling io_scan"
+ if (($BATCH))
+ then
+ print "launching background ioscan"
+ fi
+ fi
+ if (($LVMSCAN))
+ then
+ rm -f $lvm_scan_done
+ launch_lvm_scan
+ Debug "Calling launch_lvm_scan"
+ if (($BATCH))
+ then
+ print "launching background lvm scan"
+ fi
+ fi
+} # end of f_get_sys_type
+
+#===================================================================
+#
+#===================================================================
+function f_run_cstm
+{
+cstm_ok=0
+print -n "Checking digmond...."
+
+diagmond_result=$(ps -ef | grep -v grep | grep diagmond > /dev/null 2>&1)
+diagmond_result=$?
+if (($diagmond_result != 0))
+then
+ cstm_ok=1
+ Debug "Error: diagmond is not running."
+ Debug "diagmond_result = $diagmond_result"
+ print "diagmond is NOT running!"
+ print "No cstm info is available."
+ return
+else
+ print "diagmond is running."
+fi
+
+print -n "Checking cstm......."
+cstm_version=$(echo "Version" | /usr/sbin/cstm | grep Version \
+ | tail -1 | awk '{print $2}' )
+cstm_major=$(echo ${cstm_version} | awk -F. '{print $2}')
+
+echo "Version" | /usr/sbin/cstm >/dev/null 2>&1
+cstm_result=$?
+if (($cstm_result != 0))
+then
+ cstm_ok=1
+ Debug "Error returned from cstm"
+ print "Error returned from cstm"
+ print "cstm_result = $cstm_result"
+fi
+
+if (($cstm_ok == 0))
+then
+ cstm_version=$(echo "Version" | /usr/sbin/cstm | grep Version \
+ | tail -1 | awk '{print $2}' )
+ cstm_major=$(echo ${cstm_version} | awk -F. '{print $2}')
+ print "found version ${cstm_version}"
+ ### Changed 6/30/99 J.Semroc also works with V14
+ ### if (($cstm_major >= 08)) && (($cstm_major <= 13))
+ ### and V16 <st>
+ ### if (($cstm_major >= 08)) && (($cstm_major <= 16))
+ ### Removed upper end version check on cstm <st>
+ if (($cstm_major >= 08))
+ ### end Change
+ then
+ print "Running cstm....please wait."
+
+ if (($cstm_major == 12))
+ then
+ cat <<==end_of_command== > ${cstm_command_file}
+ # testtt
+ #
+ # The following connects the UI to the system the UI is being run on,
+ # and selects this system.
+ # SelCurrentSys system add localhost system 1
+ # Use current user name
+ # No password required on local system.
+ # don't prompt for overwrite
+ gop confirmation no
+ #Select all
+ #Select class cpu
+ SelClass type processor qualifier cpu
+ #collect the information and wait for it to finish
+ Information ; wait
+ #now display the info log
+ #version 12 has SaveAs & Print Commands reversed.
+ InfoLog
+ Print
+ $cstm_cpu_out
+ Done
+ #map
+ unselall
+ SelClass type memory
+ Information ; wait
+ InfoLog
+ Print
+ $cstm_mem_out
+ Done
+ unselall
+ SelClass type disk
+ Information ; wait
+ InfoLog
+ Print
+ $cstm_disk_out
+ Done
+ Exit
+ Ok
+
+==end_of_command==
+
+ else
+
+ cat <<==end_of_command== > ${cstm_command_file}
+ # testtt
+ #
+ # The following connects the UI to the system the UI is being run on,
+ # and selects this system.
+ #SelCurrentSys system add localhost system 1
+ # Use current user name
+ # No password required on local system.
+ #don't prompt for overwrite
+ gop confirmation no
+ #Select all
+ #Select class cpu
+ SelClass type processor qualifier cpu
+ #collect the information and wait for it to finish
+ Information ; wait
+ #now display the info log
+ InfoLog
+ SaveAs
+ $cstm_cpu_out
+ Done
+ #map
+ unselall
+ SelClass type memory
+ Information ; wait
+ InfoLog
+ SaveAs
+ $cstm_mem_out
+ Done
+ unselall
+ SelClass type disk
+ Information ; wait
+ InfoLog
+ SaveAs
+ $cstm_disk_out
+ Done
+ Exit
+ Ok
+
+==end_of_command==
+ fi
+ /usr/sbin/cstm -f ${cstm_command_file} > /dev/null 2>&1
+
+ awk '
+ /Hardware path/ {path = $3; next;}
+ /Slot Number/ {slot = $3; next; }
+ /PDC Firmware Revision/ {pdc = $4; next;}
+ /Instruction Cache/ {icache = $4; next;}
+ /Data Cache/ {dcache = $4; next;}
+ /Instruction TLB/ {itlb = $4; next;}
+ /Data TLB/ {dtlb = $5;
+ printf("%6s%6s %12s%8s %6s%6s %6s\n",
+ path, slot, pdc, icache, dcache, itlb, dtlb);
+ }
+ ' $cstm_cpu_out > $cstm_cpu_out2
+
+ rm -f ${cstm_command_file}
+ #rm -f ${cstm_cpu_out}
+ Debug "cstm_cpu_out2 = ${cstm_cpu_out2}"
+ #Debug "Data Cache = ${data_cache}"
+ #Debug "Instruction Cache = ${inst_cache}"
+ #Debug "Data TLB = ${data_cache}"
+ #Debug "Instruction TLB = ${inst_cache}"
+ #Debug "PDC Firmware Revision = ${pdc_rev}"
+ #Debug "${memory_interleave}"
+
+ check_na=$(awk ' /Total Physical Memory/ {print $NF}
+ ' $cstm_mem_out | tail -1)
+ if [[ ${check_na} != "N/A" ]]
+ then
+ cstm_tot_phys=$(awk ' /Total Physical Memory/ {print $(NF -1)}
+ ' $cstm_mem_out | tail -1)
+ else
+ cstm_tot_phys="N/A"
+ fi
+ cstm_tot_conf=$(awk ' /Total Configured Memory/ {print $(NF -1)}
+ ' $cstm_mem_out | tail -1)
+ cstm_page_size=$(awk ' /Page Size/ {print $(NF -1)}
+ ' $cstm_mem_out | tail -1)
+ cstm_interleave=$(awk ' /Memory interleaving/ { print $0}
+ ' $cstm_mem_out | tail -1)
+ if [[ -z ${cstm_tot_conf} ]] || [[ -z ${cstm_page_size} ]]
+ then
+ cstm_tot_conf="N/A"
+ cstm_page_size="N/A"
+ fi
+ else
+ print "Sorry, this version is not supported by SysInfo."
+ print "Hardware level information will not be available."
+ Debug "unsupported cstm version ${cstm_version}"
+ cstm_ok=1
+ fi
+fi
+} # end of function f_run_cstm
+
+
+#===================================================================
+# f_get_array_data
+#===================================================================
+function f_get_array_data
+{
+ if (( ${cstm_ok} == 0 ))
+ then
+ Debug "Getting array data"
+ if (($cstm_major == 12))
+ then
+ cat <<==end_of_command== > ${cstm_command_file}
+ # testtt
+ #
+ # The following connects the UI to the system the UI is being run on,
+ # and selects this system.
+ # SelCurrentSys system add localhost system 1
+ # Use current user name
+ # No password required on local system.
+ # don't prompt for overwrite
+ gop confirmation no
+ #unselall
+ Sel path $hwpath
+ Information ; wait
+ InfoLog
+ Print
+ $cstm_array_out
+ Done
+ Exit
+ Ok
+
+==end_of_command==
+
+ else # cstm not equal to 12
+
+ cat <<==end_of_command== > ${cstm_command_file}
+ # testtt
+ #
+ # The following connects the UI to the system the UI is being run on,
+ # and selects this system.
+ #SelCurrentSys system add localhost system 1
+ # Use current user name
+ # No password required on local system.
+ #don't prompt for overwrite
+ gop confirmation no
+ #unselall
+ Sel path $hwpath
+ Information ; wait
+ InfoLog
+ SaveAs
+ $cstm_array_out
+ Done
+ Exit
+ Ok
+
+==end_of_command==
+
+ fi
+ /usr/sbin/cstm -f ${cstm_command_file} > /dev/null 2>&1
+ cat $cstm_array_out | tail +6 >> /tmp/sysinfo.$$.array
+ rm $cstm_array_out
+ else
+ print "Array info not available - Problem with cstm."
+ fi
+
+} # end of f_get_array_data
+
+#===================================================================
+# f_get_system_data
+# This function retrieves various system and boot data.
+# e.g. amount of memory, number of cpus, etc.
+# It also checks to see if memory dumping is properly
+# configured.
+#===================================================================
+function f_get_system_data
+{
+ if [[ (-f /usr/sbin/cstm) && (-x /usr/sbin/cstm) ]]
+ then
+ f_run_cstm
+ else
+ cstm_ok=1
+ Debug " cstm not found....skipping"
+ print "WARNING (${sysname}): CSTM not installed." >> \
+ /tmp/sysinfo.$$.errwarn
+ fi
+ Debug "Beginning SYSTEM/ROOT check."
+ if (($BATCH))
+ then
+ print -n "collecting system data "
+ fi
+ # Determine cpu speed in MHz
+ # Determine the memory size.
+ # Real memory expressed in units of pages (4 kbytes per page).
+ if [ ${osmajor} -eq 11 ]
+ then
+ cpu_speed=$(echo itick_per_tick/D | adb -k $kernel /dev/kmem | tail -1 \
+ | awk '{print $2 / 10000}')
+ REAL_MEM=$(echo 'phys_mem_pages/D'| adb -k $kernel /dev/kmem | tail -1 \
+ | awk '{print $2}')
+ MemoryDumpSize=$(expr ${REAL_MEM} / 256)
+ k32_64=$(getconf KERNEL_BITS)
+ processor_count=$(echo 'processor_count/D' | adb -k $kernel /dev/kmem \
+ | tail -1 | awk '{print $2}')
+ else
+ cpu_speed=$(echo itick_per_tick/D | adb $kernel /dev/kmem | tail -1 \
+ | awk '{print $2 / 10000}')
+ dumppages=$(echo 'dumpsize/D'| adb $kernel /dev/kmem | tail -1 \
+ | awk '{print $2}')
+ MemoryDumpSize=$(expr ${dumppages} / 256)
+ REAL_MEM=$(echo 'physmem/D'| adb $kernel /dev/kmem | tail -1 \
+ | awk '{print $2}')
+ # determine number of active processors (cpus)
+ processor_count=$(echo 'processor_count/D' | adb $kernel /dev/kmem \
+ | tail -1 | awk '{print $2}')
+ fi
+ memory=$(expr ${REAL_MEM} / 256)
+ if (($BATCH))
+ then
+ print -n "."
+ fi
+ boot_time=$(who -b | awk '{printf "%s %s %s ", $4, $5, $6}')
+
+ #now get date of last patch
+ #
+ #Modified: Greg Sterling
+ #updated lastpatch for 10.x & 11.x
+ #
+ last_patch="unknown"
+ if (( $osmajor >= 10 ))
+ then
+ if [ -d /var/adm/sw/products ]
+ then
+ last_patch=$(ls -lt /var/adm/sw/products | egrep 'PHNE|PHCO|PHKL|PHSS' \
+ | head -1 | awk '{ print $6,$7,$8}')
+ else
+ Debug "ERROR: Product IPD database does not exist."
+ fi
+ else
+ if [ -d /system ]
+ then
+ last_patch=$(ls -lt /system/ | egrep 'PHNE|PHCO|PHKL|PHSS' \
+ | head -1 | awk '{ print $6,$7,$8}')
+ fi
+ fi
+ if (($BATCH))
+ then
+ print -n "."
+ fi
+ if (($BATCH))
+ then
+ print -n "."
+ fi
+ lvlnboot -v /dev/vg00 > /tmp/sysinfo.$$.root 2>&1
+ rootboot=$(grep "Boot Disk" /tmp/sysinfo.$$.root \
+ | awk '{printf "%s ", $1}')
+ rootroot=$(grep "^Root:" /tmp/sysinfo.$$.root \
+ | awk '{print $2,$4}')
+ rootswap=$(grep "^Swap:" /tmp/sysinfo.$$.root \
+ | awk '{print $2,$4}')
+ rootdump=$(grep "^Dump:" /tmp/sysinfo.$$.root \
+ | awk '{printf "%s ",$2}')
+ if (($BATCH))
+ then
+ print -n "."
+ fi
+
+ kernel_size=$(ll ${kernel} | awk '{print $5}' 2>&1)
+# gather memory dump parms
+ (( KernelSizeMb=`ll ${kernel} | awk '{print $5}'` / 1024 / 1024 + 1 ))
+ if (( $osmajor < 10 ))
+ then
+ # it is a 9.x system
+ if [[ $(grep "dumps" /etc/conf/gen/S800*) = *default* ]]
+ then
+ DumpDiskCapacity=$(swapinfo -mat | grep dev | head -1 | awk '{print $2}')
+ rootdump="default"
+ Debug " 9.x system. default found in S800."
+ Debug " rootdump=${rootdump}"
+ else
+ Debug " 9.x system. default not found in S800. using rootdump"
+ fi
+ SAVECORE=0
+ grep "/etc/savecore" /etc/rc > /dev/null 2>&1
+ if ((! ($?) ))
+ then
+ SAVECORE=1
+ fi
+ SAVECORE_DIR=$(grep "/etc/savecore" /etc/rc | tail -1 | awk '{print $NF}')
+
+ elif (( $osmajor >= 11 ))
+ then
+ # 11.x system
+ Debug " 11.x system."
+ if [ -f /etc/rc.config.d/savecrash ]
+ then
+ . /etc/rc.config.d/savecrash
+ # check if SAVECRASH is set
+ if [[ ! -z $SAVECRASH ]]
+ then
+ case ${COMPRESS} in
+ 0) Compress_Option="Turned off. ";;
+ 1) Compress_Option="Turned on. ";;
+ 2) Compress_Option="Don't care (default). ";;
+ *) Compress_Option="N/A";;
+ esac
+ SAVECORE=$SAVECRASH
+ SAVECORE_DIR=$SAVECRASH_DIR
+ Debug " found /etc/rc.config.d/savecrash with following parms:"
+ Debug " SAVECORE=$SAVECRASH"
+ Debug " SAVECORE_DIR=$SAVECRASH_DIR"
+ Debug " CHUNK_SIZE=$CHUNK_SIZE"
+ Debug " COMPRESS=$COMPRESS"
+ Debug " MIN_FREE=$MIN_FREE"
+ Debug " SWAP_LEVEL=$SWAP_LEVEL"
+ Debug " FOREGRD=$FOREGRD"
+ Debug " SAVE_PART=$SAVE_PART"
+ Debug " LOG_ONLY=$LOG_ONLY"
+ else
+ Debug " SAVECRASH is DISABLED"
+ SAVECORE=0
+ fi
+#
+# Now check for the crashconf file. This file can be used to set additional
+# dump parameters in V11.x
+#
+ if [ -f /etc/rc.config.d/crashconf ]
+ then
+ . /etc/rc.config.d/crashconf
+ # check if CRASHCONF_ENABLED is set
+ if [[ -z $CRASHCONF_ENABLED ]]
+ then
+ Debug " CrashConf is disabled."
+ else
+
+# Changed: 12/15/98 by Greg Sterling
+# If we're using V11.x, and CRASHCONF is enabled, the we've costomized the
+# DUMP output. The equation below does not apply to this scenario.
+# TotalMemoryDumpSize = MemoryDumpSize + KernelSizeMb + KernelSafetyFactor
+#
+# The actual dumpsize can not be computed from the crashconf utility. The
+# kernel size and safety values can be set to zero since the crashconf utility
+# already calculates these values.
+#
+ crashconf_dumpsize=$(/sbin/crashconf -v | grep 'Total pages included' \
+ | awk '{ print $6}')
+ crashconf_dumpsize=$(expr ${crashconf_dumpsize} \* 4096 / 1024 / 1024)
+# KernelSizeMB=0
+# KernelSafetyFactor=0
+
+ Debug " found /etc/rc.config.d/crashconf with following parms:"
+ Debug " CRASHCONF_ENABLED=$CRASHCONF_ENABLED"
+ Debug " CRASH_INCLUDED_PAGES=$CRASH_INCLUDED_PAGES"
+ Debug " CRASH_EXCLUDED_PAGES=$CRASH_EXCLUDED_PAGES"
+ Debug " CRASHCONF_READ_FSTAB=$CRASHCONF_READ_FSTAB"
+ Debug " CRASHCONF_REPLACE=$CRASHCONF_REPLACE"
+#
+# Check to see if the CRASHCONF_READ_FSTAB variable is set. If yes, then
+# the system will check the /etc/fstab file to see if there are any additional
+# dump spaces defined. If the CRASHCONF_REPLACE variable is set then all
+# the definitions/parameters defined in this section will replace any
+# previously defined DUMP parameters in the kernel.
+#
+ if [[ ! -z $CRASHCONF_READ_FSTAB ]]
+ then
+ Debug " crashconf_read_fstab is enabled."
+ crashconf_fstabs=$(awk ' $3=="dump" {printf("%s ",$1)}' /etc/fstab )
+
+ Debug " list of crashconf_fstabs = $crashconf_fstabs"
+ if [[ -z $crashconf_fstabs ]]
+ then
+ Debug " crashconf_fstabs list is empty. Will continue to "
+ Debug " use the lvlnboot info."
+ else
+ if [[ -z $CRASHCONF_REPLACE ]]
+ then
+ Debug " crashconf_fstabs will be added to existing \
+ configuration."
+ rootdump="$rootdump $crashconf_fstabs"
+ else
+ Debug " crashconf_fstabs will replace default dump config."
+ rootdump=$crashconf_fstabs
+ fi
+ fi
+ fi
+ fi
+ else
+ Debug " could not find /etc/rc.config.d/crashconf"
+ print "ERROR ${sysname}:/etc/rc.config.d/crashconf defaults file MISSING" >> /tmp/sysinfo.$$.errwarn
+ fi
+ fi
+ else
+ # must be a 10.x system
+ Debug " 10.x system."
+ if [ -f /etc/rc.config.d/savecore ]
+ then
+ . /etc/rc.config.d/savecore
+ case ${COMPRESS} in
+ 0) Compress_Option="Turned off. ";;
+ 1) Compress_Option="Turned on. ";;
+ 2) Compress_Option="Don't care (default). ";;
+ *) Compress_Option="N/A";;
+ esac
+ Debug " found /etc/rc.config.d/savecore with following parms:"
+ Debug " SAVECORE=$SAVECORE"
+ Debug " SAVECORE_DIR=$SAVECORE_DIR"
+ Debug " CHUNK_SIZE=$CHUNK_SIZE"
+ Debug " COMPRESS=$COMPRESS"
+ Debug " MIN_FREE=$MIN_FREE"
+ Debug " SWAP_LEVEL=$SWAP_LEVEL"
+ Debug " FOREGRD=$FOREGRD"
+ else
+ Debug " could not find /etc/rc.config.d/savecore"
+ print "ERROR: ${sysname}:/etc/rc.config.d/savecore defaults file MISSING" >> /tmp/sysinfo.$$.errwarn
+ fi
+
+ fi
+
+# Updated: Greg Sterling
+# I moved this section of code outside the savesore/crashconf checks above.
+# This dump calculation is pertinent to any version of HPUX and should not be
+# restricted to V10.x
+#
+ if (($lvm_installed))
+ then
+ Debug "Checking for dump space"
+ Debug " rootdump = ${rootdump}"
+ for logvol in ${rootdump}
+ do
+#
+# Added by Greg Sterling
+# This code checks for a preceeding /dev. if it exists then
+# continue, otherwise append the /dev/vg00 to the lvol definition.
+#
+ echo $logvol | grep -q "^/dev/"
+ if [[ $? -ne 0 ]]
+ then
+ Debug " adding /dev/vg00 to lvol name"
+ logvol="/dev/vg00/${logvol}"
+ fi
+#
+# Added by Greg Sterling
+# Validate the logvol is a logical volume. Its possible for dump
+# devices in later versions of HPUX to be disks w/out LVM
+#
+ lvdisplay $logvol > /dev/null 2>&1
+ if [[ $? -ne 0 ]]
+ then
+ Debug " dump device is not a logical volume."
+ rlogvol=$( echo $logvol | sed -e "s:^/dev/dsk/:/dev/rdsk/:" )
+ DumpSize=$( diskinfo $rlogvol | grep "size" | awk '{print $2}')
+ DumpSize=$( expr $DumpSize / 1024 )
+ else
+ DumpSize=$(lvdisplay $logvol | grep "LV Size" | awk '{print $4}')
+ Debug " $logvol DumpSize = ${DumpSize}"
+ fi
+ Debug " Adding $DumpSize to DumpDiskCapacity = ${DumpDiskCapacity}"
+ ((DumpDiskCapacity = DumpDiskCapacity + DumpSize))
+ done
+ Debug " DumpDiskCapacity =${DumpDiskCapacity}"
+ fi
+ Debug "Checking how much to dump"
+ # add kernel size to memory plus 2Mb safety factor
+ ((TotalMemoryDumpSize = MemoryDumpSize + KernelSizeMb + KernelSafetyFactor))
+ Debug " REAL_MEM = $REAL_MEM"
+ Debug " memory = $memory"
+ Debug " KernelSizeMb = $KernelSizeMb"
+ Debug " KernelSafetyFactor = $KernelSafetyFactor"
+ Debug " ---------"
+ Debug " TotalMemoryDumpSize = $TotalMemoryDumpSize"
+
+ if (($BATCH))
+ then
+ print -n "."
+ fi
+# now check to see if everything is okay.
+#
+# Updated: 12/15/98 by Greg Sterling
+# I updated this code to consider the CRASHCONF utility on V11.x. The
+# TotalMemoryDumpSize parameter is only relevent for a FULL crash dump.
+# Normal system crashes (if there is such a thing), can be captured within
+# smaller dump spaces due to the CRASHUTIL utility.
+#
+ case $osmajor in
+ 11 )
+ if (( DumpDiskCapacity < TotalMemoryDumpSize ))
+ then
+ if (( DumpDiskCapacity < crashconf_dumpsize ))
+ then
+ print "WARNING (${sysname}): Dump space is underconfigured!" \
+ >> /tmp/sysinfo.$$.errwarn
+ else
+ print "WARNING (${sysname}): Dump space is underconfigured \
+for a FULL crashdump." >> /tmp/sysinfo.$$.errwarn
+ print "WARNING (${sysname}): Dump space is adequate for the \
+CRASHCONF configuration." >> /tmp/sysinfo.$$.errwarn
+ fi
+ fi
+ ;;
+
+ 8 | 9 | 10 )
+ if (( DumpDiskCapacity < TotalMemoryDumpSize ))
+ then
+ print "WARNING (${sysname}): Dump space is under configured!" \
+ >> /tmp/sysinfo.$$.errwarn
+ fi
+ ;;
+ esac
+ if ((! (($exit_code)) ))
+ then
+ exit_code=${WARN}
+ fi
+
+ if (( ! $SAVECORE ))
+ then
+ SAVECORE=Disabled
+ if ((! (($exit_code)) ))
+ then
+ exit_code=${WARN}
+ fi
+
+ case $osmajor in
+ 8 | 9 | 10 )
+ print "WARNING (${sysname}): Savecore is not enabled!" \
+ >> /tmp/sysinfo.$$.errwarn
+ ;;
+
+ 11 )
+ if [[ -z $CRASHCONF_ENABLED ]]
+ then
+ Debug "Savecore is Disabled and CrashConf is Disabled."
+ print "WARNING (${sysname}):Both Savecore and crashconf are disabled!" \
+ >> /tmp/sysinfo.$$.errwarn
+ fi
+ ;;
+ esac
+
+ else
+
+
+ # Now check if enough disk space exists to hold savecore
+ Debug "Checking for sufficient savecore space"
+ COMPRESSION="Not Applicable"
+ if [[ -d $SAVECORE_DIR ]]
+ then
+ #SaveCoreAvail=$(bdf $SAVECORE_DIR | grep /dev/ | awk '{print $4}')
+ # fix for non-standard lvol names
+ SaveCoreAvail=$(df -b $SAVECORE_DIR | awk '{print $5}')
+ ((SaveCoreAvail = SaveCoreAvail / 1024))
+ Debug " SAVECORE=$SAVECORE"
+ Debug " SAVECORE_DIR=$SAVECORE_DIR"
+ Debug " SaveCoreAvail=$SaveCoreAvail"
+ else
+ SaveCoreAvail=0
+ if ((! (($exit_code)) ))
+ then
+ exit_code=${WARN}
+ fi
+ print "WARNING (${sysname}): Directory $SAVECORE_DIR does not exist!" >> /tmp/sysinfo.$$.errwarn
+ fi
+ if ((($osmajor == 10)) && (($osminor >= 10))) || (( $osmajor > 10 ))
+ then
+ COMPRESSION="Available"
+ compression_factor=${compression_factor:-50}
+ ((MemoryCompression = (TotalMemoryDumpSize * $compression_factor) / 100 ))
+ ((CompressedMemoryDumpSize = TotalMemoryDumpSize - MemoryCompression))
+
+ Debug " Checking for savecore compression"
+ Debug " Compress_option=$Compress_Option"
+ Debug " Compression=$COMPRESSION"
+ Debug " compression_factor=$compression_factor"
+ Debug " CompressedMemoryDumpSize after = $CompressedMemoryDumpSize"
+ if (( $CompressedMemoryDumpSize > $SaveCoreAvail ))
+ then
+ if ((! (($exit_code)) ))
+ then
+ exit_code=${WARN}
+ fi
+ print "WARNING (${sysname}): Insufficient file space to hold savecore!" >> /tmp/sysinfo.$$.errwarn
+ fi
+ else
+ if (( $TotalMemoryDumpSize > $SaveCoreAvail ))
+ then
+ if ((! (($exit_code)) ))
+ then
+ exit_code=${WARN}
+ fi
+ print "WARNING (${sysname}): Insufficient file space to hold savecore!" >> /tmp/sysinfo.$$.errwarn
+ fi
+ fi
+ SaveCoreAvail_Out=$SaveCoreAvail
+ SAVECORE=Enabled
+ fi
+
+ TotalMemoryDumpSizeOut=$TotalMemoryDumpSize
+
+# now let's print it.
+ if (($HTML))
+ then
+ print "</PRE>" >> /tmp/sysinfo.$$.sysout
+ print "<A name='System'></A>" >> /tmp/sysinfo.$$.sysout
+ print "<H2>" >> /tmp/sysinfo.$$.sysout
+ print "<FONT COLOR=red>" >> /tmp/sysinfo.$$.sysout
+ print "System Data" >> /tmp/sysinfo.$$.sysout
+ print "</FONT></H2>" >> /tmp/sysinfo.$$.sysout
+ print "<PRE><font size = '4'>" >> /tmp/sysinfo.$$.sysout
+ else
+ print "" >> /tmp/sysinfo.$$.sysout
+ print "SYSTEM DATA" >> /tmp/sysinfo.$$.sysout
+ print "===========" >> /tmp/sysinfo.$$.sysout
+ fi
+ print "HOSTNAME: ${sysname}" >> /tmp/sysinfo.$$.sysout
+ print "SYSTEM: ${system}" >> /tmp/sysinfo.$$.sysout
+ print "MODEL: ${series}" >> /tmp/sysinfo.$$.sysout
+ if [[ -n ${pa_chip} ]]
+ then
+ print "RISC CHIP: ${pa_chip}" >> /tmp/sysinfo.$$.sysout
+ print "PA VERSION: ${pa_ver}" >> /tmp/sysinfo.$$.sysout
+ fi
+ if [[ -n ${serial_number} ]]
+ then
+ print "SERIAL #: ${serial_number}" >> /tmp/sysinfo.$$.sysout
+ fi
+ print "SYSTEM ID: ${machine_id}" >> /tmp/sysinfo.$$.sysout
+ print "CPU SPEED: ${cpu_speed} MHz" >> /tmp/sysinfo.$$.sysout
+ print "CPUS: ${processor_count} active processor(s) " >> /tmp/sysinfo.$$.sysout
+ print "MEMORY: ${memory} Mbytes of memory." >> /tmp/sysinfo.$$.sysout
+ print -n "HP-UX VERSION: ${osletter}.${osmajor}.${osminor}" >> /tmp/sysinfo.$$.sysout
+ if (( $osmajor == 11 ))
+ then
+ print " ${k32_64} Bit" >> /tmp/sysinfo.$$.sysout
+ else
+ print "" >> /tmp/sysinfo.$$.sysout
+ fi
+ print "USER LICENSE: ${license}" >> /tmp/sysinfo.$$.sysout
+ print "LAST BOOT: ${boot_time}" >> /tmp/sysinfo.$$.sysout
+ print "LAST PATCH: ${last_patch}\n" >> /tmp/sysinfo.$$.sysout
+ print "" >> /tmp/sysinfo.$$.sysout
+
+ if (( ${cstm_ok} == 0 ))
+ then
+ print "System H/W data" >> /tmp/sysinfo.$$.sysout
+ print "===============" >> /tmp/sysinfo.$$.sysout
+ print " Processor data" >> /tmp/sysinfo.$$.sysout
+ print -- " --------------" >> /tmp/sysinfo.$$.sysout
+ print " H/W PDC Cache Size TLB Size" >>/tmp/sysinfo.$$.sysout
+ print " path slot rev level Inst Data Inst Data" >>/tmp/sysinfo.$$.sysout
+ print -- " -----------------------------------------------------" >>/tmp/sysinfo.$$.sysout
+ cat $cstm_cpu_out2 | awk -F: '
+ {printf("%8s%6s%14s%7s%7s%6s%6s\n",$1,$2,$3,$4,$5,$6,$7)}
+ ' >> /tmp/sysinfo.$$.sysout
+
+ print "" >> /tmp/sysinfo.$$.sysout
+ print " Memory Information" >> /tmp/sysinfo.$$.sysout
+ print -- " ------------------" >> /tmp/sysinfo.$$.sysout
+ #print " Total Physical Memory = $cstm_tot_phys MB" \
+ # >> /tmp/sysinfo.$$.sysout
+ #print " Total Configured Memory = $cstm_tot_conf MB" \
+ # >> /tmp/sysinfo.$$.sysout
+ #print " Memory Page Size = $cstm_page_size Bytes" \
+ # >> /tmp/sysinfo.$$.sysout
+ #print "$cstm_interleave" >> /tmp/sysinfo.$$.sysout
+ #print "" >> /tmp/sysinfo.$$.sysout
+
+ cat ${cstm_mem_out} | tail -n +10 | sed -e '/^$/d' >> /tmp/sysinfo.$$.sysout
+ print "" >> /tmp/sysinfo.$$.sysout
+ fi
+
+ print "SWAP DATA" >> /tmp/sysinfo.$$.sysout
+ print "=========" >> /tmp/sysinfo.$$.sysout
+ if (( $osmajor >= 10 ))
+ then
+ Debug "`swapinfo -dtfnrMa`"
+ else
+ Debug "`swapinfo -dtfa`"
+ fi
+
+ swapinfo -m | grep dev | \
+ awk '{printf "%6s MB on %s\n",$2,$9}' >> /tmp/sysinfo.$$.sysout
+ swapinfo -m | grep fs | \
+ awk '{printf "%6s MB on %s\n",$2,$9}' >> /tmp/sysinfo.$$.sysout
+ swapinfo -m | grep memory | \
+ awk '{printf "%6s MB on memory\n",$2}' >> /tmp/sysinfo.$$.sysout
+ print -- " ----" >> /tmp/sysinfo.$$.sysout
+
+ if (( $osmajor >= 10 ))
+ then
+ swapinfo -mdfMt | grep total | \
+ awk '{printf "%6s MB Total \n",$2}' >> /tmp/sysinfo.$$.sysout
+ else
+ swapinfo -mdft | grep tot | \
+ awk '{printf "%6s MB Total \n",$2}' >> /tmp/sysinfo.$$.sysout
+ fi
+ print "" >> /tmp/sysinfo.$$.sysout
+ print "DUMP DISKS" >> /tmp/sysinfo.$$.sysout
+ print "==========" >> /tmp/sysinfo.$$.sysout
+ lvlnboot -v /dev/vg00 2>&1 | grep Dump | awk '{print " "$0}' >> \
+ /tmp/sysinfo.$$.sysout
+ print "" >> /tmp/sysinfo.$$.sysout
+ print "DUMP DATA" >> /tmp/sysinfo.$$.sysout
+ print "=========" >> /tmp/sysinfo.$$.sysout
+ print "SAVECORE: ${SAVECORE}" >> /tmp/sysinfo.$$.sysout
+ case ${SAVECORE} in
+ D* )
+ ;;
+ E* )
+ print "SAVECORE DIR: ${SAVECORE_DIR}" >> \
+ /tmp/sysinfo.$$.sysout
+ if ((($osmajor == 10)) && (($osminor >= 10))) || (( $osmajor > 10 ))
+ then
+ print "SAVECORE COMPRESSION: ${COMPRESSION}" >> \
+ /tmp/sysinfo.$$.sysout
+ print "COMPRESSION OPTION: ${Compress_Option}" >> \
+ /tmp/sysinfo.$$.sysout
+ print "COMPRESSION FACTOR: ${compression_factor} %" >> \
+ /tmp/sysinfo.$$.sysout
+ print "COMPRESSED MEMORY TO DUMP: ${CompressedMemoryDumpSize} MB" >> \
+ /tmp/sysinfo.$$.sysout
+ print "SAVECORE CAPACITY: ${SaveCoreAvail_Out} MB\n" >> \
+ /tmp/sysinfo.$$.sysout
+ fi
+ ;;
+ esac
+
+#
+# Added: Greg Sterling
+# Added code to output the status of the CrashConf configuration.
+#
+ if (($osmajor > 10))
+ then
+ if [[ ! -z $CRASHCONF_ENABLED ]]
+ then
+ print "" >> /tmp/sysinfo.$$.sysout
+ if [[ -z $CRASHCONF_READ_FSTAB ]]
+ then
+ print "CRASHCONF : Enabled" >> /tmp/sysinfo.$$.sysout
+ else
+ print "CRASHCONF : Enabled (referencing /etc/fstab)" >> \
+ /tmp/sysinfo.$$.sysout
+ fi
+ if [[ -z $CRASHCONF_REPLACE ]]
+ then
+ print " Replace Option : CrashConf values have been Added to existing Kernel Definitions." >> /tmp/sysinfo.$$.sysout
+ else
+ print " Replace Option : CrashConf values REPLACE existing Kernel Definitions." >> /tmp/sysinfo.$$.sysout
+ fi
+
+ print " Included Pages : $CRASH_INCLUDED_PAGES" >> \
+ /tmp/sysinfo.$$.sysout
+ print " Excluded Pages : $CRASH_EXCLUDED_PAGES" >> \
+ /tmp/sysinfo.$$.sysout
+ print " FSTAB File Entries : $crashconf_fstabs" >> \
+ /tmp/sysinfo.$$.sysout
+ print " CRASHCONF Configured MEMORY TO DUMP: ${crashconf_dumpsize} MB" \
+ >> /tmp/sysinfo.$$.sysout
+ else
+ print "CRASHCONF : Disabled" >> /tmp/sysinfo.$$.sysout
+ fi
+ print "" >> /tmp/sysinfo.$$.sysout
+ fi
+
+ print "KERNEL SIZE: ${kernel_size} Bytes." >> \
+ /tmp/sysinfo.$$.sysout
+ print "TOTAL MEMORY TO DUMP: ${TotalMemoryDumpSizeOut} MB" >> \
+ /tmp/sysinfo.$$.sysout
+
+ print "DUMP DISK CAPACITY: ${DumpDiskCapacity} MB" >> \
+ /tmp/sysinfo.$$.sysout
+
+ f_display_file /tmp/sysinfo.$$.sysout
+ f_display_file /tmp/sysinfo.$$.stmout
+ #f_display_file /tmp/sysinfo.$$.dumpwarn
+ print "" >> /tmp/sysinfo.$$.sysout
+
+# if (($BATCH))
+# then
+ print
+# fi
+} # end of f_get_system_data
+
+function f_call_getkinfo
+{
+/usr/sam/lbin/getkinfo -b -o ${sam_kinfo}
+}
+
+function get_all_parms
+{
+Debug "starting get_all_parms"
+awk '
+ BEGIN { FS = "\n"; RS = "}" }
+ {print $0}
+ ' $sam_kinfo | \
+ awk '
+ /KC_PARAM_NAME/ {name = $3; printf("%s,", name)}
+ /KC_PARAM_CLASS/ {class = $3 " " $4; printf("%s\n", class)}
+ ' #| sed -e 's/\"*//g'
+}
+
+function get_all_classes
+{
+Debug "starting get_all_classes"
+awk ' BEGIN { FS = "\n"; RS = "}" }
+ $0 ~ /'\"$parm\"'/ {print $0}' $sam_kinfo \
+ | awk '
+ /^KC_PARAM_CLASS/ {printf("%s %s\n",$3,$4)}
+ ' #| sed -e 's/\"*//g'
+}
+
+function f_query_sam
+{
+ sam_parm=$1
+ type=$2
+ awk ' BEGIN { FS = "\n"; RS = "}" }
+ $0 ~ /'$sam_parm'/ {print $0}' $sam_kinfo \
+ | awk '
+ /^KC_PARAM_NAME/ {name = $3}
+ /^KC_PARAM_STATUS/ {status = $3}
+ /^KC_PARAM_DEFAULT/ {default = $3}
+ /^KC_PARAM_MAX/ {max = $3}
+ /^KC_PARAM_MIN/ {min = $3}
+ /^KC_PARAM_CLASS/ {class = $3" " $4}
+ /^KC_PARAM_DESC/ {desc = ""
+ for(i=3;i<=NF;i++)
+ desc = desc $i " ";
+ }
+
+ END { printf("%s@%s@%s@%s@%s@%s@%s\n",
+ name,status,default,max,min,desc,class)}
+ ' | sed -e 's/\"*//g'
+
+}
+
+#===================================================================
+# f_get_kernel_data
+# This function queries the kernel for various parameters.
+#===================================================================
+function f_get_kernel_data
+{
+
+ Debug "Beginning KERNEL check."
+ if (($BATCH))
+ then
+ print -n "collecting kernel data "
+ print "" >> /tmp/sysinfo.$$.kernout
+ else
+ print "Collecting kernel metrics....please wait."
+ fi
+
+ if (($HTML))
+ then
+ print "</PRE>" >> /tmp/sysinfo.$$.kernout
+ print "<A name='Kernel'></A>" >> /tmp/sysinfo.$$.kernout
+ print "<H2>" >> /tmp/sysinfo.$$.kernout
+ print "<P ALIGN=RIGHT><A HREF='#Top'>TOP</A></P>" >> /tmp/sysinfo.$$.kernout
+ print "<FONT COLOR=red>" >> /tmp/sysinfo.$$.kernout
+ if (( ${FULL_KERNEL} ))
+ then
+ print "Kernel Parms (Verbose Listing)" >> /tmp/sysinfo.$$.kernout
+ else
+ print "Kernel Parms (Brief Listing)" >> /tmp/sysinfo.$$.kernout
+ fi
+ print "</FONT></H2>" >> /tmp/sysinfo.$$.kernout
+ print "<PRE><font size = '4'>" >> /tmp/sysinfo.$$.kernout
+ else
+ print "KERNEL PARAMETERS" >> /tmp/sysinfo.$$.kernout
+ print "=================" >> /tmp/sysinfo.$$.kernout
+ fi
+
+Debug "calling f_call_getkinfo -> ${sam_kinfo}"
+f_call_getkinfo
+
+Debug "calling get_all_parms -> ${all_parms_file}"
+get_all_parms > ${all_parms_file}
+Debug " parm names = `cat ${all_parms_file}`"
+
+Debug "calling get_all_classes -> ${all_classes_file}"
+get_all_classes | sort -t , -k 7 | uniq > ${all_classes_file}
+ #sed -e 's/ /_/g' -e 's/_$//g' > ${all_classes_file}
+Debug " class names = `cat ${all_classes_file}`"
+
+exec 3< ${all_classes_file}
+exec 4< ${all_parms_file}
+while read -u3 class
+do
+ if (($BATCH))
+ then
+ print -n "."
+ fi
+ print_class=$(echo $class | sed -e 's/\"*//g')
+ if (($HTML))
+ then
+ print "<H3>${print_class} Metrics</H3>" >> /tmp/sysinfo.$$.kernout
+ else
+ print "${print_class} Metrics" >> /tmp/sysinfo.$$.kernout
+ print "============================" >> /tmp/sysinfo.$$.kernout
+ fi
+ Debug "Class = ${class}"
+ for parm1 in $(grep "${class}" ${all_parms_file} | awk -F, '{print $1}')
+ do
+ Debug "Parm1 = $parm1"
+ if (($FULL_KERNEL))
+ then
+ f_query_sam ${parm1} | \
+ awk 'BEGIN {FS = "@"}
+ {printf("%s\n",$1)
+ printf(" Title: %s\n",$6)
+ printf(" Current: %s\n",$2)
+ printf(" Default: %s\n",$3)
+ printf(" Min: %s\n",$5)
+ printf(" Max: %s\n",$4)
+ #printf(" Class: %s\n",$7)
+ } '>> /tmp/sysinfo.$$.kernout
+ else
+ f_query_sam ${parm1} | \
+ awk 'BEGIN {FS = "@"}
+ {printf(" %-20s %s\n",$1,$2)
+ } ' >> /tmp/sysinfo.$$.kernout
+ fi
+ done
+print "" >> /tmp/sysinfo.$$.kernout
+done
+ print "" >> /tmp/sysinfo.$$.kernout
+ f_display_file /tmp/sysinfo.$$.kernout
+
+if (($PASS))
+then
+ if (($DB_on_this_sys))
+ then
+ dbc_max=$(grep dbc_max /tmp/sysinfo.$$.kernout | awk '{print $2}')
+ if (( dbc_max > 10 ))
+ then
+ print "WARNING ($sysname): dbc_max is set to ${dbc_max} on DB server" >> \
+ /tmp/sysinfo.$$.sapwarn
+ fi
+ fi
+fi
+ f_display_file /tmp/sysinfo.$$.kernwarn
+ if (($BATCH))
+ then
+ print ""
+ fi
+} # end of f_get_kernel_data
+
+#===================================================================
+# f_get_9x_kernel_data
+# This function queries the kernel for various parameters.
+#===================================================================
+function f_get_9x_kernel_data
+{
+
+ Debug "Beginning 9x KERNEL check."
+ if (($BATCH))
+ then
+ print -n "collecting kernel data "
+ fi
+ shmmni=$(echo 'shmmni/D'|adb $kernel /dev/kmem \
+ | tail -1 | awk '{print $2}')
+ maxfiles=$(echo 'maxfiles/D'|adb $kernel /dev/kmem \
+ | tail -1 | awk '{print $2}')
+ if (($BATCH))
+ then
+ print -n "."
+ fi
+ shmmax=$(echo 'shmmax/D'|adb $kernel /dev/kmem \
+ | tail -1 | awk '{print $2}')
+ shmseg=$(echo 'shmseg/D'|adb $kernel /dev/kmem \
+ | tail -1 | awk '{print $2}')
+ shmem=$(echo 'shmem/D'|adb $kernel /dev/kmem \
+ | tail -1 | awk '{print $2}')
+ if (($BATCH))
+ then
+ print -n "."
+ fi
+ maxfiles_lim=$(echo 'maxfiles_lim/D'|adb $kernel /dev/kmem \
+ | tail -1 | awk '{print $2}')
+ maxuprc=$(echo 'maxuprc/D'|adb $kernel /dev/kmem \
+ | tail -1 | awk '{print $2}')
+ if (($BATCH))
+ then
+ print -n "."
+ fi
+ nproc=$(echo 'nproc/D'|adb $kernel /dev/kmem \
+ | tail -1 | awk '{print $2}')
+ nfile=$(echo 'nfile/D'|adb $kernel /dev/kmem \
+ | tail -1 | awk '{print $2}')
+ if (($BATCH))
+ then
+ print -n "."
+ fi
+ nflocks=$(echo 'nflocks/D'|adb $kernel /dev/kmem \
+ | tail -1 | awk '{print $2}')
+ ninode=$(echo 'ninode/D'|adb $kernel /dev/kmem \
+ | tail -1 | awk '{print $2}')
+ if (($BATCH))
+ then
+ print -n "."
+ fi
+# PA8000 chips support variable page sizes
+ super_page_supp=$(echo cpu_has_var_size_pages/D | adb $kernel /dev/kmem \
+ | tail -1 | awk '{print $2}')
+ case $super_page_supp in
+ 0) super_page_support=no;;
+ 1) super_page_support=yes;;
+ *) super_page_support=n/a;; # not found in kernel
+ esac
+ if (($BATCH))
+ then
+ print -n "."
+ fi
+ npty=$(echo 'npty/D'|adb $kernel /dev/kmem \
+ | tail -1 | awk '{print $2}')
+# check for asynch disc writes enabled
+ fs_async=$(echo 'fs_async/D'|adb $kernel /dev/kmem \
+ | tail -1 | awk '{print $2}')
+ if ((${fs_async} == 0))
+ then
+ fs_async=no
+ else
+ fs_async=yes
+ fi
+ if (($BATCH))
+ then
+ print -n "."
+ fi
+ nbuf=$(echo 'nbuf/D'|adb $kernel /dev/kmem \
+ | tail -1 | awk '{print $2}')
+ bufpages=$(echo 'bufpages/D'|adb $kernel /dev/kmem \
+ | tail -1 | awk '{print $2}')
+
+ if (($BATCH))
+ then
+ print -n "."
+ fi
+ msgmap=$(echo 'msgmap/D'|adb $kernel /dev/kmem \
+ | tail -1 | awk '{print $2}')
+ if (($BATCH))
+ then
+ print -n "."
+ fi
+ maxdsiz=$(echo 'maxdsiz/D'|adb $kernel /dev/kmem \
+ | tail -1 | awk '{print $2}')
+ maxssiz=$(echo 'maxssiz/D'|adb $kernel /dev/kmem \
+ | tail -1 | awk '{print $2}')
+ if (($BATCH))
+ then
+ print -n "."
+ fi
+ maxtsiz=$(echo 'maxtsiz/D'|adb $kernel /dev/kmem \
+ | tail -1 | awk '{print $2}')
+ maxuprc=$(echo 'maxuprc/D'|adb $kernel /dev/kmem \
+ | tail -1 | awk '{print $2}')
+ if (($BATCH))
+ then
+ print -n "."
+ fi
+ ncdnode=$(echo 'ncdnode/D'|adb $kernel /dev/kmem \
+ | tail -1 | awk '{print $2}')
+ if (($BATCH))
+ then
+ print -n "."
+ fi
+ sema=$(echo 'sema/D'|adb $kernel /dev/kmem \
+ | tail -1 | awk '{print $2}')
+ if (($BATCH))
+ then
+ print -n "."
+ fi
+ semmap=$(echo 'semmap/D'|adb $kernel /dev/kmem \
+ | tail -1 | awk '{print $2}')
+ if (($BATCH))
+ then
+ print -n "."
+ fi
+# get LVM related kernel parameters
+ maxvgs=$(echo 'maxvgs/D'|adb $kernel /dev/kmem \
+ | tail -1 | awk '{print $2}')
+ lv_vgs_opn=$(echo 'lv_vgs_opn/D'|adb $kernel /dev/kmem \
+ | tail -1 | awk '{print $2}')
+ if (($BATCH))
+ then
+ print -n "."
+ fi
+ lv_lvs_opn=$(echo 'lv_lvs_opn/D'|adb $kernel /dev/kmem \
+ | tail -1 | awk '{print $2}')
+ lv_pbuf_cnt=$(echo 'lv_pbuf_cnt/D'|adb $kernel /dev/kmem \
+ | tail -1 | awk '{print $2}')
+ if (($BATCH))
+ then
+ print -n "."
+ fi
+ lv_pbuf_inuse=$(echo 'lv_pbuf_inuse/D'|adb $kernel /dev/kmem \
+ | tail -1 | awk '{print $2}')
+ lv_pbuf_maxuse=$(echo 'lv_pbuf_maxuse/D'|adb $kernel /dev/kmem \
+ | tail -1 | awk '{print $2}')
+ if (($BATCH))
+ then
+ print -n "."
+ fi
+ lv_pbuf_pending_Q=$(echo 'lv_pbuf_pending_Q/D'|adb $kernel /dev/kmem \
+ | tail -1 | awk '{print $2}')
+
+ if (($HTML))
+ then
+ print "</PRE>" >> /tmp/sysinfo.$$.kernout
+ print "<A name='Kernel'></A>" >> /tmp/sysinfo.$$.kernout
+ print "<FONT COLOR=red>" >> /tmp/sysinfo.$$.kernout
+ print "<H2>Kernel Data</H2></FONT>" >> /tmp/sysinfo.$$.kernout
+ print "<PRE><font size = '4'>" >> /tmp/sysinfo.$$.kernout
+ else
+ print "KERNEL DATA" >> /tmp/sysinfo.$$.kernout
+ print "===========" >> /tmp/sysinfo.$$.kernout
+ fi
+ print "Super page support (cpu_has_var_size_pages) $super_page_support" >> /tmp/sysinfo.$$.kernout
+ print "" >> /tmp/sysinfo.$$.kernout
+ print "Max shared memory segments in system (shmmni)$shmmni" >> /tmp/sysinfo.$$.kernout
+ print "Enable Sys V Shared Memory(shmem) ${shmem}" >> /tmp/sysinfo.$$.kernout
+
+ print "" >> /tmp/sysinfo.$$.kernout
+ print "Soft file limit per process (maxfiles) $maxfiles" >> /tmp/sysinfo.$$.kernout
+ print "Hard file limit per process (maxfiles_lim) $maxfiles_lim" >> /tmp/sysinfo.$$.kernout
+ print "Max number of processes (nproc) $nproc" >> /tmp/sysinfo.$$.kernout
+ print "Max number of user processes (maxuprc) $maxuprc" >> /tmp/sysinfo.$$.kernout
+ print "Number of open files in system (nfile) $nfile" >> /tmp/sysinfo.$$.kernout
+ print "Maximum number of file locks (nflocks) $nflocks" >> /tmp/sysinfo.$$.kernout
+ print "Max number of in-core inodes (ninode) $ninode" >> /tmp/sysinfo.$$.kernout
+ print "Asynchronous disk writes allowed (fs_async) $fs_async" >> /tmp/sysinfo.$$.kernout
+ print "Number of pseudo-teletypes (npty) $npty" >> /tmp/sysinfo.$$.kernout
+ print "Number of filesystem buffer headers (nbuf) $nbuf" >> /tmp/sysinfo.$$.kernout
+ print "Number of buffer pages in cache (bufpages) $bufpages" >> /tmp/sysinfo.$$.kernout
+ print "Max Number of Message Map Entries (msgmap) $msgmap" >> /tmp/sysinfo.$$.kernout
+ print "Max Data Segment Size (Bytes) (maxdsiz) $maxdsiz" >> /tmp/sysinfo.$$.kernout
+ print "Max Stack Segment Size (Bytes) (maxssiz) $maxssiz" >> /tmp/sysinfo.$$.kernout
+ print "Max Text Segment Size (Bytes) (maxtsiz) $maxtsiz" >> /tmp/sysinfo.$$.kernout
+ print "Enable Sys V Semaphores (sema) $sema" >> /tmp/sysinfo.$$.kernout
+
+ if (($lvm_installed))
+ then
+ print "" >> /tmp/sysinfo.$$.kernout
+ print "LVM Parms" >> /tmp/sysinfo.$$.kernout
+ print " Max number of volume groups (maxvgs) $maxvgs" >> /tmp/sysinfo.$$.kernout
+ print " Number of open volume groups (lv_vgs_opn) $lv_vgs_opn" >> /tmp/sysinfo.$$.kernout
+ print " Number of open logical volumes (lv_lvs_opn)$lv_lvs_opn" >> /tmp/sysinfo.$$.kernout
+ print " Lvol pbuf count (lv_pbuf_cnt) $lv_pbuf_cnt" >> /tmp/sysinfo.$$.kernout
+ print " Lvol pbuf current usage (lv_pbuf_inuse) $lv_pbuf_inuse" >> /tmp/sysinfo.$$.kernout
+ print " Lvol pbuf high water mark (lv_pbuf_maxuse) $lv_pbuf_maxuse" >> /tmp/sysinfo.$$.kernout
+ print " lv_pbuf_pending_Q: $lv_pbuf_pending_Q \n" >> /tmp/sysinfo.$$.kernout
+ fi
+ f_display_file /tmp/sysinfo.$$.kernout
+ f_display_file /tmp/sysinfo.$$.kernwarn
+ if (($BATCH))
+ then
+ print ""
+ fi
+} # end of f_get_9x_kernel_data
+
+
+#===================================================================
+# f_get_network_data
+# This function queries each lan card and retrieves information
+# for each one.
+#===================================================================
+function f_get_network_data
+{
+ Debug "Beginning NETWORK check."
+ if (($BATCH))
+ then
+ print -n "scanning network cards "
+ fi
+ GetCurrentDNS
+ #DOMAIN=$(nslookup ${sysname} | grep Name | grep -v Server | cut -d. -f2-6)
+ default_router=$( netstat -r | grep default | awk '{print $2}')
+ default_router_ip=$( netstat -rn | grep default | awk '{print $2}')
+ if (($HTML))
+ then
+ print "</PRE>" >> /tmp/sysinfo.$$.netout
+ print "<A NAME='Network'></A>" >> /tmp/sysinfo.$$.netout
+ print "<H2>" >> /tmp/sysinfo.$$.netout
+ print "<P ALIGN=RIGHT><A HREF='#Top'>TOP</A></P>" >> /tmp/sysinfo.$$.netout
+ print "<FONT COLOR=red>" >> /tmp/sysinfo.$$.netout
+ print "Network Data </H2>" >> /tmp/sysinfo.$$.netout
+ print "</FONT><PRE><font size = '4'>" >> /tmp/sysinfo.$$.netout
+ else
+ print "NETWORK DATA" >> /tmp/sysinfo.$$.netout
+ print "============" >> /tmp/sysinfo.$$.netout
+ fi
+ print "DOMAIN NAME: ${CURRENT_DOMAIN}" >> /tmp/sysinfo.$$.netout
+ print -n "DNS SERVER: ${CURRENT_DNS_SERVER} " >> /tmp/sysinfo.$$.netout
+ print "(${CURRENT_DNS_SERVER_IP})" >> /tmp/sysinfo.$$.netout
+ print -n "DEFAULT ROUTER: ${default_router} " >> /tmp/sysinfo.$$.netout
+ print "(${default_router_ip})" >> /tmp/sysinfo.$$.netout
+ print "" >> /tmp/sysinfo.$$.netout
+
+ #for CARD in $(netstat -in | grep lan | awk '{print $1}' | sed 's/\*//')
+ # 1.42 change to handle multiple I/F cards
+ if (( ${osmajor} >= 10 ))
+ then
+ card_list=$(/etc/lanscan -i | awk '{print $1}')
+ Debug " 10.x using lanscan -i"
+ else
+ card_list=$(/etc/lanscan | tail +3 | awk '{printf("%s\n",$5)}')
+ Debug " 9.x using lanscan "
+ fi
+ for CARD in ${card_list}
+ do
+ ifconfig "${CARD}" > /tmp/sysinfo.$$.ipdata 2>&1
+ if [ $? -eq 0 ]
+ then
+ Debug " checking lan card -> $CARD"
+ #lanconfig "$CARD" >> /tmp/sysinfo.$$.ipdata 2>&1
+ #card_type=$(lanconfig "$CARD" | grep ${CARD} | awk '{print $2}')
+ if (( ${osmajor} >= 11 ))
+ then
+ card_type=$(lanscan -im | grep "${CARD} " | awk '{print $NF}')
+ else
+ card_type=$(lanscan | grep "${CARD} " | awk '{print $8}')
+ fi
+ Debug " card_type=$card_type"
+ #MWR fix for incorrect handling of multiple lan cards
+ #macaddr=$(/etc/lanscan | grep x | awk '{print $2}')
+ macaddr=$(/etc/lanscan | grep "${CARD} " | awk '{print $2}')
+ lan_hw_addr=$(/etc/lanscan | grep "${CARD} " | awk '{print $1}')
+ nmid=$(/etc/lanscan | grep "${CARD} " | awk '{print $7}')
+ ip_addr=$(grep inet /tmp/sysinfo.$$.ipdata | awk '{print $2}')
+ ip_addr_name=$(LookupName ${ip_addr})
+ lanspeed=$(lanadmin -s ${nmid} | awk '{print $3}')
+ netmask=$(grep inet /tmp/sysinfo.$$.ipdata | awk '{print $4}')
+
+ #convert hex netmask to decimal-dot.
+ typeset -Z8 hex=0${netmask#0x}; typeset +Z hex
+ typeset -L2 ott=
+ typeset -i10 dec=
+ netmask=""
+ while [ "$hex" ]; do
+ ott=$hex
+ dec=16#$ott
+ netmask=$netmask.$dec
+ hex=${hex#??}
+ done
+ netmask=${netmask#.}
+
+ broadcast=$(grep inet /tmp/sysinfo.$$.ipdata | awk '{print $6}')
+ if (($HTML))
+ then
+ print "</PRE>" >> /tmp/sysinfo.$$.netout
+ print "<H3>INTERFACE DATA for ${CARD}</H3>" >> /tmp/sysinfo.$$.netout
+ print "<PRE><font size = '4'>" >> /tmp/sysinfo.$$.netout
+ else
+ print "INTERFACE DATA for ${CARD}" >> /tmp/sysinfo.$$.netout
+ print "===========================" >> /tmp/sysinfo.$$.netout
+ fi
+ #print "NMID: ${nmid}" >> /tmp/sysinfo.$$.netout
+ print "H/W ADDR: ${lan_hw_addr}" >> /tmp/sysinfo.$$.netout
+ print "CARD TYPE: ${card_type}" >> /tmp/sysinfo.$$.netout
+ print "SPEED: ${lanspeed}" >> /tmp/sysinfo.$$.netout
+ print "MAC ADDRESS: ${macaddr}" >> /tmp/sysinfo.$$.netout
+ print -n "IP ADDRESS: ${ip_addr}" >> /tmp/sysinfo.$$.netout
+ print " (${ip_addr_name})" >> /tmp/sysinfo.$$.netout
+ print "BROADCAST: ${broadcast}" >> /tmp/sysinfo.$$.netout
+ print "NETMASK: ${netmask}\n" >> /tmp/sysinfo.$$.netout
+ fi
+ if (($BATCH))
+ then
+ print -n "."
+ fi
+ done
+ f_display_file /tmp/sysinfo.$$.netout
+ if (($BATCH))
+ then
+ print
+ fi
+} # end of f_get_network_data
+
+function query_EMC_disks
+{
+Debug "Beginning query_EMC_disks"
+if [ -f ${where}/inq.hp ]
+then
+ Debug " found inq.hp"
+ #inq.hp
+else
+ Debug " Could not find inq.hp....no query done."
+fi
+
+}
+rawDiskFilter () {
+ # Filters out the first raw disk file after an HP Claimed disk
+ awk '
+ ( $0 ~ "CLAIMED" ) { hit=0 }
+ ( $0 ~ "CLAIMED" && $0 ~ "HP") { hit=1; next }
+ ( $0 !~ "CLAIMED" && hit==1) { hit=0; print $2 }
+ '
+} # rawDiskFilter()
+
+
+#===================================================================
+# f_get_physical_disk_data
+# This function scans each physical disk.
+# It uses ioscan to collect disk info and the queries each
+# device using diskinfo.
+# The output is displayed in sorted order.
+#===================================================================
+function f_get_physical_disk_data
+{
+ Debug "Beginning PHYSICAL DISK check."
+# first let's print header information
+ if (($HTML))
+ then
+ print "</PRE>" >> /tmp/sysinfo.$$.physinfoh
+ print "<A NAME='Physical'></A>" >> /tmp/sysinfo.$$.physinfoh
+ print "<H2>" >> /tmp/sysinfo.$$.physinfoh
+ print "<P ALIGN=RIGHT><A HREF='#Top'>TOP</A></P>" >> /tmp/sysinfo.$$.physinfoh
+ print "<FONT COLOR=red>" >> /tmp/sysinfo.$$.physinfoh
+ print "Physical Disk Data </H2>" >> /tmp/sysinfo.$$.physinfoh
+ print "</FONT><PRE>" >> /tmp/sysinfo.$$.physinfoh
+ print "</PRE>" >> /tmp/sysinfo.$$.boot
+ print "<H3>Bootable Disks</H3>" >> /tmp/sysinfo.$$.boot
+ print "<PRE><font size = '3'>" >> /tmp/sysinfo.$$.boot
+ print "Volume Name H/W Path Auto Boot String" >> \
+ /tmp/sysinfo.$$.boot
+ print -- "-------------- ------------ ----------------" >> \
+ /tmp/sysinfo.$$.boot
+ print "<font size = '4'>" >> /tmp/sysinfo.$$.boot
+ else
+ print "PHYSICAL DISK DATA" >> /tmp/sysinfo.$$.physinfoh
+ print "==================" >> /tmp/sysinfo.$$.physinfoh
+ print "BOOTABLE DISKS" >> /tmp/sysinfo.$$.boot
+ print "==============" >> /tmp/sysinfo.$$.boot
+ print "Volume Name H/W Path Auto Boot String" >> \
+ /tmp/sysinfo.$$.boot
+ print -- "-------------- ------------ ----------------" >> \
+ /tmp/sysinfo.$$.boot
+ fi
+
+ # Header for XP256 Information
+ print > /tmp/sysinfo.$$.256header
+ print "XP256 Disc Array Information" >> /tmp/sysinfo.$$.256header
+ print "============================" >> /tmp/sysinfo.$$.256header
+ print -n " " >> /tmp/sysinfo.$$.256header
+ print " Size" >> /tmp/sysinfo.$$.256header
+ print -n "Device File Port Scsi Lun CU:Ldev Serial#" \
+ >> /tmp/sysinfo.$$.256header
+ print " Type (MB)" >> /tmp/sysinfo.$$.256header
+
+ # Header for NIKE Array Information
+ print > /tmp/sysinfo.$$.arrayheader
+ print "Disk Array Information" >> /tmp/sysinfo.$$.arrayheader
+ print "======================" >> /tmp/sysinfo.$$.arrayheader
+
+ if (($PMAP))
+ then
+ if (($HTML))
+ then
+ print "</PRE>" >> /tmp/sysinfo.$$.pmap
+ print "<A NAME='Pmap'></A>" >> /tmp/sysinfo.$$.pmap
+ print "<H2>" >> /tmp/sysinfo.$$.pmap
+ print "<P ALIGN=RIGHT><A HREF='#Top'>TOP</A></P>" >> /tmp/sysinfo.$$.pmap
+ print "<FONT COLOR=red>" >> /tmp/sysinfo.$$.pmap
+ print "Physical Disk To Logical Volume Mapping</H2>" >> /tmp/sysinfo.$$.pmap
+ print "</FONT><PRE><font size = '4'>" >> /tmp/sysinfo.$$.pmap
+ else
+ print "PHYSICAL DISK TO LOGICAL VOLUME MAPPING" >> /tmp/sysinfo.$$.pmap
+ print "=======================================" >> /tmp/sysinfo.$$.pmap
+ fi
+ print -n "Physical Disk " >> /tmp/sysinfo.$$.pmap
+ print " Alternate Link" >> /tmp/sysinfo.$$.pmap
+ print " Logical Volume LE PE" >> /tmp/sysinfo.$$.pmap
+ print -n -- "----------------------------------------" >> /tmp/sysinfo.$$.pmap
+ print -- "-----------------------" >> /tmp/sysinfo.$$.pmap
+ fi
+ Debug " calling check_if_scan_done"
+ check_if_scan_done io_scan
+ print -n "scanning physical disks "
+
+#get physical disk names
+ if (( $osmajor >= 10 ))
+ then
+ Debug "Found 10.x system"
+# hw_path=$(ioscan -kfC disk | sed '1,/^=/d' | awk '{print $3}')
+ hw_path=$(grep disk $io_scan_out | awk -F: '{print $11}' | sort)
+ Debug "hw_path=$hw_path"
+ for hwpath in ${hw_path}
+ do
+ Debug "hwpath=${hwpath}"
+ lu=""
+ vendor=""
+ tmpin=$(echo $hwpath | cut -d. -f1)
+### Changed 6/15/99 J.Semroc - to improve Performance reuse existing data
+### inst=$(ioscan -kf | grep "^ext_bus" | grep " ${tmpin} " \
+### | grep -v fcpdev | awk '{print $2}')
+ inst=$(grep $hwpath $io_scan_out | grep disk | awk '{print $NF}' \
+ | cut -d: -f2)
+### end of Change
+ #scsi_addr=$(echo $hwpath | cut -d. -f2)
+ #unit_addr=$(echo $hwpath | cut -d. -f3)
+ #physvol="/dev/dsk/c${inst}t${scsi_addr}d${unit_addr}"
+ #rphysvol="/dev/rdsk/c${inst}t${scsi_addr}d${unit_addr}"
+ #physvol=$(ioscan -kfnH ${hwpath} | awk ' BEGIN {FS=" "; RS=" "} /dev\/dsk/ {printf("%s", $1)}')
+ #rphysvol=$(ioscan -kfnH ${hwpath} | awk ' BEGIN {FS=" "; RS=" "} /dev\/rdsk/ {printf("%s", $1)}')
+ #block_major=$(grep "$hwpath" $io_scan_out | grep disk | awk -F: '{print $6}')
+ #char_major=$(grep "$hwpath" $io_scan_out | grep disk | awk -F: '{print $7}')
+ #block_minor=$(grep "$hwpath" $io_scan_out | grep disk | awk -F: '{print $8}')
+ #Debug " block_major = ${block_major}"
+ #Debug " char_major = ${char_major}"
+ #Debug " block_minor = ${block_minor}"
+
+ scsi_addr=$(echo $hwpath | awk -F. '{print $(NF-1)}')
+ unit_addr=$(echo $hwpath | awk -F. '{print $NF}')
+ physvol="/dev/dsk/c${inst}t${scsi_addr}d${unit_addr}"
+ rphysvol="/dev/rdsk/c${inst}t${scsi_addr}d${unit_addr}"
+
+ Debug "Physical volume ${physvol}"
+ Debug " tmpin=${tmpin}"
+ Debug " inst=${inst} scsi_addr=${scsi_addr} unit_addr=${unit_addr}"
+
+ XP256=$(grep ${hwpath} ${io_scan_out} | weed_targets | awk -F: '{print $18}')
+ if [[ ${XP256} = *OPEN* ]]
+ then
+ print -n "X"
+ if [[ -f /usr/contrib/bin/inquiry256 ]]
+ then
+ inqcmd="/usr/contrib/bin/inquiry256"
+ else
+ inqcmd="${where}/inquiry256"
+ fi
+ Debug "XP256 disc array found! ${XP256} ${hwpath}"
+ Debug "inqcmd=${inqcmd}"
+ info=$(diskinfo -v ${rphysvol} 2>&1)
+ case "$info" in
+ *"No such file or directory"* )
+ Debug " diskinfo reports No such file or directory on $physvol"
+ #echo "$Inq" | \
+ # awk -F"+" '{printf("%55s\n"),$1}' \
+ # >> /tmp/sysinfo.$$.inq256
+ rphysvold=$rphysvol
+ print "$rphysvold No such file or directory" \
+ >> /tmp/sysinfo.$$.inq256
+ ;;
+ *"No such device or address"* )
+ Debug " diskinfo reports No such device or address on $physvol"
+ #echo "$Inq" | \
+ # awk -F"+" '{printf("%55s\n"),$1}' \
+ # >> /tmp/sysinfo.$$.inq256
+ rphysvold=$rphysvol
+ print "$rphysvold No such device or address" \
+ >> /tmp/sysinfo.$$.inq256
+ ;;
+ * )
+ Debug " found a device (no diskinfo error)...so follow it"
+ Inq=$(${inqcmd} ${rphysvol} 2>&1 )
+ psize=$(echo $info | sed -e 's/^.*size: //' -e 's/ .*$//')
+ psize_mb=$(expr ${psize} / 1024)
+ product1=$(echo $info | sed -e 's/^.*product id: //' -e 's/ .*$//')
+ echo "$Inq+$product1+$psize_mb" | \
+ awk -F"+" '{printf("%55s%16s%8s\n"),$1,$2,$3}' \
+ >> /tmp/sysinfo.$$.inq256
+ esac
+ fi # end of XP256
+
+ case ${XP256} in
+
+ *C1300* | *C2300* | *C3400* )
+ Debug " found an Nike disk array at $hwpath"
+ print -n "N"
+ #f_get_array_data
+ ;;
+ *C2430* )
+ Debug " found a Cascade disk array at $hwpath"
+ print -n "C"
+ #f_get_array_data
+ ;;
+ *C5447A* | *C3586A* )
+ # C5447A is 12H C3586A is 12
+ Debug " found a AutoRaid disk array at $hwpath"
+ print -n "A"
+ #f_get_array_data
+ ;;
+ *A5277A* )
+ Debug " found a FC60 disk array at $hwpath"
+ print -n "F"
+ #f_get_array_data
+ ;;
+ * )
+ Debug " found a jbod disk at $hwpath"
+ print -n "."
+ #f_get_array_data
+ ;;
+ esac
+
+
+# Run pvdisplay to get the disk information
+ pvdisplay -v ${physvol} > /tmp/sysinfo.$$.pvdisp 2>&1
+# Check for alternate link so that we don't try to access it
+ Debug " Checking if this is an alternate link"
+ grep "Using Primary Link" /tmp/sysinfo.$$.pvdisp > /dev/null 2>&1
+ detect_alt_link=$?
+ if ((detect_alt_link == 0))
+ then
+ Debug " this IS an alternate link, so skip"
+ alt_link=true
+ elif [[ "${rphysvol}" = "" ]] then
+ Debug " no physvol found for $hwpath"
+ if ((! (($exit_code)) ))
+ then
+ exit_code=${WARN}
+ fi
+ print "WARNING (${sysname}):No device file found for $hwpath" >> \
+ /tmp/sysinfo.$$.errwarn
+ else
+ Debug " this is NOT an alternate link, so query disk"
+ hwpathd=${hwpath} # for display purposes
+ #info=$(diskinfo -v /dev/rdsk/c${inst}t${scsi_addr}d${unit_addr} 2>&1)
+ info=$(diskinfo -v ${rphysvol} 2>&1)
+ Debug "info= ${info}"
+ case "$info" in
+ *"Device busy"* )
+ Debug " diskinfo reports Device Busy Error on $rphysvol"
+ lu=$(grep ${hwpath} $io_scan_out | grep -v target \
+ | awk '{print $2}')
+ vendor1=$(ioscan -H $hwpath | tail -1 | awk '{print $3}')
+ vendor=${vendor1}
+ product1=$(ioscan -H $hwpath | tail -1 | awk '{print $NF}')
+ product=${product1}
+ print "${physvol}${lu}${hwpathd} ${vendor}${product}" \
+ >> /tmp/sysinfo.$$.physinfo
+ Debug " ${physvol}${lu}${hwpathd}${vendor}${product}"
+ ;;
+ *"No such file or directory"* )
+ Debug " diskinfo reports No such file or directory on $physvol"
+ lu="n/f"
+ vendor1=$(ioscan -H $hwpath | tail -1 | awk '{print $3}')
+ vendor=${vendor1}
+ product1=$(ioscan -H $hwpath | tail -1 | awk '{print $NF}')
+ product=${product1}
+ print "${physvol}${lu}${hwpathd} ${vendor}${product}" \
+ >> /tmp/sysinfo.$$.physinfo
+ ;;
+ *"No such device or address"* )
+ Debug " diskinfo reports No such device or address on $physvol"
+ lu="n/f"
+ vendor1=$(ioscan -H $hwpath | tail -1 | awk '{print $3}')
+ vendor=${vendor1}
+ product1=$(ioscan -H $hwpath | tail -1 | awk '{print $NF}')
+ product=${product1}
+ print "${physvol}${lu}${hwpathd} ${vendor}${product}" \
+ >> /tmp/sysinfo.$$.physinfo
+ ;;
+ * )
+ Debug " found a device (no diskinfo error)...so follow it"
+
+ #lu=$(grep ${hwpath} $io_scan_out | grep -v target | awk '{print $2}')
+### Changed 6/15/99 J.Semroc - to improve Performance reuse existing data
+### lu=$(ioscan -kfCdisk | grep "${hwpath}" | awk '{print $2}')
+ lu=$(grep ${hwpath} $io_scan_out | grep -v target | grep disk | \
+ awk -F: '{print $13}')
+### end of Change
+ Debug "LU = ${lu}"
+ ludebug=$(grep ${hwpath} $io_scan_out | grep -v target )
+ Debug "ludebug= ${ludebug}"
+ psize=$(echo $info | sed -e 's/^.*size: //' -e 's/ .*$//')
+ psize_mb=$(expr ${psize} / 1024)
+ product1=$(echo $info | sed -e 's/^.*product id: //' -e 's/ .*$//')
+
+ vendor1=$(echo $info | sed -e 's/^.*vendor: //' -e 's/ .*$//')
+ vendor=${vendor1}
+ rev_level=$(echo $info | sed -e 's/^.*rev level: //' -e 's/ .*$//')
+ #rev_level=$(echo $info | grep "rev level" \
+ # | awk '{print $3}')
+ product=${product1}
+ if [[ "${product1}" != "CD-ROM" ]] && [[ "${product1}" != "DVD-ROM" ]]
+ then
+ ((total_p_mb=total_p_mb + psize_mb))
+ ((pcount=pcount + 1))
+ fi
+ Debug " vendor1=$vendor1"
+ Debug " product=$product"
+ Debug " rev_level=$rev_level"
+ Debug " psize=$psize"
+ Debug " psize_mb=$psize_mb"
+#
+# check for bootable disk
+#
+ Debug " Checking for Bootable PV"
+ lifls ${physvol} 2> /dev/null | grep -i isl > /dev/null 2>&1
+ if [ $? -eq 0 ]
+ then
+ Debug " Found Bootable PV at ${physvol}"
+ bootable_pv="Y"
+ lifls ${rphysvol} | grep AUTO > /dev/null 2>&1
+ if [ $? -eq 0 ]
+ then
+ Debug " Found auto_string=$auto_string"
+ auto_string=$(lifcp ${rphysvol}:AUTO -)
+ print "${physvol}${hwpathd} ${auto_string}" >> \
+ /tmp/sysinfo.$$.boot
+ else
+ Debug " Did not find auto_string."
+ fi
+ else
+ Debug " Did not find Bootable PV on ${physvol}"
+ bootable_pv="N"
+ fi
+ if grep "find the volume group" /tmp/sysinfo.$$.pvdisp > /dev/null
+ then
+ Debug " NON-LVM /dev/dsk/c${inst}t${scsi_addr}d${unit_addr}"
+ Debug " id as::${vendor}${product}${psize_mb} Mbytes."
+ #lu="nlv"
+ elif grep "path does not correspond" /tmp/sysinfo.$$.pvdisp > /dev/null
+ then
+ Debug "Specified path not found! ${rphysvol}"
+ else
+ Debug " LVM disk"
+### Changed 6/15/99 J.Semroc - to improve Performance reuse existing data
+### lu=$(ioscan -kfCdisk | grep " ${hwpath}" | awk '{print $2}')
+ lu=$(grep ${hwpath} $io_scan_out | grep -v target | grep disk | \
+ awk -F: '{print $13}')
+### end of Change
+ if [[ "${vendor1}" = "EMC" ]] # && ((detect_alt_link == 0))
+ then
+ EMC_found=1
+### Correction 6/15/99 J.Semroc - physvol was misspelled
+ Debug " Found EMC at ${physvol}."
+ Debug " detect_alt_link = ${detect_alt_link}"
+ bblvols=$(pvdisplay -v ${physvol} | \
+ awk ' /current/ {print $3}' | sort | uniq | \
+ grep -v "/dsk/")
+ for bblvol in $bblvols
+ do
+ bblock=$(lvdisplay $bblvol | awk ' /Bad block/ {print $3}')
+ Debug " bblvol= $bblvol"
+ Debug " bblock= $bblock"
+ if [[ "${bblock}" != "NONE" ]]
+ then
+ if ((! (($exit_code)) ))
+ then
+ exit_code=${WARN}
+ fi
+ print "WARNING (${sysname}):EMC w/ LVM bad block enabled on ${bblvol}" >> /tmp/sysinfo.$$.errwarn
+ fi
+ done
+ fi
+ if (($PMAP))
+ then
+ Debug " Begin PHYSICAL TO LOGICAL Mapping"
+ alt_link=""
+ if (($osmajor == 11))
+ then
+ # PVdisplay looks different on 10.20 (MWR)
+ alt_link=$(grep "^PV Name" /tmp/sysinfo.$$.pvdisp | \
+ grep "Alternate Link" | awk '{printf "%s ", $3}' )
+ Debug " =11 alt_link=$alt_link"
+ elif (($osmajor == 10)) && (($osminor >= 20))
+ then
+ # PVdisplay looks different on 10.20 (MWR)
+ alt_link=$(grep "^PV Name" /tmp/sysinfo.$$.pvdisp | \
+ grep "Alternate Link" | awk '{printf "%s ", $3}' )
+ Debug " >=10.20 alt_link=$alt_link"
+ else
+ #less than 10.20
+ alt_link=$(grep "^ PV Name" /tmp/sysinfo.$$.pvdisp | \
+ grep "Alternate Link" | awk '{printf "%s ", $3}' )
+ Debug " <10.20 alt_link=$alt_link"
+ fi
+ if [ "$alt_link" = "" ]
+ then
+ alt_link="None"
+ fi
+ Debug " alt_link=$alt_link"
+ print "${physvol} ${alt_link}" \
+ >> /tmp/sysinfo.$$.pmap
+ sed '1,15d;/current/d;/Status/d;/free/d;' \
+ /tmp/sysinfo.$$.pvdisp | \
+ sed '/^$/d;/---/d;/LV/d; s/\/dev/ \/dev/' \
+ >> /tmp/sysinfo.$$.pmap
+ fi # end of PMAP
+ fi
+ print -n "${physvol}${lu}${hwpathd} ${vendor}${product}" >> \
+ /tmp/sysinfo.$$.physinfo
+ print " ${psize_mb} ${bootable_pv}" >> \
+ /tmp/sysinfo.$$.physinfo
+ ;;
+ esac
+ #print -n "."
+ fi
+ done # end of hwpath loop
+ # end of 10.x system
+ else
+ Debug "must be a 9.x system"
+ pvol=$(vgdisplay -v 2>&1 | grep "^ PV Name" | grep -v "Alternate Link" \
+ | sort | awk '{printf "%s ", $3}' )
+ ioscan -kfCdisk | sort > /tmp/sysinfo.$$.io_disk
+ #now force access to disks.
+ for physvol in ${pvol} # loop through all phys vols
+ do
+ hwpath=$(lssf ${physvol} | awk '{printf "%s ", $(NF -1)}')
+ hwpathd=${hwpath} # for display purposes
+ disktype=$(echo ${physvol} | sed s/dsk/rdsk/)
+ diskinfo -v ${disktype} > /tmp/sysinfo.$$.diskinfo 2>&1
+ if (($?))
+ then
+ print "ERROR:${sysname}: diskinfo reports an error on ${physvol}."
+ >> /tmp/sysinfo.$$.errwarn
+ exit_code=${SYS_ERROR}
+ else
+ vendor=$(grep "vendor" /tmp/sysinfo.$$.diskinfo \
+ | awk '{printf "%s ", $2}')
+ product1=$(grep "product id" /tmp/sysinfo.$$.diskinfo \
+ | awk '{printf "%s ", $3}')
+ type=$(grep "type" /tmp/sysinfo.$$.diskinfo \
+ | cut -b22- )
+ psize=$(grep "size" /tmp/sysinfo.$$.diskinfo \
+ | awk '{printf "%s ", $2}')
+ psize_mb=$(expr ${psize} / 1024)
+ lu=$(grep " ${hwpath}" /tmp/sysinfo.$$.io_disk | awk '{print $2}')
+ rev_level=$(grep "rev level" /tmp/sysinfo.$$.diskinfo \
+ | awk '{print $3}')
+ product=${product1}
+ if [[ "${product1}" != "CD-ROM" ]] && [[ "${product1}" != "DVD-ROM" ]]
+ then
+ ((total_p_mb=total_p_mb + psize_mb))
+ ((pcount=pcount + 1))
+ fi
+ if (($PMAP))
+ then
+ pvdisplay -v ${physvol} > /tmp/sysinfo.$$.pvdisp 2>&1
+ alt_link=""
+ alt_link=$(grep "^ PV Name" /tmp/sysinfo.$$.pvdisp | \
+ grep "Alternate Link" | awk '{printf "%s ", $3}' )
+ #alt_link="/dev/dsk/cxtxdx"
+ if [ "$alt_link" = "" ]
+ then
+ alt_link="None"
+ fi
+ print "${physvol} ${alt_link}" \
+ >> /tmp/sysinfo.$$.pmap
+ sed '1,15d;/current/d;/Status/d;/free/d;' /tmp/sysinfo.$$.pvdisp | \
+ sed '/^$/d;/---/d;/LV/d; s/\/dev/ \/dev/' \
+ >> /tmp/sysinfo.$$.pmap
+ fi
+ Debug "\ndisktype=$disktype"
+ Debug "hwpath=$hwpath"
+ Debug "vendor=$vendor"
+ Debug "product=$product"
+ Debug "psize=$psize"
+ Debug "psize_mb=$psize_mb"
+ Debug "lu=$lu"
+ Debug "type=$type"
+ Debug "total_p_mb=$total_p_mb"
+ Debug "pcount=$pcount"
+ Debug "rev_level=$rev_level"
+ Debug "alt_link=$alt_link"
+ print -n "."
+ print "${physvol}${lu}${hwpathd}${vendor}${product}${psize_mb}" >> /tmp/sysinfo.$$.physinfo
+ fi
+ done
+ fi # end of 9.x
+
+ print " Rev" > /tmp/sysinfo.$$.disk_rev
+ print " HW Path Level Serial Number LUN" \
+ >> /tmp/sysinfo.$$.disk_rev
+ print " --------------------- ----- --------------------- ----" \
+ >> /tmp/sysinfo.$$.disk_rev
+
+ if (( ${cstm_ok} == 0 ))
+ then
+ awk '
+ /Hardware path/ {path = $3; next;}
+ /Product Id/ {prod = $3; vend = $NF; next;}
+ /Firmware Rev/ {fw = $NF; next;}
+ /Logical Unit/ {lu = $NF; next;}
+ /Serial Number/ {sn = $3; next;}
+ /Capacity/ {cap = $NF; printf("%24s %8s %24s %6s\n",
+ path,fw,sn,lu);}' $cstm_disk_out >> /tmp/sysinfo.$$.disk_rev
+ print "" >> /tmp/sysinfo.$$.disk_rev
+ fi
+
+ if (($EMC_found))
+ then
+ Debug "calling EMC query routine"
+ #query_EMC_disks
+
+ fi
+#
+# check for boot path settings
+#
+ if [[ -f /usr/sbin/setboot ]]
+ then
+ pri_boot_path=$(/usr/sbin/setboot | grep Primary | awk '{print $4}')
+ alt_boot_path=$(/usr/sbin/setboot | grep Alternate | awk '{print $4}')
+ auto_boot=$(/usr/sbin/setboot | grep Autoboot | awk '{print $3}')
+ auto_search=$(/usr/sbin/setboot | grep Autosearch | awk '{print $3}' )
+ print "" >> /tmp/sysinfo.$$.boot
+ print "Primary Boot Path = ${pri_boot_path}" >> /tmp/sysinfo.$$.boot
+ print "Alternate Boot Path = ${alt_boot_path}" >> /tmp/sysinfo.$$.boot
+ print "Autoboot = ${auto_boot}" >> /tmp/sysinfo.$$.boot
+ print "Autosearch = ${auto_search}" >> /tmp/sysinfo.$$.boot
+ fi
+ print "\n" >> /tmp/sysinfo.$$.boot
+
+# now print out totals
+### Changed 6/16/99 J.Semroc sort LU numerically
+### sort -k2. -o /tmp/sysinfo.$$.physinfos /tmp/sysinfo.$$.physinfo
+ sort -k2n -o /tmp/sysinfo.$$.physinfos /tmp/sysinfo.$$.physinfo
+### end of Change
+ rm -f /tmp/sysinfo.$$.physinfo 2>&1
+ print
+# print "" >> /tmp/sysinfo.$$.physinfoh
+ print -n " " >> /tmp/sysinfo.$$.physinfoh
+ print " Size" >> /tmp/sysinfo.$$.physinfoh
+ print -n " Volume Name LU# " >> /tmp/sysinfo.$$.physinfoh
+ print " H/W Path Vendor / Model (MB) B" >> /tmp/sysinfo.$$.physinfoh
+ print -n " -------------- --- " >> /tmp/sysinfo.$$.physinfoh
+ print " ---------------- -------------------- ------ -" >> /tmp/sysinfo.$$.physinfoh
+ print " ======" >> /tmp/sysinfo.$$.physinfot
+ print -n " Total (MB)" >> /tmp/sysinfo.$$.physinfot
+ print " ${total_p_mb}" >> /tmp/sysinfo.$$.physinfot
+### Changed 6/15/99 J.Semroc - generated the following error
+### "cat: Cannot use /tmp/sysinfo.14950.physinfod as both input and output."
+### cat /tmp/sysinfo.$$.physinfo? > /tmp/sysinfo.$$.physinfod
+ cat /tmp/sysinfo.$$.physinfo? > /tmp/sysinfo.$$.PHYSINFOD
+ mv /tmp/sysinfo.$$.PHYSINFOD /tmp/sysinfo.$$.physinfod
+### end of Change
+ print "B = Bootable Disk" >> \
+ /tmp/sysinfo.$$.physinfod
+ print "n/v = Not Valid, n/f = Not Found\n" >> \
+ /tmp/sysinfo.$$.physinfod
+ f_display_file /tmp/sysinfo.$$.physinfod
+ print "" >> /tmp/sysinfo.$$.physwarn
+ f_display_file /tmp/sysinfo.$$.physwarn
+ f_display_file /tmp/sysinfo.$$.disk_rev
+ if [[ -f /tmp/sysinfo.$$.inq256 ]]
+ then
+ f_display_file /tmp/sysinfo.$$.256header
+ print "" >> /tmp/sysinfo.$$.inq256
+ f_display_file /tmp/sysinfo.$$.inq256
+ fi
+
+ if [[ -f /tmp/sysinfo.$$.array ]]
+ then
+ f_display_file /tmp/sysinfo.$$.arrayheader
+ print "\n\n" >> /tmp/sysinfo.$$.array
+ f_display_file /tmp/sysinfo.$$.array
+ fi
+
+ f_display_file /tmp/sysinfo.$$.boot
+ if (($PMAP))
+ then
+ f_display_file /tmp/sysinfo.$$.pmap
+ fi
+
+} # end of f_get_physical_disk_data
+
+#===================================================================
+# f_get_ioscan_data
+#===================================================================
+function f_get_ioscan_data
+{
+ Debug " calling check_if_scan_done"
+ check_if_scan_done io_scan
+ GREP_V_ARGS="-eboot_console $GREP_V_ARGS"
+ if (($HTML))
+ then
+ print "</PRE>" >> /tmp/sysinfo.$$.ioout
+ print "<A NAME='IO'></A>" >> /tmp/sysinfo.$$.ioout
+ print "<H2>" >> /tmp/sysinfo.$$.ioout
+ print "<P ALIGN=RIGHT><A HREF='#Top'>TOP</A></P>" >> /tmp/sysinfo.$$.ioout
+ print "<FONT COLOR=red>" >> /tmp/sysinfo.$$.ioout
+ print "I/O Configuration Data</H2>" >> /tmp/sysinfo.$$.ioout
+ print "</FONT><PRE><font size = '4'>" >> /tmp/sysinfo.$$.ioout
+ else
+ print "I/O CONFIGURATION DATA" >> /tmp/sysinfo.$$.ioout
+ print "======================" >> /tmp/sysinfo.$$.ioout
+ fi
+ print "" >> /tmp/sysinfo.$$.ioout
+ print " H/W Path Driver Identifier String" >>/tmp/sysinfo.$$.ioout
+ print " -------- ------ -----------------" >>/tmp/sysinfo.$$.ioout
+
+ Debug " `cat ${io_scan_out}`"
+ if (( ${osmajor} >= 10 ))
+ then
+ Debug "found 10.x or later"
+ Debug "sending $io_scan_out to formatter"
+ Debug " GREP_V_ARGS = $GREP_V_ARGS"
+
+ cat $io_scan_out | weed_targets | formatter | \
+ grep -F -v $GREP_V_ARGS >> /tmp/sysinfo.$$.ioout
+ else
+ Debug "found 9.x"
+ cp ${io_scan_out} /tmp/sysinfo.$$.ioout
+ fi
+ Debug " `cat /tmp/sysinfo.$$.ioout`"
+
+ #rm -f $io_scan_tmp
+ print "" >>/tmp/sysinfo.$$.ioout
+ f_display_file /tmp/sysinfo.$$.ioout
+
+} # end of f_get_ioscan_data
+
+#===================================================================
+# f_get_volume_group_data
+# This function retrieves volume group data using vgdisplay
+# and by scannig /etc/lvmconf for config files.
+#===================================================================
+function f_get_volume_group_data
+{
+ Debug "Beginning VOLUME GROUP check."
+ # first print header information
+
+ if (($HTML))
+ then
+ print "</PRE>" >> /tmp/sysinfo.$$.vginfoh
+ print "<A NAME='Volume'></A>" >> /tmp/sysinfo.$$.vginfoh
+ print "<H2>" >> /tmp/sysinfo.$$.vginfoh
+ print "<P ALIGN=RIGHT><A HREF='#Top'>TOP</A></P>" >> /tmp/sysinfo.$$.vginfoh
+ print "<FONT COLOR=red>" >> /tmp/sysinfo.$$.vginfoh
+ print "Volume Group Data</H2>" >> /tmp/sysinfo.$$.vginfoh
+ print "</FONT><PRE><font size = '4'>" >> /tmp/sysinfo.$$.vginfoh
+ else
+ print >> /tmp/sysinfo.$$.vginfoh
+ print "VOLUME GROUP DATA" >> /tmp/sysinfo.$$.vginfoh
+ print "=================" >> /tmp/sysinfo.$$.vginfoh
+ fi
+ Debug " calling check_if_scan_done"
+ check_if_scan_done lvm_scan
+
+ vgdisplay -v > /tmp/sysinfo.$$.vgout 2>&1
+ #MWR fix when PVG-strict policies used
+ #all_volgroups=$(grep "VG Name" /tmp/sysinfo.$$.vgout | awk '{print $3}' | sort)
+ all_volgroups=$(grep -v "PVG Name" /tmp/sysinfo.$$.vgout | \
+ grep "VG Name" | awk '{print $3}' | sort)
+ all_logvols=$(grep "LV Name" /tmp/sysinfo.$$.vgout | awk '{print $3}' | sort)
+ #Debug "all_volgroups=\n$all_volgroups"
+ #Debug "all_logvols=\n$all_logvols"
+
+ print -n "scanning volume groups "
+ for volgroup in ${all_volgroups}
+ do
+ Debug "Volumegroup = $volgroup"
+ vgdisplay $volgroup > /tmp/sysinfo.$$.volgroup 2>&1
+ #Debug "vgdisplay=\n`cat /tmp/sysinfo.$$.volgroup`"
+ ((vgcount=vgcount + 1))
+ CURLV=$(grep "Cur LV" /tmp/sysinfo.$$.volgroup | awk '{print $3}')
+ CURPV=$(grep "Cur PV" /tmp/sysinfo.$$.volgroup | awk '{print $3}')
+ AllocPe=$(grep "Alloc PE" /tmp/sysinfo.$$.volgroup | awk '{print $3}')
+ FreePe=$(grep "Free PE" /tmp/sysinfo.$$.volgroup | awk '{print $3}')
+ TotalPe=$(grep "Total PE" /tmp/sysinfo.$$.volgroup | awk '{print $3}')
+ PeSize=$(grep "PE Size" /tmp/sysinfo.$$.volgroup | awk '{print $4}')
+ ((AllocMb = AllocPe * PeSize))
+ ((FreeMb = FreePe * PeSize))
+ ((TotalMb = TotalPe * PeSize))
+ ((TotalAllocMb = TotalAllocMb + AllocMb))
+ ((TotalFreeMb = TotalFreeMb + FreeMb))
+ ((SystemTotalMb = SystemTotalMb + TotalMb))
+ Debug " Physical Extent Size = ${PeSize}"
+ Debug " Number of Allocated Physical Extents = ${AllocPe}"
+ Debug " Free Physical Extents = ${FreePe}"
+ Debug " Total Physical Extents = ${TotalPe}"
+ Debug " Allocated Mb = ${AllocMb}"
+ Debug " Free Mb = ${FreeMb}"
+ Debug " Total Mb = ${TotalMb}"
+ Debug " Total Allocated Mb = ${TotalAllocMb}"
+ Debug " Total Free Mb = ${TotalFreeMb}"
+ Debug " System Total Mb = ${SystemTotalMb}"
+ print -n "."
+ print -n "${volgroup}${CURLV}${CURPV}${PeSize}" >> /tmp/sysinfo.$$.vginfos
+ print "${AllocMb}${FreeMb}${TotalMb}" >> /tmp/sysinfo.$$.vginfos
+ done
+ print
+ Debug "Checking for vgcount = maxvgs"
+ if [[ -z $maxvgs ]]
+ then
+ maxvgs=$(echo 'maxvgs/D'|adb -k $kernel /dev/kmem \
+ | tail -1 | awk '{print $2}')
+ fi
+ Debug " vgcount = $vgcount"
+ Debug " maxvgs = $maxvgs"
+ if ((vgcount == maxvgs))
+ then
+ if ((! (($exit_code)) ))
+ then
+ exit_code=${WARN}
+ fi
+ print "WARNING (${sysname}): number of volume groups is at maximum."\
+ >> /tmp/sysinfo.$$.errwarn
+ fi
+
+# now check for a cfg backup file for each volume group.
+
+ print -n "scanning config files "
+ Debug "Checking vg config files"
+ for volgroup in ${all_volgroups}
+ do
+ Debug " volgroup ${volgroup}"
+ vg=$(echo ${volgroup} | awk -F/ '{print $3}')
+ print -n "."
+ if [ -f /etc/lvmconf/${vg}.conf ]
+ then
+ # this is a kludge. if file is less than 6 months old then
+ # ls -l prints the time, so scan for a colon.
+ ls -l /etc/lvmconf/${vg}.conf | awk '{print $8}' | grep ":" > /dev/null
+ if (($?))
+ then
+ if ((! (($exit_code)) ))
+ then
+ exit_code=${WARN}
+ fi
+ print "WARNING (${sysname}): vgconfig file > 6 months old for /etc/lvmconf/${vg}.conf"\
+ >> /tmp/sysinfo.$$.errwarn
+ fi
+ else
+ if ((! (($exit_code)) ))
+ then
+ exit_code=${WARN}
+ fi
+ print -n "WARNING (${sysname}): no config " >> /tmp/sysinfo.$$.errwarn
+ print "file found for volume group ${vg}." >> /tmp/sysinfo.$$.errwarn
+ if ((! (($exit_code)) ))
+ then
+ exit_code=${WARN}
+ fi
+ fi
+ done
+ print ""
+ f_display_file /tmp/sysinfo.$$.novgcfg
+ print "" >> /tmp/sysinfo.$$.vginfoh
+ print " Volume Logical Physical Extent MBs of Physical Space" >> /tmp/sysinfo.$$.vginfoh
+ print " Group Volumes Volumes Size(MB) Alloc Free Total" >> /tmp/sysinfo.$$.vginfoh
+ print " --------- ------- -------- ------ ----- ---- -----" >> /tmp/sysinfo.$$.vginfoh
+ print " ===== ==== =====" >> /tmp/sysinfo.$$.vginfot
+ print -n " Totals " >> /tmp/sysinfo.$$.vginfot
+ print "${TotalAllocMb}${TotalFreeMb}${SystemTotalMb}" >> /tmp/sysinfo.$$.vginfot
+ cat /tmp/sysinfo.$$.vginfo? > /tmp/sysinfo.$$.vginfod
+ f_display_file /tmp/sysinfo.$$.vginfod
+
+} # end of f_get_volume_group_data
+
+#===================================================================
+# f_get_logical_volume_data
+# This function uses lvdisplay to scan logical volumes.
+# It retrieves information about the logvol and also checks
+# for stale mirrors (if used).
+#===================================================================
+function f_get_logical_volume_data
+{
+ Debug "Beginning LOGICAL DISK check."
+ # first print out header information
+
+ if (($HTML))
+ then
+ print "</PRE>" >> /tmp/sysinfo.$$.lvinfoh
+ print "<A NAME='Logical'></A>" >> /tmp/sysinfo.$$.lvinfoh
+ print "<H2>" >> /tmp/sysinfo.$$.lvinfoh
+ print "<P ALIGN=RIGHT><A HREF='#Top'>TOP</A></P>" >> /tmp/sysinfo.$$.lvinfoh
+ print "<FONT COLOR=red>" >> /tmp/sysinfo.$$.lvinfoh
+ print "Logical Volume And Extent Data</H2>" >> /tmp/sysinfo.$$.lvinfoh
+ print "</FONT><PRE><font size = '4'>" >> /tmp/sysinfo.$$.lvinfoh
+ else
+ print >> /tmp/sysinfo.$$.lvinfoh
+ print "LOGICAL VOLUME AND EXTENT DATA" >> /tmp/sysinfo.$$.lvinfoh
+ print "==============================" >> /tmp/sysinfo.$$.lvinfoh
+ fi
+ Debug " calling check_if_scan_done"
+ check_if_scan_done lvm_scan
+
+ print -n "scanning logical volumes "
+ if [[ ! -f /tmp/sysinfo.$$.vgout ]]
+ then
+ vgdisplay -v > /tmp/sysinfo.$$.vgout 2>&1
+ all_volgroups=$(grep "VG Name" /tmp/sysinfo.$$.vgout | awk '{print $3}' | sort)
+ all_logvols=$(grep "LV Name" /tmp/sysinfo.$$.vgout | awk '{print $3}' | sort)
+ fi
+ for logvol in ${all_logvols}
+ do
+ Debug "lvdisplay of ${logvol}"
+ lvol_major=$(ls -l $logvol | awk '{print $5}')
+ lvol_minor=$(ls -l $logvol | awk '{print $6}')
+ Debug " major= $lvol_major minor=$lvol_minor"
+ lvdisplay -v ${logvol} > /tmp/sysinfo.$$.logical 2>&1
+ STATUS=$(grep "LV Status" /tmp/sysinfo.$$.logical | awk '{print $3}')
+ LVSize=$(grep "LV Size" /tmp/sysinfo.$$.logical | awk '{print $4}')
+ LogicalExtents=$(grep "Current LE" /tmp/sysinfo.$$.logical \
+ | awk '{print $3}')
+ StaleExtents=$(grep stale /tmp/sysinfo.$$.logical | wc -l)
+ MirrorCopies=$(grep "Mirror copies" /tmp/sysinfo.$$.logical \
+ | awk '{print $3}')
+ Consistency=$(grep "Consistency Recovery" /tmp/sysinfo.$$.logical \
+ | awk '{print $3}')
+
+
+ ((total_l_mb = total_l_mb + LVSize))
+ ((MirrorMb = LVSize * MirrorCopies))
+ ((TotalMirrorMb = TotalMirrorMb + MirrorMb))
+
+ # check to make sure lvol has extents allocated to it
+ if (( $LogicalExtents > 0 ))
+ then
+### Changed 6/15/99 J.Semroc - grep for lvol1 would also match lvol10, lvol11...
+### MOUNT=$(cat /etc/mnttab | grep ${logvol} | cut -f 2 -d" ")
+ MOUNT=$(cat /etc/mnttab | grep "${logvol} " | cut -f 2 -d" ")
+### end of Change
+ if [[ ${swap_devs} = *${logvol}* ]]
+ then
+ MOUNT="(swapdisk)"
+ fi
+ ((lcount=lcount + 1))
+ if (( ${StaleExtents} > 0 )) # we found stale extents
+ then
+ Debug " Found ${StaleExtents} STALE extents on ${logvol}!"
+ stale=1
+ ((StaleMB = (LVSize / LogicalExtents) * StaleExtents ))
+ ((TotalStaleMb = TotalStaleMb + StaleMB))
+ ((total_stale = $total_stale + $StaleExtents))
+ fi # end of stale extents
+ else # no extents allocated
+ if ((! (($exit_code)) ))
+ then
+ exit_code=$WARN
+ fi
+ zero_length=1
+ print -n "\nWARNING (${sysname}): Detected logical " >> /tmp/sysinfo.$$.errwarn
+ print "volume (${logvol}) with no extents!\n" >> /tmp/sysinfo.$$.errwarn
+ fi # end of check for allocated extents
+ Debug " STATUS= ${STATUS}"
+ Debug " LVSize= ${LVSize}"
+ Debug " LogicalExtents = ${LogicalExtents}"
+ Debug " StaleExtents = ${StaleExtents}"
+ Debug " StaleMb= $StaleMB"
+ Debug " TotalStaleMb= $TotalStaleMb "
+ Debug " TotalMb checked= $total_l_mb"
+
+# now let's print out the results.
+ print -n "."
+ logvold=${logvol} # for display purposes only.
+ print "${logvold}${MOUNT}" >> /tmp/sysinfo.$$.lvinfos
+ #print "${LogicalExtents}${StaleExtents}" >> /tmp/sysinfo.$$.lvinfos
+ #print "${MirrorCopies}${Consistency}" >> /tmp/sysinfo.$$.lvinfos
+ done
+# end of loop for all log vols
+# now print out any errors or warnings.
+ f_display_file /tmp/sysinfo.$$.nolvext
+# print "" >> /tmp/sysinfo.$$.lvinfoh
+ print " " >> /tmp/sysinfo.$$.lvinfoh
+ print -n " Volume Name " >> /tmp/sysinfo.$$.lvinfoh
+ print "Mounted File System" >> /tmp/sysinfo.$$.lvinfoh
+ print -n " -------------- " >> /tmp/sysinfo.$$.lvinfoh
+ print -- "--------------------" >> /tmp/sysinfo.$$.lvinfoh
+ print "" >> /tmp/sysinfo.$$.lvinfos
+ cat /tmp/sysinfo.$$.lvinfo? > /tmp/sysinfo.$$.lvinfod
+ f_display_file /tmp/sysinfo.$$.lvinfod
+
+ print "\nAllocation" > /tmp/sysinfo.$$.lvol_legend
+ print -n " ns non-strict " >> /tmp/sysinfo.$$.lvol_legend
+ print "PVG-s PVG-strict " >> /tmp/sysinfo.$$.lvol_legend
+ print -n " ns-c non-strict/contiguous " >> /tmp/sysinfo.$$.lvol_legend
+ print "PVG-c PVG-strict/contiguous" >> /tmp/sysinfo.$$.lvol_legend
+ print -n " s strict " >> /tmp/sysinfo.$$.lvol_legend
+ print "PVG-d PVG-strict/distributed " >> /tmp/sysinfo.$$.lvol_legend
+ print -n " s-c strict/contiguous " >> /tmp/sysinfo.$$.lvol_legend
+ print "PVG-p PVG-strict/partially-distributed" >> /tmp/sysinfo.$$.lvol_legend
+ print "" >> /tmp/sysinfo.$$.lvol_legend
+
+
+# display using data from batch lvm_scan
+ print "" > /tmp/sysinfo.$$.lvinfoh
+ print -n " " >> /tmp/sysinfo.$$.lvinfoh
+ print " Bad" >> /tmp/sysinfo.$$.lvinfoh
+ print -n " " >> /tmp/sysinfo.$$.lvinfoh
+ print " Size Stripes Mirrors LV Block" >> /tmp/sysinfo.$$.lvinfoh
+ print -n " Volume Name " >> /tmp/sysinfo.$$.lvinfoh
+ print " (MB) # Size # Const State Reloc Alloc" >> /tmp/sysinfo.$$.lvinfoh
+ print -n " -------------- " >> /tmp/sysinfo.$$.lvinfoh
+ print " ----- ------- --------- ----- ----- -----" >> /tmp/sysinfo.$$.lvinfoh
+ f_display_file /tmp/sysinfo.$$.lvinfoh
+ f_display_file $lvol_out_file
+ f_display_file /tmp/sysinfo.$$.lvol_legend
+ if (($BATCH))
+ then
+ print
+ fi
+
+} # end of f_get_logical_volume_data
+
+
+#===================================================================
+# f_logical_to_physical
+# This function produces a cross reference of physical disks
+# for each logical volume.
+#===================================================================
+function f_logical_to_physical
+{
+ Debug "Beginning LOGICAL TO PHYSICAL Mapping."
+
+ if [[ ! -f /tmp/sysinfo.$$.vgout ]]
+ then
+ Debug "/tmp/sysinfo.$$.vgout not found....building."
+ vgdisplay -v > /tmp/sysinfo.$$.vgout 2>&1
+ all_logvols=$(grep "LV Name" /tmp/sysinfo.$$.vgout | awk '{print $3}' |sort)
+ fi
+ if (($HTML))
+ then
+ print "</PRE>" >> /tmp/sysinfo.$$.l2p
+ print "<A NAME='Lmap'></A>" >> /tmp/sysinfo.$$.l2p
+ print "<H2>" >> /tmp/sysinfo.$$.l2p
+ print "<P ALIGN=RIGHT><A HREF='#Top'>TOP</A></P>" >> /tmp/sysinfo.$$.l2p
+ print "<FONT COLOR=red>" >> /tmp/sysinfo.$$.l2p
+ print "Logical Volume To Physical Disk Mapping</H2>" >> /tmp/sysinfo.$$.l2p
+ print "</FONT><PRE><font size = '4'>" >> /tmp/sysinfo.$$.l2p
+ else
+ print "" >> /tmp/sysinfo.$$.l2p
+ print "LOGICAL VOLUME TO PHYSICAL DISK MAPPING " >> /tmp/sysinfo.$$.l2p
+ print "=========================================================" >> /tmp/sysinfo.$$.l2p
+ fi
+ print "Logical Volume" >> /tmp/sysinfo.$$.l2p
+ print " extents Primary disk Mirror Disk 1 Mirror Disk 2" >> /tmp/sysinfo.$$.l2p
+ print -- "---------------------------------------------------------" >> /tmp/sysinfo.$$.l2p
+ print -n "generating disk mappings "
+
+ for logvol in ${all_logvols}
+ do
+ Debug " scanning ${logvol}"
+ lvdisplay -v ${logvol} > /tmp/sysinfo.$$.logical 2>&1
+ PhysicalDisks=$(awk '$1 ~ /\/dev\/dsk\/.*/ {printf "%s\n",$1}' \
+ /tmp/sysinfo.$$.logical \
+ | sed -e 's/\/dev\/dsk\///' | sort)
+ # output physical disk data for each logical volume
+ print "${logvol} " >> /tmp/sysinfo.$$.l2p
+# print -n " Disks = " >> /tmp/sysinfo.$$.l2p
+
+# count the number of physical disks found.
+ diskcount=0
+ for disk in ${PhysicalDisks}
+ do
+ ((diskcount = diskcount + 1))
+ Debug " disk = $disk"
+ done
+ Debug " found $diskcount physical disks"
+ lvdisplay -v $logvol | sed '1,/ LE/d' | awk '{print $2, $5, $8}' \
+ | sort | grep "dev" | uniq -c | awk \
+ '{printf "%6s %18s %16s %16s\n",$1,$2,$3,$4}' \
+ >> /tmp/sysinfo.$$.l2p
+# print "" >> /tmp/sysinfo.$$.l2p
+ print -n "."
+ done
+ print "" >> /tmp/sysinfo.$$.l2p
+ f_display_file /tmp/sysinfo.$$.l2p
+ print ""
+
+} # end of f_logical_to_physical
+
+
+#===================================================================
+# f_filesystem_check
+# This function checks mounted filesystems and reports
+# capcity information. It prints warnings if greater than
+# 95% full.
+#===================================================================
+
+function f_filesystem_check
+{
+ Debug "Beginning FILE SYSTEM check."
+
+ # first print out headers
+ if (($HTML))
+ then
+ print "</PRE>" >> /tmp/sysinfo.$$.bdf_outh
+ print "<A NAME='File'></A>" >> /tmp/sysinfo.$$.bdf_outh
+ print "<H2>" >> /tmp/sysinfo.$$.bdf_outh
+ print "<P ALIGN=RIGHT><A HREF='#Top'>TOP</A></P>" >>/tmp/sysinfo.$$.bdf_outh
+ print "<FONT COLOR=red>" >> /tmp/sysinfo.$$.bdf_outh
+ print "File System Data</H2>" >> /tmp/sysinfo.$$.bdf_outh
+ print "</FONT><PRE><font size = '4'>" >> /tmp/sysinfo.$$.bdf_outh
+ else
+ print "" >> /tmp/sysinfo.$$.bdf_outh
+ print "FILE SYSTEM DATA" >> /tmp/sysinfo.$$.bdf_outh
+ print "================" >> /tmp/sysinfo.$$.bdf_outh
+ fi
+ print -n "scanning filesystems "
+
+ typeset -R10 kbytes used avail iused ifree
+ typeset -R5 percent_used
+ mnttab=$(cat /etc/mnttab | grep /dev | awk '{printf "%s\n", $2}')
+ num_fs=$(bdf -il 2>&1 | grep "/dev/" | wc -l)
+ ((num_fs = num_fs -1))
+ Debug "Found $num_fs mounted file systems"
+# bdf -i | tail -${num_fs} > /tmp/sysinfo.$$.bdf_data 2>&1
+ for mounted in ${mnttab}
+ do
+ bdf -i ${mounted} 2>&1 | tail -1 > /tmp/sysinfo.$$.bdf_data 2>&1
+ if ( grep "No such file" /tmp/sysinfo.$$.bdf_data >/dev/null 2>&1 )
+ then
+ Debug " bdf reports No such file or directory on ${mounted}"
+ print "WARNING (${sysname}): No such file or directory for ${mounted}" >> /tmp/sysinfo.$$.errwarn
+ else
+ fs_type=$(cat /etc/mnttab | grep " ${mounted} " | awk '{printf "%s\n", $3}')
+ Debug "filesys = ${mounted} fs_type = ${fs_type}"
+ if [[ $fs_type = vxfs ]]
+ then
+ mnt_lvol=$(cat /etc/mnttab | grep " ${mounted} " | awk '{printf "%s\n", $1}')
+ fs_ver=$(fstyp -v ${mnt_lvol} 2>&1 | grep version | awk '{printf "%s\n", $2}')
+ if [[ -f ${mounted}/lost+found/.fsadm ]]
+ then
+ vxfs_defrag=$(fsadm -F vxfs -E ${mounted} | grep \
+ "extents 64 blks or larger" | awk '{print $NF}')
+ ((vxfs_frag = 100 - vxfs_defrag))
+ vxfs_pct="%"
+ else
+ Debug " ${mounted}/lost+found/.fsadm not found - no frag check"
+ no_lost=1
+ vxfs_frag="**"
+ vxfs_pct="*"
+ fi
+ Debug "fs_ver = ${fs_ver} vxfs_frag = ${vxfs_frag}"
+ if ( [[ $osmajor = 10 ]] && [[ $osminor > 10 ]] ) || [[ $osmajor = 11 ]]
+ then
+ if [[ $fs_ver < 3 ]]
+ then
+ Debug "Found vxfs version $fs_ver"
+ print "WARNING (${sysname}): Version ${fs_ver} of vxfs found on ${mounted}" >> /tmp/sysinfo.$$.errwarn
+ fi
+ fi
+ fi
+ Debug " `cat /tmp/sysinfo.$$.bdf_data`"
+ kbytes=$(awk '{if (NF == 9) print $2; else print $1}' /tmp/sysinfo.$$.bdf_data)
+ used=$(awk '{if (NF == 9) print $3; else print $2}' /tmp/sysinfo.$$.bdf_data)
+ if [[ $fs_type != "cdfs" ]]
+ then
+ avail=$(awk '{if (NF == 9) print $4; else print $3}' /tmp/sysinfo.$$.bdf_data)
+ iused=$(awk '{if (NF == 9) print $6; else print $5}' /tmp/sysinfo.$$.bdf_data)
+ ifree=$(awk '{if (NF == 9) print $7; else print $6}' /tmp/sysinfo.$$.bdf_data)
+ #((percent_used = (used * 100) / (used + avail) ))
+ percent_used=$(echo $used $avail | \
+ awk '{ used = $1
+ avail = $2
+ pct_used = ($1 * 100) / ($1 + $2)
+ printf("%d", pct_used)
+ } ' )
+
+ if (($percent_used > 95)) && [[ $fs_type != "cdfs" ]]
+ then
+ if ((! (($exit_code)) ))
+ then
+ exit_code=${WARN}
+ fi
+ print "WARNING (${sysname}): ${mounted} has less than 5% free space left!" >> /tmp/sysinfo.$$.errwarn
+ fi
+ else #must be a cdrom, so don't calculate free space
+ avail=0
+ iused="-"
+ ifree="-"
+ percent_used="-"
+ fi
+ if [[ $fs_type != vxfs ]]
+ then
+ vxfs_frag="n/"
+ vxfs_pct="a"
+ fi
+ print "${mounted}" >> /tmp/sysinfo.$$.bdf_outs
+# print " ${fs_type} ${kbytes}${used}${avail}${percent_used}${iused}${ifree}" >> /tmp/sysinfo.$$.bdf_outs
+ print " ${fs_type} ${kbytes}${used}${avail}${percent_used} ${vxfs_frag}${vxfs_pct}" >> /tmp/sysinfo.$$.bdf_outs
+ print -n "."
+ fi
+ done
+ print "" >> /tmp/sysinfo.$$.bdf_outs
+ print -n "Mounted " >> /tmp/sysinfo.$$.bdf_outh
+ print -- " Extents" >> /tmp/sysinfo.$$.bdf_outh
+ print -n "Filesystems Type Kbytes Used Avail" >> /tmp/sysinfo.$$.bdf_outh
+# print " % Iused Ifree" >> /tmp/sysinfo.$$.bdf_outh
+ print " % Fragmented" >> /tmp/sysinfo.$$.bdf_outh
+ print -n " ---------- ---- ------ ------ ------" >> /tmp/sysinfo.$$.bdf_outh
+ print -- " --- ----------" >> /tmp/sysinfo.$$.bdf_outh
+ cat /tmp/sysinfo.$$.bdf_out? > /tmp/sysinfo.$$.bdf_outd
+ if (( ${no_lost} == 1 ))
+ then
+ print -n "*** could not get fsadm lock - " >> /tmp/sysinfo.$$.bdf_outd
+ print "lost+found/.fsadm not found" >> /tmp/sysinfo.$$.bdf_outd
+ print "" >> /tmp/sysinfo.$$.bdf_outd
+ fi
+ f_display_file /tmp/sysinfo.$$.bdf_outd
+ f_display_file /tmp/sysinfo.$$.bdf_warn
+ print ""
+
+} # end of f_filesystem_check
+
+#===================================================================
+# f_disk_capacity
+# This function displays total disk, group, and lvol capacities.
+# The data comes from the logical, physical, & volume functions.
+# Therefore, this function does not stand alone. It must be run
+# with the l, p, & v options.
+#===================================================================
+function f_disk_capacity
+{
+ Debug "Beginning DISK CAPACITY calculations."
+ if (($HTML))
+ then
+ print "</PRE>" >> /tmp/sysinfo.$$.capacity
+ print "<A NAME='Capacity'></A>" >> /tmp/sysinfo.$$.capacity
+ print "<H2>" >> /tmp/sysinfo.$$.capacity
+ print "<P ALIGN=RIGHT><A HREF='#Top'>TOP</A></P>" >>/tmp/sysinfo.$$.capacity
+ print "<FONT COLOR=red>" >> /tmp/sysinfo.$$.capacity
+ print "Disk Capacity Data</H2>" >> /tmp/sysinfo.$$.capacity
+ print "</FONT><PRE><font size = '4'>" >> /tmp/sysinfo.$$.capacity
+ else
+ print "DISK CAPACITY DATA" >> /tmp/sysinfo.$$.capacity
+ print "==================" >> /tmp/sysinfo.$$.capacity
+ fi
+ ((unused_cap = total_p_mb - TotalAllocMb))
+ ((OtherMb = TotalAllocMb - total_l_mb - TotalMirrorMb))
+ print "Logical Volume Space = $total_l_mb MB" >> /tmp/sysinfo.$$.capacity
+ print "Mirror Space = $TotalMirrorMb MB" >> /tmp/sysinfo.$$.capacity
+ print "Other Space Allocated = $OtherMb MB" >> /tmp/sysinfo.$$.capacity
+ print " -----------" >> /tmp/sysinfo.$$.capacity
+ print "Total Disk Allocated = $TotalAllocMb MB" >> /tmp/sysinfo.$$.capacity
+ print "Unallocated Disk = $unused_cap MB" >> /tmp/sysinfo.$$.capacity
+ print " ===========" >> /tmp/sysinfo.$$.capacity
+ print "Total Physical Disk = $total_p_mb MB\n" >> /tmp/sysinfo.$$.capacity
+
+ print "Checked:" >> /tmp/sysinfo.$$.capacity
+ print "${pcount} physical volumes" >> /tmp/sysinfo.$$.capacity
+ print "${vgcount} volume groups" >> /tmp/sysinfo.$$.capacity
+ print "${lcount} logical volumes" >> /tmp/sysinfo.$$.capacity
+
+ Debug " found ${pcount} physical volumes"
+ Debug " found ${vgcount} volume groups"
+ Debug " found ${lcount} logical volumes"
+
+ if ((${stale}))
+ then
+ Debug "found ${total_stale} STALE extents"
+ Debug " calculating re-syncing time"
+ exit_code=${SYS_ERROR}
+ print "STALE extents detected!" >> /tmp/sysinfo.$$.capacity
+ print " check error listing for more details." >> /tmp/sysinfo.$$.capacity
+ print -n "\n\nERROR:${sysname}: ${total_stale}" >> /tmp/sysinfo.$$.errwarn
+ print " stale extents detected.\n" >> /tmp/sysinfo.$$.errwarn
+ print -n "Estimated time to re-sync ${total_stale}" >> /tmp/sysinfo.$$.errwarn
+ print " stale extents is" >> /tmp/sysinfo.$$.errwarn
+ if ((${TotalStaleMb} < 100))
+ then
+ print " less than 1 minute." >> /tmp/sysinfo.$$.errwarn
+ Debug " less than 1 minute"
+ else
+ ((TIME = TotalStaleMb / 100))
+ ((HOURS = TIME /60))
+ ((MINUTES = TIME % 60))
+ print " ${HOURS} hours and ${MINUTES} minutes." >> /tmp/sysinfo.$$.errwarn
+ Debug " ${TIME} total minutes or"
+ Debug " ${HOURS} hours and ${MINUTES} minutes"
+ fi
+ print >> /tmp/sysinfo.$$.errwarn
+ else
+ print "with no stale extents detected.\n" >> /tmp/sysinfo.$$.capacity
+ Debug "No stale extents detected"
+ fi
+ f_display_file /tmp/sysinfo.$$.capacity
+
+} # end of f_disk_capacity
+
+
+#===================================================================
+# f_check_root
+# This function checks to see if the user is root.
+#===================================================================
+function f_check_root
+{
+ id | grep '(root)' > /dev/null
+ if (($?))
+ then
+ print "\nYou must be super-user to run ${script}.\n"
+ exit ${ERROR}
+ fi
+} # end of check_root
+
+#===================================================================
+# f_check_hpux
+# This function checks to see if running on HP-UX
+#===================================================================
+function f_check_hpux
+{
+ uname -s | grep HP-UX > /dev/null
+ if (($?))
+ then
+ print "\nThis utility is only supported on HP-UX systems!\n"
+ exit ${ERROR}
+ fi
+} # end of check_hpux
+
+#===================================================================
+# f_extract_errors
+# This function extract WARNINGS & ERRORS from the logfile
+#===================================================================
+function f_extract_errors
+{
+ if [[ -f /tmp/sysinfo.$$.errwarn ]]
+ then
+ if (($HTML))
+ then
+ print "</PRE>" >> /tmp/sysinfo.$$.errwarn.header
+ print "<A NAME='ErrWarn'></A>" >> /tmp/sysinfo.$$.errwarn.header
+ print "<H2>" >> /tmp/sysinfo.$$.errwarn.header
+ print "<P ALIGN=RIGHT><A HREF='#Top'>" >> /tmp/sysinfo.$$.errwarn.header
+ print "TOP</A></P>" >> /tmp/sysinfo.$$.errwarn.header
+ print "<FONT COLOR=red>" >> /tmp/sysinfo.$$.errwarn.header
+ print "Summary of Errors/Warnings</H2>" >> /tmp/sysinfo.$$.errwarn.header
+ print "</FONT><PRE><font size = '4'>" >> /tmp/sysinfo.$$.errwarn.header
+ else
+ print "" >> /tmp/sysinfo.$$.errwarn.header
+ print "ERROR/WARNING SUMMARY" >> /tmp/sysinfo.$$.errwarn.header
+ print "=====================" >> /tmp/sysinfo.$$.errwarn.header
+ fi
+
+ grep -e WARNING -e ERROR /tmp/sysinfo.$$.errwarn > /dev/null 2>&1
+ if [ $? -eq 1 ]
+ then
+ Debug "No errors/warnings found."
+ if (($BATCH))
+ then
+ print "No ERRORS or WARNINGS found."
+ fi
+ print "($sysname): No errors/warnings found." >> /tmp/sysinfo.$$.errwarn
+ else
+ Debug "Found errors/warnings, displaying /tmp/sysinfo.$$.errwarn"
+ if (($BATCH))
+ then
+ print "Errors and/or Warnings were found."
+ print "Please check output file ${LOGFILE}."
+ fi
+ fi
+ print "" >> /tmp/sysinfo.$$.errwarn
+ f_display_file /tmp/sysinfo.$$.errwarn.header
+ f_display_file /tmp/sysinfo.$$.errwarn
+ else
+ print "Could not find /tmp/sysinfo.$$.errwarn"
+ fi
+}
+
+function print_header
+{
+#print
+#print " **** *****"
+#print "* * "
+#print "* * * *** * ** * **** **** "
+#print " **** * * * * * * * * * *"
+#print " * * *** * * * * *** * *"
+#print " * * * * * ** * * *"
+#print " **** * *** ***** * * * ****"
+#print
+print
+print " @@@@ @@@@@"
+print "@ @ "
+print "@ @ @ @@@ @ @@ @ @@@@ @@@@ "
+print " @@@@ @ @ @ @ @ @ @ @ @ @"
+print " @ @ @@@ @ @ @ @ @@@ @ @"
+print " @ @ @ @ @ @@ @ @ @"
+print " @@@@ @ @@@ @@@@@ @ @ @ @@@@"
+print
+}
+#===================================================================
+# BEGIN MAIN CODE
+#===================================================================
+typeset -fx lvm_scan
+typeset -fx sam_scan
+typeset -fx io_scan
+typeset -fx f_query_sam
+sysname=$(hostname)
+where=`dirname ${0}`
+f_check_hpux
+f_check_root
+get_args $*
+if (($BATCH))
+then
+ #print "\n${script} ${version} by Scott Truesdale\n"
+ print_header
+ print "Author: Scott Truesdale"
+ print "Version: ${version}\n"
+ if (($HTML))
+ then
+ print "<HTML><HEAD>" >> $LOGFILE
+ print "<HTML><HEAD>" >> $LOGFILE_INDEX
+ print "<HTML><HEAD>" >> $LOGFILE_MAIN
+ print "<TITLE>Sysinfo for ${sysname}</TITLE>" >> $LOGFILE
+ print "<TITLE>Sysinfo (Index) for ${sysname}</TITLE>" >> $LOGFILE_INDEX
+ print "<TITLE>Sysinfo (Main) for ${sysname}</TITLE>" >> $LOGFILE_MAIN
+ print "</HEAD>" >> $LOGFILE
+ print "<FRAMESET ROWS='175,*' FRAMEBORDER='YES'" >> $LOGFILE
+ print "BORDERCOLOR='darkblue' FRAMESPACING='2'" >> $LOGFILE
+ print "BORDER='2'>" >> $LOGFILE
+ print "<FRAME SRC='${LOGFILE_INDEX_REL}'" >> $LOGFILE
+ print "NAME='IndexFrame' SCROLLING='NO'>" >> $LOGFILE
+ print "<FRAME SRC='${LOGFILE_MAIN_REL}'" >> $LOGFILE
+ print "NAME='MainFrame'" >> $LOGFILE
+ print "SCROLLING='AUTO'><NOFRAMES>" >> $LOGFILE
+ print "<BODY BGCOLOR=lightblue>" >> $LOGFILE
+ print "</HEAD><BODY BGCOLOR=lightblue>" >> $LOGFILE_INDEX
+ print "</HEAD><BODY BGCOLOR=lightblue>" >> $LOGFILE_MAIN
+ print "<CENTER>" >> $LOGFILE
+ print "<A name='TOP'></A>" >> $LOGFILE
+ print "<FONT SIZE=6 COLOR=darkblue>" >> $LOGFILE
+ print "${script} ${version} " >> $LOGFILE
+ print "by Scott Truesdale</FONT><BR>" >> $LOGFILE
+ print "<FONT SIZE=6>Configuration Data for" >> $LOGFILE
+ print "<FONT COLOR=red>${sysname}</FONT></FONT><BR>" >> $LOGFILE
+ print "<FONT SIZE=3>Collected on `date`.</FONT><BR>" >> $LOGFILE
+ print "<A HREF='#System'>System</A>" >> $LOGFILE
+ print "<A HREF='#Kernel'>Kernel</A>" >> $LOGFILE
+ print "<A HREF='#Network'>Network</A>" >> $LOGFILE
+ print "<A HREF='#File'>File System</A>" >> $LOGFILE
+ print "<BR>" >> $LOGFILE
+ print "<A HREF='#IO'>IO Configuration</A>" >> $LOGFILE
+ print "<A HREF='#Physical'>Physical Disks</A>" >> $LOGFILE
+ print "<A HREF='#Pmap'>Physical Mapping</A>" >> $LOGFILE
+ print "<A HREF='#Volume'>Volume Groups</A>" >> $LOGFILE
+ print "<BR>" >> $LOGFILE
+ print "<A HREF='#Logical'>Logical Disks</A>" >> $LOGFILE
+ print "<A HREF='#Lmap'>Logical Mapping</A>" >> $LOGFILE
+ print "<A HREF='#Capacity'>Disk Capacity</A>" >> $LOGFILE
+ print "<A HREF='#Software'>Software List</A>" >> $LOGFILE
+ print "<BR>" >> $LOGFILE
+ print "<A HREF='#SYSACCESS'>Security Check</A>" >> $LOGFILE
+ print "<A HREF='#DIAGNOSTICS'>Diagnostic Settings</A>" >> $LOGFILE
+ print "<A HREF='#LOGFILES'>System Logfiles</A>" >> $LOGFILE
+ print "<A HREF='#ErrWarn'>Errors/Warnings</A>" >> $LOGFILE
+ if (($PASS))
+ then
+ print "<BR>" >> $LOGFILE
+ print "<A HREF='#SAP'>SAP R/3 Info</A>" >> $LOGFILE
+ fi
+ print "</CENTER>" >> $LOGFILE
+ print "<CENTER>" >> $LOGFILE_INDEX
+ print "<A name='TOP'></A>" >> $LOGFILE_INDEX
+ print "<FONT SIZE=6 COLOR=darkblue>" >> $LOGFILE_INDEX
+ print "${script} ${version} " >> $LOGFILE_INDEX
+ print "by Scott Truesdale</FONT><BR>" >> $LOGFILE_INDEX
+ print "<FONT SIZE=6>Configuration Data for" >> $LOGFILE_INDEX
+ print "<FONT COLOR=red>${sysname}</FONT></FONT><BR>" >> $LOGFILE_INDEX
+ print "<FONT SIZE=3>Collected on `date`.</FONT><BR>" >> $LOGFILE_INDEX
+ print "<A HREF='${LOGFILE_MAIN_REL}#System' TARGET='MainFrame'>System</A>" >> $LOGFILE_INDEX
+ print "<A HREF='${LOGFILE_MAIN_REL}#Kernel' TARGET='MainFrame'>Kernel</A>" >> $LOGFILE_INDEX
+ print "<A HREF='${LOGFILE_MAIN_REL}#Network' TARGET='MainFrame'>Network</A>" >> $LOGFILE_INDEX
+ print "<A HREF='${LOGFILE_MAIN_REL}#File' TARGET='MainFrame'>File System</A>" >> $LOGFILE_INDEX
+ print "<A HREF='${LOGFILE_MAIN_REL}#IO' TARGET='MainFrame'>IO Configuration</A>" >> $LOGFILE_INDEX
+ print "<A HREF='${LOGFILE_MAIN_REL}#Physical' TARGET='MainFrame'>Physical Disks</A>" >> $LOGFILE_INDEX
+ print "<A HREF='${LOGFILE_MAIN_REL}#Pmap' TARGET='MainFrame'>Physical Mapping</A>" >> $LOGFILE_INDEX
+ print "<A HREF='${LOGFILE_MAIN_REL}#Volume' TARGET='MainFrame'>Volume Groups</A>" >> $LOGFILE_INDEX
+ print "<A HREF='${LOGFILE_MAIN_REL}#Logical' TARGET='MainFrame'>Logical Disks</A>" >> $LOGFILE_INDEX
+ print "<A HREF='${LOGFILE_MAIN_REL}#Lmap' TARGET='MainFrame'>Logical Mapping</A>" >> $LOGFILE_INDEX
+ print "<A HREF='${LOGFILE_MAIN_REL}#Capacity' TARGET='MainFrame'>Disk Capacity</A>" >> $LOGFILE_INDEX
+ print "<A HREF='${LOGFILE_MAIN_REL}#Software' TARGET='MainFrame'>Software List</A>" >> $LOGFILE_INDEX
+ print "<A HREF='${LOGFILE_MAIN_REL}#SYSACCESS' TARGET='MainFrame'>Security Check</A>" >> $LOGFILE_INDEX
+ print "<A HREF='${LOGFILE_MAIN_REL}#DIAGNOSTICS' TARGET='MainFrame'>Diagnostic Settings</A>" >> $LOGFILE_INDEX
+ print "<A HREF='${LOGFILE_MAIN_REL}#LOGFILES' TARGET='MainFrame'>System Logfiles</A>" >> $LOGFILE_INDEX
+ print "<A HREF='${LOGFILE_MAIN_REL}#ErrWarn' TARGET='MainFrame'>Errors/Warnings</A>" >> $LOGFILE_INDEX
+ if (($PASS))
+ then
+ print "<A HREF='${LOGFILE_MAIN_REL}#SAP' TARGET='MainFrame'>SAP R/3 Info</A>" >> $LOGFILE_INDEX
+ fi
+ print "</CENTER>" >> $LOGFILE_INDEX
+
+ else
+ print "\n${script} ${version} by Scott Truesdale\n" >> $LOGFILE
+ print "Configuration data for ${sysname}\ncollected on `date`\n" >> $LOGFILE
+ fi
+else
+ print_header
+ print "Author: Scott Truesdale"
+ print "Version: ${version}\n"
+ print "Configuration data for ${sysname}\ncollected on `date`.\n"
+fi
+touch /tmp/sysinfo.$$.errwarn
+#===================================================================
+# Begin PASS section
+#===================================================================
+if (($PASS))
+then
+ touch /tmp/sysinfo.$$.sapwarn
+ check_for_sap
+fi
+
+#===================================================================
+# SYSTEM CHECK AND ROOT DATA
+#===================================================================
+f_get_sys_type
+
+if (($SYSTEM))
+then
+ f_get_system_data
+fi
+#===================================================================
+# KERNEL DATA
+#===================================================================
+if (($FULL_KERNEL)) || (($LITE_KERNEL))
+then
+ if (( ${osmajor} >= 10 ))
+ then
+ f_get_kernel_data
+ else
+ f_get_9x_kernel_data
+ fi
+fi
+
+#if (($SAMSCAN)) && (( ${osmajor} >= 10 ))
+#then
+# f_display_sam_kernel_data
+#fi
+
+#===================================================================
+# NETWORK CARD DATA
+#===================================================================
+if (($NETWORK))
+then
+ f_get_network_data
+fi
+
+#===================================================================
+# FILE SYSTEM CHECK
+#===================================================================
+if (($FILESYSTEM))
+then
+ f_filesystem_check
+fi
+
+#===================================================================
+# IOSCAN CHECK
+#===================================================================
+if (($IOSCAN))
+then
+ f_get_ioscan_data
+fi
+
+#===================================================================
+# PHYSICAL DISK CHECK
+#===================================================================
+if (($PHYSICAL))
+then
+ f_get_physical_disk_data
+fi
+
+#===================================================================
+# VOLUME GROUP CHECK
+#===================================================================
+if (($VOLUMES))
+then
+ if (($lvm_installed))
+ then
+ f_get_volume_group_data
+ else
+ print "LVM must be installed to use this option."
+ fi
+fi
+
+#===================================================================
+# LOGICAL DISK CHECK
+#===================================================================
+if (($LOGICAL))
+then
+ if (($lvm_installed))
+ then
+ f_get_logical_volume_data
+ else
+ print "LVM must be installed to use this option."
+ fi
+fi
+
+#===================================================================
+# LOGICAL VOLUME TO PHYSICAL DISK MAPPING
+#===================================================================
+# check which physical disks have this logvol on them
+if (($LMAP))
+then
+ if (($lvm_installed))
+ then
+ f_logical_to_physical
+ else
+ print "LVM must be installed to use this option."
+ fi
+fi
+
+#===================================================================
+# DISK CAPACITY TABLE
+#===================================================================
+# note that the CAPACITY flag cannot be set directly.
+# it is automatically enabled when either the -a or -lpv flags
+if (($CAPACITY))
+then
+ if (($lvm_installed))
+ then
+ f_disk_capacity
+ else
+ print "LVM must be installed to use this option."
+ fi
+fi
+
+#===================================================================
+# SOFTWARE LIST
+#===================================================================
+if (($SWLIST))
+then
+ sw_scan
+fi
+
+#===================================================================
+# Check system file/directory access and some security parms.
+#===================================================================
+if (($FILEACCESS))
+then
+ chk_sysaccess
+fi
+
+#===================================================================
+# Check to see if the system has diagnostics
+#===================================================================
+if (($DIAGNOSTICS))
+then
+ chk_diags
+ chk_ignite
+fi
+
+#===================================================================
+# Check System Logfiles
+#===================================================================
+
+if (($LOGFILES))
+then
+ chk_logfiles
+fi
+
+#===================================================================
+# Extract ERROR/WARNING messages
+#===================================================================
+f_extract_errors
+
+if (($PASS))
+then
+ f_display_file /tmp/sysinfo.$$.sap
+ print "\n\n" >> /tmp/sysinfo.$$.sapwarn
+ f_display_file /tmp/sysinfo.$$.sapwarn
+
+fi
+
+#===================================================================
+# Clean up end of HTML files if necessary
+#===================================================================
+
+if (($HTML))
+then
+ print "</BODY></HTML>" >> $LOGFILE_INDEX
+ print "</BODY></HTML>" >> $LOGFILE_MAIN
+ print "</BODY></NOFRAMES></FRAMESET></HTML>" >> $LOGFILE
+ chmod 444 $LOGFILE_INDEX $LOGFILE_MAIN $LOGFILE
+fi
+
+#===================================================================
+# END OF SCRIPT - SO LET'S GET OUT OF HERE!
+#===================================================================
+Debug "exit_code = ${exit_code}"
+exit ${exit_code}
+
--- /dev/null
+#!/bin/ksh
+# Oslo Feb. 2 1995
+# sys_info 1.3, a hack by Ole Kristian Foss, HPNAS,
+# to display HP9000 model and the clock frequency of the CPU(s)
+# Version 1.0 Oslo Jan. 25
+1995
+# Version 1.1 added call to the $SCHED_FILE. Oslo Jan. 25
+1995
+# Version 1.2 added the get_physmem function. Oslo Feb. 2
+1995
+# Version 1.3 added limited functionality for HP-UX 10.X. Oslo Feb. 28
+1995
+# Version 1.4 more robust 10.X handling. Oslo Mar. 13
+1996
+# This version should handle all cominations of
+# HP-UX 9.X and 10.X as well as S700 and S800
+#
+#
+# Initialize variables:
+ADB="adb -k"
+ADB_CMD=""
+MODEL=""
+PA_INFO=""
+PA_RISC=""
+CPU_REV=""
+OS_REV=""
+VER="1.4"
+CORES=""
+PROG=`basename $0`
+SCHED_FILE="/usr/lib/sched.models"
+export PATH=/etc:/bin:/usr/bin
+typeset -R4 ID=""
+typeset -i FADB_OUT
+typeset -i MHZ
+typeset -i HZ
+typeset -i SPEED
+#
+function usage
+{
+ print -u2 "Usage: $PROG <-h|-m> [-v]"
+ exit 1
+}
+#
+function get_os_rev
+{
+ OS_REV=`uname -r| cut -f2 -d"."`
+ case $OS_REV in
+ 09) CORES="/hp-ux /dev/kmem"
+ if /bin/hp9000s700
+ then
+ ADB_CMD="mpproc_info+34/X"
+ elif /bin/hp9000s800
+ then
+ ADB_CMD="mpproc_info+1E8/X"
+ else
+ echo "This machine is not supported by $PROG"
+ exit 1
+ fi ;;
+
+ 10) CORES="/stand/vmunix /dev/kmem"
+ ADB_CMD="_mpproc_info+270/X" ;;
+
+ *) echo "$PROG does not support this version of HP-UX"
+ exit 1 ;;
+ esac
+
+}
+function get_id
+{
+ ID=`echo $ADB_CMD | $ADB $CORES | tail -1 | cut -d: -f 2`
+}
+#
+#
+function get_model
+{
+ case $ID in
+ " 40"|0040) MODEL="840" ;;
+ " 80"|0080) MODEL="825" ;;
+ " A0"|00A0) MODEL="835/635" ;;
+ " B0"|00B0) MODEL="845/645" ;;
+ " C0"|00C0) MODEL="850" ;;
+ " 810"|0810) MODEL="855" ;;
+ " 820"|0820) MODEL="860" ;;
+ " 830"|0830) MODEL="865/870" ;;
+ 1010) MODEL="822" ;;
+ 1020) MODEL="832" ;;
+ 1040) MODEL="842" ;;
+ 1050) MODEL="852" ;;
+ 1810) MODEL="890" ;;
+ 1820) MODEL="891/T500" ;;
+ 1830) MODEL="892/T520" ;;
+ 2000) MODEL="720" ;;
+ 2010) MODEL="750" ;;
+ 2020) MODEL="730" ;;
+ 2030) MODEL="735" ;;
+ 2040) MODEL="755" ;;
+ 2060) MODEL="735/125" ;;
+ 2800) MODEL="817/F20" ;;
+ 2800) MODEL="827/H20" ;;
+ 2810) MODEL="837/F30" ;;
+ 2810) MODEL="847/G30/H30" ;;
+ 2810) MODEL="857/I30" ;;
+ 2820) MODEL="807/F10" ;;
+ 2830) MODEL="867/G40/H40" ;;
+ 2830) MODEL="877/I40" ;;
+ 2840) MODEL="887/G50/H50" ;;
+ 2840) MODEL="897/I50" ;;
+ 2870) MODEL="887/G70/H70" ;;
+ 2870) MODEL="897/I70" ;;
+ 2880) MODEL="887/G60/H60" ;;
+ 2880) MODEL="897/I60" ;;
+ 3000) MODEL="710" ;;
+ 3020) MODEL="705" ;;
+ 3100) MODEL="715/50" ;;
+ 3110) MODEL="715/33" ;;
+ 3120) MODEL="715s/50" ;;
+ 3130) MODEL="715s/33" ;;
+ 3140) MODEL="715t/50" ;;
+ 3150) MODEL="715t/33" ;;
+ 3160) MODEL="715/75" ;;
+ 3180) MODEL="725/50" ;;
+ 3190) MODEL="725/75" ;;
+ 4010) MODEL="745i/50" ;;
+ 4020) MODEL="742i" ;;
+ 4030) MODEL="745i/100" ;;
+ 4800) MODEL="806/E25" ;;
+ 4810) MODEL="816/E35" ;;
+ 4820) MODEL="826/E45" ;;
+ 4830|4831) MODEL="856/E55" ;;
+ 5800) MODEL="809/K100" ;;
+ 5810) MODEL="839/K210" ;;
+ 5820) MODEL="829/K400" ;;
+ 5830) MODEL="849/K410" ;;
+ 5870) MODEL="841/D210/D410" ;;
+ 5880) MODEL="851/D210/D4102-way" ;;
+ 5890) MODEL="821/D200/D400" ;;
+ 58A0) MODEL="831/D200/D4002-way" ;;
+ 58B0) MODEL="819/K200" ;;
+ 58C0) MODEL="859/K230" ;;
+ 58D0) MODEL="869/K430" ;;
+ 6000) MODEL="712/60" ;;
+ 6010) MODEL="712/80" ;;
+ 6020) MODEL="712/100" ;;
+ 6030) MODEL="743i/60" ;;
+ 6040) MODEL="743i/100" ;;
+ 60A0) MODEL="715/64" ;;
+ 60B0) MODEL="715/100" ;;
+ 60D0) MODEL="725/100" ;;
+ 6170) MODEL="V743i" ;;
+ 6180) MODEL="V743i/100" ;;
+ 6190) MODEL="715/80" ;;
+ 61A0) MODEL="811/DX5" ;;
+ 61B0) MODEL="801/DXO" ;;
+ *) MODEL="UNKNOWN" ;;
+ esac
+}
+#
+function get_tics
+{
+ ADB_CMD="itick_per_tick/D"
+ FADB_OUT=`echo $ADB_CMD | $ADB $CORES | tail -1 | cut -f 2`
+#
+ if [ $1 = "HZ" ]
+ then
+ ((HZ=$FADB_OUT * 100))
+ SPEED=$HZ
+ else
+ ((MHZ=$FADB_OUT / 10000))
+ SPEED=$MHZ
+ fi
+}
+#
+function get_physmem
+{
+ ADB_CMD="physmem/D"
+ PHYS_MEM=`echo $ADB_CMD | $ADB $CORES | tail -1 | \
+ awk '$2 > 0 { print $2 / 256 }' `
+ echo "Your system has $PHYS_MEM Mbyte ram installed"
+}
+#
+function get_painfo
+{
+ MODEL="`echo $MODEL|cut -f1 -d'/'`"
+ PA_INFO=`grep ^$MODEL $SCHED_FILE`
+ if [ -n "$PA_INFO" ]
+ then
+ PA_RISC="`echo $PA_INFO | cut -d' ' -f 3 `"
+ CPU_REV="`echo $PA_INFO | cut -d' ' -f 2 `"
+ echo "The PA-RISC processor(s) is of type $PA_RISC rev.
+$CPU_REV"
+ fi
+}
+
+## Main program ##
+if [ $# -eq 0 ]
+then
+ usage
+ exit 1
+fi
+#
+if [ `whoami` != "root" ]
+then
+ echo "You must be root to run $PROG ! "
+ exit 1
+fi
+
+while getopts :mMhHv OPT
+do case $OPT in
+ h|H) get_os_rev
+ get_id
+ get_model
+ get_tics HZ
+ print "Your HP9000 Model $MODEL has CPU(s) running at $SPEED Hz"
+ get_painfo
+ get_physmem
+ ;;
+ m|M) get_os_rev
+ get_id
+ get_model
+ get_tics MHZ
+ print "Your HP9000 Model $MODEL has CPU(s) running at $SPEED MHz"
+ get_painfo
+ get_physmem
+ ;;
+ v) echo "You are running version $VER of $PROG"
+ ;;
+ \?) print -u2 "$PROG: unknown option $OPTARG"
+ usage
+ esac
+done
--- /dev/null
+#! /bin/sh
+
+# tbdf (total bdf 'cause it shows the total K bytes used)
+#
+# written by Tom Bukowski 1990,1991
+# tbdf version 2.2 Jan 4, 1993
+# @(#) tbdf version 3.0 Aug 19, 1996
+
+egrepCmd=''
+
+if [ $# -eq 0 ];then
+ command=`mount|cut -d' ' -f1-4|grep -v ':'| cut -d' ' -f1`
+
+elif [ $1 = 'help' -o $1 = 'HELP' ];then
+
+ echo "Usage: $0 [-r][-rv] [pattern]"
+ echo '\n options:'
+ echo ' -r <pattern> total all filesystems beginning with
+pattern'
+ echo ' -rv <pattern> total all filesystems excluding pattern\n'
+
+ exit
+
+elif [ $1 != "-r" -a $1 != "-rv" ];then
+ command=$*
+
+elif [ $1 = "-r" -o $1 = "-rv" ];then
+
+ test $1 = '-rv' && opt='-v'
+ shift
+ egrepCmd=$1
+ if [ $# -gt 1 ];then
+ while [ $# -gt 0 ]
+ do
+ egrepCmd="$egrepCmd|^$1"
+ shift
+ done
+ fi
+
+ command=`mount |\
+ awk '{printf"%s %s %s\n",$1,$2,$3 }' |\
+ grep -v : |\
+ cut -d' ' -f1 |\
+ egrep $opt $egrepCmd |\
+ awk '{ print $NF }'`
+ test -z "$command" && exit
+
+fi
+
+if [ -x /usr/bin/nawk ];then
+ AWK=/usr/bin/nawk
+else
+ AWK=awk
+fi
+
+bdf $command |\
+$AWK '
+{
+ print
+ if ( NR > 1 )
+ if ( NF == 6) {
+ Kbytes_total += $2
+ Used_total += $3
+ Avail_total += $4
+ } else
+ if ( NF == 5 ) {
+ Kbytes_total += $1
+ Used_total += $2
+ Avail_total += $3
+ }
+
+}
+ END { printf"%43s\n","------ ------ ------"
+ printf"%27d %7d %7d\n",Kbytes_total,Used_total,Avail_total
+ }'
+
--- /dev/null
+#!/bin/ksh
+################################################################################
+#
+# File: testmach
+# Description: A script to execute a command on all test class machines
+# Author: Andrew@DeFaria.com
+# Created: Thu May 11 11:08:24 PDT 2000
+# Modified:
+# Language: Korn Shell
+#
+# (c) Copyright 2001, Andrew@DeFaria.com, all rights reserved
+#
+################################################################################
+# Set me to command name
+me=$(basename $0)
+
+# Set adm_base
+adm_base=${adm_base:-$HOME/adm}
+
+# Set adm_fpath
+adm_fpath=${adm_fpath:-$adm_base/functions}
+
+# Source functions
+. $adm_fpath/common
+
+# Set machines
+machines=${machines:-$adm_base/data/machines}
+
+if [ "$1" = "-f" ]; then
+ shift
+ machines="$1"
+ shift
+fi
+
+PATH=/adm/bin:$PATH
+
+if [ "$1" = "-r" ]; then
+ root=yes
+ shift
+fi
+
+for test_machine in $(grep -ve ^# $machines | grep :Test: | cut -d: -f1); do
+ # Execute command. Note if no command is given then the effect is to
+ # rlogin to each machine.
+ print "$test_machine:$@"
+ if [ $# -gt 0 ]; then
+ if [ -z "$root" ]; then
+ remsh $test_machine -n "$@"
+ else
+ root remsh $test_machine -n "$@"
+ fi
+ else
+ if [ -z "$root" ]; then
+ remsh $test_machine
+ else
+ root remsh $test_machine
+ fi
+ fi
+done
--- /dev/null
+#!/bin/ksh
+################################################################################
+#
+# File: trim_sw_logs
+# Description: Script to trim logfiles produced by SD-UX
+# Author: Andrew@DeFaria.com (Derived from /usr/sbin/cleanup on HP-UX
+# 10.20)
+# Created: Thu Feb 17 16:12:17 PST 2000
+# Language: Korn Shell
+#
+# (c) Copyright 2001, Andrew@DeFaria.com, all rights reserved
+#
+################################################################################
+# Set me to command name
+me=$(basename $0)
+
+# Set adm_base
+adm_base=${adm_base:-$HOME/adm}
+
+# Set adm_fpath
+adm_fpath=${adm_fpath:-$adm_base/functions}
+
+# Source functions
+. $adm_fpath/common
+tmpprefix=/tmp/$me
+. $adm_fpath/tmpfiles
+trap cleanup INT EXIT ERR
+
+function usage {
+ if [ "_$1" != "_" ]; then
+ display "$1"
+ display
+ fi
+ display "Usage: $me"
+ exit 1
+} # usage
+
+# Check for execution by root
+if is_not_root; then
+ error "This script must be run as root" 1
+fi
+
+while [ $# -ge 1 ]; do
+ case "$1" in
+ -usage)
+ usage
+ ;;
+
+ -v|-verbose)
+ verbose=yes
+ ;;
+
+ -d|-debug)
+ debug=yes
+ ;;
+
+ *)
+ usage "Unrecognized parameter $1"
+ ;;
+ esac
+ shift
+done
+
+logdir=/var/adm/sw
+
+# This routine will trim the given SD logfile by deleting old session
+# log information. By specifying a date in the mm/dd/yy format, the
+# user can trim all log information for sessions prior to the date.
+function trim_sd_logfile {
+ date=$1
+ logfile=$2
+
+ # Process logfile.
+ # Toss all lines until a line of the form: ======= date
+ # is discovered. Retain all lines after recognizing this one.
+ awk '
+ print_all == 1 \
+ {
+ print;
+ next;
+ }
+
+ /^======= / \
+ {
+ key = sprintf("%s%s", "======= ", searchdate);
+ if ( index($0, key) == 1 )
+ {
+ print;
+ print_all = 1;
+ }
+ next;
+ }
+' searchdate="$date" $logfile > $tmpprefix
+
+ # Check the size of the tmp file to see if any trimming occurred
+ # If the tmp file is zero-length, then do NOT overwrite the logfile.
+
+ length=$(wc -l $tmpprefix | awk '{print $1}')
+
+ if [ "$length" != "0" ]; then
+ cat $tmpprefix 2>/dev/null > $logfile
+ if [ $? != 0 ]; then
+ warning "Cannot overwrite $logfile" 1
+ fi
+ fi
+} # trim_sd_logfile
+
+function trim_sd_logfiles {
+ cd $logdir
+ for file in $(ls sw*.log); do
+ if [ -s $file ]; then
+ verbose "Trimming $file"
+
+ # Get a suitable date from the file to pass to "trim" The date will be
+ # the 2nd to last date mentioned in the logfile.
+ target_date=$(awk '/^=======/ {print $2, $3}' $file | \
+ uniq | tail -5 | head -1)
+
+ trim_sd_logfile "$target_date" $file
+ fi
+ done
+} # trim_sd_logfiless
+
+trim_sd_logfiles
--- /dev/null
+#!/bin/ksh
+################################################################################
+#
+# File: mount_nfs
+# RCS: $Header:$
+# Description: A script to mount all nfs mounts. Note if the automounter is
+# running then this script will first shutdown the automounter.
+# This script returns 0 for success or non zero if it was unable
+# to umount all nfs mounts. This script must run as root.
+# Author: Andrew DeFaria, California Language Labs
+# Created: Fri Jun 6 10:31:51 PDT 1997
+# Modified:
+# Language: Korn Shell
+#
+# (c) Copyright 2001, Andrew@DeFaria.com, all rights reserved
+#
+################################################################################
+# Set me to command name
+me=$(basename $0)
+
+# Set adm_base
+adm_base=${adm_base:-$HOME/adm}
+
+# Set adm_fpath
+adm_fpath=${adm_fpath:-$adm_base/functions}
+
+# Source functions
+. $adm_fpath/common
+
+if is_not_root; then
+ error "This script must be run as root" 1
+fi
+
+integer automount_pid=$(process_is_running automount)
+kill_automounter=yes
+
+if [ $automount_pid -ne 0 ]; then
+ print "Attempting to shutdown the automounter..."
+ kill -15 $automount_pid
+
+ print "Waiting for the automounter to shutdown..."
+ integer max_tries=5
+ integer wait_time=10
+
+ while [ $max_tries -ne 0 ]; do
+ sleep 10
+ automount_pid=$(process_is_running automount)
+ process_is_running automount
+ if [ $automount_pid -ne 0 ]; then
+ print "The automounter ($automount_pid) is still running!"
+ print "I will wait $max_tries more time\c"
+ if [ $max_tries -gt 1 ]; then
+ print -u2 "s\c"
+ fi
+ print ". Waiting $wait_time seconds..."
+ sleep $wait_time
+ else
+ break
+ fi
+ let max_tries=max_tries-1
+ done
+fi
+
+automount_pid=$(process_is_running automount)
+if [ $automount_pid -ne 0 ]; then
+ print "The automounter has not shutdown! Continuing..."
+else
+ print "The automounter has been shut down successfully"
+ touch /etc/automounter_was_here
+fi
+
+print "\nAttempting to unmount all nfs mounts"
+if [ "$OS" = "09" ]; then
+ /etc/umount -at nfs
+else
+ /usr/sbin/umount -a -F nfs
+fi
+
+integer nfs_mounts_left=$(grep -c "nfs" /etc/mnttab)
+
+if [ $nfs_mounts_left -eq 0 ]; then
+ print "All nfs filesystems have been successfully unmounted!"
+ exit 0
+else
+ print "There \c"
+ if [ $nfs_mounts_left -eq 1 ]; then
+ print "is one filesystem left mounted:\n"
+ else
+ print "are $nfs_mounts_left filesystems left mounted:\n"
+ fi
+ grep nfs /etc/mnttab
+ exit 1
+fi
--- /dev/null
+#!/bin/ksh
+################################################################################
+#
+# File: update_machine_info
+# Description: Updates machine infor file (/vob/admin/machines)
+# Author: Andrew@DeFaria.com
+# Created: Fri Apr 30 14:13:56 PDT 1999
+# Language: Korn Shell
+#
+# (c) Copyright 2001, Andrew@DeFaria.com, all rights reserved
+#
+################################################################################
+# Set me to command name
+me=$(basename $0)
+
+# Set adm_base
+adm_base=${adm_base:-$HOME/adm}
+
+# Set adm_fpath
+adm_fpath=${adm_fpath:-$adm_base/functions}
+
+# Source functions
+. $adm_fpath/common
+
+# Set machines
+machines=${machines:-$adm_base/data/machines}
+
+tmp_file=/tmp/machines.$$
+machine=$(uname -n)
+ip=$(getip $machine)
+mod=$(uname -m)
+osversion=$(uname -r)
+
+verbose=false
+
+while getopts v OPT; do
+ case $OPT in
+ v) verbose=true
+ ;;
+ esac
+done
+
+if [ -x /usr/atria/bin/cleartool ]; then
+ ccversion=$(/usr/atria/bin/cleartool -version | grep "ClearCase version" |
+\
+ cut -f3 -d' ')
+ eclipseid=`ls -ld /usr/eclipse/etc 2> /dev/null | awk -F'> ' '{print $2}'
+\
+ | awk -F/ '{print $3}'`
+ [ $? -ne 0 ] && eclipseid="No Eclipse" || eclipseid=${eclipseid#eclipse}
+else
+ ccversion="Non ClearCase Machine"
+ eclipseid="No Eclipse"
+fi
+
+owner=Unknown
+usage=Unknown
+location=Unknown
+phone=Unknown
+class=Unknown
+
+# Unix doesn't really have a way to store such information such as owner,
+# usage and location. Attempt to ascertain this info from /etc/motd.
+if [ -f /etc/motd ]; then
+ usage=$(grep "^Usage:" /etc/motd | tr -s " " | cut -f2- -d" ")
+ owner=$(grep "^Owner:" /etc/motd | tr -s " " | cut -f2- -d" ")
+ phone=$(grep "^Phone: " /etc/motd | tr -s " " | cut -f2- -d" ")
+ class=$(grep "^Class:" /etc/motd | tr -s " " | cut -f2- -d" ")
+ location=$(grep "^Location:" /etc/motd | tr -s " " | cut -f2- -d" ")
+fi
+
+rm -f $tmp_file
+
+if [ $verbose = "true" ]; then
+ print "Machine: $machine"
+ print "IP Address: $ip"
+ print "Model: $mod"
+ print "OS Version: $osversion"
+ print "ClearCase Version: $ccversion"
+ print "Owner: $owner"
+ print "Phone: $phone"
+ print "Usage: $usage"
+ print "Class: $class"
+ print "Location: $location\n"
+ print "Eclipse ID: $eclispeid\n"
+ print "Updating machine list...\c"
+fi
+
+# Add machine if not already present
+grep "^$machine" $machines > /dev/null 2>&1
+
+if [ $? -ne 0 ]; then
+ print "$machine" >> $machines
+fi
+
+while read line; do
+ if [ "$(print $line | cut -f1 -d:)" = $machine ]; then
+ print
+"$machine:$ip:$mod:$osversion:$ccversion:$owner:$phone:$usage:$class:$location:$eclipseid"
+>> $tmp_file
+ else
+ print $line >> $tmp_file
+ fi
+done < $machines
+
+mv $tmp_file $machines
+
+if [ $verbose = "true" ]; then
+ print "done"
+fi
--- /dev/null
+#!/bin/ksh
+###############################################################################
+#
+# File: veritos
+# Description: Run the veritos GUI
+# Author: Andrew DeFaria <Andrew@DeFaria.com>
+# Created: Thu Jun 6 08:31:57 PDT 1996
+# Modified:
+# Language: Korn Shell
+#
+# (c) Copyright 2001, Andrew@DeFaria.com, all rights reserved
+#
+###############################################################################
+me=$(basename $0)
+VRTS_veritos=/opt/VRTSvxva/bin/vxva
+SUNW_veritos=/opt/SUNWvxva/bin/vxva
+
+if [ $(/usr/xpg4/bin/id -u) -ne 0 ]; then
+ print -u2 "$me: Error: Must be root to run this command"
+ exit 1
+fi
+
+if [ -x $VRTS_veritos ]; then
+ veritos=$VRTS_veritos
+elif [ -x $SUNW_veritos ]; then
+ veritos=$SUNW_veritos
+else
+ print "$me: Error: Unable to find veritos"
+ exit 1
+fi
+
+$veritos "$@"
--- /dev/null
+#! /bin/sh
+# upate the cron entries for the user name who is running this script
+#
+# Get info
+#
+echo Updating the cron entries for `whoami`
+TMP="/tmp/$$.`whoami`"
+TMP2="/tmp/2.$$.`whoami`"
+
+crontab -l > $TMP
+cp $TMP $TMP2
+
+vi $TMP
+
+echo "Changes made:"
+if diff $TMP2 $TMP
+then
+ exit 0
+fi
+
+echo "Install this new crontab file for `whoami` (y or n)? \c"
+
+while true
+do
+ read response
+ case $response in
+ Y | y)
+ crontab $TMP
+ echo "Done."
+ break
+ ;;
+
+ N | n)
+ /bin/rm -f $TMP $TMP2
+ exit 0
+ ;;
+ Q | q)
+ /bin/rm -f $TMP $TMP2
+ exit 0
+ ;;
+
+ *)
+ echo " Please specify either Y or N. (Type Q to quit.) \c"
+ ;;
+ esac
+done
+
+/bin/rm -f $TMP $TMP2
+
+exit 0
--- /dev/null
+#!/bin/ksh
+################################################################################
+#
+# File: viewservers
+# RCS: $Header: viewservers,v 1.1 98/01/27 22:31:42 defaria Exp $
+# Description: A script to execute a command on all view servers.
+# Author: Andrew DeFaria, California Language Labs
+# Created: Wed Mar 5 16:31:13 PST 1997
+# Modified: Fri Jan 16 13:56:05 PST 1998
+# Language: Korn Shell
+#
+# (c) Copyright 2001, Andrew@DeFaria.com, all rights reserved
+#
+################################################################################
+PATH=/adm/bin:$PATH
+
+if [ "$1" = "-r" ]; then
+ root=yes
+ shift
+fi
+
+for viewserver in $(get_info server_names viewserver); do
+ # Execute command. Note if no command is given then the effect is to
+ # rlogin to each machine.
+ print "$viewserver:$@"
+ if [ $# -gt 0 ]; then
+ if [ -z "$root" ]; then
+ remsh $viewserver -n "$@"
+ else
+ root remsh $viewserver -n "$@"
+ fi
+ else
+ if [ -z "$root" ]; then
+ remsh $viewserver
+ else
+ root remsh $viewserver
+ fi
+ fi
+done
--- /dev/null
+#!/bin/ksh
+################################################################################
+#
+# File: vobadm
+# Description: A script run something as vobadm
+# Author: Andrew@DeFaria.com
+# Created: Mon May 17 07:35:59 PDT 1999
+# Language: Korn Shell
+#
+# (c) Copyright 2001, Andrew@DeFaria.com, all rights reserved
+#
+################################################################################
+me=$(basename $0)
+
+sudo=${sudo:-/app/sudo}
+
+if [ ! -x $sudo ]; then
+ print -u2 "$me: Error: Unable to find sudo!"
+ exit 1;
+fi
+
+if [ $# -gt 0 ]; then
+ # Execute the commands
+ $sudo -u vobadm "$@"
+else
+ # Become vobadm
+ $sudo -u vobadm -s
+
+ if [ -x ~/.rc/functions ]; then
+ # Source in ksh functions (needed for set_title and set_prompt)
+ . ~/.rc/functions
+ # Reset title and prompt (if you can)
+ alias ct=/usr/atria/bin/cleartool
+ set_title
+ set_prompt
+ fi
+fi
--- /dev/null
+#!/bin/ksh
+################################################################################
+#
+# File: vobservers
+# RCS: $Header: vobservers,v 1.2 98/01/28 12:22:27 defaria Exp $
+# Description: A script to execute a command on all vob servers.
+# Author: Andrew DeFaria, California Language Labs
+# Created: Wed Mar 5 16:31:13 PST 1997
+# Modified:
+# Language: Korn Shell
+#
+# (c) Copyright 2001, Andrew@DeFaria.com, all rights reserved
+#
+################################################################################
+PATH=/adm/bin:$PATH
+
+if [ "$1" = "-r" ]; then
+ root=yes
+ shift
+fi
+
+for vobserver in $(get_info server_names vobserver); do
+ # Execute command. Note if no command is given then the effect is to
+ # rlogin to each machine.
+ print "$vobserver:$@"
+ if [ $# -gt 0 ]; then
+ if [ -z "$root" ]; then
+ remsh $vobserver -l vobadm -n "$@"
+ else
+ root remsh $vobserver -n "$@"
+ fi
+ else
+ if [ -z "$root" ]; then
+ remsh $vobserver -l vobadm
+ else
+ root remsh $vobserver
+ fi
+ fi
+done
--- /dev/null
+#!/bin/ksh
+################################################################################
+#
+# File: whoison
+# RCS: $Header: whoison,v 1.1 97/05/20 19:56:29 defaria Exp $
+# Description: A script to show you who is on the system
+# Author: Andrew DeFaria, California Language Labs
+# Created: Wed May 14 00:40:02 PDT 1997
+# Modified:
+# Language: Korn Shell
+#
+# (c) Copyright 2001, Andrew@DeFaria.com, all rights reserved
+#
+################################################################################
+tmpprefix=/tmp/whoison
+command="who | cut -f1 -d' ' | sort -u"
+
+function cleanup {
+ if [ ! -z $"tmpprefix" ]; then
+ rm -f ${tmpprefix}*
+ fi
+
+ exit
+} # cleanup
+
+trap cleanup INT EXIT ERR
+
+if [ -z "$PAGER" ]; then
+ pager=more
+else
+ pager="$PAGER"
+fi
+
+function report_whoison {
+ machine="$1"
+
+ if [ "$machine" = "$(uname -n)" ]; then
+ eval $command > $tmpprefix.$$
+ else
+ remsh $machine -n "$command" > $tmpprefix.$$
+ fi
+
+ integer nbr_of_users=$(wc -l $tmpprefix.$$ | tr -s " " | cut -f1 -d' ')
+
+ if [ $nbr_of_users -eq 1 ]; then
+ print "$nbr_of_users user on $machine:\n"
+ else
+ print "$nbr_of_users users on $machine:\n"
+ fi
+
+ integer i=1
+
+ cat $tmpprefix.$$ | while read user; do
+ print "$i: $user"
+ let i=i+1
+ done
+
+ print
+
+ rm -f $tmpprefix.$$
+} # report_whoison
+
+if [ $# -eq 0 ]; then
+ report_whoison "$(uname -n)" | $pager
+else
+ for machine in "$@"; do
+ report_whoison "$machine"
+ done | $pager
+fi
+
+who | cut -f1 -d' ' | sort -u > $tmpprefix.$$
+
--- /dev/null
+#!/bin/ksh
+################################################################################
+#
+# File: whosedown
+# Description: Pings machines listed in machines database and produces a report
+# about which machines are down
+# Author: Andrew@DeFaria.com
+# Created: Thu Oct 5 09:32:21 PDT 2000
+# Language: Korn Shell
+#
+# (c) Copyright 2001, Andrew@DeFaria.com, all rights reserved
+#
+################################################################################
+# Set me to command name
+me=$(basename $0)
+
+# Set adm_base
+adm_base=${adm_base:-$HOME/adm}
+
+# Set adm_fpath
+adm_fpath=${adm_fpath:-$adm_base/functions}
+
+# Source functions
+. $adm_fpath/common
+
+# Set machines
+machines=${machines:-$adm_base/data/machines}
+
+function usage {
+ if [ "_$1" != "_" ]; then
+ display "$1"
+ display
+ fi
+ display "Usage: $me [-[c|ount] n | -[u|p] [-nocolor]"
+ display
+ display "Where:"
+ display "\t-c|ount:\tNumber of pings to attempt"
+ display "\t-u|p:\t\tReport machines that are up too"
+ display "\t-nocolor\tDo not produce color output"
+ exit 1
+} # usage
+
+function print_totals {
+ # Print totals
+ display_stderr
+ display_stderr - ------------------------
+
+ if [ "$up" = "true" ]; then
+ display_stderr "Total machines:\t$total_machines"
+ display_stderr "Total up:\t$total_up"
+ fi
+ if [ $total_down -ne 0 ]; then
+ display_stderr "Total down:\t$total_down"
+ fi
+ if [ $total_weak -ne 0 ]; then
+ display_stderr "Total weak:\t$total_week"
+ fi
+
+ exit
+} # print_totals
+
+# Totals
+integer total_machines=0
+integer total_up=0
+integer total_down=0
+integer total_weak=0
+
+# Get parameters
+integer count=2
+up=false
+if [ "$interactive" = "true" ]; then
+ color_output=true
+else
+ color_output=false
+fi
+
+while [ $# -ge 1 ]; do
+ case "$1" in
+ -usage)
+ usage
+ ;;
+
+ -v|-verbose)
+ verbose=yes
+ ;;
+
+ -d|-debug)
+ debug=yes
+ ;;
+
+ -c|-count)
+ if [[ $# -lt 2 ]]; then
+ error "Count not specified" 1
+ else
+ shift
+ count=$1
+ fi
+ ;;
+
+ -u|-up)
+ up=true
+ ;;
+
+ -nocolor)
+ color_output=false
+ ;;
+
+ *)
+ usage "Unrecognized parameter $1"
+ ;;
+ esac
+ shift
+done
+
+if [ "$color_output" = "true" ]; then
+ # Define some colors
+ esc=$(print "\033")
+
+ if [ "$TERM" = "vt100" -o "$TERM" = "vt220" ]; then
+ normal="$esc[0m"
+ up_color="$esc[1m"
+ limping_color="$esc[4m"
+ down_color="$esc[5m"
+ elif [ "$TERM" = "dtterm" -o -z DTTERM ]; then
+ normal="$esc[39m"
+ up_color="$esc[32m"
+ limping_color="$esc[35m"
+ down_color="$esc[31m"
+ elif [ "$TERM" = "hp" -o "$TERM" = "hpterm" ]; then
+ normal="$esc&d@$esc&v0S"
+ down_color="$esc&v1S"
+ limping_color="$esc&v5S"
+ up_color="$esc&v2S"
+ fi
+fi
+
+# Print heading
+display_stderr "Machine\t\tState"
+display_stderr - --------\\t--------
+
+trap print_totals INT
+
+# Check each known machine
+for machine in $(grep -v ^# $machines | cut -f1 -d:); do
+ let total_machines=total_machines+1
+
+ if [ "$up" = "true" ]; then
+ # If we are displaying up machine then print the machine name first
+ display "$machine\t\c"
+ if [ ${#machine} -lt 8 ]; then
+ display "\t\c"
+ fi
+ fi
+
+ # ping the machine
+ ping_result=$(ping $machine -n $count | tail -1 | cut -c44-)
+ integer state=0
+
+ # Translate the return string to states
+ case "$ping_result" in
+ "100% packet loss") # Total packet loss - machine is downes
+ state=1
+ ;;
+
+ "") # No packet loss - machine is fine
+ state=0
+ ;;
+
+ *) # Some other percentage of packet loss - machine is limping
+ state=2
+ ;;
+ esac
+
+ debug "Pinged $machine; result = $ping_result; state = $state"
+
+ # Output based on state
+ if [ $state -eq 0 ]; then
+ if [ "$up" = "true" ]; then
+ let total_up=total_up+1
+ display "${up_color}Up${normal}"
+ fi
+ else
+ if [ "$up" = "false" ]; then
+ display "$machine\t\c"
+ if [ ${#machine} -lt 8 ]; then
+ display "\t\c"
+ fi
+ fi
+ if [ $state -eq 1 ]; then
+ let total_down=total_down+1
+ display "${down_color}Down${normal}"
+ else
+ let total_weak=total_weak+1
+ display "${limping_color}Weak response${normal}"
+ fi
+ fi
+done
+
+print_totals
--- /dev/null
+#!/bin/ksh
+################################################################################
+#
+# File: wrkservers
+# RCS: $Header: wrkservers,v 1.1 98/01/27 22:31:43 defaria Exp $
+# Description: A script to execute a command on all virtual workstation
+# servers.
+# Author: Andrew DeFaria, California Language Labs
+# Created: Wed Mar 5 16:31:13 PST 1997
+# Modified: Fri Jan 16 13:54:53 PST 1998
+# Language: Korn Shell
+#
+# (c) Copyright 2001, Andrew@DeFaria.com, all rights reserved
+#
+################################################################################
+PATH=/adm/bin:$PATH
+
+if [ "$1" = "-r" ]; then
+ root=yes
+ shift
+fi
+
+for wrkserver in $(get_info server_names virtualws); do
+ # Execute command. Note if no command is given then the effect is to
+ # rlogin to each machine.
+ print "$wrkserver:$@"
+ if [ $# -gt 0 ]; then
+ if [ -z "$root" ]; then
+ remsh $wrkserver -n "$@"
+ else
+ root remsh $wrkserver -n "$@"
+ fi
+ else
+ if [ -z "$root" ]; then
+ remsh $wrkserver
+ else
+ root remsh $wrkserver
+ fi
+ fi
+done
--- /dev/null
+#!/bin/bash
+################################################################################
+#
+# File: cygwin_setup
+# Description: This script will perform additional setup to configure the
+# local machine into the cygwin enviornment for Salira
+# Author: Andrew@DeFaria.com
+# Created: Fri Oct 5 15:30:16 2001
+# Modified:
+# Language: Bash Shell
+#
+# (c) Copyright 2001, Andrew@DeFaria.com, all rights reserved
+#
+################################################################################
+# Set me to command name
+me=$(basename $0)
+
+# Global variables
+commonserver=sonscentral
+commonarea=common
+adm=//$commonserver/$commonarea/adm
+homeserver=sonscentral
+homeshare=users
+ccserver=sons-clearcase
+anonymous_ftp_server=sons-clearcase
+viewshare=views
+printerserver=sons-mrp
+printers="\
+ LJ4050PCL6\
+ LJ45500-Color\
+ LJ8150\
+"
+defaultprinter=LJ8150
+
+# Current machine's OS.
+OS=$(uname -s | cut -f2 -d-)
+
+# Current machine's hostname
+hostname=$(echo $(hostname) | tr [:upper:] [:lower:])
+
+# Setup standard mounts
+#
+# Home directory
+echo "Step 1 of 10: Setting up /home mount point"
+mount -tsf //$homeserver/$homeshare /home
+
+# Clearcase views
+echo "Step 2 of 10: Setting up /view mount point"
+if [ $hostname = $ccserver ]; then
+ mount -tsf C:/ClearCaseStorage/Views /view
+else
+ mount -tsf //$ccserver/$viewshare /view
+fi
+
+# Set cygdrive prefix to /dev
+echo "Step 3 of 10: Setting cygdrive-prefix to /dev"
+mount -s --change-cygdrive-prefix /dev
+
+# Remove user level cygdrive-prefix (Need to do this with regedit
+regedit /s \\\\$commonserver\\$commonarea\\FixCygwin.reg
+
+# Link passwd file
+echo "Step 4 of 10: Create common password file"
+if [ ! -f /etc/passwd.local ]; then
+ if [ ! -L /etc/passwd ]; then
+ cp /etc/passwd /etc/passwd.local
+ fi
+fi
+
+if [ ! -L /etc/passwd ]; then
+ if [ "$OS" != "4.0" ]; then
+ rm /etc/passwd
+ ln -s //$commonserver/$commonarea/passwd /etc/passwd
+ else
+ cp //$commonserver/$commonarea/passwd /etc/passwd
+ fi
+else
+ if [ "$OS" = "4.0" ]; then
+ # Fix up NT 4.0 machines (they don't like symlinked /etc/passwd files!)
+ rm /etc/passwd
+ cp //$commonserver/$commonarea/passwd /etc/passwd
+ fi
+fi
+
+# Link group file
+echo "Step 5 of 10: Create common group file"
+if [ ! -f /etc/group.local ]; then
+ if [ ! -L /etc/group ]; then
+ cp /etc/group /etc/group.local
+ fi
+fi
+
+if [ ! -L /etc/group ]; then
+ rm /etc/group
+ ln -s //$commonserver/$commonarea/group /etc/group
+fi
+
+# Link /etc/profile
+echo "Step 6 of 10: Linking /etc/profile to common profile file"
+if [ ! -f /etc/profile.orig ]; then
+ if [ ! -L /etc/profile ]; then
+ cp /etc/profile /etc/profile.orig
+ fi
+fi
+
+if [ ! -L /etc/profile ]; then
+ rm /etc/profile
+ ln -s //$commonserver/$commonarea/profile /etc/profile
+fi
+
+# Setup printer mount
+echo "Step 7 of 10: Setting up printers"
+for printer in $printers; do
+ mount -bsf //$printerserver/$printer /dev/$printer
+done
+
+# Mount default printer
+mount -bsf //$printerserver/$defaultprinter /dev/lp
+
+# Install internet services
+echo "Step 8 of 10: Installing internet services"
+
+# First save any pre-existing /etc/motd
+if [ -f /etc/motd ]; then
+ cp /etc/motd /etc/motd.$$
+fi
+
+rm -f /etc/ftpusers /etc/ftpwelcome /etc/inetd.conf /etc/motd /etc/shells
+iu-config > /dev/null
+
+# In order to allow anonymous ftp access we need to clear /etc/ftpusers.
+# Do this only for the $anonymous_ftp_server for now
+if [ $hostname = $anonymous_ftp_server ]; then
+ cat /dev/null > /etc/ftpusers
+fi
+
+# Now replace that saved /etc/motd if it existed, otherwise remove the boring
+# /etc/motd that iu-config creates. First check to see if the user has a
+# personalized /etc/motd in /etc/motd.save
+if [ -f /etc/motd.save ]; then
+ # User had a personalized motd so move it into place and remove any prior
+ # copies
+ mv /etc/motd.save /etc/motd
+ rm -f /etc/motd.$$
+elif [ -f /etc/motd.$$ ]; then
+ # Reinstall previous motd
+ # First update uname -a line
+ uname -a > /etc/motd
+
+ # Remove old uname -a line if present
+ grep -ve "^cygwin" /etc/motd.$$ >> /etc/motd.$$
+
+ # Cleanup
+ rm -f /etc/motd.$$
+else
+ # No saved motd or previous motd. Remove /etc/motd which will cause us
+ # to prompt for the information later.
+ rm /etc/motd
+fi
+
+# Need to hardlink /usr/bin/cygwin1.dll & /usr/sbin/cygwin1.dll
+# 12/17/2001: Stopped hardlinking cygwin1.dll. Enforcing having Windows system
+# environment variables instead. For this we need Cygwin's bin in the path.
+# User should also set CYGWIN=ntsec in a Windows system environment variable.
+if [ -f /usr/sbin/cygwin1.dll ]; then
+ rm -f /usr/sbin/cygwin1.dll
+ #ln /usr/bin/cygwin1.dll /usr/sbin/cygwin1.dll
+ echo "Warning: Please make sure that you have a Windows *SYSTEM* environment"
+ echo " variable named CYGWIN set to the value of \"ntsec\" and that"
+ echo " you have <Cygwin>\bin inserted into the Windows *SYSTEM*"
+ echo " environment variable named PATH"
+fi
+
+# Set up anonymous ftp iff we are on the $anonymous_ftp_server
+if [ $hostname = $anonymous_ftp_server ]; then
+ # Toggle on write access to ~ftp/bin
+ chmod +w ~ftp/bin
+
+ # Remove old copies of ls and cygwin1.dll
+ rm -f ~ftp/bin/ls.exe
+ rm -f ~ftp/bin/cygwin1.dll
+
+ # Install new copies (Note hardlinks will not work here since ~ftp/bin is
+ # on another file system. Doing an ln simply does a copy anyway)
+ # 12/17/2001: Skipping copying of cygwin1.dll as noted above
+ cp /bin/cygwin1.dll ~ftp/bin/cygwin1.dll
+ cp /bin/ls.exe ~ftp/bin/ls.exe
+
+ # Set security
+ chmod 555 ~ftp/bin/cygwin1.dll
+ chmod 111 ~ftp/bin/ls.exe
+ chown Administrator ~ftp/bin/cygwin1.dll
+ chown Administrator ~ftp/bin/ls.exe
+ chmod -w ~ftp/bin
+fi
+
+# Install inetd as a service
+/usr/sbin/inetd --install-as-service
+
+# Start inetd service
+inetd_started=$(net start | grep -i inetd)
+
+if [ -z "$inetd_started" ]; then
+ net start inetd
+fi
+
+# Setup SMTP
+$adm/bin/setup_ssmtp
+
+# Setup cron
+$adm/bin/setup_cron
+
+# Create /etc/motd
+echo "Step 9 of 10: Gathering machine specific information"
+if [ ! -f /etc/motd ]; then
+ $adm/bin/make_motd
+ made_motd=true
+else
+ echo "Skipped: Machine info already gathered"
+fi
+
+# Fixup /etc/ftpwelcome
+host=$(hostname | tr [:upper:] [:lower:])
+echo "Welcome to $host's ftp service" > /etc/ftpwelcome
+
+# Update machines file
+echo "Step 10 of 10: Registering this machine (This takes a few seconds)"
+if [ ! -z "$made_motd" ]; then
+ $adm/bin/update_machine_info
+else
+ echo "Skipped: Machine already registered"
+fi
+
+# Sneaky other fixes...
+# Link /bin/more.exe -> /bin/less.exe
+if [ ! -L /bin/more.exe ]; then
+ ln -s /bin/less.exe /bin/more.exe
+fi
+
+# Finished
+echo "Done"
--- /dev/null
+#!/bin/ksh
+################################################################################
+#
+# File: daily
+# Description: This is the daily cronjob for root
+# Author: Andrew@DeFaria.com
+# Created: Wed Jul 21 12:12:28 PDT 1999
+# Modified:
+# Language: Korn Shell
+#
+# (c) Copyright 2001, Andrew@DeFaria.com, all rights reserved
+#
+################################################################################
+me=$(basename $0)
+
+# Set adm_base
+adm_base=${adm_base:-$HOME/adm}
+
+# Set adm_fpath
+adm_fpath=${adm_fpath:-$adm_base/functions}
+
+# Source functions
+. $adm_fpath/common
+
+# Add $adm_base/bin and $adm_base/clearcase PATH
+export PATH=$adm_base/bin:$adm_base/clearcase:$PATH
+
+# Source in tmpfiles function
+tmpprefix=${TMPDIR:-/tmp}/$me.$$
+tmpfile=$tmpprefix
+. $adm_fpath/tmpfiles
+arm_trap
+
+# Where logs are kept
+logs=$adm_host/logs
+
+# Define admin_host. Admin_host is the machine where checks for the network
+# as a whole are run (such as check_view_storage)
+admin_host=dreamcicle # For now...
+
+verbose=
+debug=
+
+function usage {
+ display "$me [-v|verbose] [-d|debug] [-u|usage] [-n|notify <email address>]"
+ display " -v|verbose: Turns on verbose mode"
+ display " -d|debug: Turns on debug mode"
+ display " -u|usage: Print this usage message\n"
+ display " -n|notify: Who to notify of problems (default root)"
+
+ error "$1" 1
+} # usage
+
+lab_admin=cdsadmin # For now
+local_admin=cdsadmin
+
+function notify {
+ debug "ENTER notify"
+ who=$1
+ logfile=$2
+
+ cat > $tmpfile <<END
+Notice: $me cronjob discovered the following problems:
+
+END
+
+ cat $logfile >> $tmpfile
+
+ mailx -s "Notice: $me cronjob discovered the following problems" $who <
+$tmpfile
+ debug "EXIT notify"
+} # notify
+
+# Get parameters
+while [ $# -ge 1 ]; do
+ case "$1" in
+ -usage)
+ usage
+ ;;
+
+ -v|-verbose)
+ verbose=yes
+ ;;
+
+ -d|-debug)
+ debug=yes
+ ;;
+
+ -n|-notify)
+ shift
+ if [ $# -lt 1 ]; then
+ error "Notify email address was unspecified!" 1
+ fi
+ local_admin="$1"
+ ;;
+
+ *)
+ usage "Unrecognized parameter $1"
+ ;;
+ esac
+ shift
+done
+
+## Main
+# Some common portions of log filenames:
+host=$(uname -n) # System's name
+date=$(date +%d) # Note we keep one month of rolling logs
+
+if [ "$host" = "$admin_host" ]; then
+ network_diskspace_log=$logs/network.diskspace.$date.log
+ verbose "Diskspace Report -> $network_diskspace_log"
+ diskspace -network > $network_diskspace_log 2>&1
+
+ if [ -s $network_diskspace_log ]; then
+ notify $lab_admin $network_diskspace_log
+ fi
+
+ view_storage_log=$logs/viewstorage.$date.log
+ verbose "View Storage Report -> $view_storage_log"
+ check_view_storage > $view_storage_log 2>&1
+
+ if [ -s $view_storage_log ]; then
+ notify $lab_admin $view_storage_log
+ fi
+
+ # Produce a viewspace report for all production view servers
+ viewservers="cds-sundev-rem canon"
+
+ for viewserver in $viewservers; do
+ viewspace_log=$logs/$viewserver.viewspace.$date.log
+ verbose "Viewspace Report for $viewserver -> $viewspace_log"
+ viewspace -host $viewserver > $viewspace_log
+ done
+fi
+
+# Checks run on all machines
+local_diskspace_log=$logs/$host.diskspace.$date.log
+verbose "Diskspace Report -> $local_diskspace_log"
+diskspace -local > $local_diskspace_log 2>&1
+
+if [ -s $local_diskspace_log ]; then
+ notify local_admin $local_diskspace_log
+fi
+
+machine_configuration_log=$logs/$host.machine_configuration.$date.log
+verbose "Machine Configuration Report -> $machine_configuration_log" 2>&1 &
+configure_machine -f > $machine_configuraton_log 2>&1
+
+if [ -s $machine_configuration_log ]; then
+ notify local_admin $machine_configuration_log
+fi
--- /dev/null
+#!/usr/bin/bash
+################################################################################
+#
+# File: packet2vob
+# RCS: $Header: packet2vob,v 1.1 97/04/23 13:11:08 defaria Exp $
+# Description: A script to display what vob the packet is for
+# Author: Andrew DeFaria, California Language Labs
+# Created: Fri Feb 28 07:53:14 PST 1997
+# Modified:
+# Language: Korn Shell
+# Package: N/A
+# Status: Experimental (Do Not Distribute)
+#
+# (c) Copyright 1995, Hewlett-Packard Company, all rights reserved.
+#
+################################################################################
+alias ct=/usr/atria/bin/cleartool
+alias mt=/usr/atria/bin/multitool
+
+if [ $# -eq 1 ]; then
+ packets="*"
+else
+ packets="$@"
+fi
+
+if [ ! -f $RGY/vob_object ]; then
+ print -u2 "Unable to to interogate the registry ($RGY/vob_object)"
+ exit 1
+fi
+
+for packet in $packets; do
+ familyid=$(mt lspacket $packet 2> /dev/null | grep "family" | awk '{print $5}')
+ uuid=$(grep $familyid $RGY/vob_object | cut -f4 -d';' | cut -c14-)
+ vob=$(ct lsvob -long -uuid $uuid | grep "Tag:" | awk '{print $2}')
+ host=$(ct lsvob -long -uuid $uuid | grep "Server host:" | awk '{print $3}')
+ print "$packet $host:$vob"
+done
--- /dev/null
+#!/bin/ksh
+################################################################################
+#
+# File: pingnet
+# RCS: $Header: pingnet,v 1.3 98/03/04 00:42:49 defaria Exp $
+# Description: A script to ping all machines and report status. This script
+# uses /etc/hosts and selects only machines in the IP range of
+# 15.0.96.x to 15.0.99.x.
+# Author: Andrew DeFaria <Andrew@DeFaria.com>
+# Created: Sat Oct 26 10:04:28 PDT 1996
+# Modified: Sat Oct 26 12:05:26 PDT 1996 Andrew DeFaria <defaria@cup.hp.com>
+# Parameters: count (default 2): number of times to ping a machine before
+# considering it not responding.
+# Language: Korn Shell
+#
+# (c) Copyright 2001, Andrew@DeFaria.com, all rights reserved
+#
+################################################################################
+me=$(basename $0)
+
+function usage {
+ print "$me: Usage: $me { count }"
+ print "\twhere count = number of times to ping a machine before
+considering"
+ print "\tthe machine to be not responding (default count = 2)."
+ exit 1
+} # usage
+
+os=
+
+function get_os {
+ machine=$1
+ # Attempt to determine the OS. First attempt to remsh to the machine and
+ # do a uname(1). This assumes Unix. We are unable to remsh then we'll
+ # assume that it's a PC (it could also be a line printer or any other of
+ # a number of network pingable devices!)
+ os=$(remsh $machine -n uname 2>&1)
+
+ # We're gonna make some guesses here...
+ if [[ "$os" = "HP-UX" ||
+ "$os" = "Linux" ]]; then
+ : Do nothing!
+ elif [[ "$os" = *Lost\ connection ]]; then
+ os="Linux? (Lost connection)"
+ elif [[ "$os" = *Permission\ denied. ]]; then
+ os="Linux? (Permission denied)"
+ elif [[ "$os" = *Login\ incorrect ]]; then
+ os="HP-UX? (Login incorrect)"
+ elif [[ "$os" = *Connection\ refused ]]; then
+ os="NT? (Connection refused)"
+ else
+ os="Unknown: $os"
+ fi
+} # get_os
+
+integer count=2
+
+if [ $# -eq 1 ]; then
+ count=$1
+elif [ $# -gt 1 ]; then
+ usage
+fi
+
+esc=$(print "\033")
+
+if [ "$TERM" = "dtterm" -o -z DTTERM ]; then
+ export normal="$esc[39m"
+ export red="$esc[31m"
+ export green="$esc[32m"
+elif [ "$TERM" = "hp" -o "$TERM" = "hpterm" ]; then
+ export normal="$esc&d@$esc&v0S"
+ export red="$esc&v1S"
+ export green="$esc&v2S"
+fi
+
+# Print heading
+print " Machine\t\t IP\tState\t OS"
+print - "-----------------------\t-------------\t-----\t-------"
+
+subnet=${subnet:-15.28}
+integer starting_subnet_octect=${starting_subnet_octect:-96}
+integer ending_subnet_octect=${ending_subnet_octect:-103}
+integer subnet_octect=starting_subnet_octect
+integer starting_octect=${starting_octect:-0}
+integer ending_octect=${ending_octect:-255}
+integer octect=$starting_octect
+
+while [ $subnet_octect -le $ending_subnet_octect ]; do
+ while [ $octect -le $ending_octect ]; do
+ ip=$subnet.$subnet_octect.$octect
+ machine=$ip
+ nslookup $ip 2>&1 | grep Non-exist > /dev/null 2>&1
+ if [ $? -ne 0 ]; then
+ machine=$(nslookup $ip | grep Name: | awk '{print $2}' | cut -f1 -d.)
+ fi
+ print "$machine\t\c"
+ if [ ${#machine} -lt 8 ]; then
+ print "\t\t\c"
+ elif [ ${#machine} -lt 16 ]; then
+ print "\t\c"
+ fi
+ print "$ip\t\c"
+ ping_result=$(ping $ip -n $count | tail -1 | grep "100% packet loss")
+ if [ -z "$ping_result" -eq 0 ]; then
+ print "${green}UP${normal}\t\c"
+ get_os $machine
+ print "$os"
+ else
+ print "${red}DOWN${normal}\tUnknown"
+ fi
+ let octect=octect+1
+ done
+ let subnet_octect=subnet_octect+1
+ let octect=starting_octect
+done
--- /dev/null
+#!/bin/ksh
+################################################################################
+#
+# File: roll_logs
+# Description: Rolls log files
+# Author: Andrew@DeFaria.com
+# Created: Thu Dec 9 10:05:09 PST 1999
+# Modified:
+# Language: Korn Shell
+#
+# (c) Copyright 2001, Andrew@DeFaria.com, all rights reserved
+#
+################################################################################
+# Set me to command name
+me=$(basename $0)
+
+# Set adm_base
+adm_base=${adm_base:-$HOME/adm}
+
+# Set adm_fpath
+adm_fpath=${adm_fpath:-$adm_base/functions}
+
+# Source functions
+. $adm_fpath/common
+. $adm_fpath/logs
+
+function usage {
+ if [ "_$1" != "_" ]; then
+ display "$1"
+ display
+ fi
+ display "Usage: $me -[da|aily] | -[w|eekly]"
+ exit 1
+} # usage
+
+# Check for execution by root
+if is_not_root; then
+ error "This script must be run as root" 1
+fi
+
+type=
+while [ $# -ge 1 ]; do
+ case "$1" in
+ -usage)
+ usage
+ ;;
+
+ -v|-verbose)
+ verbose=yes
+ ;;
+
+ -d|-debug)
+ debug=yes
+ ;;
+
+ -da|-daily)
+ type=daily
+ ;;
+
+ -w|-weekly)
+ type=weekly
+ ;;
+
+ *)
+ usage "Unrecognized parameter $1"
+ ;;
+ esac
+ shift
+done
+
+if [ "_$type" = "_" ]; then
+ usage "Must specify -daily or -weekly"
+fi
+
+#Directory logfile backuplog what
+dailylogs="\
+/var/adm automount.log autolog.week automount\n\
+/var/adm nettl.LOG00 nettl.week nettracelog\n\
+/var/adm ninstall.log nlog.week ninstall\n\
+/var/adm ptydaemonlog ptylog.week ptydaemon\n\
+/var/adm rpc.lockd.log rpc.lockd.week rpc.lockd\n\
+/var/adm rpc.statd.log rpc.statd.week rpc.statd\n\
+/var/adm vtdaemonlog vtlog.week vtdaemon\n\
+/var/adm/cron log log.week cron\n\
+/var/adm/lp log log.week lp\n\
+/var/adm/syslog syslog.log syslog.week syslogd"
+
+weeklylogs="\
+/var/adm autolog.week autolog.oldweek automount\n\
+/var/adm nettl.week nettl.oldweek nettracelog\n\
+/var/adm nlog.week nlog.oldweek ninstall\n\
+/var/adm ptylog.week ptylog.oldweek ptydaemon\n\
+/var/adm rpc.lockd.week rpc.lockd.oldweek rpc.lockd\n\
+/var/adm rpc.statd.week rpc.statd.oldweek rpc.statd\n\
+/var/adm vtlog.week vtlog.oldweek vtdaemon\n\
+/var/adm/cron log.week log.oldweek cron\n\
+/var/adm/lp log.week log.oldweek lp\n\
+/var/adm/syslog syslog.week syslog.oldweek syslogd"
+
+if [ "$type" = "daily" ]; then
+ verbose "Daily roll_logs"
+ logfiles="$dailylogs"
+else
+ verbose "Weekly roll_logs"
+ logfiles="$weeklylogs"
+fi
+
+print "$logfiles" | while read dir logfile backup_logfile what; do
+ verbose "Rolling ($what) logfile $logfile -> $backup_logfile..."
+ if [ "$type" = "weekly" ]; then
+ # Clear out oldweek file first
+ rm -f $backup_logfile
+ fi
+ roll_log $dir $logfile $backup_logfile $what
+done
--- /dev/null
+#!/bin/bash
+################################################################################
+#
+# File: setup_cron
+# Description: This script sets up Cygwin's cron on the local machine
+# Author: Andrew@DeFaria.com
+# Created: <date>
+# Language: Bash Shell
+# Modifications:<modifications>
+#
+# (c) Copyright 2002, Andrew@DeFaria.com, all rights reserved
+#
+################################################################################
+me=$(basename $0)
+# Make sure that certain directories and files do not exist! This is to let
+# cron create them, which appears to be the only way to get these created
+# correctly!
+if [ ! -d /var/cron ]; then
+ rm -rf /var/cron
+ rm -rf /var/run/cron.pid
+ rm -rf /var/log/cron.log
+
+ # Install cron service:
+ cygrunsrv -I cron -p /usr/sbin/cron -a -D -d "Cygwin cron" -e "MAILTO=$USER@Salira.com" -e "CYGWIN=ntsec"
+fi
+
+# Start cron service
+cygrunsrv -S cron
--- /dev/null
+#!/bin/bash
+################################################################################
+#
+# File: setup_ssmtp
+# Description: This script sets up ssmtp mail configuration
+# Author: Andrew@DeFaria.com
+# Created: Wed Jan 9 12:57:13 2002
+# Language: Bash Shell
+# Modifications:<modifications>
+#
+# (c) Copyright 2002, Andrew@DeFaria.com, all rights reserved
+#
+################################################################################
+# Setup /etc/ssmtp config directory
+ssmtp_dir=/etc/ssmtp
+domain=${domain:-defaria.com}
+mail_server=10.1.1.101
+
+mkdir -p $ssmtp_dir
+chmod 700 $ssmtp_dir
+
+# Make some simple aliases. Alias $USER to the proper email address and then
+# alias root, Administrator and postmaster to the user's address thus making
+# the user "god" of smtp on this machine only.
+cat > $ssmtp_dir/revaliases <<EOF
+# sSMTP aliases
+#
+# Format: local_account:outgoing_address:mailhub
+#
+# Example: root:your_login@your.domain:mailhub.your.domain:[port]
+# where [port] is an optional port number that defaults to 25.
+$USER:$USER@$domain:$mail_server:25
+root:$USER@$domain:$mail_server:25
+Administrator:$USER@$domain:$mail_server:25
+postmaster:$USER@$domain:$mail_server:25
+EOF
+
+# Get a downshifted hostname
+hostname=$(hostname | tr '[:upper:]' '[:lower:]')
+
+# Make ssmtp.conf
+cat > $ssmtp_dir/ssmtp.conf <<EOF
+# ssmtp.conf: Config file for Cygwin's sstmp sendmail
+#
+# The person who gets all mail for userids < 10
+root=postmaster
+# The place where the mail goes. The actual machine name is required
+# no MX records are consulted. Commonly mailhosts are named mail.domain.com
+# The example will fit if you are in domain.com and you mailhub is so named.
+mailhub=$mail_server
+# Where will the mail seem to come from?
+#rewriteDomain=$USER.$domain
+# The full hostname
+hostname=$hostname.$domain
+# Set this to never rewrite the "From:" line (unless not given) and to
+# use that address in the "from line" of the envelope.
+#FromLineOverride=YES
+EOF
--- /dev/null
+#!/usr/bin/perl
+################################################################################
+#
+# File: ecrc: ECR client
+# Description: This script is a test client for ecrd.
+# Author: Andrew@DeFaria.com
+# Created: Tue Feb 15 11:01:24 PST 2005
+# Modified:
+# Language: Perl
+#
+# (c) Copyright 2005, LynuxWorks, all rights reserved.
+#
+################################################################################
+use strict;
+use warnings;
+use File::Spec;
+
+my ($me, $abs_path, $lib_path, $bin_path, $log_path);
+
+BEGIN {
+ # Extract relative path and basename from script name.
+ $0 =~ /(.*)[\/\\](.*)/;
+
+ $abs_path = (!defined $1) ? "." : File::Spec->rel2abs ($1);
+ $me = (!defined $2) ? $0 : $2;
+ $me =~ s/\.pl$//;
+
+ # Setup paths
+ $bin_path = "$abs_path";
+ $lib_path = "$abs_path/../lib";
+ $log_path = "$abs_path/../log";
+
+ # Add the appropriate path to our modules to @INC array.
+ unshift (@INC, "$lib_path");
+} # BEGIN
+
+use ecrc;
+
+# Global variables
+my $servername = (!defined $ENV {ECRDSERVER}) ? "lynx12" : $ENV {ECRDSERVER};
+my $port = (!defined $ENV {ECRDPORT}) ? 1500 : $ENV {ECRDPORT};
+my $ecr = "";
+my @query_fields = ();
+my $verbose;
+my $debug;
+my $key;
+my $value;
+my %fields;
+my @ecrs;
+
+sub Usage {
+ my $msg = shift;
+
+ print "ERROR: $msg\n\n" if defined $msg;
+
+ print "Usage: ecrc [-u] [-v] [-d] [ -s <server> ] [ -p <port> ] ";
+ print "ECR [ fieldname... ]\n";
+ print "\nWhere:\n\n";
+ print "\t-u:\t\tDisplay usage\n";
+ print "\t-v:\t\tTurn on verbose mode (Default off)\n";
+ print "\t-d:\t\tTurn on debug mode (Default off)\n";
+ print "\t-s:\t\tUse server named servername (Default lynx12)\n";
+ print "\t-s:\t\tUse port (Default 1500)\n";
+ print "\tECR:\t\tECR number to obtain info about\n";
+ print "\tfieldname:\tECR field names to retrieve info about (Default all)\n";
+
+ exit 1;
+} # Usage
+
+sub GetParms {
+ while ($ARGV [0]) {
+ if ($ARGV [0] eq "-v") {
+ $verbose = 1;
+ ecrc::set_verbose;
+ } elsif ($ARGV [0] eq "-d") {
+ $debug = 1;
+ ecrc::set_debug;
+ } elsif ($ARGV [0] eq "-u") {
+ Usage;
+ } elsif ($ARGV [0] eq "-p") {
+ shift @ARGV;
+ Usage "Port not specified" if !$ARGV [0];
+ $port = shift @ARGV;
+ } elsif ($ARGV [0] eq "-s") {
+ shift @ARGV;
+ Usage "Server name not specified" if !$ARGV [0];
+ $servername = shift @ARGV;
+ } else {
+ $ecr = shift (@ARGV);
+ last;
+ } # if
+ shift @ARGV;
+ } # while
+
+ @query_fields = @ARGV;
+
+ # Downshift any query_fields
+ my $i = 0;
+
+ foreach (@query_fields) {
+ $query_fields [$i++] = lc $_;
+ } # foreach
+} # GetParms
+
+# Main code
+GetParms;
+
+die "Unable to connect to $servername:$port\n" if !ecrc::Connect ($servername, $port);
+
+if ($ecr) {
+ if ($ecr eq "\*") {
+ @ecrs = ecrc::GetECRRecord $ecr;
+
+ foreach (@ecrs) {
+ print "$_\n";
+ } # foreach
+
+ exit;
+ } # if
+
+ %fields = ecrc::GetECRRecord ($ecr);
+
+ if (!%fields) {
+ print "ECR $ecr was not found\n";
+ } else {
+ if (@query_fields) {
+ foreach (@query_fields) {
+ if (@query_fields > 1) {
+ if (defined $fields{$_}) {
+ print "$_: $fields{$_}\n";
+ } else {
+ print "$_: <FIELD NOT FOUND>\n";
+ } # if
+ } else {
+ if (defined $fields{$_}) {
+ print "$fields{$_}\n";
+ } else {
+ print "$_: <FIELD NOT FOUND>\n";
+ } # if
+ } # if
+ } # foreach
+ } else {
+ while (($key, $value) = each (%fields)) {
+ print "$key: $value\n";
+ } # while
+ } # if
+ } # if
+} else {
+ print "Enter ECR:";
+
+ while (my $command = <STDIN>) {
+ chomp $command;
+ last if $command =~ m/exit|quit/i;
+
+ $ecr = $command;
+
+ if ($ecr eq "\*") {
+ my @ecrs = ecrc::GetECRRecord $ecr;
+
+ foreach (@ecrs) {
+ print "$_\n";
+ } # foreach
+ } else {
+ %fields = ecrc::GetECRRecord $ecr;
+
+ if (!%fields) {
+ print "ECR $ecr was not found\n";
+ } else {
+ while (($key, $value) = each (%fields)) {
+ print "$key: $value\n";
+ } # while
+ } # if
+ } # if
+
+ print "Enter ECR:";
+ } # while
+} # if
--- /dev/null
+#!/usr/bin/perl
+################################################################################
+#
+# File: ecrd: ECR Daemon
+# Description: This script implements a daemon that handles requests for
+# queries about information on ECRs contained in the Quintus
+# database. In addition to lessoning the amount of time it takes
+# for database opens, access to Quintus data is only available
+# on certain machines. Additionally, for Perl to access this
+# Informix database the Informix version of DBD would need to be
+# locally installed. By calling this daemon instead clients need
+# not have to install Informix and then code all the necessary
+# code to access Quintus data as well as have to understand the
+# structure of the database. Instead clients need only say "Give
+# me what you got on ECR #<whatever>".
+# Author: Andrew@DeFaria.com
+# Created: Tue Feb 15 09:54:59 PST 2005
+# Modified:
+# Language: Perl
+#
+# (c) Copyright 2005, LynuxWorks, all rights reserved.
+#
+################################################################################
+use strict;
+use warnings;
+
+use IO::Socket;
+use Net::hostent;
+use POSIX qw(setsid);
+use DBI;
+
+my $ecrdb = "lynxmigr1";
+my $port = (!defined $ENV {ECRDPORT}) ? 1500 : $ENV {ECRDPORT};
+
+# Global variables
+my $DB;
+my $ecrserver;
+my $ecrclient;
+my $sth;
+my $statement;
+
+# Options
+my $verbose;
+my $debug;
+my $daemon_mode;
+my $quiet_mode;
+my $multithreaded;
+my $timeout = 10;
+
+# ECR translations. Note the Quintus database stores certain choice lists as
+# enumerations. They I guess they are configurable. The right thing to do
+# would be to figure out how to look up the definition given the number. But
+# we are gonna cheat here and hard code a few important enumerations.
+my @defstatus = (
+ "Open",
+ "Closed",
+ "Fixed",
+ "Not a bug",
+ "Obsolete",
+ "Defered",
+ "Duplicate"
+);
+my @state = (
+ "Reported",
+ "Assigned",
+ "Selected",
+ "Resolved",
+ "Integrated",
+ "Retired",
+ "Reviewed",
+ "Pending Review"
+);
+my @priority = (
+ "Low",
+ "Medium",
+ "High",
+ "Critical"
+);
+my @severity = (
+ "Low",
+ "Medium",
+ "High",
+ "Critical"
+);
+
+# Pid
+my $pid = $$;
+
+my $me = `basename $0`;
+chomp $me;
+my $ecrdversion = "1.3";
+
+my @all_fields = (
+ "productdefect", # integer
+ "componentdefect", # integer
+ "defectdefectdup", # integer
+ "workgroupdefect", # integer
+ "reporterdefect", # integer
+ "resolverdefect", # integer
+ "confirmerdefect", # integer
+ "buildversdefect", # integer
+ "rpt_versdefect", # integer
+ "res_versdefect", # integer
+ "conf_versdefect", # integer
+ "state", # integer
+ "resolverstatus", # integer
+ "confirmerstatus", # integer
+ "escstatus", # integer
+ "owner", # integer
+ "severity", # integer
+ "priority", # integer
+ "summary", # varchar(80,0)
+ "datereported", # datetime year to second
+ "dateresolved", # datetime year to second
+# "description", # text
+# Note: Some descriptions fields are huge containing things like
+# uuencoded tar files! They are so huge that they cause this server
+# to fail (not sure why - it shouldn't but it does. So this hack
+# returns only the first 50K of description to avoid that problem.
+ "description [1,50000]", # text
+ "cclist", # varchar(80,0)
+ "dateconfirmed", # datetime year to second
+ "datemodified", # datetime year to second
+ "fix_by_date", # date
+ "fix_by_version", # integer
+ "history", # text
+ "likelihood", # integer
+ "estfixtime", # datetime year to second
+ "actfixtime", # datetime year to second
+ "resolution", # text
+ "businessimpact", # integer
+ "origin", # integer
+ "docimpact", # integer
+ "report_platform", # integer
+ "resolve_platform", # integer
+ "confirm_platform", # integer
+ "test_file", # varchar(64,0)
+ "visibility", # integer
+ "misc", # varchar(80,0)
+ "defecttype", # integer
+ "defstatus", # integer
+ "customertext", # text
+ "modifiedby", # varchar(20,0)
+ "classification", # integer
+ "datefixed" # datetime year to second
+);
+
+# Forwards
+sub CloseDB;
+sub GetRequest;
+
+sub timestamp {
+ my ($sec, $min, $hour, $mday, $mon, $year, $wday, $yday, $isdst) = localtime(time);
+
+ $mday = "0$mday" if $mday < 10;
+ $mon = "0$mon" if $mon < 10;
+ $hour = "0$hour" if $hour < 10;
+ $min = "0$min" if $min < 10;
+ $year += 1900;
+
+ return "$mon/$mday/$year $hour:$min";
+} # timestamp
+
+sub log_message {
+ print "[$pid] " . timestamp . " @_\n" if defined $verbose;
+} # log_message
+
+sub log_error {
+ print STDERR "[$pid] " . timestamp . " ERROR: @_\n"
+} # log_error
+
+sub log_warning {
+ print STDERR "[$pid] " . timestamp . " WARNING: @_\n"
+} # log_error
+
+sub debug {
+ print "[$pid] " . timestamp . " @_\n" if defined $debug;
+} # debug
+
+sub verbose {
+ print "[$pid] " . timestamp . " @_\n" if !defined $quiet_mode;
+} # verbose
+
+sub DBError {
+ my $msg = shift;
+ my $statement = shift;
+
+ if (!defined $DB) {
+ print "Catostrophic error: DB undefined!\n";
+ exit 1;
+ } # if
+
+ print $msg . "\nError #" . $DB->err . " " . $DB->errstr . "\n";
+ print "SQL Statement: $statement\n" if defined $statement;
+
+ exit $DB->err;
+} # DBError
+
+sub timeout {
+ debug "After $timeout seconds of inactivity client timed out";
+
+ my $hostinfo = gethostbyaddr ($ecrclient->peeraddr);
+ my $host = $hostinfo->name || $ecrclient->peerhost;
+ debug "Closing connection to $host";
+
+ # Close client's connection
+ close $ecrclient;
+
+ # Set up signal handlers again
+ $SIG{ALRM} = \&timeout;
+ $SIG{INT} = $SIG{QUIT} = 23234
+\&interrupt;
+ GetRequest;
+} # timeout
+
+sub interrupt {
+ log_warning "Interrupted - closing down...";
+ close $ecrserver;
+ verbose "Connection closed";
+ CloseDB;
+
+ exit;
+} # interrupt
+
+sub GetClientAck {
+ my $client = shift;
+ my $clientresp;
+
+ debug "ENTER: GetClientAck";
+ alarm $timeout;
+ while (defined $client and defined ($clientresp = <$client>)) {
+ chomp $clientresp;
+ chop $clientresp if $clientresp =~ /\r/;
+ if ($clientresp eq "ACK") {
+ return
+ } # if
+ log_warning "Received $clientresp from client - expected ACK";
+ } # while
+ debug "EXIT: GetClientAck";
+} # GetClientAck
+
+sub GetClientCmd {
+ my $client = shift;
+ my $clientresp;
+
+ alarm $timeout;
+ while (defined $client and defined ($clientresp = <$client>)) {
+ chomp $clientresp;
+ return $clientresp;
+ } # while
+} # GetClientResponse
+
+sub SendClientAck {
+ my $client = shift;
+
+ debug "ENTER: SendClientAck";
+ print $client "ACK\n";
+ debug "EXIT: SendClientAck";
+} # SendClientAck
+
+sub SendClientResponse {
+ my $client = shift;
+ my $response = shift;
+
+ print $client "$response\n";
+} # SendClientResponse
+
+sub EnterDaemonMode {
+ my $logfile = shift;
+ my $errorlog = shift;
+
+ $logfile = "/dev/null" if $logfile eq "";
+ $errorlog = "/dev/null" if $errorlog eq "";
+
+ # Change the current directory to /
+ chdir '/'
+ or die "$me: Error: Can't chdir to / ($!)";
+
+ # Turn off umask
+ umask 0;
+
+ # Redirect STDIN to /dev/null
+ open STDIN, '/dev/null'
+ or die "$me: Error: Can't redirect /dev/null ($!)";
+
+ # Redirect STDOUT to logfile
+ open STDOUT, ">>$logfile"
+ or die "$me: Error: Can't redirect stdout to $logfile ($!)";
+
+ # Redirect STDERR to errorlog
+ open STDERR, ">>$errorlog"
+ or die "$me: Error: Can't redirect stderr to $errorlog ($!)";
+
+ # Now fork the daemon
+ defined (my $pid = fork)
+ or die "$me: Error: Can't create daemon ($!)";
+
+ # Now the parent exits
+ exit if $pid;
+
+ # Set process to be session leader
+ setsid
+ or die "$me: Error: Can't start a new session ($!)";
+} # EnterDaemonMode
+
+sub OpenDB {
+ # Connect to database. Note this is using anonymous access (read only)
+ $DB = DBI->connect("DBI:Informix:$ecrdb")
+ or DBError "Unable to open database";
+ log_message "Opened $ecrdb database";
+
+ # Setup our select statement with placeholders
+ $statement = "select ";
+
+ # Build up the field list
+ my $first_time = 1;
+ foreach (@all_fields) {
+ if ($first_time) {
+ $first_time = 0;
+ $statement .= $_;
+ } else {
+ $statement .= ",$_";
+ } # if
+ } # foreach
+
+ # Now add the table and condition
+ $statement .= " from defect where pkey=?";
+
+ $sth = $DB->prepare ($statement)
+ or DBError "Unable to prepare statement", $statement;
+} # OpenDB
+
+sub CloseDB {
+ $DB->disconnect ()
+ or DBError "Unable to disconnect from database!";
+ verbose "Closed $ecrdb database";
+} # CloseDB
+
+sub Usage {
+ my $msg = shift;
+
+ print "$msg\n\n" if defined $msg;
+
+ print "Usage: $me [ -D ] [ -v ] [ -d ] [-p <port>] [ -m ] [ -q ]\n\n";
+ print "Where:\t-D\tEnter Daemon mode\n";
+ print "\t-v\tVerbose mode (Default off)\n";
+ print "\t-d\tDebug mode (Default off)\n";
+ print "\t-p\tPort number to use (Default 1500)\n";
+ print "\t-m\tMultithreaded (Default off)\n";
+ print "\t-q\tQuiet mode (Default on)\n";
+ exit 1;
+} # Usage
+
+sub GetECRRecord {
+ my $ecr = shift;
+
+ if ($ecr =~ /\D/) {
+ log_error "ECR $ecr is not numeric!";
+ return ();
+ } # if
+
+ my %fields;
+ my $record;
+ my $value;
+
+ $sth->execute ($ecr)
+ or DBError "Unable to execute statement", $statement;
+
+ my $row = $sth->fetchrow_arrayref;
+
+ if (!defined $row) {
+ # @row is empty if there was no ECR by that number
+ log_error "ECR $ecr not found!";
+ return ();
+ } # if
+
+ my @rows = @{$row};
+ foreach (@all_fields) {
+ my $value = shift @rows;
+
+ # Transform newlines to "\n" so the field is treated as one large field
+ $value =~ s/\n/\\n/g if defined $value;
+
+ # Perform some choice list field translations. Again this would be
+ # better done by doing database lookups to translate the enums...
+ $value = $defstatus [$value] if /defstatus/ and defined $value;
+ $value = $state [$value] if /state/ and defined $value;
+ $value = $priority [$value] if /priority/ and defined $value;
+ $value = $severity [$value] if /severity/ and defined $value;
+ # Fix description field back
+ if (/^description/) {
+ $_ = "description";
+ } # if
+ $fields {$_} = $value
+ } # foreach
+
+ return %fields;
+} # GetECRRecord
+
+sub ServiceClient {
+ my $ecrclient = shift;
+
+ # Service this client
+ my $hostinfo = gethostbyaddr ($ecrclient->peeraddr);
+ my $host = $hostinfo->name || $ecrclient->peerhost;
+
+ verbose "Connect from $host";
+ log_message "Waiting for command from $host";
+ while () {
+ GetClientAck ($ecrclient);
+ $_ = GetClientCmd ($ecrclient);
+ next unless /\S/; # Skip blank requests
+ last if /quit|exit/i;
+
+ if (/\*/) {
+ log_message "$host requests a list of all ECR #'s";
+ SendClientAck ($ecrclient);
+ ReturnAllECRNbrs ($ecrclient);
+ SendClientAck ($ecrclient);
+ next;
+ } # if
+
+ log_message "$host requests information about ECR $_";
+ SendClientAck ($ecrclient);
+ my %fields = GetECRRecord $_;
+
+ if (%fields) {
+ SendClientResponse ($ecrclient, "ecr: $_");
+ while (my ($key, $value) = each (%fields)) {
+ $value = !defined $value ? "" : $value;
+ SendClientResponse ($ecrclient, "$key: $value");
+ } # while
+ } else {
+ SendClientResponse ($ecrclient, "ECR $_ was not found");
+ } # if
+ SendClientAck ($ecrclient);
+ } # while
+
+ verbose "Closing connection from $host at client's request";
+ close $ecrclient;
+} # ServiceClient
+
+sub Funeral {
+ my $childpid = wait;
+ $SIG{CHLD} = \&Funeral;
+ log_message "Child has died" . ($? ? " with status $?" : "");
+} # Funeral
+
+sub GetRequest {
+ # Now wait for an incoming request
+ while ($ecrclient = $ecrserver->accept ()) {
+ my $hostinfo = gethostbyaddr ($ecrclient->peeraddr);
+ my $host = $hostinfo->name || $ecrclient->peerhost;
+ log_message "$host is requesting service";
+ if (defined ($multithreaded)) {
+ my $childpid;
+
+ log_message "Spawning child to handle request";
+
+ die "$me: ERROR: Can't fork: %!" unless defined ($childpid = fork ());
+
+ if ($childpid) {
+ # In parent - set up for clean up of child process
+ log_message "Parent produced child ($childpid)";
+ $SIG{CHLD} = \&Funeral;
+ log_message "Parent looking for another request to service";
+ } else {
+ # In child process - ServiceClient
+ $pid = $$;
+ debug "Child [$pid] has been born";
+ ServiceClient ($ecrclient);
+ log_message "Child finished servicing requests";
+ kill ("TERM", $$);
+ exit;
+ } # if
+ } else {
+ ServiceClient ($ecrclient);
+ } # if
+ } # while
+
+ close ($ecrserver);
+} # GetRequest
+
+sub ProcessRequests {
+ # The subroutine handles processing of requests by using a socket to
+ # communicate with clients.
+ $ecrserver = IO::Socket::INET->new (
+ Proto => 'tcp',
+ LocalPort => $port,
+ Listen => SOMAXCONN,
+ Reuse => 1
+ );
+
+ die "$me: Error: Could not create socket ($!)\n" unless $ecrserver;
+
+ verbose "ECR DB Server (ecrd V$ecrdversion) accepting clients on port $port";
+
+ GetRequest;
+} # ProcessRequests
+
+sub ReturnAllECRNbrs {
+ my $ecrclient = shift;
+
+ my $statement = "select pkey from defect";
+
+ my $sth = $DB->prepare ($statement)
+ or DBError "Unable to prepare statement", $statement;
+
+ $sth->execute ()
+ or DBError "Unable to execute statement", $statement;
+
+ log_message "Returning all ECR numbers...";
+ while (my @row = $sth->fetchrow_array) {
+ SendClientResponse ($ecrclient, $row [0]);
+ } # while
+
+ log_message "All ECR numbers returned";
+} # ReturnAllECRNbrs
+
+# Start main code
+# Reopen STDOUT.
+open STDOUT, ">-" or die "Unable to reopen STDOUT\n";
+
+# Set unbuffered output
+$| = 1;
+
+while ($ARGV [0]) {
+ if ($ARGV [0] eq "-D") {
+ $daemon_mode = 1;
+ } elsif ($ARGV [0] eq "-v") {
+ $verbose = 1;
+ undef ($quiet_mode);
+ } elsif ($ARGV [0] eq "-d") {
+ $debug = 1;
+ undef ($quiet_mode);
+ } elsif ($ARGV [0] eq "-m") {
+ $multithreaded = 1;
+ } elsif ($ARGV [0] eq "-q") {
+ $quiet_mode = 1;
+ undef ($verbose);
+ } elsif ($ARGV [0] eq "-p") {
+ shift @ARGV;
+ Usage "Must specify a port # after -p" if (!defined $ARGV [0]);
+ $port = $ARGV[0];
+ } else {
+ Usage "Unknown parameter found: " . $ARGV[0];
+ } # if
+
+ shift @ARGV;
+} # while
+
+my $tmp = (!defined $ENV {TMP}) ? "/tmp" : $ENV {TMP};
+my $ecrd_logfile = "$tmp/$me.log";
+my $ecrd_errfile = "$tmp/$me.err";
+
+EnterDaemonMode ($ecrd_logfile, $ecrd_logfile) if defined ($daemon_mode);
+
+OpenDB;
+
+# Set up signal handlers
+$SIG{ALRM} = \&timeout;
+$SIG{INT} = $SIG{QUIT} = \&interrupt;
+
+ProcessRequests;
--- /dev/null
+#!/usr/bin/perl
+################################################################################
+#
+# File: ecrdesc
+# Description: This script will dump out the description for the ECR #(s)
+# passed in.
+# Author: Andrew@DeFaria.com
+# Created: Fri Jan 7 15:35:13 PST 2005
+# Language: Perl
+#
+# (c) Copyright 2005, LynxWorks Inc., all rights reserved
+#
+################################################################################
+use strict;
+use warnings;
+use DBI;
+
+my $DB;
+
+# Called when a database error has occurred
+sub DBError {
+ my $msg = shift;
+ my $statement = shift;
+
+ print $msg . "\nError #" . $DB->err . " " . $DB->errstr . "\n";
+
+ if (defined $statement) {
+ print "SQL Statement: $statement\n";
+ } # if
+
+ exit $DB->err;
+} # DBError
+
+# Connect to database. Note this is using anonymous access (read only)
+$DB = DBI->connect("DBI:Informix:lynxmigr1")
+ or DBError "Unable to open database";
+
+# Loop through ECR #s from the command line
+foreach my $ecr (@ARGV) {
+ print "ECR #: $ecr\n";
+
+ my $statement = "select description from defect where pkey=\"$ecr\"";
+ my $sth = $DB->prepare ($statement)
+ or DBError "Unable to prepare statement", $statement;
+
+ $sth->execute ()
+ or DBError "Unable to execute statement", $statement;
+
+ # Defect records are unique per pkey (AKA ECR) there for there will
+ # only be one entry in @row. Also the description is returned as one
+ # large string.
+ my @row = $sth->fetchrow_array;
+
+ if (!@row) {
+ # @row is empty if there was no ECR by that number
+ print "Nothing found!\n";
+ } else {
+ my $desc = pop @row;
+ print "Description:\n" . "-" x 80 . "\n" . $desc . "\n" . "-" x 80 . "\n";
+ } # if
+} # foreach
+
+$DB->disconnect;
+
+exit;
--- /dev/null
+#!/usr/bin/perl
+################################################################################
+#
+# File: files4cr
+# Description: This script will go through CVS looking for files that have
+# the passed in CR #.
+# Author: Andrew@DeFaria.com
+# Created: Fri Dec 17 12:18:21 PST 2004
+# Language: Perl
+#
+# (c) Copyright 2004, LynxWorks Inc., all rights reserved
+#
+################################################################################
+use warnings;
+use strict;
+
+# Options
+my $verbose = 0;
+my $debug = 0;
+my $execute = 0;
+my $local = "";
+
+my $cr;
+
+sub verbose {
+ my $msg = shift;
+
+ print "$msg\n" if $verbose;
+} # verbose
+
+sub debug {
+ my $msg = shift;
+
+ print "DEBUG: $msg\n" if $debug;
+} # debug
+
+sub Usage {
+ my $msg = shift;
+
+ print "ERROR: $msg\n\n" if defined $msg;
+
+ print "Usage: files4cr [-v] [-d] [-l] [-x] [-u] <cr>\n";
+ print "\nWhere:\n\n";
+ print "\t-v:\t\tTurn on verbose mode (Default: off)\n";
+ print "\t-d:\t\tTurn on debug mode (Default: off)\n";
+ print "\t-l:\t\tLocal directory only, no recursion\n";
+ print "\t-x:\t\tTurn on execute mode (Default: off)\n";
+ print "\t-u:\t\tDisplay usage\n";
+ print "\tcr\t\tCR number to search for\n";
+ exit 1;
+} # Usage
+
+sub GetFiles4 {
+ my $cr = shift;
+ my $local = shift;
+
+ # Perform a cvs log command and grep through the output
+ print "Gathering CVS info..." if $verbose;
+ my @output = grep {
+ /^Working file: / or
+ /^revision / or
+ /^date: / or
+ /^\s*CR#/ or
+ /^\s*CR /
+ } `cvs -q log $local 2>/dev/null`;
+ verbose " done";
+
+ # Now process this array. Entries may look like:
+ #
+ # Working file: <filename>
+ # revision <revision>
+ # date:...
+ # revision <revision>
+ # date:...
+ # CR Number: <cr>
+ #
+ # It's quite possible that there are no CR numbers for a file. It's also
+ # possible that there is the same CR number for multiple revisions! For
+ # example:
+ #
+ # Working file: <filename>
+ # revision 10.2
+ # date:...
+ # CR Number: 1000
+ # revision 10.1
+ # date:...
+ # CR Number: 1000
+ #
+ # In this case we want to return the <filename> and 10.2.
+
+ my %files;
+ my $filename;
+ my $revision;
+
+ while ($_ = shift @output) {
+ chomp;
+ chop if /\r/;
+
+ if (/^Working file: (.*)/) {
+ $filename = $1;
+ debug "file: $filename";
+ } elsif (/^revision (.*)/) {
+ $revision = $1;
+ debug "revision: $revision";
+ } elsif (/^date:.*state: (.*);.*/) {
+ # Check to see if dead!
+ if ($1 eq "dead") {
+ # Indicate we're dead by setting $revision to blank.
+ debug "Dead file encountered $filename";
+ $revision= "";
+ } # if
+ } elsif (/^CR Number: (\d*)$/ or
+ /^CR# (\d*)$/ or
+ /^CR # (\d*)$/ or
+ /^\s*CR (\d*)/) {
+ debug "CR: $1";
+ if ($cr eq $1) {
+ $files{$filename} = $revision;
+ debug "Set $filename: $revision";
+
+ # Now skip to next file
+ do {
+ $_ = shift @output;
+ } while @output and !/^Working file: /;
+ unshift @output, $_;
+ } # if
+ } else {
+ verbose "Unknown line encountered: $_\n";
+ } # if
+ } # foreach
+
+ return %files;
+} # GetFiles4
+
+sub GetWorkingRev {
+ my $filename = shift;
+
+ my @output = grep { /Working revision:/ } `cvs status $filename`;
+
+ if (defined $output [0] and $output [0] =~ /Working revision:\s*(\S*)/) {
+ return $1;
+ } # if
+
+ return undef;
+} # GetWorkingRev
+
+# Get args
+while ($ARGV [0]) {
+ if ($ARGV [0] eq "-d") {
+ $debug = 1;
+ } elsif ($ARGV [0] eq "-v") {
+ $verbose = 1;
+ } elsif ($ARGV [0] eq "-l") {
+ $local = $ARGV [0];
+ } elsif ($ARGV [0] eq "-x") {
+ $execute = 1;
+ } elsif ($ARGV [0] eq "-u") {
+ Usage;
+ } # if
+
+ $cr = $ARGV [0];
+
+ shift (@ARGV);
+} # while
+
+Usage "No CR specified to process" if !defined $cr;
+
+my %files = GetFiles4 $cr, $local;
+
+foreach (keys %files) {
+ if ($files{$_} eq "") {
+ print "$_: Is dead\n";
+ next;
+ } # if
+
+ my $working_revision = GetWorkingRev $_;
+ my $up_to_date = 0;
+
+ if (defined $working_revision and $working_revision eq $files{$_}) {
+ $up_to_date = 1;
+ } # if
+
+ if ($execute) {
+ print "cvs update -r$files{$_} $_";
+
+ if (!$up_to_date) {
+ `cvs update -r$files{$_} $_`;
+ print " - Updated\n";
+ } else {
+ print " - Already up to date\n";
+ } # if
+ } else {
+ print "$_: $files{$_}";
+
+ if ($up_to_date) {
+ print " - Already up to date\n";
+ } else {
+ print " - Out of date\n";
+ } # if
+ } # if
+} # foreach
+
--- /dev/null
+#!/usr/bin/perl
+################################################################################
+#
+# File: files4ecr
+# Description: This script will go through CVS looking for files that have
+# the passed in ECR #.
+# Author: Andrew@DeFaria.com
+# Created: Fri Dec 17 12:18:21 PST 2004
+# Language: Perl
+#
+# (c) Copyright 2004, LynxWorks Inc., all rights reserved
+#
+################################################################################
+use warnings;
+use strict;
+
+# Options
+my $verbose = 0;
+my $debug = 0;
+my $execute = 0;
+my $local = "";
+
+my $ecr;
+
+sub verbose {
+ my $msg = shift;
+
+ print "$msg\n" if $verbose;
+} # verbose
+
+sub debug {
+ my $msg = shift;
+
+ print "DEBUG: $msg\n" if $debug;
+} # debug
+
+sub Usage {
+ my $msg = shift;
+
+ print "ERROR: $msg\n\n" if defined $msg;
+
+ print "Usage: files4ecr [-v] [-d] [-l] [-x] [-u] <ecr>\n";
+ print "\nWhere:\n\n";
+ print "\t-v:\t\tTurn on verbose mode (Default: off)\n";
+ print "\t-d:\t\tTurn on debug mode (Default: off)\n";
+ print "\t-l:\t\tLocal directory only, no recursion\n";
+ print "\t-x:\t\tTurn on execute mode (Default: off)\n";
+ print "\t-u:\t\tDisplay usage\n";
+ print "\tecr\t\tECR number to search for\n";
+ exit 1;
+} # Usage
+
+sub GetFiles4 {
+ my $ecr = shift;
+ my $local = shift;
+
+ # Perform a cvs log command and grep through the output
+ print "Gathering CVS info..." if $verbose;
+ my @output = grep {
+ /^Working file: / or
+ /^revision / or
+ /^\s*ECR#/ or
+ /^\s*ECR /
+ } `cvs -q log $local 2>/dev/null`;
+ verbose " done";
+
+ # Now process this array. Entries may look like:
+ #
+ # Working file: <filename>
+ # revision <revision>
+ # revision <revision>
+ # ECR Number: <ecr>
+ #
+ # It's quite possible that there are no ECR numbers for a file. It's also
+ # possible that there is the same ECR number for multiple revisions! For
+ # example:
+ #
+ # Working file: <filename>
+ # revision 10.2
+ # ECR Number: 1000
+ # revision 10.1
+ # ECR Number: 1000
+ #
+ # In this case we want to return the <filename> and 10.2.
+
+ my %files;
+ my $filename;
+ my $revision;
+
+ while ($_ = shift @output) {
+ chomp;
+ chop if /\r/;
+
+ if (/^Working file: (.*)/) {
+ $filename = $1;
+ debug "file: $filename";
+ } elsif (/^revision (.*)/) {
+ $revision = $1;
+ debug "revision: $revision";
+ } elsif (/^ECR Number: (\d*)$/ or
+ /^ECR# (\d*)$/ or
+ /^ECR # (\d*)$/ or
+ /^\s*ECR (\d*)/) {
+ debug "ECR: $1";
+ if ($ecr eq $1) {
+ $files{$filename} = $revision;
+ debug "Set $filename: $revision";
+
+ # Now skip to next file
+ do {
+ $_ = shift @output;
+ } while @output and !/Working file: /;
+ unshift @output, $_;
+ } # if
+ } else {
+ verbose "Unknown line encountered: $_\n";
+ } # if
+ } # foreach
+
+ return %files;
+} # GetFiles4
+
+sub GetWorkingRev {
+ my $filename = shift;
+
+ my @output = grep { /Working revision:/ } `cvs status $filename`;
+
+ if (defined $output [0] and $output [0] =~ /Working revision:\s*(\S*)/) {
+ return $1;
+ } # if
+
+ return undef;
+} # GetWorkingRev
+
+# Get args
+while ($ARGV [0]) {
+ if ($ARGV [0] eq "-d") {
+ $debug = 1;
+ } elsif ($ARGV [0] eq "-v") {
+ $verbose = 1;
+ } elsif ($ARGV [0] eq "-l") {
+ $local = $ARGV [0];
+ } elsif ($ARGV [0] eq "-x") {
+ $execute = 1;
+ } elsif ($ARGV [0] eq "-u") {
+ Usage;
+ } # if
+
+ $ecr = $ARGV [0];
+
+ shift (@ARGV);
+} # while
+
+Usage "No ECR specified to process" if !defined $ecr;
+
+my %files = GetFiles4 $ecr, $local;
+
+foreach (keys %files) {
+ my $working_revision = GetWorkingRev $_;
+ my $up_to_date = 0;
+
+ if (defined $working_revision and $working_revision eq $files{$_}) {
+ $up_to_date = 1;
+ } # if
+
+ if ($execute) {
+ print "cvs update -r$files{$_} $_";
+
+ if (!$up_to_date) {
+ `cvs update -r$files{$_} $_`;
+ print " - Updated\n";
+ } else {
+ print " - Already up to date\n";
+ } # if
+ } else {
+ print "$_: $files{$_}";
+
+ if ($up_to_date) {
+ print " - Already up to date\n";
+ } else {
+ print " - Out of date\n";
+ } # if
+ } # if
+} # foreach
+
--- /dev/null
+#!/bin/bash
+tag=$1
+file=""
+revision=""
+cvs -q log 2>/dev/null | grep -E "(Working file: |$tag)" | grep -B1 $tag |
+ while read line; do
+ if [[ $line == Working\ file:\ * ]]; then
+ file=$(echo $line | sed "s/Working file: //")
+ elif [[ $line == $tag* ]]; then
+ revision=$(echo $line | sed "s/$tag: //")
+ fi
+ if [ "$file" != "" -a "$revision" != "" ]; then
+ echo cvs update -r$revision $file
+ file=""
+ revision=""
+ fi
+ done
--- /dev/null
+package Diff;
+use strict;
+use vars qw($VERSION @EXPORT_OK @ISA @EXPORT);
+use integer; # see below in _replaceNextLargerWith() for mod to make
+ # if you don't use this
+require Exporter;
+@ISA = qw(Exporter);
+@EXPORT = qw();
+@EXPORT_OK = qw(LCS diff traverse_sequences);
+$VERSION = sprintf('%d.%02d', (q$Revision: 1.10 $ =~ /\d+/g));
+
+# McIlroy-Hunt diff algorithm
+# Adapted from the Smalltalk code of Mario I. Wolczko, <mario@wolczko.com>
+# by Ned Konz, perl@bike-nomad.com
+
+=head1 NAME
+
+Algorithm::Diff - Compute `intelligent' differences between two files / lists
+
+=head1 SYNOPSIS
+
+ use Algorithm::Diff qw(diff LCS traverse_sequences);
+
+ @lcs = LCS( \@seq1, \@seq2 );
+
+ @lcs = LCS( \@seq1, \@seq2, $key_generation_function );
+
+ $lcsref = LCS( \@seq1, \@seq2 );
+
+ $lcsref = LCS( \@seq1, \@seq2, $key_generation_function );
+
+ @diffs = diff( \@seq1, \@seq2 );
+
+ @diffs = diff( \@seq1, \@seq2, $key_generation_function );
+
+ traverse_sequences( \@seq1, \@seq2,
+ { MATCH => $callback,
+ DISCARD_A => $callback,
+ DISCARD_B => $callback,
+ } );
+
+ traverse_sequences( \@seq1, \@seq2,
+ { MATCH => $callback,
+ DISCARD_A => $callback,
+ DISCARD_B => $callback,
+ },
+ $key_generation_function );
+
+=head1 INTRODUCTION
+
+(by Mark-Jason Dominus)
+
+I once read an article written by the authors of C<diff>; they said
+that they hard worked very hard on the algorithm until they found the
+right one.
+
+I think what they ended up using (and I hope someone will correct me,
+because I am not very confident about this) was the `longest common
+subsequence' method. in the LCS problem, you have two sequences of
+items:
+
+ a b c d f g h j q z
+
+ a b c d e f g i j k r x y z
+
+and you want to find the longest sequence of items that is present in
+both original sequences in the same order. That is, you want to find
+a new sequence I<S> which can be obtained from the first sequence by
+deleting some items, and from the secend sequence by deleting other
+items. You also want I<S> to be as long as possible. In this case
+I<S> is
+
+ a b c d f g j z
+
+From there it's only a small step to get diff-like output:
+
+ e h i k q r x y
+ + - + + - + + +
+
+This module solves the LCS problem. It also includes a canned
+function to generate C<diff>-like output.
+
+It might seem from the example above that the LCS of two sequences is
+always pretty obvious, but that's not always the case, especially when
+the two sequences have many repeated elements. For example, consider
+
+ a x b y c z p d q
+ a b c a x b y c z
+
+A naive approach might start by matching up the C<a> and C<b> that
+appear at the beginning of each sequence, like this:
+
+ a x b y c z p d q
+ a b c a b y c z
+
+This finds the common subsequence C<a b c z>. But actually, the LCS
+is C<a x b y c z>:
+
+ a x b y c z p d q
+ a b c a x b y c z
+
+=head1 USAGE
+
+This module provides three exportable functions, which we'll deal with in
+ascending order of difficulty: C<LCS>, C<diff>, and
+C<traverse_sequences>.
+
+=head2 C<LCS>
+
+Given references to two lists of items, LCS returns an array containing their
+longest common subsequence. In scalar context, it returns a reference to
+such a list.
+
+ @lcs = LCS( \@seq1, \@seq2 );
+ $lcsref = LCS( \@seq1, \@seq2 );
+
+C<LCS> may be passed an optional third parameter; this is a CODE
+reference to a key generation function. See L</KEY GENERATION
+FUNCTIONS>.
+
+ @lcs = LCS( \@seq1, \@seq2, $keyGen );
+ $lcsref = LCS( \@seq1, \@seq2, $keyGen );
+
+Additional parameters, if any, will be passed to the key generation
+routine.
+
+=head2 C<diff>
+
+ @diffs = diff( \@seq1, \@seq2 );
+ $diffs_ref = diff( \@seq1, \@seq2 );
+
+C<diff> computes the smallest set of additions and deletions necessary
+to turn the first sequence into the second, and returns a description
+of these changes. The description is a list of I<hunks>; each hunk
+represents a contiguous section of items which should be added,
+deleted, or replaced. The return value of C<diff> is a list of
+hunks, or, in scalar context, a reference to such a list.
+
+Here is an example: The diff of the following two sequences:
+
+ a b c e h j l m n p
+ b c d e f j k l m r s t
+
+Result:
+
+ [
+ [ [ '-', 0, 'a' ] ],
+
+ [ [ '+', 2, 'd' ] ],
+
+ [ [ '-', 4, 'h' ] ,
+ [ '+', 4, 'f' ] ],
+
+ [ [ '+', 6, 'k' ] ],
+
+ [ [ '-', 8, 'n' ],
+ [ '-', 9, 'p' ],
+ [ '+', 9, 'r' ],
+ [ '+', 10, 's' ],
+ [ '+', 11, 't' ],
+ ]
+ ]
+
+There are five hunks here. The first hunk says that the C<a> at
+position 0 of the first sequence should be deleted (C<->). The second
+hunk says that the C<d> at position 2 of the second sequence should
+be inserted (C<+>). The third hunk says that the C<h> at position 4
+of the first sequence should be removed and replaced with the C<f>
+from position 4 of the second sequence. The other two hunks similarly.
+
+C<diff> may be passed an optional third parameter; this is a CODE
+reference to a key generation function. See L</KEY GENERATION
+FUNCTIONS>.
+
+Additional parameters, if any, will be passed to the key generation
+routine.
+
+=head2 C<traverse_sequences>
+
+C<traverse_sequences> is the most general facility provided by this
+module; C<diff> and C<LCS> are implemented as calls to it.
+
+Imagine that there are two arrows. Arrow A points to an element of
+sequence A, and arrow B points to an element of the sequence B.
+Initially, the arrows point to the first elements of the respective
+sequences. C<traverse_sequences> will advance the arrows through the
+sequences one element at a time, calling an appropriate user-specified
+callback function before each advance. It willadvance the arrows in
+such a way that if there are equal elements C<$A[$i]> and C<$B[$j]>
+which are equal and which are part of the LCS, there will be some
+moment during the execution of C<traverse_sequences> when arrow A is
+pointing to C<$A[$i]> and arrow B is pointing to C<$B[$j]>. When this
+happens, C<traverse_sequences> will call the C<MATCH> callback
+function and then it will advance both arrows.
+
+Otherwise, one of the arrows is pointing to an element of its sequence
+that is not part of the LCS. C<traverse_sequences> will advance that
+arrow and will call the C<DISCARD_A> or the C<DISCARD_B> callback,
+depending on which arrow it advanced. If both arrows point to
+elements that are not part of the LCS, then C<traverse_sequences> will
+advance one of them and call the appropriate callback, but it is not
+specified which it will call.
+
+The arguments to C<traverse_sequences> are the two sequences to
+traverse, and a callback which specifies the callback functions, like
+this:
+
+ traverse_sequences( \@seq1, \@seq2,
+ { MATCH => $callback_1,
+ DISCARD_A => $callback_2,
+ DISCARD_B => $callback_3,
+ } );
+
+Callbacks are invoked with at least the indices of the two arrows as
+their arguments. They are not expected to return any values. If a
+callback is omitted from the table, it is not called.
+
+If arrow A reaches the end of its sequence, before arrow B does,
+C<traverse_sequences> will call the C<A_FINISHED> callback when it
+advances arrow B, if there is such a function; if not it will call
+C<DISCARD_B> instead. Similarly if arrow B finishes first.
+C<traverse_sequences> returns when both arrows are at the ends of
+their respective sequences. It returns true on success and false on
+failure. At present there is no way to fail.
+
+C<traverse_sequences> may be passed an optional fourth parameter; this
+is a CODE reference to a key generation function. See L</KEY
+GENERATION FUNCTIONS>.
+
+Additional parameters, if any, will be passed to the key generation
+function.
+
+=head1 KEY GENERATION FUNCTIONS
+
+C<diff>, C<LCS>, and C<traverse_sequences> accept an optional last parameter.
+This is a CODE reference to a key generating (hashing) function that should
+return a string that uniquely identifies a given element.
+It should be the case that if two elements are to be considered equal,
+their keys should be the same (and the other way around).
+If no key generation function is provided, the key will be the
+element as a string.
+
+By default, comparisons will use "eq" and elements will be turned into keys
+using the default stringizing operator '""'.
+
+Where this is important is when you're comparing something other than
+strings. If it is the case that you have multiple different objects
+that should be considered to be equal, you should supply a key
+generation function. Otherwise, you have to make sure that your arrays
+contain unique references.
+
+For instance, consider this example:
+
+ package Person;
+
+ sub new
+ {
+ my $package = shift;
+ return bless { name => '', ssn => '', @_ }, $package;
+ }
+
+ sub clone
+ {
+ my $old = shift;
+ my $new = bless { %$old }, ref($old);
+ }
+
+ sub hash
+ {
+ return shift()->{'ssn'};
+ }
+
+ my $person1 = Person->new( name => 'Joe', ssn => '123-45-6789' );
+ my $person2 = Person->new( name => 'Mary', ssn => '123-47-0000' );
+ my $person3 = Person->new( name => 'Pete', ssn => '999-45-2222' );
+ my $person4 = Person->new( name => 'Peggy', ssn => '123-45-9999' );
+ my $person5 = Person->new( name => 'Frank', ssn => '000-45-9999' );
+
+If you did this:
+
+ my $array1 = [ $person1, $person2, $person4 ];
+ my $array2 = [ $person1, $person3, $person4, $person5 ];
+ Algorithm::Diff::diff( $array1, $array2 );
+
+everything would work out OK (each of the objects would be converted
+into a string like "Person=HASH(0x82425b0)" for comparison).
+
+But if you did this:
+
+ my $array1 = [ $person1, $person2, $person4 ];
+ my $array2 = [ $person1, $person3, $person4->clone(), $person5 ];
+ Algorithm::Diff::diff( $array1, $array2 );
+
+$person4 and $person4->clone() (which have the same name and SSN)
+would be seen as different objects. If you wanted them to be considered
+equivalent, you would have to pass in a key generation function:
+
+ my $array1 = [ $person1, $person2, $person4 ];
+ my $array2 = [ $person1, $person3, $person4->clone(), $person5 ];
+ Algorithm::Diff::diff( $array1, $array2, \&Person::hash );
+
+This would use the 'ssn' field in each Person as a comparison key, and
+so would consider $person4 and $person4->clone() as equal.
+
+You may also pass additional parameters to the key generation function
+if you wish.
+
+=head1 AUTHOR
+
+This version by Ned Konz, perl@bike-nomad.com
+
+=head1 CREDITS
+
+Versions through 0.59 (and much of this documentation) were written by:
+
+Mark-Jason Dominus, mjd-perl-diff@plover.com
+
+This version borrows the documentation and names of the routines
+from Mark-Jason's, but has all new code in Diff.pm.
+
+This code was adapted from the Smalltalk code of
+Mario Wolczko <mario@wolczko.com>, which is available at
+ftp://st.cs.uiuc.edu/pub/Smalltalk/MANCHESTER/manchester/4.0/diff.st
+
+The algorithm is that described in
+I<A Fast Algorithm for Computing Longest Common Subsequences>,
+CACM, vol.20, no.5, pp.350-353, May 1977, with a few
+minor improvements to improve the speed.
+
+=cut
+
+# Create a hash that maps each element of $aCollection to the set of positions
+# it occupies in $aCollection, restricted to the elements within the range of
+# indexes specified by $start and $end.
+# The fourth parameter is a subroutine reference that will be called to
+# generate a string to use as a key.
+# Additional parameters, if any, will be passed to this subroutine.
+#
+# my $hashRef = _withPositionsOfInInterval( \@array, $start, $end, $keyGen );
+
+sub _withPositionsOfInInterval
+{
+ my $aCollection = shift; # array ref
+ my $start = shift;
+ my $end = shift;
+ my $keyGen = shift;
+ my %d;
+ my $index;
+ for ( $index = $start; $index <= $end; $index++ )
+ {
+ my $element = $aCollection->[ $index ];
+ my $key = &$keyGen( $element, @_ );
+ if ( exists( $d{ $key } ) )
+ {
+ push( @{ $d{ $key } }, $index );
+ }
+ else
+ {
+ $d{ $key } = [ $index ];
+ }
+ }
+ return wantarray ? %d: \%d;
+}
+
+# Find the place at which aValue would normally be inserted into the array. If
+# that place is already occupied by aValue, do nothing, and return undef. If
+# the place does not exist (i.e., it is off the end of the array), add it to
+# the end, otherwise replace the element at that point with aValue.
+# It is assumed that the array's values are numeric.
+# This is where the bulk (75%) of the time is spent in this module, so try to
+# make it fast!
+
+sub _replaceNextLargerWith
+{
+ my ( $array, $aValue, $high ) = @_;
+ $high ||= $#$array;
+
+ # off the end?
+ if ( $high == -1 || $aValue > $array->[ -1 ] )
+ {
+ push( @$array, $aValue );
+ return $high + 1;
+ }
+
+ # binary search for insertion point...
+ my $low = 0;
+ my $index;
+ my $found;
+ while ( $low <= $high )
+ {
+ $index = ( $high + $low ) / 2;
+# $index = int(( $high + $low ) / 2); # without 'use integer'
+ $found = $array->[ $index ];
+
+ if ( $aValue == $found )
+ {
+ return undef;
+ }
+ elsif ( $aValue > $found )
+ {
+ $low = $index + 1;
+ }
+ else
+ {
+ $high = $index - 1;
+ }
+ }
+
+ # now insertion point is in $low.
+ $array->[ $low ] = $aValue; # overwrite next larger
+ return $low;
+}
+
+# This method computes the longest common subsequence in $a and $b.
+
+# Result is array or ref, whose contents is such that
+# $a->[ $i ] = $b->[ $result[ $i ] ]
+# foreach $i in ( 0..scalar( @result ) if $result[ $i ] is defined.
+
+# An additional argument may be passed; this is a hash or key generating
+# function that should return a string that uniquely identifies the given
+# element. It should be the case that if the key is the same, the elements
+# will compare the same. If this parameter is undef or missing, the key
+# will be the element as a string.
+
+# By default, comparisons will use "eq" and elements will be turned into keys
+# using the default stringizing operator '""'.
+
+# Additional parameters, if any, will be passed to the key generation routine.
+
+sub _longestCommonSubsequence
+{
+ my $a = shift; # array ref
+ my $b = shift; # array ref
+ my $keyGen = shift; # code ref
+ my $compare; # code ref
+
+ # set up code refs
+ # Note that these are optimized.
+ if ( !defined( $keyGen ) ) # optimize for strings
+ {
+ $keyGen = sub { $_[0] };
+ $compare = sub { my ($a, $b) = @_; $a eq $b };
+ }
+ else
+ {
+ $compare = sub {
+ my $a = shift; my $b = shift;
+ &$keyGen( $a, @_ ) eq &$keyGen( $b, @_ )
+ };
+ }
+
+ my ($aStart, $aFinish, $bStart, $bFinish, $matchVector) = (0, $#$a, 0, $#$b, []);
+
+ # First we prune off any common elements at the beginning
+ while ( $aStart <= $aFinish
+ and $bStart <= $bFinish
+ and &$compare( $a->[ $aStart ], $b->[ $bStart ], @_ ) )
+ {
+ $matchVector->[ $aStart++ ] = $bStart++;
+ }
+
+ # now the end
+ while ( $aStart <= $aFinish
+ and $bStart <= $bFinish
+ and &$compare( $a->[ $aFinish ], $b->[ $bFinish ], @_ ) )
+ {
+ $matchVector->[ $aFinish-- ] = $bFinish--;
+ }
+
+ # Now compute the equivalence classes of positions of elements
+ my $bMatches = _withPositionsOfInInterval( $b, $bStart, $bFinish, $keyGen, @_ );
+ my $thresh = [];
+ my $links = [];
+
+ my ( $i, $ai, $j, $k );
+ for ( $i = $aStart; $i <= $aFinish; $i++ )
+ {
+ $ai = &$keyGen( $a->[ $i ] );
+ if ( exists( $bMatches->{ $ai } ) )
+ {
+ $k = 0;
+ for $j ( reverse( @{ $bMatches->{ $ai } } ) )
+ {
+ # optimization: most of the time this will be true
+ if ( $k
+ and $thresh->[ $k ] > $j
+ and $thresh->[ $k - 1 ] < $j )
+ {
+ $thresh->[ $k ] = $j;
+ }
+ else
+ {
+ $k = _replaceNextLargerWith( $thresh, $j, $k );
+ }
+
+ # oddly, it's faster to always test this (CPU cache?).
+ if ( defined( $k ) )
+ {
+ $links->[ $k ] =
+ [ ( $k ? $links->[ $k - 1 ] : undef ), $i, $j ];
+ }
+ }
+ }
+ }
+
+ if ( @$thresh )
+ {
+ for ( my $link = $links->[ $#$thresh ]; $link; $link = $link->[ 0 ] )
+ {
+ $matchVector->[ $link->[ 1 ] ] = $link->[ 2 ];
+ }
+ }
+
+ return wantarray ? @$matchVector : $matchVector;
+}
+
+sub traverse_sequences
+{
+ my $a = shift; # array ref
+ my $b = shift; # array ref
+ my $callbacks = shift || { };
+ my $keyGen = shift;
+ my $matchCallback = $callbacks->{'MATCH'} || sub { };
+ my $discardACallback = $callbacks->{'DISCARD_A'} || sub { };
+ my $discardBCallback = $callbacks->{'DISCARD_B'} || sub { };
+ my $matchVector = _longestCommonSubsequence( $a, $b, $keyGen, @_ );
+ # Process all the lines in match vector
+ my $lastA = $#$a;
+ my $lastB = $#$b;
+ my $bi = 0;
+ my $ai;
+ for ( $ai = 0; $ai <= $#$matchVector; $ai++ )
+ {
+ my $bLine = $matchVector->[ $ai ];
+ if ( defined( $bLine ) )
+ {
+ &$discardBCallback( $ai, $bi++, @_ ) while $bi < $bLine;
+ &$matchCallback( $ai, $bi++, @_ );
+ }
+ else
+ {
+ &$discardACallback( $ai, $bi, @_ );
+ }
+ }
+
+ &$discardACallback( $ai++, $bi, @_ ) while ( $ai <= $lastA );
+ &$discardBCallback( $ai, $bi++, @_ ) while ( $bi <= $lastB );
+ return 1;
+}
+
+sub LCS
+{
+ my $a = shift; # array ref
+ my $matchVector = _longestCommonSubsequence( $a, @_ );
+ my @retval;
+ my $i;
+ for ( $i = 0; $i <= $#$matchVector; $i++ )
+ {
+ if ( defined( $matchVector->[ $i ] ) )
+ {
+ push( @retval, $a->[ $i ] );
+ }
+ }
+ return wantarray ? @retval : \@retval;
+}
+
+sub diff
+{
+ my $a = shift; # array ref
+ my $b = shift; # array ref
+ my $retval = [];
+ my $hunk = [];
+ my $discard = sub { push( @$hunk, [ '-', $_[ 0 ], $a->[ $_[ 0 ] ] ] ) };
+ my $add = sub { push( @$hunk, [ '+', $_[ 1 ], $b->[ $_[ 1 ] ] ] ) };
+ my $match = sub { push( @$retval, $hunk ) if scalar(@$hunk); $hunk = [] };
+ traverse_sequences( $a, $b,
+ { MATCH => $match, DISCARD_A => $discard, DISCARD_B => $add },
+ @_ );
+ &$match();
+ return wantarray ? @$retval : $retval;
+}
+
+1;
--- /dev/null
+#!/usr/bin/perl
+################################################################################
+#
+# File: ecrd.pm: ECR Daemon Client Library
+# Description: Perl Module interface to ecrd (ECR Daemon). This is used
+# by ecrc and cgi scripts to talk to ECR Daemon
+# Author: Andrew@DeFaria.com
+# Created: Tue Feb 15 09:40:57 PST 2005
+# Modified:
+# Language: Perl
+#
+# (c) Copyright 2005, LynuxWorks, all rights reserved.
+#
+################################################################################
+use strict;
+use warnings;
+
+use IO::Socket;
+
+package ecrc;
+ require Exporter;
+ @main::ISA = qw (Exporter);
+
+ @main::EXPORT = qw (Connect GetECRRecord Disconnect);
+
+ my $default_server = (!defined $ENV {ECRDSERVER}) ? "lynx12" : $ENV {ECRDSERVER};
+ my $default_port = (!defined $ENV {ECRDPORT}) ? 1500 : $ENV {ECRDPORT};
+ my $verbose = 0;
+ my $debug = 0;
+ my $command;
+ my $ecrserver;
+
+ # Forwards
+ sub ConnectToServer;
+ sub GetServerAck;
+ sub GetServerList;
+ sub GetServerResponse;
+ sub SendServerAck;
+ sub SendServerCmd;
+
+ BEGIN {
+ my $ecrcversion = "1.1";
+
+ # Reopen STDOUT to make sure it's clear
+ open STDOUT, ">-" or die "Unable to reopen STDOUT\n";
+
+ # Set unbuffered output
+ $| = 1;
+ } # BEGIN
+
+ sub set_verbose {
+ $verbose = 1;
+ } # set_verbose
+
+ sub set_debug {
+ $debug = 1;
+ } # set_debug
+
+ sub verbose {
+ print "@_\n" if $verbose;
+ } # verbose
+
+ sub debug {
+ print "DEBUG: @_\n" if $debug;
+ } # debug
+
+ sub Connect {
+ my $host = shift;
+ my $port = shift;
+
+ my $result;
+
+ $host = $default_server if !defined $host;
+ $port = $default_port if !defined $port;
+
+ $ecrserver = ConnectToServer $host, $port;
+
+ if ($ecrserver) {
+ verbose "Connected to $host";
+ SendServerAck $ecrserver;
+ } # if
+
+ return $ecrserver;
+ } # Connect
+
+ sub Disconnect {
+ my $msg;
+
+ if ($ecrserver) {
+ if ($command eq "shutdown") {
+ $msg = "Disconnected from server - shutdown server";
+ } else {
+ $command = "quit";
+ $msg = "Disconnected from server";
+ } # if
+ SendServerCmd $ecrserver, $command;
+ GetServerAck $ecrserver;
+ verbose "$msg";
+ close $ecrserver;
+ undef $ecrserver;
+ } # if
+ } # Disconnect
+
+ sub GetECRRecord {
+ my $ecr = shift;
+
+ my %fields;
+ my @ecrs;
+
+ if (!$ecrserver) {
+ verbose "Not connected to server yet!";
+ verbose "Attempting connection to $default_server...";
+ if (!Connect $default_server, $default_port) {
+ print "Unable to connect to server $default_server\n";
+ exit 1;
+ } # if
+ } # if
+
+ SendServerCmd $ecrserver, $ecr;
+ GetServerAck $ecrserver;
+
+ if ($ecr eq "\*") {
+ @ecrs = GetServerList $ecrserver;
+ } else {
+ %fields = GetServerResponse $ecrserver;
+ } # if
+
+ SendServerAck $ecrserver;
+
+ return $ecr eq "\*" ? @ecrs : %fields;
+ } # GetECRRecord
+
+ END {
+ verbose "Sending disconnect command to server";
+ $command = "quit";
+ Disconnect;
+ } # END
+
+ sub ConnectToServer {
+ my $host = shift;
+ my $port = shift;
+
+ # create a tcp connection to the specified host and port
+ return IO::Socket::INET->new(Proto => "tcp",
+ PeerAddr => $host,
+ PeerPort => $port);
+ } # ConnectToServer
+
+ sub SendServerAck {
+ my $server = shift;
+
+ print $server "ACK\n";
+ } # SendServerAck
+
+ sub GetServerAck {
+ my $server = shift;
+ my $srvresp;
+
+ while (defined ($srvresp = <$server>)) {
+ chomp $srvresp;
+ if ($srvresp eq "ACK") {
+ return;
+ } # if
+ print "Received $srvresp from server - expected ACK\n";
+ } # while
+ } # GetServerAck
+
+ sub GetServerList {
+ my $server = shift;
+
+ my @ecrs;
+ my $srvresp;
+
+ while (defined ($srvresp = <$server>)) {
+ chomp $srvresp;
+ last if $srvresp eq "ACK";
+ if ($srvresp =~ m/ECR.*was not found/) {
+ return ();
+ } else {
+ push @ecrs, $srvresp;
+ } # if
+ } # while
+
+ return @ecrs;
+ } # GetServerList
+
+ sub GetServerResponse {
+ my $server = shift;
+
+ my %fields;
+ my $srvresp;
+
+ while (defined ($srvresp = <$server>)) {
+ chomp $srvresp;
+ last if $srvresp eq "ACK";
+ if ($srvresp =~ m/ECR.*was not found/) {
+ return ();
+ } else {
+ $srvresp =~ /(^\w+):\s+(.*)/s;
+ my $value = $2;
+ if (defined $value) {
+ $value =~ s/\\n/\n/g;
+ } else {
+ $value = "";
+ } # if
+ $fields {$1} = $value;
+ } # if
+ } # while
+
+ return %fields;
+ } # GetServerResponse
+
+ sub SendServerCmd {
+ my $server = shift;
+ my $command = shift;
+
+ print $server "$command\n";
+ } # SendServerCmd
+
+1;
--- /dev/null
+#!/usr/bin/perl -w
+################################################################################
+#
+# File: CheckinPostop.pl
+# Description: This script is run on check in post op. It will pick up the
+# bug IDs from the comment and label the elements that have just
+# been checked in.
+# Author: Andrew@DeFaria.com
+# Created: Fri Oct 26 15:32:12 2001
+# Language: Perl
+# Modifications:10/22/2002: Changed to not complain about missing bug IDs if
+# the branch was main.
+# 04/11/2003: Changed to support multiple bug IDs in the comment.
+# (c) Copyright 2003, Andrew@DeFaria.com, all rights reserved
+#
+################################################################################
+use strict;
+
+BEGIN {
+ # Add the appropriate path to our modules to @INC array. We use ipconfig to
+ # get the current host's IP address then determine whether we are in the US
+ # or China. If neither then we fallback to using T:/Triggers.
+ my @ipconfig = grep (/IP Address/, `ipconfig`);
+ my ($ipaddr) = ($ipconfig[0] =~ /(\d{1,3}\.\d{1,3}.\d{1,3}\.\d{1,3})/);
+
+ # US is in the subnets of 192 and 172 while China is in the subnet of 10
+ if ($ipaddr =~ /^192|^172/) {
+ unshift (@INC, "//sons-clearcase/Views/official/Tools/lib");
+ } elsif ($ipaddr =~ /^10/) {
+ unshift (@INC, "//sons-cc/Views/official/Tools/lib");
+ } else {
+ die "Internal Error: Unable to find our modules!\n"
+ } # if
+} # BEGIN
+
+use TriggerUtils;
+
+# The following environment variables are set by Clearcase when this
+# trigger is called
+my $comment = $ENV{CLEARCASE_COMMENT};
+my $branch = $ENV{CLEARCASE_BRTYPE};
+my $pname = $ENV{CLEARCASE_PN};
+my $user = $ENV{CLEARCASE_USER};
+
+sub ExtractBugIDs {
+ my $comment = shift;
+
+ my @fields = split /\W/,$comment;
+
+ # Use associative array to insure uniqueness
+ my %bugids;
+ # Return unique array
+ my @bugids;
+
+ foreach (@fields) {
+ if (/BUGS2[0-9]{8}/) {
+ $bugids{$_} = $_;
+ } # if
+ } # foreach
+
+ foreach (keys %bugids) {
+ push @bugids, $_;
+ }
+
+ return @bugids;
+} # ExtractBugIDs
+
+sub mklabel {
+ my $label = shift;
+
+ my $result = system "cleartool lstype lbtype:$label@\\salira";
+
+ return $result if ($result eq 0);
+
+ $result = system "cleartool mklbtype -nc -shared -pbranch $label@\\salira";
+
+ if ($result eq 0) {
+ clearlog "Created label for $label";
+ } else {
+ clearlogmsg "Unable to mklbtype for $label (Error #: $result)";
+ } # if
+
+ return $result;
+} # mklabel
+
+foreach my $bugid (ExtractBugIDs ($comment)) {
+ if (mklabel ($bugid) eq 0) {
+ my $result = system "cleartool mklabel -replace $bugid \"$pname\"";
+
+ if ($result ne 0) {
+ clearlogmsg "Unable to apply label $bugid to $pname (Error #: $result)";
+ exit 1;
+ } else {
+ clearlog "Attached label $bugid to $pname";
+ } # if
+
+ clearlog "Successful postcheckin of $pname on $branch branch with bug ID $bugid";
+ } # if
+
+} # foreach
+
+exit 0;
--- /dev/null
+#!/usr/bin/perl
+################################################################################
+#
+# File: CheckinPreop.pl
+# Description: This trigger script is run when the user is attempting to
+# checkin. Several checks are performed on the check in comment.
+# The comment should contain the bug ID, which we will later used
+# to label this element checkin (See CheckinPostop.pl). We will
+# also check to insure the bug ID is valid in Clearquest and that
+# the bug is in the proper state.
+#
+# If the check in is on the "main" or "trial" branch then we will
+# consult a file to insure that the bug ID is listed. This is an
+# additional method for limiting checkins.
+# Assumptions: Clearprompt is in the users PATH
+# Author: Andrew@DeFaria.com
+# Created: Fri Oct 26 15:32:12 2001
+# Language: Perl
+# Modifications:6/25/2002: Added check to see if a bug ID label exists and it
+# is locked. If so then that's an indication that we should not
+# allow the checkin.
+# 6/20/2002: Added interface to cqd to verify that the bug exists
+# in Clearquest, is of a certain state and has an owner
+# 5/15/2002: Added tests so that bug IDs must exist in
+# mainbugs.txt or trialbugs.txt for the main and trial branches.
+# 5/17/2002: Exempted EMS code.
+# 5/31/2002: Exempted hardware code.
+# 10/22/2002: Changed to allow checkins to main branch with no
+# bug IDs. Removed $mainbugs.
+# 11/20/2002: It was determined to relax restrictions of checkins
+# for non 1.0 branches such that bug ID's are not required, in fact
+# they are not allowed.
+# 04/11/2003: Added support for multiple bug IDs in the comment
+# 05/18/2003: Changed code to only check for bug IDs in comments
+# for check ins on certain branches.
+#
+# (c) Copyright 2003, Andrew@DeFaria.com, all rights reserved
+#
+################################################################################
+use strict;
+
+my $site;
+
+BEGIN {
+ # Add the appropriate path to our modules to @INC array. We use ipconfig to
+ # get the current host's IP address then determine whether we are in the US
+ # or China.
+ my @ipconfig = grep (/IP Address/, `ipconfig`);
+ my ($ipaddr) = ($ipconfig[0] =~ /(\d{1,3}\.\d{1,3}.\d{1,3}\.\d{1,3})/);
+
+ # US is in the subnets of 192 and 172 while China is in the subnet of 10
+ if ($ipaddr =~ /^192|^172/) {
+ $site = "US";
+ unshift (@INC, "//sons-clearcase/Views/official/Tools/lib");
+ } elsif ($ipaddr =~ /^10/) {
+ $site = "CN";
+ unshift (@INC, "//sons-cc/Views/official/Tools/lib");
+ } else {
+ die "Internal Error: Unable to find our modules!\n"
+ } # if
+} # BEGIN
+
+use TriggerUtils;
+use cqc;
+
+%cqc::fields;
+
+# The following environment variables are set by Clearcase when this
+# trigger is called
+my $comment = $ENV{CLEARCASE_COMMENT};
+my $branch = $ENV{CLEARCASE_BRTYPE};
+my $pname = $ENV{CLEARCASE_PN};
+
+# Which vob we will look up labels in
+my $vob = "salira";
+
+my $bugid;
+
+sub ExtractBugID {
+ my $comment = shift;
+
+ my @fields = split (/\W/,$comment);
+ my $bugid = "unknown";
+
+ foreach (@fields) {
+ if (/BUGS2[0-9]{8}/) {
+ $bugid = $_;
+ last;
+ } # if
+ } # foreach
+
+ return $bugid;
+} # ExtractBugID
+
+sub ExtractBugIDs {
+ my $comment = shift;
+
+ my @fields = split (/\W/,$comment);
+
+ # Use associative array to insure uniqueness
+ my %bugids;
+ # Return unique array
+ my @bugids;
+
+ foreach (@fields) {
+ if (/BUGS2[0-9]{8}/) {
+ $bugids{$_} = $_;
+ } # if
+ } # foreach
+
+ foreach (keys %bugids) {
+ push @bugids, $_;
+ }
+
+ return @bugids;
+} # ExtractBugIDs
+
+sub BugOnList {
+ my $bugid = shift;
+ my $branch = shift;
+
+ my $found_bugid = 0;
+ my $bug = "unknown";
+
+ # Excempt EMS code
+ return 1 if $pname =~ /salira\\ems/i;
+
+ # Excempt Hardware code
+ return 1 if $pname =~ /salira\\hardware/i;
+
+ # Exempt bug ID 2912
+ return 1 if $bugid eq "BUGS200002912";
+
+ # Exempt bug ID 3035
+ return 1 if $bugid eq "BUGS200003035";
+
+ my $filename;
+
+ if ($site eq "US") {
+ $filename = "//sons-clearcase/Views/official/Tools/bin/clearcase/triggers/data/$branch.lst";
+ } elsif ($site eq "CN") {
+ $filename = "//sons-cc/Views/official/Tools/bin/clearcase/triggers/data/$branch.lst";
+ } else {
+ die "Internal Error: Site not set properly! ($site)\n";
+ } # if
+
+ if (-f $filename) {
+ open (FILE, $filename) || die "Can't open $filename!\n";
+
+ while (<FILE>) {
+ $bug = ExtractBugID $_;
+ next if ($bug eq "unknown");
+ if ($bug eq $bugid) {
+ $found_bugid = 1;
+ last;
+ } # if
+ } # while
+
+ close (FILE);
+ } else {
+ clearlog "Skipping check because $filename does not exist!";
+ # Since there is no file list to check return that the bug id was found
+ $found_bugid = 1;
+ } # if
+
+ return $found_bugid;
+} # BugOnList
+
+sub LabelLocked {
+ # 04/28/2003: Oddity! All of a sudden this subroutine broke! I don't know
+ # why but even though we used to cd to the official view and issue our
+ # cleartool lslock command we started getting "Unable to determine VOB
+ # from pname" errors. Weird! Anyways we have changed to use the @<vob
+ # selector> syntax instead. This means we must now specify the vob
+ # specifically. Fortunately we only have one vob to worry about at this
+ # time. On the plus side we no longer need to rely on the "official" view.
+ my $bugid = shift;
+
+ my $output = `cleartool lslock -short lbtype:$bugid@\\$vob 2>&1`;
+
+ if ($? == 0) {
+ return $output;
+ } else {
+ return 0;
+ } # if
+} # LabelLocked
+
+sub CheckComment {
+ my $comment = shift;
+ my $branch = shift;
+
+ my @valid_branches = (
+ "main",
+ "rel_1.0",
+ "rel_2.0",
+ "rel_2.1",
+ "rel_2.2",
+ "rel_2.3",
+ "china_1.0",
+ "china_2.0",
+ "china_2.1",
+ "china_2.2",
+ "china_2.3",
+ "2.0_ga"
+ );
+
+ if ($comment eq "") {
+ clearlogmsg "You need to specify checkin comments";
+ return 1;
+ } # if
+
+ if (length $comment <= 4) {
+ clearlogmsg "The comment, '$comment' is too short!";
+ return 1;
+ } # if
+
+ if ($comment !~ m/.*BUGS2[0-9]{8}.*/) {
+ # Bug ID's are only required on certain branches
+ my $found = 0;
+
+ foreach (@valid_branches) {
+ if ($branch eq $_) {
+ $found = 1;
+ last;
+ } # if
+ } # foreach
+
+ if ($found == 1) {
+ clearlogmsg "Could not find bug ID in comment! This is required for the $branch branch";
+ return 1;
+ } # if
+ } # if
+
+ return 0;
+} # CheckComment
+
+sub CheckBugIDs {
+ my @bugs = @_;
+
+ my $result;
+
+ foreach my $bugid (@bugs) {
+ # Check if label is locked
+ if (LabelLocked ($bugid)) {
+ clearlog "Bug id $bugid is locked!";
+ clearmsg "Bug id $bugid is locked!\nSee your Clearcase Admin to unlock it";
+ return 1;
+ } # if
+
+ # Get Clearquest information
+ $result = cqc::GetBugRecord ($bugid, %fields);
+
+ if ($result == 0) {
+ # Make sure bug is owned
+ if ($fields {owner} eq "<Unspecified>") {
+ clearlogmsg "No owner specified in Clearquest for bug ID $bugid.";
+ return 1;
+ } # if
+
+ # Make sure bug is in the correct state
+ if ($fields {state} ne "Assigned" and $fields {state} ne "Resolved") {
+ clearlogmsg "Bug ID $bugid is in the wrong state. It is in the " . $fields {state}. " state but should be in Assigned or Resolved state.";
+ return 1;
+ } # if
+ } elsif ($result > 0) {
+ clearlogmsg "Bug ID $bugid is not in Clearquest.";
+ return 1;
+ } else {
+ clearlogmsg "Clearquest Daemon (cqd) is not running!
+Please contact the Clearquest Administrator.";
+ return 1;
+ } # if
+
+ # Check if bug is on a branch list file
+ if (! BugOnList ($bugid, $branch)) {
+ clearlog "Bug ID $bugid is not on the list of acceptable bugs for the $branch branch!";
+ clearmsg "Bug ID $bugid is not on the list\nof acceptable bugs for the $branch branch!";
+ return 1;
+ } # if
+ } # foreach
+} # CheckBugIDs
+
+clearlog "Checkin checks started for $pname on $branch branch";
+
+if (CheckComment ($comment, $branch)) {
+ exit 1;
+} elsif (CheckBugIDs (ExtractBugIDs $comment)) {
+ exit 1;
+} # if
+
+clearlog "Successful precheckin of $pname on $branch branch with bug ID $bugid";
+
+exit 0;
--- /dev/null
+#!/usr/bin/perl
+################################################################################
+#
+# File: NotifyTrigger.pl
+# Description: This script is a generalized notify trigger. It takes one
+# parameter, a message file. The format of this file is similar
+# to an email message. Environment variables will be substituted.
+# Assumptions: Clearprompt is in the users PATH
+# Author: Andrew@DeFaria.com
+# Created: Tue Mar 12 15:42:55 2002
+# Language: Perl
+# Modifications:
+#
+# (c) Copyright 2002, Andrew@DeFaria.com, all rights reserved
+#
+################################################################################
+use strict;
+
+use Net::SMTP;
+
+my $mailhost;
+
+BEGIN {
+ # Add the appropriate path to our modules to @INC array. We use ipconfig to
+ # get the current host's IP address then determine whether we are in the US
+ # or China. Also set our mail server.
+ my @ipconfig = grep (/IP Address/, `ipconfig`);
+ my ($ipaddr) = ($ipconfig[0] =~ /(\d{1,3}\.\d{1,3}.\d{1,3}\.\d{1,3})/);
+
+ # US is in the subnets of 192 and 172 while China is in the subnet of 10
+ if ($ipaddr =~ /^192|^172/) {
+ $mailhost="sons-exch02.salira.com";
+ unshift (@INC, "//sons-clearcase/Views/official/Tools/lib");
+ } elsif ($ipaddr =~ /^10/) {
+ $mailhost="sons-exch03.salira.com";
+ unshift (@INC, "//sons-cc/Views/official/Tools/lib");
+ } else {
+ die "Internal Error: Unable to find our modules!\n"
+ } # if
+} # BEGIN
+
+use TriggerUtils;
+
+# This routine will replace references to environment variables. If an
+# environment variable is not defined then the string <Unknown> is
+# substituted.
+sub ReplaceText {
+ my $line = shift (@_);
+
+ my ($var, $value);
+
+ while ($line =~ /\$(\w+)/) {
+ $line =~ /\$(\w+)/;
+ $var = $1;
+ if ($ENV{$var} eq "") {
+ $line =~ s/\$$var/\<Unknown\>/;
+ } else {
+ $value = $ENV{$var};
+ $value =~ s/\\/\//g;
+ $line =~ s/\$$var/$value/;
+ } # if
+ } # while
+
+ return $line;
+} # ReplaceText
+
+sub error {
+ my $message = shift;
+
+ clearlogmsg $message;
+
+ exit 1;
+} # error
+
+# First open the message file. If we can't then there's a problem, die!
+open (MSG, $ARGV[0]) || error "Unable to open message file:\n\n$ARGV[0]\n\n($!)";
+
+my @lines = <MSG>;
+
+# Connect to mail server
+my $smtp = Net::SMTP->new ($mailhost);
+
+error "Unable to open connection to mail host: $mailhost" if $smtp == undef;
+
+# Compose message
+my $data_sent = "F";
+my $from_seen = "F";
+my $to_seen = "F";
+my ($line, $from, $to, @addresses);
+
+foreach $line (@lines) {
+ next if $line =~ /^\#/;
+ next if $line =~ /--/;
+
+ $line = ReplaceText $line;
+
+ if ($line =~ /^From:\s+/) {
+ $_ = $line;
+ $from = $line;
+ s/^From:\s+//;
+ $smtp->mail ($_);
+ $from_seen = "T";
+ next;
+ } # if
+
+ if ($line =~ /^To:\s+/) {
+ $_ = $line;
+ $to = $line;
+ s/^To:\s+//;
+ @addresses = split (/,|;| /);
+ $to_seen = "T";
+ foreach (@addresses) {
+ next if ($_ eq "");
+ $smtp->to ($_);
+ } # foreach
+ next;
+ } # if
+
+ if ($data_sent eq "F") {
+ $smtp->data ();
+ $smtp->datasend ($from);
+ $smtp->datasend ($to);
+ $data_sent = "T";
+ } # if
+
+ if ($from_seen eq "T" && $to_seen eq "T" && $data_sent eq "T") {
+ $smtp->datasend ($line);
+ } else {
+ clearlogmsg "Message file ($ARGV[0]) missing From and/or To!";
+ exit 1;
+ } # if
+} # foreach
+
+$smtp->dataend ();
+$smtp->quit;
+
+exit 0;
--- /dev/null
+#!/usr/bin/perl
+################################################################################
+#
+# File: RemoveEmptyBranch.pl
+# Description: This trigger script is remove empty branches. If a branch has
+# no elements (except the 0 element of course) after an uncheckout
+# or rmver, or the parent of a just-rmbranched branch is now empty,
+# remove it.
+#
+# Install like this:
+#
+# ct mktrtype -element -global -postop uncheckout,rmver,rmbranch \
+# -c "Remove empty branches after uncheckout, rmver, or rmbranch" \
+# -exec T:/Triggers/RemoveEmptyBranch RM_EMPTY_BRANCH
+# Assumptions: Clearprompt is in the users PATH
+# Author: Andrew@DeFaria.com
+# Created: Fri May 23 13:23:47 PDT 2003
+# Language: Perl
+# Modifications:
+#
+# (c) Copyright 2003, Andrew@DeFaria.com, all rights reserved
+#
+################################################################################
+use strict;
+
+BEGIN {
+ # Add the appropriate path to our modules to @INC array. We use ipconfig to
+ # get the current host's IP address then determine whether we are in the US
+ # or China. If neither then we fallback to using T:/Triggers.
+ my @ipconfig = grep (/IP Address/, `ipconfig`);
+ my ($ipaddr) = ($ipconfig[0] =~ /(\d{1,3}\.\d{1,3}.\d{1,3}\.\d{1,3})/);
+
+ # US is in the subnets of 192 and 172 while China is in the subnet of 10
+ if ($ipaddr =~ /^192|^172/) {
+ unshift (@INC, "//sons-clearcase/Views/official/Tools/lib");
+ } elsif ($ipaddr =~ /^10/) {
+ unshift (@INC, "//sons-cc/Views/official/Tools/lib");
+ } else {
+ die "Internal Error: Unable to find our modules!\n"
+ } # if
+} # BEGIN
+
+use TriggerUtils;
+
+# The following environment variables are set by Clearcase when this
+# trigger is called
+my $xname = $ENV{CLEARCASE_XPN};
+my $opkind = $ENV{CLEARCASE_OP_KIND};
+my $xn_sfx = $ENV{CLEARCASE_XN_SFX};
+my $os = $ENV{OS};
+my $brtype = $ENV{CLEARCASE_BRTYPE};
+#clearlog "Checking to see if the branch is empty and needs to be removed";
+#clearlog "xname = $xname";
+#clearlog "opkind = $opkind";
+#clearlog "xn_sfx = $xn_sfx";
+#clearlog "os = $os";
+
+$xname =~ s/\\/\//g if $ENV{OS} eq "Windows_NT";
+
+# For uncheckout, if the remaining version is not 0 then we are done;
+exit 0 if ($opkind eq "uncheckout" && $xname !~ m/\/0$/);
+
+#clearlog "Continuing...";
+my $branch;
+
+($branch = $xname) =~ s/\/[^\/]*$//;
+
+#clearlog "branch = $branch; xname = $xname";
+
+# Don't try to remove the /main branch
+exit 0 if $branch =~ m/\@\@\/main$/;
+
+# Check if there are other versions, branches, labels or checked out versions
+# on this branch. If so don't do anything.
+if (opendir (D, $branch)) {
+ # This opendir succeeds only in a dynamic view
+ #clearlog "In dynamic view!";
+ my @other_stuff = readdir (D);
+ closedir (D);
+
+ # In an empty branch there are four things: ".", "..", "0" an d"LATEST".
+ # If there are more then it isn't an empty branch
+ exit if (scalar (@other_stuff) != 4);
+} else {
+ # Snapshot views.
+ #clearlog "In snapshot view!";
+ my ($pname, $brpath) = split ($xn_sfx, $branch);
+ #clearlog "pname = $pname; brpath = $brpath";
+ # rmbranch will not reload the element...
+ system "cleartool update -log /dev/null \"$pname\"" if ($opkind eq "rmbranch");
+ my @vtree = `cleartool lsvtree -branch $brpath \"$pname\"`;
+ my $latest;
+ chomp ($latest = pop (@vtree));
+ $latest =~ tr/\\/\// if $os eq "Windows_NT";
+ #clearlog "latest = $latest";
+ exit 0 unless $latest =~ m/$brpath\/0$/;
+} # if
+
+# Remove the branch!
+clearlog "After $opkind branch is empty - removing empty branch $brtype";
+#clearlog "About to cleartool rmbranch -force -nc \"$branch\"";
+system "cleartool rmbranch -force -nc \"$branch\"";
+
+exit 0;
--- /dev/null
+################################################################################
+#
+# File: SetOwnershipTrigger.pl
+# Description: This script will set the ownership of Clearcase elements to
+# ccadmin when a mkelem is performed. This way all Clearcase
+# elements will be owned by ccadmin and therefore nobody but
+# ccadmin will be able to do the destructive rmelem.
+# Author: Andrew@DeFaria.com
+# Created: Wed Nov 14 16:41:48 2001
+# Language: Perl
+# Modifications:
+#
+# (c) Copyright 2001, Andrew@DeFaria.com, all rights reserved
+#
+################################################################################
+$pname = "$ENV{CLEARCASE_PN}";
+$adm = "ccadmin";
+
+# Get current owner
+$_ = `cleartool describe $pname`;
+if (/User :\s+(\S*)\s*:/) {
+ $owner = $1;
+} else {
+ $owner = "";
+}
+
+if ($owner ne "$adm") {
+ `cleartool protect -chown $adm $ENV{CLEARCASE_PN}`;
+}
projects / clearscm.git / commitdiff