apm-admin-procs.tcl

Definitions for the APM administration interface.

Location:
packages/acs-admin/tcl/apm-admin-procs.tcl
Created:
29 September 2000
Author:
Bryan Quinn <bquinn@arsdigita.com>
CVS Identification:
$Id: apm-admin-procs.tcl,v 1.32.2.10 2023/04/21 12:27:29 antoniop Exp $

Procedures in this file

Detailed information

apm_build_repository (private)

 apm_build_repository [ -debug ] [ -channels channels ] \
    [ -head_channel head_channel ]

Rebuild the repository on the local machine. Only useful for the openacs.org site. Adapted from Lars' build-repository.tcl page.

Switches:
-debug
(boolean) (defaults to "0") (optional)
Set to 1 to test with only a small subset of packages instead of the whole cvs tree.
-channels
(defaults to "*") (optional)
Generate apm files for the matching channels only
-head_channel
(defaults to "HEAD") (optional)
The artificial branch label to apply to HEAD. Should be one minor version past the current release.
Returns:
0 for success. Also outputs debug messages to log.
Author:
Lars Pind <lars@collaboraid.biz>

Partial Call Graph (max 5 caller/called nodes):
%3 ad_opentmpfile ad_opentmpfile (public) ad_try ad_try (public) apm_get_package_files apm_get_package_files (public) apm_gzip_cmd apm_gzip_cmd (public) apm_read_package_info_file apm_read_package_info_file (public) apm_build_repository apm_build_repository apm_build_repository->ad_opentmpfile apm_build_repository->ad_try apm_build_repository->apm_get_package_files apm_build_repository->apm_gzip_cmd apm_build_repository->apm_read_package_info_file

Testcases:
No testcase defined.

apm_header (public, deprecated)

 apm_header [ -form form ] [ args... ]
Deprecated. Invoking this procedure generates a warning.

Generates HTML for the header of a page (including context bar). Must only be used for APM admin pages (under /acs-admin/apm). We are adding the APM index page to the context bar so it doesn't have to be added on each page

Switches:
-form
(optional)
Author:
Peter Marklund

Partial Call Graph (max 5 caller/called nodes):
%3 _ _ (public) ad_context_bar ad_context_bar (public) ad_log_deprecated ad_log_deprecated (public) apm_header apm_header apm_header->_ apm_header->ad_context_bar apm_header->ad_log_deprecated

Testcases:
No testcase defined.

apm_higher_version_installed_p (public)

 apm_higher_version_installed_p package_key version_name
Parameters:
package_key - The package in question.
version_name - The name of the currently installed version.
Returns:
The return value of this procedure doesn't really fit with its name. What it returns is:
  • -1 if there's already a higher version of the given package installed than the version_name you gave it.
  • 0 if the same version is installed as the one you supplied.
  • 1 if the version you gave is higher than the highest version installed, or no version of this package is installed.

Partial Call Graph (max 5 caller/called nodes):
%3 test_apm_higher_version_installed_p apm_higher_version_installed_p (test acs-admin) apm_higher_version_installed_p apm_higher_version_installed_p test_apm_higher_version_installed_p->apm_higher_version_installed_p apm_highest_version_name apm_highest_version_name (public) apm_higher_version_installed_p->apm_highest_version_name apm_version_names_compare apm_version_names_compare (public) apm_higher_version_installed_p->apm_version_names_compare apm_get_package_repository apm_get_package_repository (public) apm_get_package_repository->apm_higher_version_installed_p apm_package_selection_widget apm_package_selection_widget (private) apm_package_selection_widget->apm_higher_version_installed_p packages/acs-admin/www/apm/packages-install.tcl packages/acs-admin/ www/apm/packages-install.tcl packages/acs-admin/www/apm/packages-install.tcl->apm_higher_version_installed_p

Testcases:
apm_higher_version_installed_p

apm_package_selection_widget (private)

 apm_package_selection_widget pkg_info_list [ to_install ] \
    [ operation ] [ form ]

Provides a widget for selecting packages. Displays dependency information if available.

Parameters:
pkg_info_list - list of package infos for all packages to be listed
to_install (optional) - list of package_keys to install
operation (defaults to "all") - filter for added operations (all, upgrade, install)
form (defaults to "pkgsForm")

Partial Call Graph (max 5 caller/called nodes):
%3 packages/acs-admin/www/apm/packages-install-2.tcl packages/acs-admin/ www/apm/packages-install-2.tcl apm_package_selection_widget apm_package_selection_widget packages/acs-admin/www/apm/packages-install-2.tcl->apm_package_selection_widget packages/acs-admin/www/apm/packages-install.tcl packages/acs-admin/ www/apm/packages-install.tcl packages/acs-admin/www/apm/packages-install.tcl->apm_package_selection_widget _ _ (public) apm_package_selection_widget->_ apm_higher_version_installed_p apm_higher_version_installed_p (public) apm_package_selection_widget->apm_higher_version_installed_p apm_package_registered_p apm_package_registered_p (public) apm_package_selection_widget->apm_package_registered_p apm_read_package_info_file apm_read_package_info_file (public) apm_package_selection_widget->apm_read_package_info_file pkg_info_comment pkg_info_comment (public) apm_package_selection_widget->pkg_info_comment

Testcases:
No testcase defined.

apm_parameter_section_slider (private)

 apm_parameter_section_slider package_key

Build a dynamic section dimensional slider.

Parameters:
package_key

Partial Call Graph (max 5 caller/called nodes):
%3 test_acs_admin_apm_parameter_section_slider acs_admin_apm_parameter_section_slider (test acs-admin) apm_parameter_section_slider apm_parameter_section_slider test_acs_admin_apm_parameter_section_slider->apm_parameter_section_slider db_list db_list (public) apm_parameter_section_slider->db_list packages/acs-admin/www/apm/version-parameters.tcl packages/acs-admin/ www/apm/version-parameters.tcl packages/acs-admin/www/apm/version-parameters.tcl->apm_parameter_section_slider

Testcases:
acs_admin_apm_parameter_section_slider

apm_shell_wrap (public, deprecated)

 apm_shell_wrap cmd
Deprecated. Invoking this procedure generates a warning.

The value provided by this proc is unclear, quite hardcoded, and it is used nowhere in usptream code.

Parameters:
cmd
Returns:
a command string, wrapped it shell-style (with backslashes) in case lines get too long.
See Also:
  • many possible plain tcl idioms

Partial Call Graph (max 5 caller/called nodes):
%3 ad_log_deprecated ad_log_deprecated (public) apm_shell_wrap apm_shell_wrap apm_shell_wrap->ad_log_deprecated

Testcases:
No testcase defined.
[ show source ]