vasketova-op-lista

bind join - * join_ogreet
bind pub - !dodajop dodaj_op
bind pub - !obrisiop obrisi_op
bind pub - !oplista op_lista
set oplistaadmin [list "vaske91" "kovrdzavko"]
set oplista ""
set oplisatf "/usr/home/err0r/eggdrop/op.lista"
set zfs [open $oplisatf]
set opovi [read $zfs]
foreach op $opovi {
set oplista [linsert $oplista end-1 $op]
}

proc osveziopove {} {
set oplisatf "/usr/home/err0r/eggdrop/op.lista"
set zfs [open $oplisatf]
set operi [read $zfs]
set opovi [split $operi "\n"]
set oplista ""
foreach op $opovi {
set oplista [linsert $oplista end-1 $op]
}
close $zfs
}

proc join_ogreet {nick host handle chan} {
global oplista
if {[string match -nocase *$nick* $oplista] == "1"} {
putserv "PRIVMSG $chan :Operater kanala \002$nick\002 je online"
}
}

proc op_lista {nick host handle chan text} {
global oplista
osveziopove
putserv "PRIVMSG $chan :Operateri: $oplista"
}

proc dodaj_op {nick host handle chan text} {
global oplisatf oplista oplistaadmin
if {[string match -nocase *$nick* $oplistaadmin] == "1"} {
set oplista [linsert $oplista end-1 $text]
set zfs [open $oplisatf w]
puts $zfs $oplista
close $zfs
osveziopove
putserv "PRIVMSG $chan :Dodao sam \002$text\002 na op listu!"
} else { putserv "PRIVMSG $chan :Nemas brate privilegije za to! Sikter!" }
}
proc obrisi_op {nick host handle chan text} {
global oplista oplisatf oplistaadmin
if {[string match -nocase *$nick* $oplistaadmin] == "1"} {
set idx [lsearch $oplista $text]
set oplista [lreplace $oplista $idx $idx]
set zfs [open $oplisatf w]
puts $zfs $oplista
close $zfs
osveziopove
putserv "PRIVMSG $chan :Obrisao sam \002$text\002 sa op liste!"
} else { putserv "PRIVMSG $chan :Nemas brate privilegije za to! Sikter!" }
}