/* cliDyndns module - part editor - 09/2004 */
/* author : iri - http://www.irizone.net */

typeof editWin = ObjWin;;
typeof combo = ObjBox;;
typeof domain = ObjText;;
typeof username = ObjText;;
typeof password = ObjText;;
typeof refresh = ObjCheck;;

fun load (l) =
 _SETcheck refresh atoi getInfo l "refresh";
 _SETtext domain getInfo l "domain";
 _SETtext username getInfo l "username";
 _SETtext password getInfo l "password";
 _SSELcombo combo getInfo l "typeSrv";
 0;;

fun save (s, n)=
  let _GETcombo combo -> [_ type] in
  ("action"::"update"::nil)::
  ("action"::"offline"::nil)::
  ("action"::"enterIP"::nil)::
  ("refresh"::(itoa _GETcheck refresh)::nil)::
  ("domain"::(_GETtext domain)::nil)::
  ("username"::(_GETtext username)::nil)::
  ("password"::(_GETtext password)::nil)::
  ("typeSrv"::type::nil)::
  nil;;
  
fun IniEditor (filename)=
  let [315 190] -> [w h] in
  let startEditor
    _channel nil nil nil w h WN_NORMAL EDITOR_NORMAL
    filename "dms/admin/clidyndns/dyndns.dmc" nil nil
    @load @save nil
  -> ed in
    (
      set editWin = getEditWin ed;
      _CRtext _channel editWin 5 5 150 20 0 "Service :";
      set combo = _CRcombo _channel editWin 160 5 150 220 CB_NOEDIT|CB_DOWN "DynamicDNS (dyndns.org)";
      _ADDcombo combo 0 "DynamicDNS (dyndns.org)";
      _ADDcombo combo 1 "StaticDNS (dyndns.org)";
      _ADDcombo combo 2 "CustomDNS (dyndns.org)";
      _ADDcombo combo 3 "www.no-ip.com";
      _ADDcombo combo 4 "www.2mydns.com";
      _ADDcombo combo 5 "dns.blueline.be";
      _ADDcombo combo 6 "www.changeip.com";
      _ADDcombo combo 7 "www.cjb.net";
      _ADDcombo combo 8 "www.dnsexit.com";
      _ADDcombo combo 9 "www.dyns.net";
      _ADDcombo combo 10 "www.sitelutions.com";
      _ADDcombo combo 11 "www.ovh.com (dynHost)";
      _ADDcombo combo 12 "www.myip.us";
      _CRtext _channel editWin 5 30 150 20 0 "Alias :";
      set domain = _CReditLine _channel editWin 160 30 150 20 ET_DOWN|ET_AHSCROLL nil;
      _CRtext _channel editWin 5 55 150 20 0 "Username :";
      set username = _CReditLine _channel editWin 160 55 150 20 ET_DOWN|ET_AHSCROLL nil;
      _CRtext _channel editWin 5 80 150 20 0 "Password :";
      set password = _CReditLine _channel editWin 160 80 150 20 ET_DOWN|ET_AHSCROLL nil;
      _CRtext _channel editWin 5 105 150 20 0 "Refresh auto (yes or no) ? :";
      set refresh = _CRcheck _channel editWin 295 105 15 15 CH_DOWN nil;
      _CRtext _channel editWin 5 130 w-10 50 ET_BORDER "Beta version !! Read help before use !\nVersion beta !! Lisez l'aide avant de l'utiliser !\nSupport : http://www.irizone.net";
      
      if filename==nil then nil else openDMI ed
  );
0;;