apm_get_changed_watched_files (private)

 apm_get_changed_watched_files

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

Check, which of the watched files have to be reloaded

Returns:

list of filenames

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

Testcases:

No testcase defined.

Source code:

    set files_to_reload [list]
    foreach file [nsv_array names apm_reload_watch] {
        set path "$::acs::rootdir/$file"
        ns_log Debug "APM: File being watched: $path"

        if { [ad_file exists $path]
             && (![nsv_exists apm_library_mtime $file]
                 || [ad_file mtime $path] ne [nsv_get apm_library_mtime $file])
         } {
            lappend files_to_reload $file
        }
    }
    if {[llength $files_to_reload] > 0} {
        if {[llength $files_to_reload] > 1} {
            lassign {s have} suffix verb
        } else {
            lassign {{} has} suffix verb
        }
        ns_log Notice "apm_reloads: Watched file$suffix [join $files_to_reload ", "] $verb changed"
    }

    return $files_to_reload

Generic XQL file:

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

PostgreSQL XQL file:

packages/acs-tcl/tcl/apm-procs-postgresql.xql

Oracle XQL file:

packages/acs-tcl/tcl/apm-procs-oracle.xql