tdav::set_lock (public)

 tdav::set_lock uri depth type scope owner [ timeout ] [ locktime ]

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

Create and store a WebDAV lock for a resource.

Parameters:

uri (required)

Resource URI.

depth (required)

Lock depth.

type (required)

Lock type.

scope (required)

Lock scope.

owner (required)

Lock owner.

timeout (optional)

Lock lifetime. An empty value uses the configured default.

locktime (optional)

Lock creation time. An empty value uses the current time.

Returns:

The generated lock token.

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

Testcases:

No testcase defined.

Source code:

    if {$timeout eq ""} {
        set timeout [ns_config "ns/server/[ns_info server]/tdav" "defaultlocktimeout" "300"]
    }
    if {$locktime eq ""} {
        set locktime [clock format [clock seconds] -format "%T %D"]
    }
    set token "opaquelocktoken:[ns_rand 2147483647]"
    set lock [list $type $scope $owner $token $timeout $depth $locktime]
    tdav::write_lock $uri $lock
    return $token

XQL Not present:

Generic, PostgreSQL, Oracle