/* Password Client - DMS - March 97 - by Sylvain HUET */

var eneeded="Dms/Tools/Passwd/passwdw.pkg"::"Dms/Tools/Passwd/passwdce.pkg"::nil;;
var escript="_load \"Dms/Tools/Passwd/passwdw.pkg\"\n_load \"Dms/Tools/Passwd/passwdce.pkg\"\n";;
var edit=0;;

defcom Canswer=answer I S;;

fun IniDMI(param)=0;;

fun end(ps,z)=
 let z->[i k] in
 _DMSsend this Canswer [i _getlongname strcat ps itoa k "" "#"];;

fun __quizz(s,i,k)=
 iniEnterBox _channel DMSwin nil nil (_loc this "PASS_TITLE" nil) mknode @end [i k] s;;
 
fun getFileErr(f,name)=
 if f==nil then
  (_DLGrflmessage _DLGMessageBox _channel DMSwin (_loc this "ERROR_ED" nil) 
    strcat name (_loc this "ERROR_FILE" nil) 0 nil 0; nil)
 else set edit=edit+1;;

fun getfile(a,d)=
 _RSCdownload this a a mkfun2 @getFileErr a 3;;

defcom Smain=main S;;

fun ok(a,s)=
 if edit!=sizelist eneeded then set edit=0
 else (_script escript;_script mkscript Smain [s]);;

fun __edit(s)=
 if edit==sizelist eneeded then _script mkscript Smain [s]
 else if edit then nil
 else
 (apply_on_list eneeded @getfile 0;
  _RSCdownload this nil nil mknode @ok s 1;
  0);;