reg_svr/unreg_user.qc

   1 /*
   2  * Run the salvager after doing this!!
   3  */
   4
   5 main()
   6 {
   7
   8 ##      ingres sms
   9 ##      range of u is users
  10 ##      range of f is filesys
  11 ##      range of p is pobox
  12 ##      range of l is list
  13 ##      range of nq is nfsquota
  14
  15 ##      replace u (status = 0, login="#1003") where u.login = "tau"
  16
  17 ##      delete f where f.label = "tau"
  18 ##      delete p where p.box = "tau"
  19 ##      delete l where l.name = "tau"
  20 ##      delete nq where nq.users_id = 14651
  21
  22 }