Hosting Takip Dialogu

[Toprak]

Kendim için yapmıştım dialog hakkında fazla bilgim yok ama yapmaya çalıştım..

[Only Registered Users Can See Links]


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 | .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 } } }
}
}