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.15 2024/08/05 14:20:21 gustafn 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_git_build_repository (private)

 apm_git_build_repository [ -debug ] [ -force_fresh ] \
    [ -channels channels ] [ -min_final_version min_final_version ] \
    [ -min_compat_version min_compat_version ]

Rebuild the repository on the local machine. Only useful for the openacs.org site. Adapted from the CVS implementation, which came 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 and branches instead of all of them.
-force_fresh
(boolean) (defaults to "false") (optional)
Force a frech clone of the Git repos.
-channels
(defaults to "*") (optional)
A string match style pattern. Generate apm files for the matching channels only
-min_final_version
(defaults to "5.8.0") (optional)
-min_compat_version
(defaults to "5.3.0") (optional)

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_git_checkout_repo apm_git_checkout_repo (private) apm_git_fetch_repo apm_git_fetch_repo (private) apm_git_build_repository apm_git_build_repository apm_git_build_repository->ad_opentmpfile apm_git_build_repository->ad_try apm_git_build_repository->apm_get_package_files apm_git_build_repository->apm_git_checkout_repo apm_git_build_repository->apm_git_fetch_repo

Testcases:
No testcase defined.

apm_git_checkout_repo (private)

 apm_git_checkout_repo -path path -branch branch

Checks out a repository branch or tag, making also sure that this is up to date via 'git pull' (if this is a branch) This assumes the specific Git setup for our repo, hence it is meant for internal use only.

Switches:
-path
(required)
-branch
(required)
Returns:
list of branch names

Partial Call Graph (max 5 caller/called nodes):
%3 apm_git_build_repository apm_git_build_repository (private) apm_git_checkout_repo apm_git_checkout_repo apm_git_build_repository->apm_git_checkout_repo apm_git_repo_branches apm_git_repo_branches (private) apm_git_checkout_repo->apm_git_repo_branches

Testcases:
No testcase defined.

apm_git_fetch_repo (private)

 apm_git_fetch_repo -path path -repo repo

Fetches a repo from the Git mirror. Clones it first when it does not exist. This assumes the specific Git setup for our repo, hence it is meant for internal use only.

Switches:
-path
(required)
-repo
(required)
Returns:
list of branch names

Partial Call Graph (max 5 caller/called nodes):
%3 apm_git_build_repository apm_git_build_repository (private) apm_git_fetch_repo apm_git_fetch_repo apm_git_build_repository->apm_git_fetch_repo

Testcases:
No testcase defined.

apm_git_repo_branches (private)

 apm_git_repo_branches -path path

Extracts the available branches from an OpenACS Git repo. This assumes the specific Git setup for our repo, hence it is meant for internal use only.

Switches:
-path
(required)
Returns:
list of branch names

Partial Call Graph (max 5 caller/called nodes):
%3 apm_git_build_repository apm_git_build_repository (private) apm_git_repo_branches apm_git_repo_branches apm_git_build_repository->apm_git_repo_branches apm_git_checkout_repo apm_git_checkout_repo (private) apm_git_checkout_repo->apm_git_repo_branches apm_git_repo_channels apm_git_repo_channels (private) apm_git_repo_channels->apm_git_repo_branches

Testcases:
No testcase defined.

apm_git_repo_channels (private)

 apm_git_repo_channels -path path

Extracts the available tags and branches from an OpenACS Git repo. This assumes the specific Git setup for our repo, hence it is meant for internal use only.

Switches:
-path
(required)
Returns:
list of branch names

Partial Call Graph (max 5 caller/called nodes):
%3 apm_git_build_repository apm_git_build_repository (private) apm_git_repo_channels apm_git_repo_channels apm_git_build_repository->apm_git_repo_channels apm_git_repo_branches apm_git_repo_branches (private) apm_git_repo_channels->apm_git_repo_branches apm_git_repo_tags apm_git_repo_tags (private) apm_git_repo_channels->apm_git_repo_tags

Testcases:
No testcase defined.

apm_git_repo_tags (private)

 apm_git_repo_tags -path path

Extracts the available tags from an OpenACS Git repo. This assumes the specific Git setup for our repo, hence it is meant for internal use only.

Switches:
-path
(required)
Returns:
list of tag names.

Partial Call Graph (max 5 caller/called nodes):
%3 apm_git_build_repository apm_git_build_repository (private) apm_git_repo_tags apm_git_repo_tags apm_git_build_repository->apm_git_repo_tags apm_git_repo_channels apm_git_repo_channels (private) apm_git_repo_channels->apm_git_repo_tags

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 ]