Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- namespace eval mp3_time_add {
- proc addreqscene {nick host hand chan text} {
- set time_pred ""
- 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];
- 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];
- ::mysql::endquery $add_time_mp3
- ::mysql::close $add_time_mp3
- if {$pre_mp3 == ""} {set time_pred "unknown"} else {
- set now [unixtime]
- incr now -$pre_mp3
- set time_pred [duration $now]
- regsub -nocase {seconds} $time_pred "s" time_pred
- regsub -nocase {second} $time_pred "s" time_pred
- regsub -nocase {minutes} $time_pred "m" time_pred
- regsub -nocase {minute} $time_pred "m" time_pred
- regsub -nocase {hours} $time_pred "h" time_pred
- regsub -nocase {hour} $time_pred "h" time_pred
- regsub -nocase {days} $time_pred "d" time_pred
- regsub -nocase {day} $time_pred "d" time_pred
- regsub -nocase {weeks} $time_pred "w" time_pred
- regsub -nocase {week} $time_pred "w" time_pred
- regsub -nocase {months} $time_pred "m" time_pred
- regsub -nocase {month} $time_pred "m" time_pred
- regsub -nocase {years} $time_pred "y" time_pred
- regsub -nocase {year} $time_pred "y" time_pred
- #regsub -all { |\*} $time_pred {} time_pred
- putquick "PRIVMSG $reqs::sett::add_chan :$
- }
- #END NAMESPACE mp3_time_add
- }
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement