fs-scan.tcl
Scan the file system for static pages.
- Location:
- /packages/static-pages/www/admin/fs-scan.tcl
- Author:
- Brandoch Calef <bcalef@arsdigita.com>
- Created:
- 2001-01-22
- CVS ID:
$Id: fs-scan.tcl,v 1.4 2013/09/12 20:43:19 gustafn Exp $
Related Files
[ hide source ] | [ make this the default ]
File Contents
# packages/static-pages/www/admin/fs-scan.tcl ad_page_contract { Scan the file system for static pages. @author Brandoch Calef (bcalef@arsdigita.com) @creation-date 2001-01-22 @cvs-id $Id: fs-scan.tcl,v 1.4 2013/09/12 20:43:19 gustafn Exp $ } { } -properties { title:onevalue context:onevalue file_items:multirow } # sp_sync_cr_with_filesystem callbacks to fill file_items with info. # proc sp_old_item { path id } { upvar file_items file_items multirow append file_items $path "unchanged" {} } proc sp_new_item { path id } { upvar file_items file_items multirow append file_items $path "added" {} } proc sp_changed_item { path id } { upvar file_items file_items multirow append file_items $path "updated" {} # The title may have changed: sp_flush_page $id } proc sp_error_item { path id msg } { upvar file_items file_items multirow append file_items $path {<strong>Error:</strong>} \ "<blockquote>$msg</blockquote>" } multirow create file_items path status status_msg set title "Filesystem search" set context [list $title] set package_id [ad_conn package_id] set root_folder_id [sp_root_folder_id $package_id] set fs_root "[acs_root_dir][parameter::get -package_id $package_id -parameter {fs_root}]" set result [sp_sync_cr_with_filesystem \ -file_unchanged_proc sp_old_item \ -file_add_proc sp_new_item \ -file_change_proc sp_changed_item \ -file_read_error_proc sp_error_item \ -folder_add_proc sp_new_item \ -folder_unchanged_proc sp_old_item \ $fs_root $root_folder_id] ad_return_template