An advanced Gline dialog. This dialog will display the full gline list on the server with options to delete selected gline or add a gline. Was requested so I made it and shared it :D

Also has the fuction to search the gline list for an ip or host that u enter, if found it will select it so u can easly clcik delete gline :D

Easy to search and manage the full gline list.

To add, open remote (alt+r) add to a new file.
to use, right click in any channel or staus window and click "Gline List"

You must be an ircop to use this.

Enjoy...

Gemster

Edit: Updated.
You can now multi select and mass remove glines and gzlines
Loads straight away, no more waiting 5 seconds.
List box made a little bigger for those who have a big reason added.
Added Add Gzline button

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
}