namespace eval ::xowiki {}
::nsf::object::alloc ::xo::PackageMgr ::xowiki::Package {set :__default_metaclass ::xotcl::Class
set :__default_superclass ::xotcl::Object
set :abstract_p f
set :auto_save false
array set :db_constraints {}
array set :db_slot {package_id ::xowiki::Package::slot::package_id}
set :default_package_parameter_page_info {}
set :default_package_parameters {}
array set :delegate_link_to_target {download 1 list 1 csv-dump 1}
set :id_column package_id
set :name_method {}
set :object_type ::xowiki::Package
set :object_type_key 000000000000010100000010
set :package_key xowiki
set :pretty_name XoWiki
set :pretty_plural XoWiki
set :security_inherit_p t
set :site_wide_info {folder_id 5443814 instance_id 5443766}
set :site_wide_package_parameter_page_info {}
set :site_wide_package_parameters {
MenuBar 1
index_page table-of-contents
top_includelet ""
with_general_comments 0
with_notifications 0
with_tags 0
with_user_tracking 0
}
set :site_wide_pages {
folder.form
link.form
page.form
form.form
import-archive.form
photo.form
}
set :sql_package_name ::xowiki::Package
set :supertype acs_object
set :table_name xowiki_package
set :with_table true
array set :www-file {admin 1 error-template 1 resources 1 view-plain 1 view-book-no-ajax 1 oacs-view 1 edit 1 download 1 oacs-view2 1 prototypes 1 oacs-view3 1 view-links 1 diff 1 revisions 1 portlet 1 portlet-ajax 1 view-book 1 view-oacs-docs 1 view-default 1 portlets 1 doc 1}}
::xowiki::Package proc reparent_site_wide_pages {} {
set site_info [:require_site_wide_info]
set parent_id [dict get $site_info folder_id]
set page_info [::xo::dc list_of_lists get_site_wide_pages {
select item_id,name from cr_items
where parent_id = -100
and content_type like '::%'
and name not like 'xowiki: %'
}]
xo::dc transaction {
foreach {item_id name} [concat {*}$page_info] {
xo::dc dml maybe_delete_page {
delete from cr_items where parent_id = :parent_id and name = :name
}
xo::dc dml reparent_page {
update cr_items set parent_id = :parent_id where item_id = :item_id
}
}
}
:fix_site_wide_package_ids
}
::xowiki::Package proc get_url_from_id {{-item_id 0} {-revision_id 0}} {
set page [::xowiki::Package instantiate_page_from_id -item_id $item_id -revision_id $revision_id]
return [::[$page package_id] url]
}
::xowiki::Package proc is_xowiki_p package_id {
set xowiki_p false
set package_key [apm_package_key_from_id $package_id]
set package_class [::xo::PackageMgr get_package_class_from_package_key $package_key]
if {$package_class ne ""} {
set classes [list $package_class {*}[$package_class info heritage]]
if {"::xowiki::Package" in $classes} {
set xowiki_p true
}
}
return $xowiki_p
}
::xowiki::Package proc get_package_id_from_page_id {{-revision_id 0} {-item_id 0}} {
if {$revision_id} {
set object_id $revision_id
} elseif {$item_id} {
set object_id $item_id
} else {
error "Either item_id or revision_id must be provided"
}
return [::xo::dc get_value get_pid {select package_id from acs_objects where object_id = :object_id}]
}
::xowiki::Package proc preferredCSSToolkit {} {
return [::template::CSS toolkit]
}
::nsf::method::property ::xowiki::Package -per-object preferredCSSToolkit deprecated true
::xowiki::Package proc instantiate_page_from_id {{-revision_id 0} {-item_id 0} {-user_id -1} {-parameter ""}} {
set package_id [:get_package_id_from_page_id -item_id $item_id -revision_id $revision_id]
::xo::Package initialize -export_vars false -package_id $package_id -init_url false -actual_query "" -parameter $parameter -user_id $user_id
set page [::xo::db::CrClass get_instance_from_db -item_id $item_id -revision_id $revision_id]
::$package_id set_url -url [$page pretty_link]
return $page
}
::xowiki::Package proc google_sitemapindex {{-changefreq "daily"} {-priority "priority"} -package:object} {
set content {<?xml version="1.0" encoding="UTF-8"?>
<sitemapindex xmlns="http://www.google.com/schemas/sitemap/0.84">
}
foreach package_id [::xowiki::Package instances] {
if {![parameter::get -package_id $package_id -parameter include_in_google_sitemap_index -default 1]} {
continue
}
set last_modified [::xo::dc get_value get_newest_modification_date {select max(last_modified)
from acs_objects
where package_id = :package_id
}]
set time [::xo::db::tcl_date $last_modified tz]
set time "[clock format [clock scan $time] -format {%Y-%m-%dT%T}]${tz}:00"
array set info [site_node::get_from_object_id -object_id $package_id]
append content <sitemap> \n <loc>[ad_url]$info(url)sitemap.xml</loc> \n <lastmod>$time</lastmod> \n </sitemap>
}
append content </sitemapindex> \n
if {[info exists package]} {
$package set mime_type text/xml
return $content
} else {
ns_return 200 text/xml $content
ad_script_abort
}
}
::xowiki::Package instproc join_name {{-prefix ""} -name} {
if {$prefix ne ""} {
return ${prefix}:$name
}
return $name
}
::xowiki::Package instproc www-reindex {} {
set id ${:id}
set pages [::xo::dc list get_pages {
select page_id,package_id from xowiki_page, cr_revisions r, cr_items ci, acs_objects o
where page_id = r.revision_id and ci.item_id = r.item_id and ci.live_revision = page_id
and publish_status = 'ready'
and page_id = o.object_id and o.package_id = :id
}]
foreach page_id $pages {
search::queue -object_id $page_id -event INSERT
}
:returnredirect .
}
::xowiki::Package instproc require_root_folder {{-parent_id -100} {-content_types {}} -name:required} {
set folder_id [xo::xotcl_package_cache eval root_folder-${:id} {
set folder_id [::xo::db::CrClass lookup -name $name -parent_id $parent_id]
if {$folder_id == 0} {
set old_folder_id [xo::dc get_value double_check_old_package {
select item_id from cr_items where name = :name and parent_id = :parent_id
}]
if {$old_folder_id ne ""} {
:log "-- try to transform old root folder $old_folder_id of package ${:id}"
::xowiki::transform_root_folder ${:id}
set folder_id $old_folder_id
} else {
set package_class [::xo::PackageMgr get_package_class_from_package_key ${:package_key}]
if {$package_class eq ""} {
ad_log error "trying to create an xowiki root folder for non-xowiki package ${:id}"
error "trying to create an xowiki root folder for non-xowiki package ${:id}"
} else {
::xowiki::Package require_site_wide_pages
set form_id [::${:id} instantiate_forms -forms en:folder.form]
set f [FormPage new -name $name -text "" -package_id ${:id} -parent_id $parent_id -nls_language en_US -publish_status ready -instance_attributes {} -page_template $form_id -destroy_on_cleanup ]
$f save_new
set folder_id [$f item_id]
::xo::db::sql::acs_object set_attribute -object_id_in $folder_id -attribute_name_in context_id -value_in ${:id}
:log "CREATED folder '$name' and parent $parent_id ==> $folder_id"
}
}
}
return $folder_id
}]
return $folder_id
}
::xowiki::Package instproc simple_item_ref {-default_lang:required -parent_id:required {-use_package_path true} {-use_site_wide_pages false} {-normalize_name true} {-assume_folder:required false} element} {
set (form) ""
set use_default_lang 0
if {[regexp {^(file|image|js|css|swf):(.+)$} $element _ (link_type) (stripped_name)]} {
set (prefix) file
set name file:$(stripped_name)
} elseif {[regexp {^folder:(.+)$} $element _ (stripped_name)]} {
array set "" [list prefix "" link_type link form "en:folder.form"]
set name $(stripped_name)
} elseif {[regexp {^(..):([^:]{3,}?):(..):(.+)$} $element _ form_lang form (prefix) (stripped_name)]} {
array set "" [list link_type "link" form "$form_lang:$form.form"]
set name $(prefix):$(stripped_name)
} elseif {[regexp {^(..):([^:]{3,}?):(.+)$} $element _ form_lang form (stripped_name)]} {
array set "" [list link_type "link" form "$form_lang:$form.form" prefix $default_lang]
set name $default_lang:$(stripped_name)
set use_default_lang 1
} elseif {[regexp {^([^:]{3,}?):(..):(.+)$} $element _ form (prefix) (stripped_name)]} {
array set "" [list link_type "link" form "$default_lang:$form.form"]
set name $(prefix):$(stripped_name)
} elseif {[regexp {^([^:]{3,}?):(.+)$} $element _ form (stripped_name)]} {
array set "" [list link_type "link" form "$default_lang:$form.form" prefix $default_lang]
set name $default_lang:$(stripped_name)
set use_default_lang 1
} elseif {[regexp {^(..):(.+)$} $element _ (prefix) (stripped_name)]} {
array set "" [list link_type "link"]
set name $(prefix):$(stripped_name)
} elseif {[regexp {^(.+)\0$} $element _ (stripped_name)]} {
array set "" [list link_type "link" form "en:folder.form" prefix ""]
set name $(stripped_name)
} elseif {$assume_folder} {
array set "" [list link_type "link" form "en:folder.form" prefix "" stripped_name $element]
set name $element
} else {
array set "" [list link_type "link" prefix $default_lang stripped_name $element]
if {$normalize_name} {
set element [:normalize_name -as_item_ref true $element]
}
set name $default_lang:$element
set use_default_lang 1
}
set name [string trimright $name \0]
set (stripped_name) [string trimright $(stripped_name) \0]
if {$normalize_name} {
set (stripped_name) [:normalize_name -as_item_ref true $(stripped_name)]
}
if {$element eq "" || $element eq "\0"} {
array set "" [:item_info_from_id ${:folder_id}]
set item_id ${:folder_id}
set parent_id $(parent_id)
} elseif {$element eq "." || $element eq ".\0"} {
array set "" [:item_info_from_id $parent_id]
set item_id $parent_id
set parent_id $(parent_id)
} elseif {$element eq ".." || $element eq "..\0"} {
set id [::xo::db::CrClass get_parent_id -item_id $parent_id]
if {$id > 0} {
set parent_id $id
}
array set "" [:item_info_from_id $parent_id]
set item_id $parent_id
set parent_id $(parent_id)
} else {
if {$use_default_lang && $default_lang eq ""} {
ad_log warning "Trying to use empty default lang on link '$element' => $name"
}
set item_id [:lookup -use_package_path $use_package_path -use_site_wide_pages $use_site_wide_pages -name $name -parent_id $parent_id]
if {$item_id == 0} {
if {$(link_type) eq "link" && $element eq $(stripped_name)} {
set item_id [:lookup -use_package_path $use_package_path -use_site_wide_pages $use_site_wide_pages -name $(stripped_name) -parent_id $parent_id]
if {$item_id > 0} {array set "" [list prefix ""]}
}
if {$item_id == 0 && $(link_type) eq "link" && $assume_folder && $(prefix) eq ""} {
set item_id [:lookup -use_package_path $use_package_path -use_site_wide_pages $use_site_wide_pages -name $default_lang:$element -parent_id $parent_id]
if {$item_id > 0} {array set "" [list link_type "link" prefix $default_lang stripped_name $element]
}
}
if {$item_id == 0 && $(link_type) eq "link" && $use_default_lang && $(prefix) ne "en"} {
set item_id [:lookup -use_package_path $use_package_path -use_site_wide_pages $use_site_wide_pages -name en:$(stripped_name) -parent_id $parent_id]
if {$item_id > 0} {array set "" [list link_type "link" prefix en]}
}
if {$item_id == 0 && [string match "*.*" $element] && $} $element]} {
set mime_type [::xowiki::guesstype $name]
set (prefix) file
switch -glob $mime_type {
"image/*" {
set name file:$(stripped_name)
set (link_type) image
}
application/x-shockwave-flash -
application/vnd.adobe.flash-movie {
set name file:$(stripped_name)
set (link_type) swf
}
default {
set name file:$(stripped_name)
if {![info exists (link_type)]} {set (link_type) file}
}
}
set item_id [:lookup -use_package_path $use_package_path -use_site_wide_pages $use_site_wide_pages -name file:$(stripped_name) -parent_id $parent_id]
}
}
}
return [list link_type $(link_type) prefix $(prefix) stripped_name $(stripped_name) form $(form) parent_id $parent_id item_id $item_id ]
}
::xowiki::Package instproc resolve_page {{-use_package_path true} {-simple:boolean false} -lang object method_var} {
upvar $method_var method
if {![info exists lang]} {
set lang [:default_language]
:log "no lang specified for '$object', use default_language <$lang>"
}
if {$object eq ""} {
set exported [${:policy} defined_methods Package]
foreach m $exported {
if {[:exists_query_parameter $m] || [:exists_form_parameter $m]} {
set method $m ;
return [self]
}
}
}
if {[string match "//*" $object]} {
return ""
}
if {$object eq ""} {
set m [:query_parameter m]
if {$m in {list show-object file-upload}} {
array set "" [list name [::${:folder_id} name] stripped_name [::${:folder_id} name] parent_id [::${:folder_id} parent_id] item_id ${:folder_id} method [:query_parameter m]]
} else {
set object [${:id} get_parameter index_page:graph "index"]
}
}
if {![info exists (item_id)]} {
array set "" [:item_info_from_url -with_package_prefix false -default_lang $lang $object]
}
set fallback_languages [:get_parameter -check_query_parameter false fallback_languages ""]
if {$(item_id) == 0 && $fallback_languages ne ""} {
foreach fallback_language $fallback_languages {
if {$fallback_language ne $lang} {
array set "" [:item_info_from_url -with_package_prefix false -default_lang $fallback_language $object]
if { $(item_id) != 0 } {
:log "item_info_from_url based on fallback_lang <$fallback_language> returns [array get {}]"
break
}
}
}
}
if {$(item_id) ne 0} {
if {$(method) ne ""} { set method $(method) }
if {![info exists method]} { set method "" }
if {$method eq "download"} {
set object_id $(item_id)
set isObject [::xo::dc 0or1row -prepare integer check_object_id {
select 1 from acs_objects where object_id = :object_id
}]
if {!$isObject} {
ns_log error "GN: BIG PROBLEM: the cache lookup of <$(parent_id)-$(name)> returned" "something, which is not an object <$(item_id)>.. flush cache for this"
xo::xotcl_object_type_cache flush -partition_key $(parent_id) $(parent_id-$(name)
set parent_id $(parent_id)
set name $(name)
set fetched_id [::xo::dc get_value -prepare integer,text check_object_id {
select item_id from cr_items where parent_id = :parent_id and name = :name
}]
ns_log notice "... refetched ID <$(parent_id)-$(name)> -> $fetched_id"
set (item_id) $fetched_id
}
}
try {
:get_page_from_item_or_revision_id $(item_id)
} on error {errorMsg} {
ns_log error "GN: BIG PROBLEM 2: could not fetch page for item_id '$(item_id)' CONTEXT: [array get {}]"
try {
set cache_name [::nsf::dispatch xo::xotcl_object_type_cache cache_name $(item_id)]
set cache_key $(parent_id)-$(name)
set cache_value "NONE"
set cached [ns_cache_get $cache_name $cache_key cache_value]
set cache_info "cache_name $cache_name cache_key $cache_key cached $cached cache_value $cache_value"
if {$cached} {
xo::xotcl_object_type_cache flush -partition_key $(parent_id) $(parent_id)-$(name)
}
} on error {errorMsg} {
set cache_info "no cache info <$errorMsg>"
}
ns_log notice "... cache info $cache_info"
return -code error -errorcode $::errorCode -errorinfo $::errorInfo $errorMsg
} on ok {result} {
set page $result
}
try {
set cache_name [::nsf::dispatch xo::xotcl_object_type_cache cache_name $(item_id)]
set cache_key $(parent_id)-$(name)
set cache_value "NONE"
set cached [ns_cache_get $cache_name $cache_key cache_value]
set cache_info "cache_name $cache_name cache_key $cache_key cached $cached cache_value $cache_value"
} on error {errorMsg} {
set cache_info "no cache info <$errorMsg>"
}
if {[$page info vars storage_type] eq ""} {ad_log notice "$page has no storage_type"}
if {[info exists (logical_package_id)] && [info exists (logical_parent_id)]} {
$page set_resolve_context -package_id $(logical_package_id) -parent_id $(logical_parent_id)
}
return $page
}
if {$simple} {
return ""
}
set standard_page [${:id} get_parameter -check_query_parameter false $(stripped_name)_page]
if {$standard_page ne ""} {
set page [:get_page_from_item_ref -allow_cross_package_item_refs false -use_package_path true -use_site_wide_pages true -use_prototype_pages true -default_lang $lang -parent_id ${:folder_id} $standard_page]
if {$page ne ""} {
return $page
}
}
if {$use_package_path} {
foreach package [:package_path] {
set page [$package resolve_page -simple true -lang $lang $object method]
if {$page ne ""} {
$page set_resolve_context -package_id ${:id} -parent_id ${:folder_id}
return $page
}
}
}
set (item_id) [:lookup -use_site_wide_pages true -name en:$(stripped_name)]
set page [expr {$(item_id) != 0 ? [:get_page_from_item_or_revision_id $(item_id)] : ""}]
if {$page ne ""} {
$page set_resolve_context -package_id ${:id} -parent_id ${:folder_id}
return $page
}
if {[:check_permissions -package_id ${:id} [self] create-from-prototype]} {
:log "try to import a prototype page for '$(stripped_name)' [array get {}]"
if {$(stripped_name) ne ""} {
if {[info exists (logical_parent_id)]} {
set parent_id $(logical_parent_id)
} elseif {[info exists (parent_id)]} {
set parent_id $(parent_id)
} else {
set parent_id ${:folder_id}
}
set page [:www-import-prototype-page -lang $lang -parent_id $parent_id -add_revision false $(stripped_name)]
}
if {$page eq ""} {
:log "no prototype for '$object' found"
}
}
return $page
}
::xowiki::Package instproc www-delete {-item_id -name -parent_id -return_url} {
if {![info exists item_id]} {
set item_id [:query_parameter item_id:int32]
}
if {![info exists name]} {
set name [:query_parameter name]
}
if {![info exists return_url]} {
set return_url [:query_parameter_return_url [ad_urlencode_folder_path ${:package_url}]]
}
if {$item_id eq ""} {
set item_info [:item_info_from_url -with_package_prefix false $name]
if {[dict get $item_info item_id] == 0} {
:log "www-delete: url lookup of '$name' failed"
} else {
set parent_id [dict get $item_info parent_id]
set item_id [dict get $item_info item_id]
set name [dict get $item_info name]
}
} else {
set name [::xo::db::CrClass get_name -item_id $item_id]
if {![info exists parent_id]} {
set parent_id [::xo::db::CrClass get_parent_id -item_id $item_id]
}
}
if {$item_id ne ""} {
:log "--D trying to delete $item_id $name"
set object_type [::xo::db::CrClass get_object_type -item_id $item_id]
set classes [list $object_type {*}[$object_type info heritage]]
if {"::xowiki::PageTemplate" in $classes} {
set count [::xowiki::PageTemplate count_usages -item_id $item_id -publish_status all]
if {$count > 0} {
return [${:id} error_msg [_ xowiki.error-delete_entries_first [list count $count]]]
}
}
if {[:get_parameter with_general_comments:boolean 0]} {
set comment_ids [::xo::dc list get_comments {
select comment_id from general_comments where object_id = :item_id
}]
foreach comment_id $comment_ids {
:log "-- deleting comment $comment_id"
::xo::db::sql::content_item del -item_id $comment_id
}
}
foreach child_item_id [::xo::db::CrClass get_child_item_ids -item_id $item_id] {
:flush_references -item_id $child_item_id
}
$object_type delete -item_id $item_id
:flush_references -item_id $item_id -name $name -parent_id $parent_id
:flush_page_fragment_cache -scope agg
} else {
:log "--D nothing to delete!"
}
:returnredirect $return_url
}
::xowiki::Package instproc get_adp_template name {
set name [:normalize_path $name]
set package_keys ${:package_key}
if {${:package_key} ne "xowiki"} {
lappend package_keys xowiki
}
set paths {}
foreach package_key $package_keys {
foreach location {resources/templates www} {
set tmpl /packages/$package_key/$location/$name
set fn $::acs::rootdir/$tmpl
lappend paths $fn
if {[ad_file readable $fn.adp]} {
set result [::template::themed_template $tmpl]
if {$result ne ""} {
if {$location eq "www"} {
ad_log_deprecated "template" $tmpl /packages/$package_key/resources/templates/
}
return $result
}
}
}
}
ns_log warning "get_adp_template: could not locate template '$name'" "on the following paths:\n[join $paths \n]"
return ""
}
::xowiki::Package instproc error_msg {{-title Error} {-template_file error-template} {-status_code 200} error_msg} {
if {![ns_conn isconnected]} {
ad_log error "Trying to return error page with status $status in disconnacted stage; message: [ns_striphtml $error_msg]"
return
}
if {![regexp {^[./]} $template_file]} {
set template_file [:get_adp_template $template_file]
}
set context [list [${:id} instance_name]]
::xo::Page header_stuff
set index_link [:make_link -privilege public -link "" ${:id} {} {}]
set link [:query_parameter "return_url:localurl" ""]
if {$link ne ""} {set back_link $link}
if {[util::external_url_p $link]} {
ns_log warning "return_url is apparently an external URL: $link"
set link ""
unset back_link
}
set top_includelets ""; set content $error_msg; set folderhtml ""
::xo::cc set status_code $status_code
::xo::Page requireCSS urn:ad:css:xowiki-[::template::CSS toolkit]
${:id} return_page -adp $template_file -variables {
context title index_link back_link error_msg
top_includelets content folderhtml
}
}
::xowiki::Package instproc show_page_order {} {
return [:get_parameter display_page_order:boolean 1]
}
::xowiki::Package instproc clipboard-copy {} {
${:folder_id} clipboard-copy
}
::xowiki::Package instproc invoke {-method:token {-error_template error-template} {-batch_mode:boolean 0}} {
if {![regexp {^[.a-zA-Z0-9_-]+$} $method]} {
return [:error_msg "No valid method provided!"]
}
ad_try {
set page_or_package [:resolve_page -lang [:default_language] ${:object} method]
} on error {errorMsg} {
ad_log error $errorMsg
return [:error_msg -template_file $error_template [ns_quotehtml $errorMsg]]
}
::xo::cc invoke_object $page_or_package
if {$page_or_package ne ""} {
if {[$page_or_package istype ::xowiki::FormPage] && [$page_or_package info vars storage_type] eq ""} {ad_log notice "$page_or_package has no storage_type"}
if {[$page_or_package istype ::xowiki::FormPage]
&& [$page_or_package is_link_page]
} {
set deref [[self class] exists delegate_link_to_target($method)]
if {[:exists_query_parameter deref]} {
set deref [:query_parameter deref:boolean]
}
if {$deref} {
set target [$page_or_package get_target_from_link_page]
if {$target ne ""} {
$target set __link_source $page_or_package
set page_or_package $target
}
}
}
if {[$page_or_package procsearch www-$method] eq ""} {
return [:error_msg "Method <b>'[ns_quotehtml $method]'</b> is not defined for this object"]
} else {
if {$batch_mode} {
${:id} set __batch_mode 1
}
ad_try {
set r [:call $page_or_package $method ""]
} on error {errorMsg} {
if {[string match "*for parameter*" $errorMsg]} {
ad_return_complaint 1 [ns_quotehtml $errorMsg]
ad_script_abort
} else {
ad_log error "error during invocation of method $method errorMsg: $errorMsg, $::errorInfo"
return [:error_msg -status_code 500 -template_file $error_template "error during [ns_quotehtml $method]: <pre>[ns_quotehtml $errorMsg]</pre>"]
}
} finally {
if {$batch_mode} {
${:id} unset -nocomplain __batch_mode
}
}
return $r
}
} else {
set path [::xowiki::Includelet html_encode ${:object}]
set edit_snippet [:create_new_snippet $path]
return [:error_msg -status_code 404 -template_file $error_template "Page <b>'[ns_quotehtml $path]'</b> is not available. $edit_snippet"]
}
}
::xowiki::Package instproc resolve_page_name {{-default_lang ""} page_name} {
return [:get_page_from_item_ref -allow_cross_package_item_refs true -default_lang $default_lang $page_name]
}
::xowiki::Package instproc pretty_link {{-anchor ""} {-query ""} {-absolute:boolean false} {-siteurl ""} {-lang ""} {-parent_id ""} {-download:boolean false} {-context_url ""} {-folder_ids ""} {-path_encode:boolean true} {-page ""} name} {
set host [expr {$absolute ? ($siteurl ne "" ? $siteurl : [ad_url]) : ""}]
if {$anchor ne ""} {set anchor \#$anchor}
if {$query ne ""} {set query ?$query}
:get_lang_and_name -default_lang $lang -name $name lang name
set package_prefix [:get_parameter -check_query_parameter false package_prefix ${:package_url}]
if {$package_prefix eq "/" && [string length $lang]>2} {
set package_prefix ${:package_url}
}
if {$path_encode} {
set encoded_name [ad_urlencode_path $name]
} else {
set encoded_name $name
}
if {$parent_id eq -100} {
set folder_path ""
set encoded_name ""
set default_lang [:default_language]
} else {
if {$parent_id in {"" 0}} {
ad_log warning "pretty_link of $name: you should consider to pass a parent_id to support folders"
set parent_id ${:folder_id}
}
set folder_path [:folder_path -parent_id $parent_id -folder_ids $folder_ids -path_encode $path_encode]
set pkg [::$parent_id package_id]
if {![nsf::is object ::$pkg]} {
::xowiki::Package require $pkg
}
set package_prefix [::$pkg get_parameter package_prefix [$pkg package_url]]
set default_lang [::$pkg default_language]
}
set found_id [:lookup -parent_id $parent_id -name $name]
if {$found_id != 0 && $page eq ""} {
set page [::xo::db::CrClass get_instance_from_db -item_id $found_id]
}
if {$found_id != 0 && $page ne ""} {
if {[$page is_unprefixed]} {
set found_id 0
}
}
if {$download} {
set url ${host}${package_prefix}download/file/$folder_path$encoded_name$query$anchor
} elseif {$lang ne $default_lang || [[self class] exists www-file($name)]} {
set url ${host}${package_prefix}${lang}/$folder_path$encoded_name$query$anchor
} elseif {$found_id != 0} {
set url ${host}${package_prefix}$folder_path${lang}:$encoded_name$query$anchor
} else {
set url ${host}${package_prefix}$folder_path$encoded_name$query$anchor
}
return $url
}
::xowiki::Package instproc get_package_id_from_page_name {{-default_lang ""} page_name} {
set package_id ${:id}
if {[regexp {^/(/.*)$} $page_name _ fullurl]} {
set siten_node_info [site_node::get_from_url -url $fullurl]
if {[dict get $siten_node_info package_id] eq ""} {
return ""
}
if {[dict get $siten_node_info name] ne ""} {
set package_id [dict get $siten_node_info package_id]
}
set url [dict get $siten_node_info url]
set provided_name [string range $fullurl [string length $url] end]
::xowiki::Package require $package_id
:get_lang_and_name -default_lang $default_lang -path $page_name lang stripped_name
set page_name $lang:$stripped_name
set search 0
} else {
set url [:url]/
set provided_name $page_name
set search 1
}
return [list package_id $package_id page_name $page_name url $url provided_name $provided_name search $search]
}
::xowiki::Package instproc require_folder_object {} {
set :folder_id [:require_root_folder -name "xowiki: ${:id}" -content_types ::xowiki::Page* ]
::xo::db::CrClass get_instance_from_db -item_id ${:folder_id}
}
::xowiki::Package instproc query_parameter_return_url default {
return [:query_parameter "return_url:localurl" [:query_parameter "local_return_url:localurl" $default]]
}
::xowiki::Package instproc folder_path {{-parent_id ""} {-context_url ""} {-folder_ids ""} {-path_encode:boolean true}} {
if {$parent_id eq "" || $parent_id == ${:folder_id}} {
return ""
}
if { $context_url ne {} } {
set parts [split $context_url /]
set index [expr {[llength $parts]-1}]
}
if { $context_url ne {} } {
set context_id [:get_parent_and_name -path $context_url -lang "" -parent_id $parent_id parent local_name]
}
set path ""
set ids {}
while {1} {
lappend ids $parent_id
set fo [::xo::db::CrClass get_instance_from_db -item_id $parent_id]
if { $context_url ne {} } {
set context_name [lindex $parts $index]
if {1 && $parent_id in $folder_ids} {
set context_id [::$context_id item_id]
set fo [::xo::db::CrClass get_instance_from_db -item_id $context_id]
} else {
if { [$fo name] ne $context_name } {
set context_folder [:get_page_from_name -parent_id $parent_id -assume_folder true -name $context_name]
if {$context_folder eq ""} {
:msg "my get_page_from_name -parent_id $parent_id -assume_folder true -name $context_name ==> EMPTY"
:msg "Cannot lookup '$context_name' in package folder $parent_id [::$parent_id name]"
set new_path [join [lrange $parts 0 $index] /]
set p2 [:get_parent_and_name -path [join [lrange $parts 0 $index] /] -lang "" -parent_id $parent_id parent local_name]
:msg "p2=$p2 new_path=$new_path '$local_name' ex=[nsf::object::exists $p2] [$p2 name]"
}
:msg "context_name [$context_folder serialize]"
set context_id [$context_folder item_id]
set fo [::xo::db::CrClass get_instance_from_db -item_id $context_id]
}
incr index -1
}
}
if {[$fo parent_id] < 0} break
if {[$fo is_link_page]} {
set pid [$fo package_id]
foreach id $ids {
if {[::$id package_id] ne $pid} {
$id set_resolve_context -package_id $pid -parent_id [::$id parent_id]
}
}
if {0} {
set target [$fo get_target_from_link_page]
set target_name [$target name]
set orig_path $path
regsub "^$target_name/" $path "" path
if {$orig_path ne $path} {
:msg "----> orig <$orig_path> new <$path> => full [$fo name]/$path"
}
}
}
set name [$fo name]
if {$path_encode} {
set name [ad_urlencode_path $name]
}
set path $name/$path
if {${:folder_id} == [$fo parent_id]} {
break
}
set parent_id [$fo parent_id]
}
return $path
}
::xowiki::Package instproc prefixed_lookup {{-default_lang ""} -lang:required -stripped_name:required -parent_id:required} {
set item_id 0
if {$lang eq $default_lang || [string match "*:*" $stripped_name]} {
set item_id [::xo::db::CrClass lookup -name $stripped_name -parent_id $parent_id]
if {$item_id != 0} {
set name $stripped_name
regexp {^(..):(.+)$} $name _ lang stripped_name
}
}
if { $item_id == 0 } {
set item_id [:get_page_from_super -folder_id $parent_id $stripped_name]
if { $item_id == 0 } {
set item_id [:get_page_from_super -folder_id $parent_id ${lang}:$stripped_name]
if { $item_id == 0 } {
set item_id [:get_page_from_super -folder_id $parent_id file:$stripped_name]
}
}
if { $item_id != 0 } {
set name $stripped_name
}
}
if {$item_id == 0} {
:get_lang_and_name -default_lang $lang -name $stripped_name lang stripped_name
set name ${lang}:$stripped_name
set item_id [::xo::db::CrClass lookup -name $name -parent_id $parent_id]
}
return [list item_id $item_id parent_id $parent_id lang $lang stripped_name $stripped_name name $name ]
}
::xowiki::Package instproc reparent {-item_id:integer,required -new_parent_id:integer,required {-allowed_parent_types {::xowiki::FormPage ::xowiki::Page}}} {
set parent_id [::xo::db::CrClass get_parent_id -item_id $item_id]
set name [::xo::db::CrClass get_name -item_id $item_id]
if {$new_parent_id == $parent_id} {
return
}
set object_type [::xo::db::CrClass get_object_type -item_id $item_id]
set parent_object_type [::xo::db::CrClass get_object_type -item_id $new_parent_id]
if {$parent_object_type ni $allowed_parent_types} {
error "parent_object_type $parent_object_type not in allowed types"
}
set relation_tag $parent_object_type-$object_type
::xo::dc transaction {
::xo::dc dml update_cr_items {
update cr_items set parent_id = :new_parent_id where item_id = :item_id
}
::xowiki::update_item_index -item_id $item_id -parent_id $new_parent_id
::xo::dc dml update_cr_child_rels {
update cr_child_rels set parent_id = :new_parent_id, relation_tag = :relation_tag
where child_id = :item_id
}
::xo::dc dml update_rels_object {
update acs_objects
set context_id = :new_parent_id,
title = :relation_tag || ': ' || :new_parent_id || ' - ' || :item_id
where object_id = (select rel_id from cr_child_rels
where child_id = :item_id)
}
}
:flush_references -item_id $item_id -name $name -parent_id $parent_id
:flush_page_fragment_cache -scope agg
::xo::xotcl_object_cache flush $item_id
foreach revision_id [::xo::dc list get_revisions {
select revision_id from cr_revisions where item_id = :item_id
}] {
::xo::xotcl_object_cache flush $revision_id
}
}
::xowiki::Package instproc get_lang_and_name {-path -name {-default_lang ""} vlang vlocal_name} {
:upvar $vlang lang $vlocal_name local_name
if {[info exists path]} {
if {[regexp {^pages/(..)/(.*)$} $path _ lang local_name]} {
} elseif {[regexp {^([a-z][a-z])/(.*)$} $path _ lang local_name]} {
set item_id [::xo::db::CrClass lookup -name $lang -parent_id ${:folder_id}]
if {$item_id} {
:msg "We have a lang-folder 'conflict' (or a two-char folder) with folder: $lang"
set local_name $path
if {$default_lang eq ""} {set default_lang [:default_language]}
set lang $default_lang
}
} elseif {[regexp {^(file|image|swf|download/file|download/..|tag)/(.*)$} $path _ lang local_name]} {
} else {
set local_name $path
if {$default_lang eq ""} {set default_lang [:default_language]}
set lang $default_lang
}
} elseif {[info exists name]} {
if {![regexp {^(..):(.*)$} $name _ lang local_name]} {
if {![regexp {^(file|image|swf):(.*)$} $name _ lang local_name]} {
set local_name $name
if {$default_lang eq ""} {set default_lang [:default_language]}
set lang $default_lang
}
}
}
}
::xowiki::Package instproc call {object:object method options} {
set allowed [${:policy} enforce_permissions -package_id ${:id} -user_id [::xo::cc user_id] $object $method]
if {$allowed} {
$object www-$method {*}$options
} else {
:log "not allowed to call $object $method"
}
}
::xowiki::Package instproc flush_name_cache {-name:required -parent_id:required} {
::xo::xotcl_object_type_cache flush -partition_key $parent_id $parent_id-$name
acs::per_request_cache flush -pattern xotcl-core.lookup-$parent_id-$name
}
::xowiki::Package instproc condition=has_name {query_context value} {
return [regexp $value [$query_context query_parameter name ""]]
}
::xowiki::Package instproc lookup {{-use_package_path true} {-use_site_wide_pages false} {-default_lang ""} -name:required {-parent_id ""}} -returns integer {
set pkg_info [:get_package_id_from_page_name -default_lang $default_lang $name]
if {[dict exists $pkg_info package_id]} {
set package_id [dict get $pkg_info package_id]
} else {
return 0
}
if {$parent_id eq ""} {
set parent_id [::$package_id folder_id]
}
set item_id [::xo::db::CrClass lookup -name [dict get $pkg_info page_name] -parent_id $parent_id]
if {$item_id == 0 && $parent_id != 0} {
set p [::xo::db::CrClass get_instance_from_db -item_id $parent_id]
if {[$p istype ::xowiki::FormPage] && [$p is_link_page] && [$p is_folder_page]} {
set target [$p get_target_from_link_page]
set target_package_id [$target package_id]
set target_item_id [$target item_id]
if {${:id} != $target_package_id || $parent_id != $target_item_id} {
set target_item_id [::$target_package_id lookup -use_package_path $use_package_path -use_site_wide_pages $use_site_wide_pages -default_lang $default_lang -name $name -parent_id $target_item_id]
} else {
:log "SYMLINK LOOKUP avoid recursive loop name $name package_id ${:id} parent_id [$target item_id]"
set target_item_id 0
}
if {$target_item_id != 0} {
::xo::db::CrClass get_instance_from_db -item_id $target_item_id
::$target_item_id set_resolve_context -package_id ${:id} -parent_id $parent_id
}
return $target_item_id
}
}
if {$item_id == 0 && $use_package_path} {
foreach package [:package_path] {
set item_id [$package lookup -name $name]
if {$item_id != 0} break
}
}
if {$item_id == 0 && $use_site_wide_pages} {
foreach pkgClass [${:id} info precedence] {
if {[$pkgClass istype ::xo::PackageMgr] && [$pkgClass package_key] ne "apm_package"} {
set item_id [$pkgClass lookup_side_wide_page -name $name]
if {$item_id ne 0} {
break
}
}
}
}
return $item_id
}
::xowiki::Package instproc get_parent_and_name {-path:required -lang:required -parent_id:required vparent vlocal_name} {
:upvar $vparent parent $vlocal_name local_name
if {[regexp {^([^/]+)/(.+)$} $path _ parent local_name]} {
set p [:lookup -name $parent -parent_id $parent_id]
if {$p == 0} {
set p2 [:get_page_from_super -folder_id $parent_id $parent]
if { $p2 != 0 } {
set p $p2
}
}
if {$p == 0} {
set p [:lookup -name ${lang}:$parent -parent_id $parent_id]
if {$p == 0 && $lang ne "en"} {
set p [:lookup -name en:$parent -parent_id $parent_id]
}
}
if {$p != 0} {
if {[regexp {^([^/]+)/(.+)$} $local_name _ parent2 local_name2]} {
set p2 [:get_parent_and_name -path $local_name -lang $lang -parent_id $p parent local_name]
if {$p2 != 0} {
set p $p2
}
}
}
if {$p != 0} {
return $p
}
}
set parent ""
set local_name [string trimright $path /]
return $parent_id
}
::xowiki::Package instproc item_ref {{-use_package_path false} {-use_site_wide_pages false} {-normalize_name true} -default_lang:required -parent_id:required link} {
if {[string match "*/" $link]} {
set llink [string trimright $link /]\0
} else {
set llink $link
}
set elements [split $llink /]
if {[llength $elements] == 0} {
set link [:get_parameter -check_query_parameter false index_page "index"]
set elements [list $link]
}
set nr_elements [llength $elements]
set n 0
set ref_ids {}
foreach element $elements {
set (last_parent_id) $parent_id
lappend ref_ids $parent_id
array set "" [:simple_item_ref -normalize_name $normalize_name -use_package_path $use_package_path -use_site_wide_pages $use_site_wide_pages -default_lang $default_lang -parent_id $parent_id -assume_folder [expr {[incr n] < $nr_elements}] $element]
if {$(item_id) == 0} {
set parent_id $(parent_id)
break
} else {
set parent_id $(item_id)
}
}
return [list link $link link_type $(link_type) form $(form) prefix $(prefix) stripped_name $(stripped_name) item_id $(item_id) parent_id $(parent_id) ref_ids $ref_ids]
}
::xowiki::Package instproc www-update-references {} {
set id ${:id}
set item_ids [::xo::dc list get_pages {
select ci.item_id from xowiki_page, cr_revisions r, cr_items ci, acs_objects o
where page_id = r.revision_id and ci.item_id = r.item_id and ci.live_revision = page_id
and publish_status = 'ready'
and page_id = o.object_id and o.package_id = :id
}]
foreach item_id $item_ids {
set o [::xo::db::CrClass get_instance_from_db -item_id $item_id]
if {$o ne ""} {
ns_log notice "render $o [$o name]"
try {
$o render -update_references all
} on error {errorMsg} {
ns_log warning "render $o [$o name] -> error: $errorMsg"
}
}
}
:returnredirect .
}
::xowiki::Package instproc split_name string {
regexp {^([a-z][a-z]|file|image|video|audio|js|css|swf|folder):(.*)$} $string _ prefix suffix
if {![info exists prefix] || ![info exists suffix]} {
error "cannot split name '$string' into a prefix and a suffix"
}
return [list prefix $prefix suffix $suffix]
}
::xowiki::Package instproc www-manage-categories {} {
set object_id [:query_parameter object_id:int32]
:flush_page_fragment_cache -scope agg
set href [export_vars -base [site_node::get_package_url -package_key categories]cadmin/object-map {
{ctx_id $object_id} object_id
}]
:returnredirect $href
}
::xowiki::Package instproc www-refresh-login {} {
set return_url [:query_parameter return_url:localurl]
if {[::xo::cc user_id] == 0} {
set url [subsite::get_url]register
:returnredirect [export_vars -base $url return_url]
} else {
:returnredirect $return_url
}
}
::xowiki::Package instproc create_new_snippet {{-object_type ::xowiki::Page} provided_name} {
:get_lang_and_name -path $provided_name lang local_name
set name ${lang}:$local_name
set new_link [:make_link ${:id} edit-new object_type return_url name]
if {$new_link ne ""} {
return "<p>Do you want to create page <a href='[ns_quotehtml $new_link]'>$name</a> new?"
} else {
return ""
}
}
::xowiki::Package instproc item_info_from_url {{-with_package_prefix true} {-default_lang ""} url} {
if {$with_package_prefix && [string match "/*" $url]} {
set url [string range $url [string length [:package_url]] end]
}
if {$default_lang eq ""} {set default_lang [:default_language]}
:get_lang_and_name -default_lang $default_lang -path $url (lang) stripped_url
set (parent_id) [:get_parent_and_name -lang $(lang) -path $stripped_url -parent_id ${:folder_id} parent local_name]
if {![regexp {^(download)/(.+)$} $(lang) _ (method) (lang)]} {
set (method) ""
if {$(lang) eq "tag"} {
set tag $stripped_url
:validate_tag $tag
set summary [string is true -strict [::xo::cc query_parameter summary:boolean 0]]
set popular [string is true -strict [::xo::cc query_parameter popular:boolean 0]]
set tag_kind [expr {$popular ? "ptag" :"tag"}]
set weblog_page [:get_parameter -check_query_parameter false weblog_page:graph]
:get_lang_and_name -default_lang $default_lang -name $weblog_page (lang) local_name
set :object $weblog_page
::xo::cc set actual_query $tag_kind=$tag&summary=$summary
}
}
array set "" [:prefixed_lookup -parent_id $(parent_id) -default_lang $default_lang -lang $(lang) -stripped_name $local_name]
if {$(item_id) == 0} {
::xo::db::CrClass get_instance_from_db -item_id $(parent_id)
if {[$(parent_id) is_link_page]} {
set link_id $(parent_id)
set target [::$link_id get_target_from_link_page]
$target set_resolve_context -package_id ${:id} -parent_id $link_id
array set "" [list logical_package_id ${:id} logical_parent_id $link_id]
array set "" [[$target package_id] prefixed_lookup -parent_id [$target item_id] -default_lang $default_lang -lang $(lang) -stripped_name $(stripped_name)]
}
}
return [array get ""]
}
::xowiki::Package instproc default_language {} {
return [string range [:default_locale] 0 1]
}
::xowiki::Package instproc package_path {} {
set packages [list]
set package_url [string trimright [:package_url] /]
set package_path [:get_parameter -check_query_parameter false PackagePath]
foreach package_instance_url $package_path {
if {$package_instance_url eq $package_url} continue
lappend packages ::[::xowiki::Package initialize -url $package_instance_url/${:object} -keep_cc true -init_url false]
}
set p [lsearch $packages ::${:id}]
if {$p > -1} {set packages [lreplace $packages $p $p]}
return $packages
}
::xowiki::Package instproc item_info_from_id item_id {
::xo::db::CrClass get_instance_from_db -item_id $item_id
set name [::$item_id name]
set parent_id [::$item_id parent_id]
if {[::$item_id is_folder_page]} {
return [list link_type "folder" prefix "" stripped_name $name parent_id $parent_id]
}
set stripped_name $name
set prefix ""
regexp {^(.+):(.+)$} $name _ prefix stripped_name
return [list link_type "link" prefix $prefix stripped_name $stripped_name parent_id $parent_id]
}
::xowiki::Package instproc www-rss {-maxentries -name_filter -entries_of -title -days} {
set folder_id [::${:id} folder_id]
if {![info exists name_filter]} {
set name_filter [:get_parameter -check_query_parameter false -type word name_filter ""]
}
if {![info exists entries_of]} {
set entries_of [:get_parameter -check_query_parameter false -type noquote entries_of ""]
}
if {![info exists title]} {
set title [:get_parameter -check_query_parameter false PackageTitle ${:instance_name}]
}
set description [:get_parameter -check_query_parameter false PackageDescription ""]
if {![info exists days]} {
set rss_query_parameter [:query_parameter rss]
if {[regexp {^([0-9]+)d} $rss_query_parameter _ days]
&& $days < 50000
} {
} else {
ns_log warning "rss_query_parameter has invalid value '$rss_query_parameter'; fall back to 10d"
set days 10
}
} else {
set days 10
}
set r [RSS new -package_id ${:id} -parent_ids [:query_parameter parent_ids:int32,0..n ""] -name_filter $name_filter -entries_of $entries_of -title $title -description $description -days $days -destroy_on_cleanup ]
set :mime_type text/xml
return [$r render]
}
::xowiki::Package instproc get_ids_for_bulk_actions {-parent_id page_references} {
set item_ids {}
foreach page_ref $page_references {
set item_id 0
if {[string is integer -strict $page_ref]} {
::xo::dc 0or1row -prepare integer check_ref {
select item_id from cr_items where item_id = :page_ref
}
} elseif {[string index $page_ref 0] eq "/"} {
set ref [:item_info_from_url $page_ref]
set item_id [dict get $ref item_id]
ns_log notice "get_ids_for_bulk_actions: URL '$page_ref' item_ref <$ref> -> $item_id"
} else {
if {![info exists parent_id]} {
set parent_ids [list ""]
} else {
set parent_ids $parent_id
}
foreach p_id $parent_ids {
set p [:get_page_from_item_ref -parent_id $p_id $page_ref]
if {$p ne ""} {
set item_id [$p item_id]
break
}
}
ns_log notice "get_ids_for_bulk_actions: tried to resolve item_ref <$page_ref> -> $item_id"
}
if {$item_id == 0} {
set parent_ids [expr {[info exists parent_id] ? $parent_id : ${:folder_id}}]
foreach p_id $parent_ids {
set item_id [::xo::db::CrClass lookup -name $page_ref -parent_id $p_id]
if {$item_id != 0} {
break
}
}
}
if {$item_id != 0} {
lappend item_ids $item_id
} else {
ns_log warning "get_ids_for_bulk_actions: clipboard entry <$page_ref> could not be resolved"
}
}
return $item_ids
}
::xowiki::Package instproc www-import-prototype-page {{-add_revision:boolean true} {-lang en} -parent_id {prototype_name ""}} {
set page ""
if {$prototype_name eq ""} {
set prototype_name [:query_parameter import-prototype-page ""]
set via_url 1
}
if {![info exists parent_id]} {
set parent_id ${:folder_id}
}
if {$prototype_name eq ""} {
error "No name for prototype given"
}
set page [::xowiki::Package import_prototype_page -package_key [:package_key] -name $prototype_name -lang $lang -parent_id $parent_id -package_id ${:id} -add_revision $add_revision]
if {[info exists via_url] && [:exists_query_parameter "return_url"]} {
:returnredirect [:query_parameter "return_url:localurl" [ad_urlencode_folder_path ${:package_url}]]
} else {
return $page
}
}
::xowiki::Package instproc import {-user_id {-parent_id 0} {-replace 0} -objects {-create_user_ids 0}} {
if {$parent_id == 0} {set parent_id ${:folder_id}}
if {![info exists user_id]} {set user_id [::xo::cc user_id]}
if {![info exists objects]} {set objects [::xowiki::Page allinstances]}
set msg "#xowiki.processing_objects#: $objects<p>"
set importer [Importer new -package_id ${:id} -parent_id $parent_id -user_id $user_id]
$importer import_all -replace $replace -objects $objects -create_user_ids $create_user_ids
append msg [$importer report]
}
::xowiki::Package instproc default_locale {} {
if {[:get_parameter use_connection_locale:boolean 0]} {
set locale [::xo::cc locale]
} else {
if {[info exists :__default_locale]} {
return ${:__default_locale}
}
set locale [lang::system::locale -package_id ${:id}]
set :__default_locale $locale
}
return $locale
}
::xowiki::Package instproc condition=has_class {query_context value} {
return [expr {[$query_context query_parameter object_type:class ""] eq $value}]
}
::xowiki::Package instproc validate_tag tag {
if {![regexp {^[\w.-]+$} $tag]} {
ad_return_complaint 1 "invalid tag"
ad_script_abort
}
}
::xowiki::Package instproc insert {} {
set __table_name [[self class] table_name]
set __id [[self class] id_column]
set :$__id ${:object_id}
:log "ID insert in $__table_name, id = $__id = [set :$__id]"
next
foreach {__slot_name __slot} [[self class] array get db_slot] {
if {[info exists :$__slot_name]} {
set $__slot_name [set :$__slot_name]
lappend __vars $__slot_name
lappend __atts [$__slot column_name]
}
}
::xo::dc dml insert_$__table_name "insert into $__table_name
([join $__atts ,]) values (:[join $__vars ,:])"
}
::xowiki::Package instproc normalize_path name {
set nn [ns_normalizepath $name]
return [string range $nn 1 end]
}
::xowiki::Package instproc make_form_link {-form {-parent_id ""} {-query ""} -title -name -nls_language -return_url} {
set form_id [lindex [::${:id} instantiate_forms -parent_id $parent_id -forms $form] 0]
if {$form_id ne ""} {
if {$parent_id eq ""} {unset parent_id}
set form_link [::$form_id pretty_link -query $query]
return [:make_link -link $form_link $form_id create-new return_url title parent_id name nls_language]
}
}
::xowiki::Package instproc delete_revision {-revision_id:required -item_id:required} {
::xo::xotcl_object_cache flush $item_id
::xo::xotcl_object_cache flush $revision_id
::xo::db::sql::content_revision del -revision_id $revision_id
}
::xowiki::Package instproc get_page_from_item_ref {{-allow_cross_package_item_refs true} {-use_package_path false} {-use_site_wide_pages true} {-use_prototype_pages false} {-default_lang ""} {-parent_id ""} link} {
if {$allow_cross_package_item_refs && [string match "//*" $link]} {
set referenced_package_id [:resolve_package_path $link rest_link]
if {$referenced_package_id != 0 && $referenced_package_id != ${:id}} {
return [::$referenced_package_id get_page_from_item_ref -allow_cross_package_item_refs false -use_package_path false -use_site_wide_pages false -use_prototype_pages false -default_lang $default_lang -parent_id [::$referenced_package_id folder_id] $rest_link]
} else {
set link $rest_link
set search_parent_id ""
}
} else {
set search_parent_id $parent_id
}
if {$search_parent_id eq ""} {
set search_parent_id ${:folder_id}
}
if {$parent_id eq ""} {
set parent_id ${:folder_id}
}
array set "" [:item_ref -normalize_name false -use_package_path $use_package_path -use_site_wide_pages $use_site_wide_pages -default_lang $default_lang -parent_id $search_parent_id $link]
if {$(item_id)} {
set page [::xo::db::CrClass get_instance_from_db -item_id $(item_id)]
if {[$page package_id] ne ${:id} || [$page parent_id] != $(parent_id)} {
$page set_resolve_context -package_id ${:id} -parent_id $parent_id
}
return $page
}
if {!$(item_id) && $use_prototype_pages} {
set item_info [:item_ref -normalize_name false -default_lang $default_lang -parent_id $parent_id $link]
foreach pkgClass [${:id} info precedence] {
if {[$pkgClass istype ::xo::PackageMgr] && [$pkgClass package_key] ne "apm_package"} {
set page [$pkgClass import_prototype_page -package_key [$pkgClass package_key] -name [dict get $item_info stripped_name] -parent_id [dict get $item_info parent_id] -package_id ${:id} ]
if {$page ne ""} {
:log "loading prototype page for [dict get $item_info stripped_name] from [$pkgClass package_key]"
break
}
}
}
if {$page ne ""} {
set page [::xo::db::CrClass get_instance_from_db -item_id [$page item_id]]
}
return $page
}
return ""
}
::xowiki::Package instproc www-change-page-order {} {
::xowiki::utility change_page_order -from [string trim [:form_parameter from ""]] -to [string trim [:form_parameter to ""]] -clean [string trim [:form_parameter clean ""]] -folder_id [string trim [:form_parameter folder_id:int32 ${:folder_id}]] -package_id ${:id} -publish_status [string trim [:form_parameter publish_status:word "ready|live|expired"]]
set :mime_type text/plain
return ""
}
::xowiki::Package instproc resolve_page_name_and_init_context {-lang page_name} {
set page ""
set package_id ${:id}
array set "" [:get_package_id_from_page_name $page_name]
if {$(package_id) != $package_id} {
set last_package_id $package_id
set last_url [:url]
::xowiki::Package initialize -parameter {{-m:token view}} -url $(url)$(provided_name) -actual_query ""
if {$package_id != 0} {
set package ::$package_id
set last_context [expr {[$package exists context] ? [$package context] : "::xo::cc"}]
$package context [::xo::Context new -volatile]
set object_name [$package set object]
if {![regexp {^..:} $object_name]} {
if {![info exists lang]} {
set lang [:default_language]
}
set object_name ${lang}:$object_name
}
set page [$package resolve_page -simple true $object_name __m]
$package context $last_context
}
::$last_package_id set_url -url $last_url
} else {
set package ::$package_id
set last_context [expr {[$package exists context] ? [$package context] : "::xo::cc"}]
$package context [::xo::Context new -volatile]
set page [$package resolve_page -use_package_path $(search) $(page_name) __m]
$package context $last_context
}
return $page
}
::xowiki::Package instproc get_page_from_super {-folder_id:required name} {
set package [self]
set inherit_folders [FormPage get_super_folders $package $folder_id]
foreach item_ref $inherit_folders {
set folder [::xo::cc cache [list $package get_page_from_item_ref $item_ref]]
if {$folder eq ""} {
ad_log error "Could not resolve parameter folder page '$item_ref' of FormPage [self]."
} else {
set item_id [::xo::db::CrClass lookup -name $name -parent_id [$folder item_id]]
if { $item_id != 0 } {
return $item_id
}
}
}
return 0
}
::xowiki::Package instproc get_parameter_from_parameter_page {{-parameter_page_name ""} parameter {default ""}} {
set value $default
if {$parameter_page_name ne ""} {
if {![regexp {/?..:} $parameter_page_name]} {
ad_log error "Name of parameter page '$parameter_page_name'" "of FormPage [self] must contain a language prefix"
} else {
set page [::xo::cc cache [list ::${:id} get_page_from_item_ref $parameter_page_name]]
if {$page eq ""} {
ad_log error "Could not resolve parameter page '$parameter_page_name'" "for package ${:id}."
}
if {![::nsf::is object $page]} {
ad_log warning "We have to refetch parameter page"
::xo::db::CrClass get_instance_from_db -item_id [string trimleft $page :]
}
if {$page ne "" && [$page exists instance_attributes]} {
set __ia [$page set instance_attributes]
if {[dict exists $__ia $parameter]} {
set value [dict get $__ia $parameter]
}
}
}
}
return $value
}
::xowiki::Package instproc www-google-sitemap {{-max_entries ""} {-changefreq "daily"} {-priority "0.5"}} {
set package ::${:id}
set folder_id [$package folder_id]
set timerange_clause ""
set content {<?xml version="1.0" encoding="UTF-8"?>
<urlset xmlns="http://www.google.com/schemas/sitemap/0.84"
xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance"
xsi:schemaLocation="http://www.google.com/schemas/sitemap/0.84
http://www.google.com/schemas/sitemap/0.84/sitemap.xsd">
}
set sql [::xo::dc select -vars "ci.parent_id, s.body, p.name, p.creator, p.title, p.page_id, p.object_type as content_type, p.last_modified, p.description" -from "xowiki_pagex p, syndication s, cr_items ci" -where "ci.parent_id = :folder_id and ci.live_revision = s.object_id and s.object_id = p.page_id $timerange_clause" -orderby "p.last_modified desc" -limit $max_entries]
::xo::dc foreach get_pages $sql {
if {[string match "::*" $name]} continue
if {$content_type eq "::xowiki::PageTemplate::"} continue
set time [::xo::db::tcl_date $last_modified tz]
set time "[clock format [clock scan $time] -format {%Y-%m-%dT%T}]${tz}:00"
append content <url> \n <loc>[$package pretty_link -absolute true -parent_id $parent_id $name]</loc> \n <lastmod>$time</lastmod> \n <changefreq>$changefreq</changefreq> \n <priority>$priority</priority> \n </url> \n
}
append content </urlset> \n
set :mime_type text/xml
return $content
}
::xowiki::Package instproc get_parameter {{-check_query_parameter true} -nocache:switch {-type ""} attribute {default ""}} {
set attribute_name $attribute
set attribute_constraint ""
regexp {^([^:]+):(.*)$} $attribute . attribute_name attribute_constraint
if {$nocache} {
set value ""
} else {
set value [::xo::cc get_parameter $attribute_name]
}
if {$check_query_parameter && $value eq ""} {
set value [string trim [:query_parameter $attribute]]
}
if {$value eq "" && $attribute_name ne "parameter_page"} {
set value [:get_parameter_from_parameter_page -parameter_page_name [:get_parameter parameter_page:graph ""] $attribute_name]
}
if {$value eq ""} {
set value [next $attribute_name $default]
}
if {$type ne ""} {
switch -- $type {
word {if {[regexp {\W} $value]} {
ad_return_complaint 1 "value for parameter '$attribute' contains invalid character"}
}
noquote {if {[regexp {['\"]} $value]} {
ad_return_complaint 1 "value for parameter '$attribute' contains invalid character"}
}
default {error "requested type unknown: $type"}
}
}
if {$value ne "" && $attribute_constraint ne ""} {
xo::validate_parameter_constraints $attribute_name $attribute_constraint $value
}
return $value
}
::xowiki::Package instproc www-edit-category-tree {} {
set object_id [:query_parameter object_id:int32]
set tree_id [:query_parameter tree_id:int32]
:flush_page_fragment_cache -scope agg
:returnredirect [export_vars -base [site_node::get_package_url -package_key categories]/cadmin/tree-view {
tree_id {ctx_id $object_id} object_id
}]
}
::xowiki::Package instproc normalize_name {{-as_item_ref:boolean false} {-with_prefix:boolean false} string} {
if {$with_prefix} {
set name_info [:split_name $string]
set prefix [dict get $name_info prefix]
set suffix [dict get $name_info suffix]
} else {
set prefix ""
set suffix $string
}
set suffix [string trim $suffix]
if {[string match "*:*" $suffix]} {
ad_log warning "normalize_name receives name '$suffix' containing a colon. A missing -with_prefix?"
xo::show_stack
}
if {!$as_item_ref && [regexp {^[./]+$} $suffix]} {
set suffix [string repeat _ [string length $suffix]]
}
regsub -all -- {[\#/\\:]} $suffix _ suffix
if {[:get_parameter subst_blank_in_name:boolean 1]} {
regsub -all -- { +} $suffix "_" suffix
}
return [:join_name -prefix $prefix -name $suffix]
}
::xowiki::Package instproc external_name {{-parent_id ""} name} {
set folder [:folder_path -parent_id $parent_id]
if {$folder ne ""} {
return $folder$name
}
return $name
}
::xowiki::Package instproc flush_references {-item_id:integer,required -name -parent_id} {
if {![info exists parent_id]} {
set parent_id [::xo::db::CrClass get_parent_id -item_id $item_id]
}
if {![info exists name]} {
set name [::xo::db::CrClass get_name -item_id $item_id]
}
:flush_name_cache -name $name -parent_id $parent_id
}
::xowiki::Package instproc init {} {
next
:require_folder_object
set :policy [:get_parameter -check_query_parameter false security_policy ::xowiki::policy1]
::template::CSS initialize
:process_init_parameter [:get_parameter -check_query_parameter false PackageInitParameter ""]
}
::xowiki::Package instproc flush_page_fragment_cache {{-scope agg}} {
switch -- $scope {
agg {set key PF-${:id}-agg-*}
all {set key PF-${:id}-*}
default {error "unknown scope for flushing page fragment cache"}
}
xowiki::cache flush_pattern -partition_key ${:id} $key
}
::xowiki::Package instproc get_page_from_name {{-parent_id ""} {-assume_folder false} -name:required} {
if {$assume_folder} {
set lookup_name $name
} else {
:get_lang_and_name -name $name lang stripped_name
set lookup_name $lang:$stripped_name
}
set item_id [:lookup -parent_id $parent_id -name $lookup_name]
if {$item_id != 0} {
return [::xo::db::CrClass get_instance_from_db -item_id $item_id]
}
return ""
}
::xowiki::Package instproc www-google-sitemapindex {} {
[self class] google_sitemapindex -package [self]
}
::xowiki::Package instproc make_link {{-with_entities 0} -privilege -link object:object {method ""} args} {
set computed_link ""
if {[$object istype ::xowiki::Package]} {
set base ${:package_url}
if {$method ne ""} {
lappend args [list $method 1]
}
if {[info exists link]} {
set computed_link [uplevel export_vars -base [list $base$link] [list $args]]
} else {
set computed_link [uplevel export_vars -base [list $base] [list $args]]
}
} elseif {[$object istype ::xowiki::Page]} {
if {[info exists link]} {
set base $link
} else {
set base [$object pretty_link]
}
if {$method ne ""} {
lappend args [list m $method]
}
set computed_link [uplevel [list export_vars -base $base -no_base_encode $args]]
}
if {$with_entities} {
regsub -all & $computed_link "&" computed_link
}
set party_id [::xo::cc set untrusted_user_id]
if {[info exists privilege]} {
set granted [expr {$privilege eq "public" ? 1 :
[::xo::cc permission -object_id ${:id} -privilege $privilege -party_id $party_id] }]
} else {
ad_try {
set granted [:check_permissions -user_id $party_id -package_id ${:id} -link $computed_link $object $method]
} on error {errorMsg} {
ns_log error "error in check_permissions: $errorMsg"
set granted 0
}
}
if {$granted} {
return $computed_link
}
return ""
}
::xowiki::Package instproc get_page_from_item_or_revision_id item_id {
set revision_id [:query_parameter revision_id:int32 0]
if {![string is integer -strict $revision_id]} {
ad_return_complaint 1 "invalid revision_id"
ad_script_abort
}
set [expr {$revision_id ? "item_id" : "revision_id"}] 0
return [::xo::db::CrClass get_instance_from_db -item_id $item_id -revision_id $revision_id]
}
::xowiki::Package instproc resolve_package_path {path name_var} {
:upvar $name_var name
set name $path
if {[regexp {^/(/.*)$} $path _ path]} {
set siten_node_info [site_node::get_from_url -url $path]
set package_key [dict get $siten_node_info package_key]
if {$package_key eq "acs-subsite"} {
return 0
}
set package_id [dict get $siten_node_info package_id]
if {[::xowiki::Package is_xowiki_p $package_id]} {
::xowiki::Package require $package_id
set name [string range $path [string length [dict get $siten_node_info url]] end]
return $package_id
}
} elseif {!([string match "http*://*" $path] || [string match "ftp://*" $path])} {
return ${:id}
}
return 0
}
::xowiki::Package instproc www-edit-new {} {
set object_type [:query_parameter object_type:class "::xowiki::Page"]
set autoname [:get_parameter autoname:boolean 0]
set parent_id [${:id} query_parameter parent_id:cr_item_of_package,arg=${:id}]
if {$parent_id eq ""} {
set parent_id [${:id} form_parameter folder_id:int32 ${:folder_id}]
if {![::xo::db::CrClass id_belongs_to_package -item_id $parent_id -package_id ${:id}]} {
ad_return_complaint 1 "invalid parent_id"
ad_script_abort
}
}
set page [$object_type new -volatile -parent_id $parent_id -package_id ${:id}]
if {$object_type eq "::xowiki::PageInstance"} {
$page set page_template [:form_parameter page_template:int32]
}
set source_item_id [${:id} query_parameter source_item_id:int32 ""]
if {$source_item_id ne ""} {
if {![string is integer -strict $source_item_id]} {
ad_return_complaint 1 "invalid source_item_id"
ad_script_abort
}
set source [$object_type get_instance_from_db -item_id $source_item_id]
$page copy_content_vars -from_object $source
set name "[::xowiki::autoname new -parent_id $source_item_id -name [$source name]]"
$page set name $name
} else {
$page set name ""
}
return [$page www-edit -new true -autoname $autoname]
}
::xowiki::Package instforward check_permissions {%set :policy} %proc
::xowiki::Package instparametercmd folder_id
::xowiki::Package instparametercmd force_refresh_login
::xowiki::Package instparametercmd package_id
::nsf::relation::set ::xowiki::Package superclass ::xo::Package
::nsf::relation::set ::xowiki::Package class-mixin ::xowiki::ParameterCache
::nx::slotObj -container slot ::xowiki::Package
::xowiki::Package::slot eval {set :__parameter {
{folder_id 0}
{force_refresh_login false}
}}
::nsf::object::alloc ::xo::db::Attribute ::xowiki::Package::slot::package_id {set :accessor public
set :column_name package_id
set :configurable true
set :convert false
set :create_acs_attribute false
set :create_table_attribute true
set :datatype integer
set :defaultmethods {}
set :disposition alias
set :domain ::xowiki::Package
set :incremental false
set :manager ::xowiki::Package::slot::package_id
set :max_n_values 1
set :methodname package_id
set :min_n_values 1
set :multiplicity 1..1
set :name package_id
set :parameterSpec -package_id
set :per-object false
set :position 0
set :pretty_name ID
set :pretty_plural {}
set :references {}
set :required false
set :sqltype integer
set :trace none
: init}
::nsf::object::alloc ::xotcl::Attribute ::xowiki::Package::slot::folder_id {set :accessor public
set :configurable true
set :convert false
set :default 0
set :defaultmethods {}
set :disposition alias
set :domain ::xowiki::Package
set :incremental 0
set :manager ::xowiki::Package::slot::folder_id
set :methodname folder_id
set :multiplicity 1..1
set :name folder_id
set :parameterSpec {-folder_id:substdefault 0}
set :per-object false
set :position 0
set :required false
set :substdefault 0b111
set :trace none
: init}
::nsf::object::alloc ::xotcl::Attribute ::xowiki::Package::slot::force_refresh_login {set :accessor public
set :configurable true
set :convert false
set :default false
set :defaultmethods {}
set :disposition alias
set :domain ::xowiki::Package
set :incremental 0
set :manager ::xowiki::Package::slot::force_refresh_login
set :methodname force_refresh_login
set :multiplicity 1..1
set :name force_refresh_login
set :parameterSpec {-force_refresh_login:substdefault false}
set :per-object false
set :position 0
set :required false
set :substdefault 0b111
set :trace none
: init}
namespace eval ::xowiki {::namespace export Menu YUIMenuBar YUIMenuBarItem YUIMenu YUIMenuItem YUIMenuItemList YUIContextMenu YUIContextMenuItem}
![[i]](/resources/acs-subsite/ZoomIn16.gif)
