Addon Gline list pour ircop

Voir le sujet précédent Voir le sujet suivant Aller en bas

Addon Gline list pour ircop

Message par Admin le Mar 19 Jan - 11:16

Menu channel,status {
&Gline List:/dialog -m glinelist glinelist
}

on *:DIALOG:glinelist:init:0: {
.enable #glinelist
gline
.timergls 1 2 did -z glinelist 1
}

dialog glinelist {
title "Gline List"
size -1 -1 325 301
option dbu
list 1, 6 18 313 205, size extsel hsbar vsbar
button "Delete Selected Gline(s)", 2, 6 228 70 10
button "Delete Selected Gzline(s)", 3, 78 228 70 10
box "Add Gline / GZline ", 4, 6 243 313 52
edit "<user@host> or <*@ip>", 5, 12 258 100 10
edit "<reason>", 6, 114 258 100 10
radio "30 mins", 7, 12 270 30 10
radio "1 hour", 8, 12 282 30 10
radio "5 hours", 9, 42 270 30 10
radio "24 hours", 10, 42 282 30 10
radio "3 days", 11, 78 270 30 10
radio "7 days", 12, 78 282 30 10
radio "30 days", 13, 108 270 30 10
radio "Perm", 14, 108 282 30 10
button "Gline", 15, 144 270 37 10
button "Gzline", 16, 144 282 37 10
edit "", 17, 6 6 166 10
button "Search", 18, 174 6 37 10
button "Refresh", 19, 282 6 37 10
text "No of Lines:", 21, 268 228 29 8
edit "", 22, 298 227 21 10, disable center
}

on *:dialog:glinelist:close:*:{ write -c glinelist.txt
unset %glinelisttime
.disable #glinelist
}

ON *:DIALOG:glinelist:sclick:2:{
var %x 1
while (%x <= $did(glinelist, 1, 0).sel) {
gline - $+ $gettok($did(glinelist, 1, $did(glinelist, 1, %x).sel).text,2,32)
inc %x
}
did -r glinelist 1
gline
}

ON *:DIALOG:glinelist:sclick:3:{
var %x 1
while (%x <= $did(glinelist, 1, 0).sel) {
gzline - $+ $gettok($did(glinelist, 1, $did(glinelist, 1, %x).sel).text,2,32)
inc %x
}
did -r glinelist 1
gline
}

ON *:DIALOG:glinelist:sclick:18:{
glinesearch $did(17)
if (%glinesearch == 0) { dialog -m glinelisterror glinelisterror }
else { did -ck glinelist 1 %glinesearch }
}

ON *:DIALOG:glinelist:sclick:19:{
did -r glinelist 1
gline
}

ON *:DIALOG:glinelist:sclick:7-14: {
set %glinelisttime $replace($did,7,30m,8,1h,9,5h,10,24h,11,3d,12,7d,13,30d,14,0)
}


ON *:DIALOG:glinelist:sclick:15:{
gline $did(5) %glinelisttime $did(6)
}

ON *:DIALOG:glinelist:sclick:16:{
gline $did(5) %glinelisttime $did(6)
}

alias glinesearch {
noop $read(glinelist.txt,w,$+(*,$$1,*))
set %glinesearch $readn
}

dialog glinelisterror {
title "Error"
size -1 -1 121 45
option dbu
text "Sorry There Was No Result Returned For Your Search...", 1, 4 4 113 14, center
button "OK", 2, 45 28 30 10, ok
}

#glinelist off
raw 223:*:{
$iif($dialog(glinelist), did -a glinelist 1 $2-)
write glinelist.txt $2-
haltdef
did -ra glinelist 22 $lines(glinelist.txt)
}

raw 219:*:{
haltdef
}

Admin
Admin

Messages : 34
Date d'inscription : 15/10/2015

http://remotes-irc-addons.forum-officiel.com

Revenir en haut Aller en bas

Voir le sujet précédent Voir le sujet suivant Revenir en haut

- Sujets similaires

 
Permission de ce forum:
Vous ne pouvez pas répondre aux sujets dans ce forum