Gaddafi

#gadafijev kod
bind pub n|n !testera pub_testera
bind pub n|n !bcadd pub_addtestera
bind pub n|n !bclist pub_listtestera
bind pub n|n !bcdel pub_deltestera
bind pub n|n !iamon pub_iamon

set broadcastlist "scripts/broadcast.dont.send"
if {![file exists $broadcastlist]} {
set bcfile [open $broadcastlist "w"]
puts $bcfile "#staff"
close $bcfile
}

proc pub_iamon {nick mask hand channel text} {
putserv "privmsg $channel :I`m on [channels]"
}

proc pub_testera {nick mask hand channel text} {
global broadcastlist
set rchanlist [channels]
set fp [open $broadcastlist r]
set file_data [read $fp]
close $fp
set bcdata [split $file_data "\n"]
regsub -all {\{\}} $bcdata "" bcdata
foreach chan $rchanlist {
if {[string match -nocase $chan $bcdata] == "0"} {
putserv "privmsg $chan :Broadcast: $text"
}
}
}

proc pub_addtestera {nick mask hand channel text} {
global broadcastlist
set bcfile [open $broadcastlist "a+"]
set bclista [read $bcfile]
set bcdata [split $bclista "\n"]
set dodato [linsert $bcdata end-1 $text]
puts $bcfile $dodato
putserv "PRIVMSG $channel :Added $text to don`t send list!"
close $bcfile
}

proc pub_listtestera {nick mask hand channel text} {
global broadcastlist
set bcfile [open $broadcastlist "r"]
set file_data [read $bcfile]
set bcdata [split $file_data "\n"]
regsub -all {\{\}} $bcdata "" bcdata
putserv "privmsg $channel :Dont broadcast: $bcdata"
close $bcfile
}

proc pub_deltestera {nick mask hand channel text} {
global broadcastlist
set bcfile [open $broadcastlist "a+"]
set file_data [read $bcfile]
set bcdata [split $file_data "\n"]
regsub -all {\{\}} $bcdata "" bcdata
regsub -all $text $bcdata "" bcdata
#set idx [lsearch $bcdata $text]
#set bcdata [lreplace $bcdata $idx $idx]
putserv "privmsg $channel :Removed $text from dont send list!"
puts $bcfile $bcdata
close $bcfile
}
#kraj gadafijevog koda