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