1 & ***********************************************************
2 & * *
3 & * Copyright, C Honeywell Information Systems Inc., 1983 *
4 & * *
5 & ***********************************************************
6 &if exists argument &1 &then &goto doit.1
7 &else &print You must supply a pathname argument from which to
8 &print start mailbox canonicalization.
9 &print Usage: ec canonicalize_mailbox <pathname>
10 &quit
11 &label doit.1
12 &if exists directory "&1" &then &goto doit.2
13 &print canonicalize_mailbox.ec: "&1" is not an existent directory.
14 &quit
15 &label doit.2
16 set_system_priv dir
17 ws &1 "canonicalize_mailbox **.sv -force -privilege" -brief
18 set_system_priv ^dir
19 &quit