request_monitor::upgrade_callback (private)
request_monitor::upgrade_callback -from_version_name from_version_name \ -to_version_name to_version_name
Defined in packages/xotcl-request-monitor/tcl/callback-procs.tcl
Callback for upgrading
- Switches:
- -from_version_name (required)
- -to_version_name (required)
- Author:
- Gustaf Neumann <neumann@wu-wien.ac.at>
- Partial Call Graph (max 5 caller/called nodes):
- Testcases:
- No testcase defined.
Source code: ns_log notice "-- UPGRADE xotcl-request-monitor $from_version_name -> $to_version_name" set v 0.60 if {[apm_version_names_compare $from_version_name $v] == -1 && [apm_version_names_compare $to_version_name $v] > -1} { ns_log notice "-- upgrading to $v" foreach parameter_id [xo::dc list get_old_parameter { select parameter_id from apm_parameters where package_key = 'xotcl-request-monitor' and parameter_name not in ( 'do_double_click_prevention', 'do_slowdown_overactive', 'do_slowdown_overactive', 'do_throttle', 'do_track_activity', 'hide-requests', 'max-stats-elements', 'max-url-stats', 'monitor_urls', 'peer-groups', 'time-window', 'trend-elements' ) }] { xo::dc dml delete_value { delete from apm_parameter_values where parameter_id = :parameter_id } xo::dc dml delete_parameter { delete from apm_parameters where parameter_id = :parameter_id } } }XQL Not present: Generic, PostgreSQL, Oracle