/* DirectoryRegister Server - Jan 2000 - Sylvain Huet */
/* registering part */
/* 1.0 */

defcom CgetKeys=getKeys;;
defcom Ccard=card S S S S S S S S S I I S;;
defcom CaddBitmap=addBitmap S I;;

fun __getBitmap(x)=
 let _getpack _checkpack picture -> bmp in
 if bmp==nil then nil
  else let strlen bmp -> len in
  let 0->i in while i<len do
  (_on _channel CaddBitmap [substr bmp i 1024 x];
   set i=i+1024);
 _on _channel CaddBitmap [nil x];;
    
fun __nameRefused(title,msg)=
 _DLGMessageBox ch DMSwin title msg 0;;

fun __sendKeys(k)=
 let _fileSign _checkpack picture -> bitmap in
 _on _channel Ccard
 [author DMSname email crypt password k bitmap msg
  _hostIP urlscol urlhttp timeout sizelist DMSclients lang];;

fun _connected()=_on _channel CgetKeys [];;

fun _closed()=endRegistering;;