Advertisement
Guest User

Untitled

a guest
Jun 21st, 2017
74
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 1.48 KB | None | 0 0
  1. namespace eval mp3_time_add {
  2. proc addreqscene {nick host hand chan text} {
  3.  
  4. set time_pred ""
  5. set add_time_mp3 [::mysql::connect -host $reqs::sett::db_host -port $reqs::sett::db_port -user $reqs::sett::db_user -password $reqs::sett::db_pass -db $reqs::sett::db_pre_name];
  6. set added_mp3 [::mysql::sel $add_time_mp3 "SELECT $reqs::sett::db_pre_time FROM $reqs::sett::db_pre_table where $reqs::sett::db_pre_rls = '$add_rls'" -flatlist];
  7. ::mysql::endquery $add_time_mp3
  8. ::mysql::close $add_time_mp3
  9. if {$pre_mp3 == ""} {set time_pred "unknown"} else {
  10. set now [unixtime]
  11. incr now -$pre_mp3
  12. set time_pred [duration $now]
  13. regsub -nocase {seconds} $time_pred "s" time_pred
  14. regsub -nocase {second} $time_pred "s" time_pred
  15. regsub -nocase {minutes} $time_pred "m" time_pred
  16. regsub -nocase {minute} $time_pred "m" time_pred
  17. regsub -nocase {hours} $time_pred "h" time_pred
  18. regsub -nocase {hour} $time_pred "h" time_pred
  19. regsub -nocase {days} $time_pred "d" time_pred
  20. regsub -nocase {day} $time_pred "d" time_pred
  21. regsub -nocase {weeks} $time_pred "w" time_pred
  22. regsub -nocase {week} $time_pred "w" time_pred
  23. regsub -nocase {months} $time_pred "m" time_pred
  24. regsub -nocase {month} $time_pred "m" time_pred
  25. regsub -nocase {years} $time_pred "y" time_pred
  26. regsub -nocase {year} $time_pred "y" time_pred
  27. #regsub -all { |\*} $time_pred {} time_pred
  28. putquick "PRIVMSG $reqs::sett::add_chan :$
  29. }
  30. #END NAMESPACE mp3_time_add
  31. }
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement