Initial import of the CDE 2.1.30 sources from the Open Group.
[oweals/cde.git] / cde / admin / IntegTools / post_install / configHelpPrg.src
1 XCOMM! /bin/ksh
2 XCOMM #######
3 XCOMM   Product: CDE
4 XCOMM   Fileset: CDE-HELP
5 XCOMM   customize
6 XCOMM   @(#) $XConsortium: configHelpPrg.src /main/4 1996/04/23 19:32:56 drk $
7 XCOMM #######
8 XCOMM 
9 XCOMM  (c) Copyright Hewlett-Packard Company, 1993
10 XCOMM 
11 XCOMM #######
12 #define STAR *
13
14 RemoveHelpFiles()
15 {
16     while read SRC
17     do
18       if [ "$SRC" != "" ]
19       then
20         rm -f $SRC
21         dirname=${SRC%/STAR}
22         if [ -d $dirname ]
23         then
24           cd $dirname
25           while [ "$dirname" != "$CDE_TOP" ]
26           do
27             cd ..
28             rmdir ${dirname##STAR/} >/dev/null 2>/dev/null
29             dirname=${dirname%/STAR}
30           done
31         fi
32       fi
33     done <<-EOF
34 #include "CDE-HELP-PRG.list"
35         EOF
36 }
37
38 VerifyInstalledFiles()
39 {
40     echo "Status   mode    owner   group   filename"
41     echo "-----------------------------------------"
42 XCOMM     exists  correct correct correct  /usr/dt/foo1
43 XCOMM     MISSING  WRONG   WRONG   WRONG   /usr/dt/foo2
44 XCOMM         exists    the link is correct    /usr/dt/link
45
46     while read SRC
47     do
48 #include "verify.func"
49     done <<-EOF1
50 #include "CDE-HELP-PRG.lst"
51         EOF1
52 }
53
54 #include "option.func"
55
56 XCOMM ##########################################################################
57 XCOMM 
58 XCOMM                           Main Body
59 XCOMM 
60 XCOMM ##########################################################################
61
62 PRODUCT=CDE
63 FILESET=CDE-HELP
64 retval=0
65 CDE_TOP=CDE_INSTALLATION_TOP
66 CDE_CONF_TOP=CDE_CONFIGURATION_TOP
67
68   HandleOption $*
69
70   if [ "$OPERATION" = "deconfigure" ]
71   then
72
73     echo "de-Configuring for CDE-HELP-PRG..."
74
75     RemoveHelpFiles
76
77     VerifyInstalledFiles
78
79   elif [ "$OPERATION" = "verify" ]
80   then
81
82     VerifyInstalledFiles
83
84   fi
85
86 return $retval
87