Diff

Differences From Artifact [195a50ba5e]:

To Artifact [25b5870365]:


     1      1   #! /usr/bin/env tclsh
     2      2   
            3  +# Copyright (c) 2016, Roy Keene
            4  +# All rights reserved.
            5  +# 
            6  +# Redistribution and use in source and binary forms, with or without
            7  +# modification, are permitted provided that the following conditions are
            8  +# met:
            9  +#         1. Redistributions of source code must retain the above copyright
           10  +#            notice, this list of conditions and the following disclaimer.
           11  +# 
           12  +#         2. Redistributions in binary form must reproduce the above
           13  +#            copyright notice, this list of conditions and the following
           14  +#            disclaimer in the documentation and/or other materials
           15  +#            provided with the distribution.
           16  +#
           17  +# THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS "AS 
           18  +# IS" AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED 
           19  +# TO, THE IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A 
           20  +# PARTICULAR PURPOSE ARE DISCLAIMED. IN NO EVENT SHALL THE COPYRIGHT 
           21  +# HOLDER OR CONTRIBUTORS BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, 
           22  +# SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED 
           23  +# TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, DATA, OR 
           24  +# PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF 
           25  +# LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING 
           26  +# NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF THIS 
           27  +# SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.
           28  +
     3     29   set passwordFile [lindex $argv 0]
     4     30   set action [lindex $argv 1]
     5     31   
     6     32   set validCommands [list "listLocalKeys" "listPasswords" "listAvailablePasswords" "listUsers" "addUser" "addPassword" "authorizeUser" "authorizeUsers" "deauthorizeUser" "deauthorizeUsers" "getPassword" "updatePassword" "deletePassword" "help"]
     7     33   
     8     34   proc _argDescription {command argName} {
     9     35   	switch -- $argName {