wrappers/pl_HTTP_Cookies.ml

   1 (** Wrapper around Perl [HTTP::Cookies] class. *)
   2 (*  Copyright (C) 2003 Merjis Ltd.
   3
   4     This library is free software; you can redistribute it and/or
   5     modify it under the terms of the GNU Library General Public
   6     License as published by the Free Software Foundation; either
   7     version 2 of the License, or (at your option) any later version.
   8
   9     This library is distributed in the hope that it will be useful,
  10     but WITHOUT ANY WARRANTY; without even the implied warranty of
  11     MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
  12     Library General Public License for more details.
  13
  14     You should have received a copy of the GNU General Public License
  15     along with this library; see the file COPYING.  If not, write to
  16     the Free Software Foundation, Inc., 59 Temple Place - Suite 330,
  17     Boston, MA 02111-1307, USA.
  18
  19     $Id: pl_HTTP_Cookies.ml,v 1.2 2008-03-01 13:02:21 rich Exp $
  20   *)
  21
  22 open Perl
  23
  24 let _ = eval "use HTTP::Cookies"
  25
  26 class http_cookies sv =
  27
  28 object (self)
  29   method sv = sv
  30
  31   method save ?filename () =
  32     let args = match filename with
  33         None -> []
  34       | Some filename -> [sv_of_string filename] in
  35     call_method_void sv "save" args
  36
  37   method load ?filename () =
  38     let args = match filename with
  39         None -> []
  40       | Some filename -> [sv_of_string filename] in
  41     call_method_void sv "load" args
  42
  43   method revert () =
  44     call_method_void sv "revert" []
  45
  46   method as_string ?skip_discardables () =
  47     let args = match skip_discardables with
  48         None -> []
  49       | Some b -> [sv_of_bool b] in
  50     string_of_sv (call_method sv "as_string" args)
  51
  52 end
  53
  54 let new_ ?file ?autosave ?ignore_discard ?hide_cookie2 () =
  55   let args = ref [] in
  56   let may f = function None -> () | Some v -> f v in
  57   may (fun v ->
  58          args := sv_of_string "file" :: sv_of_string v :: !args) file;
  59   may (fun v ->
  60          args := sv_of_string "autosave" :: sv_of_bool v :: !args) autosave;
  61   may (fun v ->
  62          args := sv_of_string "ignore_discard" :: sv_of_bool v :: !args)
  63     ignore_discard;
  64   may (fun v ->
  65          args := sv_of_string "hide_cookie2" :: sv_of_bool v :: !args)
  66     hide_cookie2;
  67   let sv = call_class_method "HTTP::Cookies" "new" !args in
  68   new http_cookies sv