|
657
|
1 /*
|
|
|
2 * Copyright (c) 2000, Red Hat, Inc.
|
|
|
3 *
|
|
|
4 * This program is free software; you can redistribute it and/or modify
|
|
|
5 * it under the terms of the GNU General Public License as published by
|
|
|
6 * the Free Software Foundation; either version 2 of the License, or
|
|
|
7 * (at your option) any later version.
|
|
|
8 *
|
|
|
9 * A copy of the GNU General Public License can be found at
|
|
|
10 * http://www.gnu.org/
|
|
|
11 *
|
|
|
12 * Written by DJ Delorie <dj@cygnus.com>
|
|
|
13 *
|
|
|
14 */
|
|
|
15
|
|
|
16 /* The purpose of this file is to intall all the packages selected in
|
|
|
17 the install list (in ini.h). Note that we use a separate thread to
|
|
|
18 maintain the progress dialog, so we avoid the complexity of
|
|
|
19 handling two tasks in one thread. We also create or update all the
|
|
|
20 files in /etc/setup and create the mount points. */
|
|
|
21
|
|
|
22 #include <io.h>
|
|
|
23 #include <stdio.h>
|
|
|
24 #include <stdlib.h>
|
|
|
25 #include <ctype.h>
|
|
|
26 #ifndef WIN32_NATIVE
|
|
|
27 #include <unistd.h>
|
|
|
28 #endif
|
|
|
29 #include <sys/types.h>
|
|
|
30 #include <sys/stat.h>
|
|
|
31 #include <errno.h>
|
|
|
32 #include <zlib.h>
|
|
|
33
|
|
|
34 #include "win32.h"
|
|
|
35 #include "commctrl.h"
|
|
|
36
|
|
|
37 #include "resource.h"
|
|
|
38 #include "ini.h"
|
|
|
39 #include "dialog.h"
|
|
|
40 #include "concat.h"
|
|
|
41 #include "geturl.h"
|
|
|
42 #include "mkdir.h"
|
|
|
43 #include "state.h"
|
|
|
44 #include "tar.h"
|
|
|
45 #include "diskfull.h"
|
|
|
46 #include "msg.h"
|
|
|
47 #include "regedit.h"
|
|
|
48 #include "reginfo.h"
|
|
|
49 #include "log.h"
|
|
|
50 #include "hash.h"
|
|
|
51
|
|
|
52 #include "port.h"
|
|
|
53
|
|
|
54 #define XM_DONE (WM_USER + 101)
|
|
|
55
|
|
|
56 static HWND unins_dialog = 0;
|
|
|
57 static HWND unins_action = 0;
|
|
|
58 static HWND unins_pkgname = 0;
|
|
|
59 static HWND unins_filename = 0;
|
|
|
60 static HWND unins_pprogress = 0;
|
|
|
61 static HWND unins_iprogress = 0;
|
|
|
62 static HWND unins_diskfull = 0;
|
|
|
63 static HANDLE init_event;
|
|
|
64
|
|
|
65 static int package_bytes = 0;
|
|
|
66 static int uninstall_started = 0;
|
|
|
67
|
|
|
68 extern char * map_filename (char *fn, int type);
|
|
|
69 void remove_desktop_setup ();
|
|
|
70 static void start_uninstall ();
|
|
|
71
|
|
|
72 char *
|
|
|
73 base (char *s);
|
|
|
74
|
|
|
75 static BOOL
|
|
|
76 dialog_cmd (HWND h, int id, HWND hwndctl, UINT code)
|
|
|
77 {
|
|
|
78 switch (id)
|
|
|
79 {
|
|
|
80 case IDCANCEL:
|
|
|
81 exit_setup (1);
|
|
|
82 case IDOK:
|
|
|
83 if (uninstall_started == 0) {
|
|
|
84 uninstall_started = 1;
|
|
|
85 start_uninstall();
|
|
|
86 }
|
|
|
87 else
|
|
|
88 exit_setup(0);
|
|
|
89 break;
|
|
|
90 }
|
|
|
91 return FALSE;
|
|
|
92 }
|
|
|
93
|
|
|
94 static BOOL CALLBACK
|
|
|
95 dialog_proc (HWND h, UINT message, WPARAM wParam, LPARAM lParam)
|
|
|
96 {
|
|
|
97 switch (message)
|
|
|
98 {
|
|
|
99 case WM_INITDIALOG:
|
|
|
100 unins_dialog = h;
|
|
|
101 unins_action = GetDlgItem (h, IDC_UNINS_ACTION);
|
|
|
102 unins_pkgname = GetDlgItem (h, IDC_UNINS_PKG);
|
|
|
103 unins_filename = GetDlgItem (h, IDC_UNINS_FILE);
|
|
|
104 unins_pprogress = GetDlgItem (h, IDC_UNINS_PPROGRESS);
|
|
|
105 unins_iprogress = GetDlgItem (h, IDC_UNINS_IPROGRESS);
|
|
|
106 unins_diskfull = GetDlgItem (h, IDC_UNINS_DISKFULL);
|
|
|
107 SendMessage (unins_pprogress, PBM_SETRANGE, 0, MAKELPARAM (0, 100));
|
|
|
108 SendMessage (unins_iprogress, PBM_SETRANGE, 0, MAKELPARAM (0, 100));
|
|
|
109 SendMessage (unins_diskfull, PBM_SETRANGE, 0, MAKELPARAM (0, 100));
|
|
|
110 SetWindowText (unins_pkgname, "");
|
|
|
111 SetWindowText (unins_filename, "");
|
|
|
112 SendMessage (unins_pprogress, PBM_SETPOS, (WPARAM) 0, 0);
|
|
|
113 SendMessage (unins_iprogress, PBM_SETPOS, (WPARAM) 0, 0);
|
|
|
114 SendMessage (unins_diskfull, PBM_SETPOS, (WPARAM) 0, 0);
|
|
|
115 return FALSE;
|
|
|
116
|
|
|
117 case XM_DONE:
|
|
|
118 {
|
|
|
119 SetWindowText (GetDlgItem (h, IDOK), "Ok");
|
|
|
120 LONG style = GetWindowLong (GetDlgItem (h, IDCANCEL),
|
|
|
121 GWL_STYLE);
|
|
|
122 SetWindowLong (GetDlgItem (h, IDCANCEL),
|
|
|
123 GWL_STYLE, style & WS_DISABLED);
|
|
|
124 }
|
|
|
125 return FALSE;
|
|
|
126
|
|
|
127 case WM_COMMAND:
|
|
|
128 return HANDLE_WM_COMMAND (h, wParam, lParam, dialog_cmd);
|
|
|
129 }
|
|
|
130 return DefWindowProc (h, message, wParam, lParam);
|
|
|
131 }
|
|
|
132
|
|
|
133 static DWORD WINAPI uninstall_all (void *);
|
|
|
134
|
|
|
135 static void
|
|
|
136 start_uninstall ()
|
|
|
137 {
|
|
|
138 DWORD tid;
|
|
|
139 HANDLE thread;
|
|
|
140 init_event = CreateEvent (0, 0, 0, 0);
|
|
|
141 thread = CreateThread (0, 0, uninstall_all, 0, 0, &tid);
|
|
|
142 WaitForSingleObject (init_event, 10000);
|
|
|
143 CloseHandle (init_event);
|
|
|
144 }
|
|
|
145
|
|
|
146 static void
|
|
|
147 progress (int bytes, int num)
|
|
|
148 {
|
|
|
149 int perc;
|
|
|
150 log (0, "%d bytes", bytes);
|
|
|
151 if (package_bytes > 100)
|
|
|
152 {
|
|
|
153 perc = (bytes * 100) / package_bytes;
|
|
|
154 SendMessage (unins_pprogress, PBM_SETPOS, (WPARAM) perc, 0);
|
|
|
155 }
|
|
|
156
|
|
|
157 if (npackages > 0)
|
|
|
158 {
|
|
|
159 perc = (num * 100) / npackages;
|
|
|
160 SendMessage (unins_iprogress, PBM_SETPOS, (WPARAM) perc, 0);
|
|
|
161 }
|
|
|
162 }
|
|
|
163
|
|
|
164 static int num_installs, num_uninstalls;
|
|
|
165
|
|
|
166 static void
|
|
|
167 uninstall_one (char *name, int type, int num)
|
|
|
168 {
|
|
|
169 hash dirs;
|
|
|
170 char line[_MAX_PATH];
|
|
|
171 char* fname = (type == TY_GENERIC ?
|
|
|
172 concat (root_dir, XEMACS_PACKAGE_DIR, "pkginfo/MANIFEST.",
|
|
|
173 name, 0) :
|
|
|
174 concat (root_dir, XEMACS_SETUP_DIR, "MANIFEST.", name, 0));
|
|
|
175
|
|
|
176 FILE* lst = fopen (fname, "rb");
|
|
|
177 int pos = 0;
|
|
|
178
|
|
|
179 if (lst)
|
|
|
180 {
|
|
|
181 fseek (lst, 0, SEEK_END);
|
|
|
182 package_bytes = ftell (lst);
|
|
|
183 fseek (lst, 0, SEEK_SET);
|
|
|
184
|
|
|
185 SetWindowText (unins_pkgname, name);
|
|
|
186 SetWindowText (unins_action, "Uninstalling...");
|
|
|
187 log (0, "uninstalling %s", name);
|
|
|
188
|
|
|
189 while (fgets (line, sizeof (line), lst))
|
|
|
190 {
|
|
|
191 progress (pos, num);
|
|
|
192 pos += strlen(line);
|
|
|
193 if (line[strlen(line)-1] == '\n')
|
|
|
194 line[strlen(line)-1] = 0;
|
|
|
195
|
|
|
196 dirs.add_subdirs (line);
|
|
|
197
|
|
|
198 char *d = map_filename (line, type);
|
|
|
199 DWORD dw = GetFileAttributes (d);
|
|
|
200 if (dw != 0xffffffff && !(dw & FILE_ATTRIBUTE_DIRECTORY))
|
|
|
201 {
|
|
|
202 log (LOG_BABBLE, "unlink %s", d);
|
|
|
203 DeleteFile (d);
|
|
|
204 }
|
|
|
205 }
|
|
|
206 fclose (lst);
|
|
|
207 remove (fname);
|
|
|
208
|
|
|
209 dirs.reverse_sort ();
|
|
|
210 char *subdir = 0;
|
|
|
211 while ((subdir = dirs.enumerate (subdir)) != 0)
|
|
|
212 {
|
|
|
213 char *d = map_filename (subdir, type);
|
|
|
214 if (RemoveDirectory (d))
|
|
|
215 log (LOG_BABBLE, "rmdir %s", d);
|
|
|
216 }
|
|
|
217 num_uninstalls ++;
|
|
|
218 }
|
|
|
219 }
|
|
|
220
|
|
|
221 void
|
|
|
222 do_uninstall (HINSTANCE h)
|
|
|
223 {
|
|
|
224 num_installs = 0, num_uninstalls = 0;
|
|
|
225
|
|
|
226 next_dialog = 0; // we're done after this
|
|
|
227
|
|
|
228 if (!root_dir)
|
|
|
229 fatal ("no installation found");
|
|
|
230
|
|
|
231 int rv = DialogBox (h, MAKEINTRESOURCE (IDD_UNINSTALL), 0, dialog_proc);
|
|
|
232 if (rv == -1)
|
|
|
233 fatal (IDS_DIALOG_FAILED);
|
|
|
234 }
|
|
|
235
|
|
|
236 static void
|
|
|
237 read_installed_db ()
|
|
|
238 {
|
|
|
239 if (!root_dir)
|
|
|
240 return;
|
|
|
241
|
|
|
242 char line[1000], pkg[1000], inst[1000], src[1000];
|
|
|
243 int instsz, srcsz;
|
|
|
244
|
|
|
245 FILE *db = fopen (concat (root_dir, XEMACS_SETUP_DIR, "installed.db", 0), "rt");
|
|
|
246 if (!db)
|
|
|
247 return;
|
|
|
248
|
|
|
249 while (fgets (line, 1000, db))
|
|
|
250 {
|
|
|
251 src[0] = 0;
|
|
|
252 srcsz = 0;
|
|
|
253 sscanf (line, "%s %s %d %s %d", pkg, inst, &instsz, src, &srcsz);
|
|
|
254
|
|
|
255 log (0, "read %s", pkg);
|
|
|
256 Package* np = new_package(strdup(pkg));
|
|
|
257 pinfo(*np).install = inst;
|
|
|
258 pinfo(*np).install_size = instsz;
|
|
|
259 // pick up versoin
|
|
|
260 char *v, *d;
|
|
|
261 for (v=base (inst); *v; v++)
|
|
|
262 if (*v == '-' && isdigit(v[1]))
|
|
|
263 {
|
|
|
264 v++;
|
|
|
265 break;
|
|
|
266 }
|
|
|
267 if (!v)
|
|
|
268 v = inst;
|
|
|
269 for (d=v; *d; d++)
|
|
|
270 if (strncmp (d, ".tar", 4) == 0
|
|
|
271 || strncmp (d, "-pkg", 4) == 0)
|
|
|
272 {
|
|
|
273 *d = 0;
|
|
|
274 break;
|
|
|
275 }
|
|
|
276 if (v[0])
|
|
|
277 pinfo(*np).version = strdup (v);
|
|
|
278 else
|
|
|
279 pinfo(*np).version = "0";
|
|
|
280 // Crude but effective
|
|
|
281 if (pkg != 0)
|
|
|
282 if (strncmp ("xemacs-i686", pkg, 11) == 0
|
|
|
283 || (strncmp ("xemacs-i586", pkg, 11) == 0))
|
|
|
284 np->type = install_type;
|
|
|
285 }
|
|
|
286 fclose (db);
|
|
|
287 }
|
|
|
288
|
|
|
289 static DWORD WINAPI
|
|
|
290 uninstall_all (void *)
|
|
|
291 {
|
|
|
292 int i;
|
|
|
293 SetEvent (init_event);
|
|
|
294
|
|
|
295 int df = diskfull (root_dir);
|
|
|
296 SendMessage (unins_diskfull, PBM_SETPOS, (WPARAM) df, 0);
|
|
|
297
|
|
|
298 read_installed_db();
|
|
|
299
|
|
|
300 log (0, "There are %d packages\n", npackages);
|
|
|
301 for (i=0; i<npackages; i++)
|
|
|
302 {
|
|
|
303 log (0, "uninstalling %s\n", package[i].name);
|
|
|
304 uninstall_one (package[i].name, package[i].type, i);
|
|
|
305 }
|
|
|
306
|
|
|
307 PostMessage (unins_dialog, XM_DONE, 0, 0);
|
|
|
308
|
|
|
309 remove_desktop_setup();
|
|
|
310 char *odbn = concat (root_dir, XEMACS_SETUP_DIR, "installed.db", 0);
|
|
|
311 char *sdbn = concat (root_dir, XEMACS_SETUP_DIR, "installed.db.old", 0);
|
|
|
312
|
|
|
313 remove (sdbn);
|
|
|
314 remove (odbn);
|
|
|
315
|
|
|
316 remove_xemacs_root();
|
|
|
317 remove_uninstall_path();
|
|
|
318
|
|
|
319 if (num_installs == 0)
|
|
|
320 {
|
|
|
321 // exit_msg = IDS_UNINSTALL_COMPLETE;
|
|
|
322 return FALSE;
|
|
|
323 }
|
|
|
324
|
|
|
325 return FALSE;
|
|
|
326 }
|
