on *:start:{ var %:host = 1 | while %:host <= $findfile(Hosting,*,0) { .hmake $token($findfile(Hosting,*,%:host),-1,92) | .hload $token($findfile(Hosting,*,%:host),-1,92) $+(Hosting/,$token($findfile(Hosting,*,%:host),-1,92)) | inc %:host } }
menu * {
  Hosting Takip
  .Ekle:.dialog -ms htakip htakip
  .Liste/Sil:.dialog -ms hlist hlist
}

dialog hlist {
  title "- Hosting Takip Listesi -"
  size -1 -1 200 108
  option dbu
  list 1, 5 5 80 100, size
  text "IP:", 2, 86 6 33 8, right
  list 3, 120 5 75 10, size
  text "Paket:", 4, 86 20 33 8, right
  list 5, 120 19 75 10, size
  text "Başlama T*:", 6, 86 34 33 8, right
  list 7, 120 33 75 10, size
  text "Fiyat:", 8, 86 48 33 8, right
  list 9, 120 47 75 10, size
  text "Ödeme T*:", 10, 86 62 33 8, right
  list 11, 120 61 75 10, size
  button "SİL", 12, 95 80 37 12
  button "KAPAT", 13, 141 80 37 12, ok cancel
  box "", 14, 2 -1 196 108
  box "", 15, 93 75 87 20
}
dialog htakip {
  title "- Hosting Takip -"
  size -1 -1 118 109
  option dbu
  text "Domain Adı:", 1, 5 6 30 8, right
  edit "", 2, 38 5 75 10, autohs
  box "", 7, 1 -2 116 109
  text "IP:", 3, 5 20 30 8, right
  edit "", 4, 38 19 75 10, autohs
  text "Paket:", 5, 5 34 30 8, right
  edit "", 6, 38 33 75 10, autohs
  text "Başlama T*:", 8, 5 48 30 8, right
  edit "", 9, 38 47 75 10, autohs
  text "Fiyat:", 10, 5 62 30 8, right
  edit "", 11, 38 61 75 10, autohs
  text "Ödeme T*:", 12, 5 76 30 8, right
  edit "", 13, 38 75 75 10, autohs
  button "Tamam", 14, 41 92 37 12
}
on 1:dialog:htakip:sclick:*: {
  if $did == 14 {
    if !$did($dname,2) || (*.* !iswm $did($dname,2)) { .echo -a Domain Adı'nı giriniz. Örn: Toprak.Net | return }
    if !$did($dname,4) { .echo -a IP'i giriniz. Örn: 31.210.62.181 | return }
    if (*.*.* !iswm $did($dname,4)) { .echo -a IP'i doğru giriniz. Örn: 31.210.62.181 | return }
    if !$did($dname,6) { .echo -a Paket'i giriniz. | return }
    if !$did($dname,9) { .echo -a Başlama Tarihi'ini giriniz. | return }
    if !$did($dname,11) { .echo -a Paket Fiyat'ıni giriniz. | return }
    if !$did($dname,13) { .echo -a Ödeme Tarihi'ni giriniz. Ödeme gelmediyse (-) olarak yazınız. | return }
    $iif(!$isfile(Hosting),.mkdir Hosting)
    .hadd -ms $did($dname,2) Domain $did($dname,2)
    .hadd -ms $did($dname,2) IP $did($dname,4)
    .hadd -ms $did($dname,2) Paket $did($dname,6)
    .hadd -ms $did($dname,2) Baslama $did($dname,9)
    .hadd -ms $did($dname,2) Fiyat $did($dname,11)
    .hadd -ms $did($dname,2) Ödeme $did($dname,13)
    .hsave -o $did($dname,2) $+(Hosting/,$did($dname,2))
    .dialog -x $dname
  }
}
on 1:dialog:hlist:*:*: {
  if $devent == init { var %:htakip = 1 | while %:htakip <= $hget(0) { did -a $dname 1 $hget(%:htakip) | inc %:htakip } }
  if $devent == sclick {
    if $did == 1 {
      .did -r $dname 3,5,7,9,11
      .did -a $dname 3 $hget($did($dname,1).seltext,IP)
      .did -a $dname 5 $hget($did($dname,1).seltext,Paket)
      .did -a $dname 7 $hget($did($dname,1).seltext,Baslama)
      .did -a $dname 9 $hget($did($dname,1).seltext,Fiyat)
      .did -a $dname 11 $hget($did($dname,1).seltext,Ödeme)
    }
    if $did == 12 { if $did($dname,1).seltext { .hfree -sw $did($dname,1).seltext | .did -r $dname 1,3,5,7,9,11 | var %:htakip = 1 | while %:htakip <= $hget(0) { did -a $dname 1 $hget(%:htakip) | inc %:htakip } } }
  }
  if $devent == dclick && $did == 1 {
    if $did($dname,1).seltext { .hfree -sw $did($dname,1).seltext | .remove $+(Hosting/,$did($dname,1).seltext) | .did -r $dname 1,3,5,7,9,11 | var %:htakip = 1 | while %:htakip <= $hget(0) { did -a $dname 1 $hget(%:htakip) | inc %:htakip } }
  }
}