/************************************************/
/*                                              */
/* emaginer.clientContact.pkg                   */
/*                                              */
/* Emaginer site upload service                 */
/*                                              */
/* permet de recevoir sur le client, depuis le  */
/* ctrlcenter (ccEMclientContact.pkg), les      */
/* fichiers pkg permettant de lancer            */
/* l'authentification de l'utilisateur          */
/*                                              */
/* by Loïc Berthelot, sept. 2000  */
/*                                              */
/* ver 0.9                                      */
/*                                              */
/************************************************/











/* list of received files : filename, content */
typeof contactFilesList = [[S S] r1];;

fun _contactFileBycontactFile (el, filename) = 
  let el -> [name _]
  in !strcmp name filename;;


fun __sendContactFile (filename, packet) =
  
  let search_in_list contactFilesList @_contactFileBycontactFile filename
  -> el
  in if (el == nil)
     then 
     (
       set contactFilesList = listcat contactFilesList [filename packet]::nil;
       1;
     )
     else
       let el -> [name content]
       in 
          if (packet == nil)
	  then 
	  (
	    _storepack content name;
	    1;
	  )
	  else 
	  (
	    mutate el <- [_ (strcat content packet)];
	    1;
	  );
  1;;
     







defcom ccEMCCack = ccEMCCack ;;

fun __sendContactScript (script) = 
  _script script;
  http_on _http_channel ccEMCCack [];
  1;;