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

diff --git a/clients/HP/bin/lspatches b/clients/HP/bin/lspatches
new file mode 100644
index 0000000..ca8dc86
--- /dev/null
+++ b/clients/HP/bin/lspatches
@@ -0,0 +1,28 @@
+#!/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