(* $Id$ * ---------------------------------------------------------------------- * *) let encode s = Netencoding.Base64.encode s;; let url_encode s = Netencoding.Base64.url_encode s;; let decode s = Netencoding.Base64.decode s;; (* ====================================================================== * History: * * $Log$ * Revision 1.1 2000/11/17 09:57:27 lpadovan * Initial revision * * Revision 1.2 2000/06/25 22:34:43 gerd * Added labels to arguments. * * Revision 1.1 2000/03/02 01:15:20 gerd * Initial revision. * * *)