Dialog OperAlert {
Title "OperAlert"
Size -1 -1 374 414
Tab "Add", 1, 6 9 358 360,
Tab "View/Del", 2
Box "Add", 4, 16 38 335 321, tab 1
Box "Mask", 5, 26 53 239 44, tab 1
;What to watch
Edit "NickName!Ident@HostMask/IP", 6, 34 69 221.946308724832 19, tab 1
Box "Options", 7, 26 98 302 155, tab 1
Box "Akill On Site", 8, 33 111 107 65, tab 1
;Prompt To akill
Radio "Yes", 9, 41 125 89 17, tab 1
Radio "No", 10, 41 151 89 17, tab 1
;Note for alerts
Box "Note:", 11, 32 184 289 45, tab 1
Edit "Note on alert", 12, 37 200 277.38255033557 19, tab 1
;Add Alert
Button "Add", 13, 27 261 89 23, tab 1
;Clear Forms
Button "Clear", 14, 27 319 89 23, tab 1
;Export to file
Button "Export", 15, 126 261 89 23, tab 1
;Import from file
Button "Import", 16, 130 319 89 23, tab 1
;Close dialog
Button "Close", 17, 139 379 89 23, ok
;List of alerts
List 18, 19 41 332 239, tab 2
;Delete alert
Button "Remove", 19, 16 307 89 23, tab 2
;View
Button "View", 21, 145 306 89 23, tab 2
;Modify said alert
Button "Modify", 20, 264 306 89 23, tab 2
}
;Adding Alert
on *:dialog:OperAlert:sclick:13: {
var %operalert.add = $did(OperAlert,6)
if ($did(OperAlert,9).state == 1) && ($did(OperAlert,10).state == 0) {
var %operalert.add = %operalert.add $+ ¿ $+ 1
}
if ($did(OperAlert,9).state == 0) && ($did(OperAlert,10).state == 1) {
var %operalert.add = %operalert.add $+ ¿ $+ 0
}
if ($did(OperAlert,9).state == 0) && ($did(OperAlert,10).state == 0) {
var %operalert.akill $?!="Akill on site?"
if (%operalert.akill == $false) {
var %operalert.add = %operalert.add $+ ¿ $+ 0
}
if (%operalert.akill == $true) {
var %operalert.add = %operalert.add $+ ¿ $+ 1
}
}
var %operalert.add = %operalert.add $+ ¿ $+ $did(OperAlert,12).text
write OperAlert.txt %operalert.add
}
;Changing Tabs
on *:dialog:OperAlert:sclick:2: {
did -r $dname 18
var %x = 1
var %y = $lines(OperAlert.txt)
while (%x <= %y) {
did -a $dname 18 $read(OperAlert.txt,%x)
inc %x
}
}
;Delete Entry
on *:dialog:OperAlert:sclick:19: {
var %tmp_read_tmp = $read(operalert.txt, w, $did(operalert,18).seltext)
write -dl $+ $readn operalert.txt
did -r $dname 18
var %x = 1
var %y = $lines(OperAlert.txt)
while (%x <= %y) {
did -a $dname 18 $read(OperAlert.txt,%x)
inc %x
}
}
;;;;Snotices
on *:SNOTICE:*** Notice -- Client connecting*:{
if ($7 = port) {
;echo -s $9 $right($gettok($10,1,64),-1) $left($gettok($10,2,64),-1)
if ($operalertcheck($9).nick !== $null) {
echo -s $operalertcheck($9).nick
}
if ($operalertcheck($right($gettok($10,1,64),-1)).ident !== $null) {
echo -s $operalertcheck($right($gettok($10,1,64),-1)).ident
}
if ($operalertcheck($left($gettok($10,2,64),-1)).host !== $null) {
echo -s $operalertcheck($right($gettok($10,1,64),-1)).host
}
}
else {
;echo -s $8 $right($gettok($9,1,64),-1) $left($gettok($9,2,64),-1)
if ($operalertcheck($8).nick !== $null) {
echo -s $operalertcheck($9).nick
}
if ($operalertcheck($right($gettok($9,1,64),-1)).ident !== $null) {
echo -s $operalertcheck($right($gettok($10,1,64),-1)).ident
}
if ($operalertcheck($left($gettok($9,2,64),-1)).host !== $null) {
echo -s $operalertcheck($right($gettok($10,1,64),-1)).host
}
}
haltdef
}
alias operalertcheck {
;Nick $gettok(%operalert_read,1,$33)
;Ident $gettok($gettok(%operalert_read,1,64),2,33)
;Host $gettok($gettok(%operalert_read,2,64),1,191)
var %y = $lines(operalert.txt)
var %x = 1
if ($prop == ident) {
while (%x <= %y) {
var %operalert_read = $read(operalert.txt,%x)
if ($1 == $gettok($gettok(%operalert_read,1,64),2,33)) {
return $gettok(%operalert_read,3,191)
}
inc %x
}
}
if ($prop == nick) {
while (%x <= %y) {
var %operalert_read = $read(operalert.txt,%x)
if ($1 == $gettok(%operalert_read,1,33)) {
return $gettok(%operalert_read,3,191)
}
inc %x
}
}
if ($prop == host) {
while (%x <= %y) {
var %operalert_read = $read(operalert.txt,%x)
if ($1 == $gettok($gettok(%operalert_read,2,64),1,191)) {
return $gettok(%operalert_read,3,191)
}
inc %x
}
}
}
