fs::install::upgrade (private)

 fs::install::upgrade [ -from_version_name from_version_name ] \
    [ -to_version_name to_version_name ]

Defined in packages/file-storage/tcl/file-storage-install-procs.tcl

Install new DAV service contracts

Switches:
-from_version_name (optional)
-to_version_name (optional)

Partial Call Graph (max 5 caller/called nodes):
%3 acs_root_dir acs_root_dir (public) acs_sc::impl::new_from_spec acs_sc::impl::new_from_spec (public) apm_upgrade_logic apm_upgrade_logic (public) db_list db_list (public) fs::install::package_install fs::install::package_install (private) fs::install::upgrade fs::install::upgrade fs::install::upgrade->acs_root_dir fs::install::upgrade->acs_sc::impl::new_from_spec fs::install::upgrade->apm_upgrade_logic fs::install::upgrade->db_list fs::install::upgrade->fs::install::package_install

Testcases:
No testcase defined.
Source code:
    apm_upgrade_logic  -from_version_name $from_version_name  -to_version_name $to_version_name  -spec {
        4.6.2 5.1.1 {
        fs::install::package_install
        # delete the Tcl file for the /view template created
        # by content::init so it can be recreated
        file delete -- [file join [acs_root_dir] templates "file-storage-default.tcl"]
        }
        5.1.0a10 5.1.0a11 {
        set spec {
            name "file-storage"
            aliases {
            get_type fs::impl::dav_mkcol_type::get_type
            }
            contract_name {dav_mkcol_type}
            owner "file-storage"
        }
        acs_sc::impl::new_from_spec -spec $spec
        }
            5.1.0a11 5.1.0a12 {
        fs::rss::create_rss_gen_subscr_impl
        }
            5.10.0d1 5.10.0d2 {
                # Get max upload size from server conf
                set driver [expr {[ns_conn isconnected] ?
                                  [ns_conn driver] :
                                  [lindex [ns_driver names] 0]}]
                set section [ns_driversection -driver $driver]
                set max_bytes_conf [ns_config $section maxinput]
                # Get all file-storage instances
                foreach package_id [db_list get_fs_instances {
                    select package_id from apm_packages where package_key = 'file-storage'
                }] {
                    # Get max upload size from package parameter
                    set max_bytes_param [parameter::get -package_id $package_id -parameter "MaximumFileSize"]
                    if {![string is double -strict $max_bytes_param]} {
                        set max_bytes_param Inf
                    }
                    # If value from parameter is larger than the one
                    # from server conf, just reset the parameter and
                    # let server value overtake. (You won't be able to
                    # upload such big files anyway)
                    if {$max_bytes_param >= $max_bytes_conf} {
                        parameter::set_value  -package_id $package_id  -parameter "MaximumFileSize" -value ""
                    }
                }
        }
            5.10.1b2 5.10.1b3 {
                #
                # This upgrade is optional, as we do not want to
                # delete user data just before a release. Uncomment
                # these lines or otherwise run this snippet to get rid
                # of 2 legacy parameters.
                #
                # apm_parameter_unregister  #     -package_key file-storage  #     -parameter ArchiveCommand
                # apm_parameter_unregister  #     -package_key file-storage  #     -parameter ArchiveExtension
            }
    }
XQL Not present:
Generic, PostgreSQL, Oracle
[ hide source ] | [ make this the default ]
Show another procedure: