Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- proc pub:edit {nick uhost handle channel arg} {
- global eplay_db
- if {![info exists eplay_db] || ([info exists eplay_db] && [mysqlstate $eplay_db] == "7" || [info exists eplay_db] && [mysqlstate $eplay_db] == "UNCONNECTED")} {
- set eplay_db [::mysql::connect -host "localhost" -user "eplay" -password "ptz6MBtKnQTUfMJr" -db "eplay"]
- }
- set arg [split [join $arg]]
- if {[isop $nick $channel]} {
- set link [lindex $arg 0]
- if {$link == "" || $link == [list]} {
- set link [::mysql::escape $eplay_db $link]
- set r1 [mysql::sel $eplay_db "SELECT * FROM `works` WHERE `link`='${link}'"]
- if {$r1 > 0} {
- # link exists
- set r2 [::mysql::exec $eplay_db "UPDATE works SET status = '$status' WHERE link = '$link'"]
- if {$r2 == 1} {
- putserv "PRIVMSG $channel :\002\00314,1\[\0039«\002\0030 Work editado com sucesso \002\0039,1»\00314]"
- } else {
- putserv "PRIVMSG $channel :\002\00314,1\[\0039«\002\0030 Ocorreu um erro ao editar o work. Por favor, tenta outra vez. \002\0039,1»\00314]"
- }
- } else {
- putserv "PRIVMSG $channel :$link: Esse work não existe"
- }
- } else {
- putserv "PRIVMSG $channel :\002\00314,1\[\0039«\002\0030 Sintaxe: !edit <status> <link> \002\0039,1»\00314]"
- }
- }
- }
- bind pub - !edit pub:edit
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement