Code:

bind pub m "!xmas" count:down1proc count:down1 {nick host handle channel text} { set christmas "[duration [expr {[clock scan 12/25/07] - [clock seconds]}]]" set newyear "[duration [expr {[clock scan 01/01/08] - [clock seconds]}]]" puthelp "NOTICE $nick :$christmas before Christmas \[25th December, 2007\] and $newyear before New Year \[1st January, 2008\]"}

Code:

# standard english namesset duration_en {31536000 {" year"   " years"}604800   {" week"   " weeks"}86400    {" day"    " days"}3600     {" hour"   " hours"}60       {" minute" " minutes"}1        {" second" " seconds"}}# abbreviated english namesset duration_en_compact {31536000 {"y" "y"}604800   {"w" "w"}86400    {"d" "d"}3600     {"h" "h"}60       {"m" "m"}1        {"s" "s"}}#  english names, but no years/weeksset duration_en_custom {86400    {" day"    " days"}3600     {" hour"   " hours"}60       {" minute" " minutes"}1        {" second" " seconds"}}# rename this proc if you want to keep the built in "duration" commandproc duration {time {lang en} {join " "}} {set out {}foreach {secs names} [set ::duration_$lang] {if {$time<$secs} continueset val [expr {$time/$secs}]lappend out $val[lindex $names [expr {$val!=1}]]if {![incr time [expr {-$val*$secs}]]} break}join $out $join}

Code:

# tests:% duration 33177905 weeks 3 days 9 hours 36 minutes 30 seconds% duration 3317790 en_compact5w 3d 9h 36m 30s% duration 3317790 en_custom38 days 9 hours 36 minutes 30 seconds