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