Advertisement
Guest User

Untitled

a guest
Jul 7th, 2017
71
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 1.20 KB | None | 0 0
  1. proc pub:edit {nick uhost handle channel arg} {
  2.  
  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 != {}} {
  10. set link [::mysql::escape $eplay_db $link]
  11. set r1 [::mysql::sel $eplay_db "SELECT 1 FROM works WHERE link = '$link'"]
  12. if {$r1 > 0} {
  13. set r2 [::mysql::exec $eplay_db "UPDATE works SET status = '$status' WHERE link = '$link'"]
  14. if {$r2 == 1} {
  15. putserv "PRIVMSG $channel :\002\00314,1\[\0039«\002\0030 Work editado com sucesso \002\0039,1»\00314]"
  16. } else {
  17. 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]"
  18. }
  19. } else {
  20. putserv "PRIVMSG $channel :$link: Esse work não existe"
  21. }
  22. } else {
  23. putserv "PRIVMSG $channel :\002\00314,1\[\0039«\002\0030 Sintaxe: !edit <status> <link> \002\0039,1»\00314]"
  24. }
  25. }
  26. }
  27. bind pub - !edit pub:edit
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement