menu * {
Control Spamfilter: /dialog -m spamfilterman spamfilterman | .stats f
}
raw 229:*: {
if ($dialog(spamfilterman)) {
did -a spamfilterman 1 $2-
did -z spamfilterman 1
halt
}
}
dialog spamfilterman {
title "Control de Spamfilter® Si_te_animas"
size -1 -1 282 226
option dbu
button "Borrar", 2, 2 124 70 12
button "Editar", 3, 3 198 120 12
button "Actualizar", 4, 149 198 130 12, disable
button "Agregar Nuevo", 5, 72 124 80 12
box "Spamfilters", 6, 1 191 280 22
box "Tipo", 7, 1 136 121 54
check "Canal (c)", 9, 3 143 59 10
check "Privado (p)", 10, 3 152 60 10
check "Notice Privado(n)", 11, 3 161 50 10
check "Notice Canal (N)", 12, 3 170 60 10
check "Part (P)", 13, 3 179 50 10
check "Quit (q)", 14, 64 161 54 10
check "DCC Send (d)", 15, 64 170 57 10
check "Away (a)", 16, 64 179 50 10
check "Topic (t)", 17, 64 143 50 10
check "User (u)", 18, 64 152 50 10
box "Accion", 19, 123 136 157 27
radio "Kill", 20, 125 142 21 10
radio "kLine", 21, 150 142 25 10
radio "zLine", 22, 176 142 25 10
radio "gLine", 23, 150 151 25 10
radio "gzLine", 24, 176 151 25 10
radio "Shun", 25, 125 151 23 10
radio "tempshun", 26, 206 142 36 10
radio "Viruschan", 27, 206 151 34 10
radio "Block", 28, 243 143 25 10
radio "DCC Block", 29, 243 151 35 10
edit "", 30, 153 164 127 10, autohs
text "Spam ->", 31, 126 165 25 8
edit "", 32, 153 175 127 10, autohs
text "Razon ->", 33, 127 176 25 8
edit "", 8, 1 214 280 10, read
list 1, 1 1 280 121, size hsbar vsbar
}
on *:dialog:spamfilterman:sclick:*: {
if ($did == 2) {
if ($did(1).seltext) {
if ($gettok($did(1).seltext,1,32) === f) {
did -ra spamfilterman 8 El Spamfilter seleccionado no puede ser borrado debido a una configuracion del Server.
}
else {
spamfilter del $gettok($did(1).seltext,2,32) $gettok($did(1).seltext,3,32) - $gettok($did(1).seltext,7,32) $gettok($did(1).seltext,9-,32)
did -ra spamfilterman 8 Entrada de Spamfilter borrada.
did -r spamfilterman 1
.stats f
}
}
else {
did -ra spamfilterman 8 No se selecciono ninguna entrada de Spamfilter.
}
}
if ($did == 3) {
if ($did(1).seltext) {
if (c isincs $gettok($did(1).seltext,2,32)) {
did -c spamfilterman 9
}
else {
did -u spamfilterman 9
}
if (p isincs $gettok($did(1).seltext,2,32)) {
did -c spamfilterman 10
}
else {
did -u spamfilterman 10
}
if (n isincs $gettok($did(1).seltext,2,32)) {
did -c spamfilterman 11
}
else {
did -u spamfilterman 11
}
if (N isincs $gettok($did(1).seltext,2,32)) {
did -c spamfilterman 12
}
else {
did -u spamfilterman 12
}
if (P isincs $gettok($did(1).seltext,2,32)) {
did -c spamfilterman 13
}
else {
did -u spamfilterman 13
}
if (q isincs $gettok($did(1).seltext,2,32)) {
did -c spamfilterman 14
}
else {
did -u spamfilterman 14
}
if (t isincs $gettok($did(1).seltext,2,32)) {
did -c spamfilterman 17
}
else {
did -u spamfilterman 17
}
if (u isincs $gettok($did(1).seltext,2,32)) {
did -c spamfilterman 18
}
else {
did -u spamfilterman 18
}
if (d isincs $gettok($did(1).seltext,2,32)) {
did -c spamfilterman 15
}
else {
did -u spamfilterman 15
}
if (a isincs $gettok($did(1).seltext,2,32)) {
did -c spamfilterman 16
}
else {
did -u spamfilterman 16
}
did -ra spamfilterman 30 $gettok($did(1).seltext,9-,32)
did -ra spamfilterman 32 $gettok($did(1).seltext,7,32)
if ($gettok($did(1).seltext,3,32) == kill) {
did -c spamfilterman 20
did -u spamfilterman 21
did -u spamfilterman 22
did -u spamfilterman 23
did -u spamfilterman 24
did -u spamfilterman 25
did -u spamfilterman 26
did -u spamfilterman 27
did -u spamfilterman 28
did -u spamfilterman 29
}
if ($gettok($did(1).seltext,3,32) == kline) {
did -c spamfilterman 21
did -u spamfilterman 20
did -u spamfilterman 22
did -u spamfilterman 23
did -u spamfilterman 24
did -u spamfilterman 25
did -u spamfilterman 26
did -u spamfilterman 27
did -u spamfilterman 28
did -u spamfilterman 29
}
if ($gettok($did(1).seltext,3,32) == zline) {
did -c spamfilterman 22
did -u spamfilterman 21
did -u spamfilterman 20
did -u spamfilterman 23
did -u spamfilterman 24
did -u spamfilterman 25
did -u spamfilterman 26
did -u spamfilterman 27
did -u spamfilterman 28
did -u spamfilterman 29
}
if ($gettok($did(1).seltext,3,32) == gline) {
did -c spamfilterman 23
did -u spamfilterman 21
did -u spamfilterman 22
did -u spamfilterman 20
did -u spamfilterman 24
did -u spamfilterman 25
did -u spamfilterman 26
did -u spamfilterman 27
did -u spamfilterman 28
did -u spamfilterman 29
}
if ($gettok($did(1).seltext,3,32) == gzline) {
did -c spamfilterman 24
did -u spamfilterman 21
did -u spamfilterman 22
did -u spamfilterman 23
did -u spamfilterman 20
did -u spamfilterman 25
did -u spamfilterman 26
did -u spamfilterman 27
did -u spamfilterman 28
did -u spamfilterman 29
}
if ($gettok($did(1).seltext,3,32) == shun) {
did -c spamfilterman 25
did -u spamfilterman 21
did -u spamfilterman 22
did -u spamfilterman 23
did -u spamfilterman 24
did -u spamfilterman 20
did -u spamfilterman 26
did -u spamfilterman 27
did -u spamfilterman 28
did -u spamfilterman 29
}
if ($gettok($did(1).seltext,3,32) == tempshun) {
did -c spamfilterman 26
did -u spamfilterman 21
did -u spamfilterman 22
did -u spamfilterman 23
did -u spamfilterman 24
did -u spamfilterman 25
did -u spamfilterman 20
did -u spamfilterman 27
did -u spamfilterman 28
did -u spamfilterman 29
}
if ($gettok($did(1).seltext,3,32) == viruschan) {
did -c spamfilterman 27
did -u spamfilterman 21
did -u spamfilterman 22
did -u spamfilterman 23
did -u spamfilterman 24
did -u spamfilterman 25
did -u spamfilterman 26
did -u spamfilterman 20
did -u spamfilterman 28
did -u spamfilterman 29
}
if ($gettok($did(1).seltext,3,32) == block) {
did -c spamfilterman 28
did -u spamfilterman 21
did -u spamfilterman 22
did -u spamfilterman 23
did -u spamfilterman 24
did -u spamfilterman 25
did -u spamfilterman 26
did -u spamfilterman 27
did -u spamfilterman 20
did -u spamfilterman 29
}
if ($gettok($did(1).seltext,3,32) == dccblock) {
did -c spamfilterman 29
did -u spamfilterman 21
did -u spamfilterman 22
did -u spamfilterman 23
did -u spamfilterman 24
did -u spamfilterman 25
did -u spamfilterman 26
did -u spamfilterman 27
did -u spamfilterman 28
did -u spamfilterman 20
}
did -e spamfilterman 4
}
else {
did -ra spamfilterman 8 Ninguna entrada seleccionada.
}
}
if ($did == 4) {
if ($did(1).seltext) {
spamfilter del $gettok($did(1).seltext,2,32) $gettok($did(1).seltext,3,32) - $gettok($did(1).seltext,7,32) $gettok($did(1).seltext,9-,32)
if ($did(9).state == 1) { if (%spamf.types) { set %spamf.types %spamf.types $+ c }
else { set %spamf.types c }
}
if ($did(10).state == 1) { if (%spamf.types) { set %spamf.types %spamf.types $+ p }
else { set %spamf.types p }
}
if ($did(11).state == 1) { if (%spamf.types) { set %spamf.types %spamf.types $+ n }
else { set %spamf.types n }
}
if ($did(12).state == 1) { if (%spamf.types) { set %spamf.types %spamf.types $+ N }
else { set %spamf.types N }
}
if ($did(13).state == 1) { if (%spamf.types) { set %spamf.types %spamf.types $+ P }
else { set %spamf.types P }
}
if ($did(14).state == 1) { if (%spamf.types) { set %spamf.types %spamf.types $+ q }
else { set %spamf.types q }
}
if ($did(15).state == 1) { if (%spamf.types) { set %spamf.types %spamf.types $+ d }
else { set %spamf.types d }
}
if ($did(16).state == 1) { if (%spamf.types) { set %spamf.types %spamf.types $+ a }
else { set %spamf.types a }
}
if ($did(17).state == 1) { if (%spamf.types) { set %spamf.types %spamf.types $+ t }
else { set %spamf.types t }
}
if ($did(18).state == 1) { if (%spamf.types) { set %spamf.types %spamf.types $+ u }
else { set %spamf.types u }
}
if ($did(20).state == 1) { set %spamf.action kill }
if ($did(21).state == 1) { set %spamf.action kline }
if ($did(22).state == 1) { set %spamf.action zline }
if ($did(23).state == 1) { set %spamf.action gline }
if ($did(24).state == 1) { set %spamf.action gzline }
if ($did(25).state == 1) { set %spamf.action shun }
if ($did(26).state == 1) { set %spamf.action tempshun }
if ($did(27).state == 1) { set %spamf.action viruschan }
if ($did(28).state == 1) { set %spamf.action block }
if ($did(29).state == 1) { set %spamf.action dccblock }
if (($did(30).text) && ($did(32).text) && (%spamf.types) && (%spamf.action)) {
.spamfilter add %spamf.types %spamf.action - $did(32).text $did(30).text
unset %spamf.types
unset %spamf.action
did -ra spamfilterman 8 El Spamfilter ha sido agregado.
did -r spamfilterman 1
.stats f
}
else {
did -ra spamfilterman 8 Entradas faltantes!
}
}
else {
did -ra spamfilterman 8 Ninguna Entrada especificada.
}
}
if ($did == 5) {
if ($did(9).state == 1) { if (%spamf.types) { set %spamf.types %spamf.types $+ c }
else { set %spamf.types c }
}
if ($did(10).state == 1) { if (%spamf.types) { set %spamf.types %spamf.types $+ p }
else { set %spamf.types p }
}
if ($did(11).state == 1) { if (%spamf.types) { set %spamf.types %spamf.types $+ n }
else { set %spamf.types n }
}
if ($did(12).state == 1) { if (%spamf.types) { set %spamf.types %spamf.types $+ N }
else { set %spamf.types N }
}
if ($did(13).state == 1) { if (%spamf.types) { set %spamf.types %spamf.types $+ P }
else { set %spamf.types P }
}
if ($did(14).state == 1) { if (%spamf.types) { set %spamf.types %spamf.types $+ q }
else { set %spamf.types q }
}
if ($did(15).state == 1) { if (%spamf.types) { set %spamf.types %spamf.types $+ d }
else { set %spamf.types d }
}
if ($did(16).state == 1) { if (%spamf.types) { set %spamf.types %spamf.types $+ a }
else { set %spamf.types a }
}
if ($did(17).state == 1) { if (%spamf.types) { set %spamf.types %spamf.types $+ t }
else { set %spamf.types t }
}
if ($did(18).state == 1) { if (%spamf.types) { set %spamf.types %spamf.types $+ u }
else { set %spamf.types u }
}
echo -a %spamf.types
if ($did(20).state == 1) { set %spamf.action kill }
if ($did(21).state == 1) { set %spamf.action kline }
if ($did(22).state == 1) { set %spamf.action zline }
if ($did(23).state == 1) { set %spamf.action gline }
if ($did(24).state == 1) { set %spamf.action gzline }
if ($did(25).state == 1) { set %spamf.action shun }
if ($did(26).state == 1) { set %spamf.action tempshun }
if ($did(27).state == 1) { set %spamf.action viruschan }
if ($did(28).state == 1) { set %spamf.action block }
if ($did(29).state == 1) { set %spamf.action dccblock }
if (($did(30).text) && ($did(32).text) && (%spamf.types) && (%spamf.action)) {
.spamfilter add %spamf.types %spamf.action - $did(32).text $did(30).text
unset %spamf.types
unset %spamf.action
did -ra spamfilterman 8 Entrada de Spamfilter agregada.
did -r spamfilterman 1
.stats f
}
}
}