git.chise.org Git - chise/xemacs-chise.git-/blob - netinstall/uninstall.cc

   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 #include "desktop.h"
  52
  53 #include "port.h"
  54
  55 #define XM_DONE (WM_USER + 101)
  56
  57 static HWND unins_dialog = 0;
  58 static HWND unins_action = 0;
  59 static HWND unins_pkgname = 0;
  60 static HWND unins_filename = 0;
  61 static HWND unins_pprogress = 0;
  62 static HWND unins_iprogress = 0;
  63 static HWND unins_diskfull = 0;
  64 static HANDLE init_event;
  65
  66 static int package_bytes = 0;
  67 static int uninstall_started = 0;
  68
  69 extern char * map_filename (char *fn, int type);
  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   if (package_bytes > 100)
 151     {
 152       perc = (bytes * 100) / package_bytes;
 153       SendMessage (unins_pprogress, PBM_SETPOS, (WPARAM) perc, 0);
 154     }
 155
 156   if (npackages > 0)
 157     {
 158       perc = (num * 100) / npackages;
 159       SendMessage (unins_iprogress, PBM_SETPOS, (WPARAM) perc, 0);
 160     }
 161 }
 162
 163 static int num_installs, num_uninstalls;
 164
 165 static void
 166 uninstall_one (char *name, int type, int num)
 167 {
 168   hash dirs;
 169   char line[_MAX_PATH];
 170   char* fname = (type == TY_GENERIC ?
 171                  concat (root_dir, XEMACS_PACKAGE_DIR, "pkginfo/MANIFEST.",
 172                          name,  0) :
 173                  concat (root_dir, XEMACS_SETUP_DIR, "MANIFEST.", name,  0));
 174
 175   FILE* lst = fopen (fname, "rb");
 176   int pos = 0;
 177
 178   if (lst)
 179     {
 180       fseek (lst, 0, SEEK_END);
 181       package_bytes = ftell (lst);
 182       fseek (lst, 0, SEEK_SET);
 183
 184       SetWindowText (unins_pkgname, name);
 185       SetWindowText (unins_action, "Uninstalling...");
 186       log (0, "uninstalling %s", name);
 187
 188       while (fgets (line, sizeof (line), lst))
 189         {
 190           progress (pos, num);
 191           pos += strlen(line);
 192           if (line[strlen(line)-1] == '\n')
 193             line[strlen(line)-1] = 0;
 194
 195           dirs.add_subdirs (line);
 196
 197           char *d = map_filename (line, type);
 198           DWORD dw = GetFileAttributes (d);
 199           if (dw != 0xffffffff && !(dw & FILE_ATTRIBUTE_DIRECTORY))
 200             {
 201               log (LOG_BABBLE, "unlink %s", d);
 202               DeleteFile (d);
 203             }
 204         }
 205       fclose (lst);
 206       remove (fname);
 207
 208       dirs.reverse_sort ();
 209       char *subdir = 0;
 210       while ((subdir = dirs.enumerate (subdir)) != 0)
 211         {
 212           char *d = map_filename (subdir, type);
 213           if (RemoveDirectory (d))
 214             log (LOG_BABBLE, "rmdir %s", d);
 215         }
 216       num_uninstalls ++;
 217     }
 218 }
 219
 220 void
 221 do_uninstall (HINSTANCE h)
 222 {
 223   num_installs = 0, num_uninstalls = 0;
 224
 225   next_dialog = 0;              // we're done after this
 226
 227   if (!root_dir)
 228     fatal ("no installation found");
 229
 230   int rv = DialogBox (h, MAKEINTRESOURCE (IDD_UNINSTALL), 0, dialog_proc);
 231   if (rv == -1)
 232     fatal (IDS_DIALOG_FAILED);
 233 }
 234
 235 static void
 236 read_installed_db ()
 237 {
 238   if (!root_dir)
 239     return;
 240
 241   char line[1000], pkg[1000], inst[1000], src[1000];
 242   int instsz, srcsz;
 243
 244   FILE *db = fopen (concat (root_dir, XEMACS_SETUP_DIR, "installed.db", 0), "rt");
 245   if (!db)
 246     return;
 247
 248   while (fgets (line, 1000, db))
 249     {
 250       src[0] = 0;
 251       srcsz = 0;
 252       sscanf (line, "%s %s %d %s %d", pkg, inst, &instsz, src, &srcsz);
 253
 254       log (0, "read %s", pkg);
 255       Package* np = new_package(strdup(pkg));
 256       pinfo(*np).install = inst;
 257       pinfo(*np).install_size = instsz;
 258       // pick up versoin
 259       char *v, *d;
 260       for (v=base (inst); *v; v++)
 261         if (*v == '-' && isdigit(v[1]))
 262           {
 263             v++;
 264             break;
 265           }
 266       if (!v)
 267         v = inst;
 268       for (d=v; *d; d++)
 269         if (strncmp (d, ".tar", 4) == 0
 270             || strncmp (d, "-pkg", 4) == 0)
 271           {
 272             *d = 0;
 273             break;
 274           }
 275       if (v[0])
 276         pinfo(*np).version = strdup (v);
 277       else
 278         pinfo(*np).version = "0";
 279       // Crude but effective
 280       if (pkg != 0)
 281         if (strncmp ("xemacs-i686", pkg, 11) == 0
 282             || (strncmp ("xemacs-i586", pkg, 11) == 0))
 283           {
 284             np->type = install_type;
 285             xemacs_package = np;
 286           }
 287     }
 288   fclose (db);
 289 }
 290
 291 static DWORD WINAPI
 292 uninstall_all (void *)
 293 {
 294   int i;
 295   SetEvent (init_event);
 296
 297   int df = diskfull (root_dir);
 298   SendMessage (unins_diskfull, PBM_SETPOS, (WPARAM) df, 0);
 299
 300   read_installed_db();
 301
 302   log (0, "There are %d packages\n", npackages);
 303   for (i=0; i<npackages; i++)
 304     {
 305       log (0, "uninstalling %s\n", package[i].name);
 306       uninstall_one (package[i].name, package[i].type, i);
 307     }
 308
 309   PostMessage (unins_dialog, XM_DONE, 0, 0);
 310
 311   remove (concat (root_dir, XEMACS_SETUP_DIR, "installed.db.old", 0));
 312   remove (concat (root_dir, XEMACS_SETUP_DIR, "installed.db", 0));
 313
 314   remove_desktop_setup();
 315   remove_xemacs_root();
 316   remove_uninstall_path();
 317
 318   if (num_installs == 0)
 319     {
 320       //      exit_msg = IDS_UNINSTALL_COMPLETE;
 321       return FALSE;
 322     }
 323
 324   return FALSE;
 325 }