Advertisement
Guest User

Untitled

a guest
Jul 7th, 2017
86
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 1.25 KB | None | 0 0
  1. proc pub:edit {nick uhost handle channel arg} {
  2. global eplay_db
  3. if {![info exists eplay_db] || ([info exists eplay_db] && [mysqlstate $eplay_db] == "7" || [info exists eplay_db] && [mysqlstate $eplay_db] == "UNCONNECTED")} {
  4. set eplay_db [::mysql::connect -host "localhost" -user "eplay" -password "ptz6MBtKnQTUfMJr" -db "eplay"]
  5. }
  6. set arg [split [join $arg]]
  7. if {[isop $nick $channel]} {
  8. set link [lindex $arg 0]
  9. if {$link == "" || $link == [list]} {
  10. set link [::mysql::escape $eplay_db $link]
  11. set r1 [mysql::sel $eplay_db "SELECT * FROM `works` WHERE `link`='${link}'"]
  12. if {$r1 > 0} {
  13. # link exists
  14. set r2 [::mysql::exec $eplay_db "UPDATE works SET status = '$status' WHERE link = '$link'"]
  15. if {$r2 == 1} {
  16. putserv "PRIVMSG $channel :\002\00314,1\[\0039«\002\0030 Work editado com sucesso \002\0039,1»\00314]"
  17. } else {
  18. 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]"
  19. }
  20. } else {
  21. putserv "PRIVMSG $channel :$link: Esse work não existe"
  22. }
  23. } else {
  24. putserv "PRIVMSG $channel :\002\00314,1\[\0039«\002\0030 Sintaxe: !edit <status> <link> \002\0039,1»\00314]"
  25. }
  26. }
  27. }
  28. bind pub - !edit pub:edit
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement