[SNIPPET] Uptime

Uptime <- time();

function getUptime( value )
{
    if ( value )
    {
        local   a = time() - value,
                weeks = a / 604800,
                a = a % 604800,
                days = a / 86400,
                a = a % 86400,
                hours = a / 3600,
                a = a % 3600,
                mins = a / 60,
                a = a % 60,
                secs = a / 1;

        return format( weeks + " week%s, " + days + " day%s, " + hours + " hour%s, " + mins + " min%s, " + secs + " sec%s.", ( weeks == 1 ? "" : "s" ), ( days == 1 ? "" : "s" ), ( hours == 1 ? "" : "s" ), ( mins == 1 ? "" : "s" ), ( secs == 1 ? "" : "s" ) );
    }
}