tdav::lock_timeout_left (private)

 tdav::lock_timeout_left timeout locktime

Defined in packages/oacs-dav/tcl/tDAV-procs.tcl

Calculate the remaining lifetime of a WebDAV lock.

Parameters:

timeout (required)

Lock lifetime in seconds.

locktime (required)

Lock creation time in a format accepted by clock scan.

Returns:

Remaining seconds, or zero if the lock has expired.

Partial Call Graph (max 5 caller/called nodes):

Testcases:

No testcase defined.

Source code:

    set locktime [clock scan $locktime]
    set lockexpiretime [clock scan "$timeout seconds" -base $locktime]
    set timeout_left [expr {$lockexpiretime - [clock seconds]}]
    if {$timeout_left < 0} {
        set timeout_left 0
    }
    return $timeout_left

XQL Not present:

Generic, PostgreSQL, Oracle