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