util::zip (public)

 util::zip -source source -destination destination

Defined in packages/acs-tcl/tcl/utilities-procs.tcl

Create a zip file.

Switches:

-source

(required)

is the content to be zipped. If it is a directory, archive will contain all files into directory without the trailing directory itself.

-destination

(required)

is the name of the created file

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

Testcases:

zip_and_unzip

Source code:

    #
    # Split the source
    #
    if {[ad_file isfile $source]} {
        set filename [ad_file tail $source]
        set in_path  [ad_file dirname $source]
    } else {
        set filename "."
        set in_path  $source
    }

    package require zipfile::mkzip
    ::zipfile::mkzip::mkzip $destination -directory $in_path $filename

XQL Not present:

PostgreSQL, Oracle

Generic XQL file:

packages/acs-tcl/tcl/utilities-procs.xql