%3 ::xolirc::Package ::xolirc::Package → create-page-from-log → process-all-logs ::xowiki::Package ::xowiki::Package → get_package_id_from_page_id → get_url_from_id → google_sitemapindex → instantiate_page_from_id → is_xowiki_p external_name folder_path get_ids_for_bulk_actions get_parameter get_parameter_from_parameter_page import invoke item_info_from_url item_ref lookup make_link normalize_path pretty_link reparent require_root_folder resolve_page www-change-page-order www-delete www-edit-category-tree www-edit-new www-google-sitemap www-google-sitemapindex www-import-prototype-page www-manage-categories www-refresh-login www-reindex www-rss www-update-references ::xolirc::Package->::xowiki::Package ::s5::Package ::s5::Package ::s5::Package->::xowiki::Package ::xowf::Package ::xowf::Package → create_new_workflow_page destroy initialize ::xowf::Package->::xowiki::Package ::xo::Package ::xo::Package initialize reply_to_user require_root_folder ::xowiki::Package->::xo::Package ::xowiki::ParameterCache ::xowiki::ParameterCache ::xowiki::Package->::xowiki::ParameterCache instmixin ::xo::db::Object ::xo::db::Object ::xo::Package->::xo::db::Object

Class ::xolirc::Package

::xolirc::Package[i] create ...

Class Relations

  • class: ::xo::PackageMgr[i]
  • superclass: ::xowiki::Package[i]
::xo::PackageMgr create ::xolirc::Package \
     -superclass ::xowiki::Package

Methods (to be applied on the object)

  • create-page-from-log (scripted, public)

     xolirc::Package[i] create-page-from-log [ -overwrite overwrite ] \
    [ -date date ]
    Switches:
    -overwrite
    (defaults to "1") (optional)
    Indicates if the content of the page will be overwritted in case the page exists already.
    -date
    (optional)
    Indicates the date of the log html files to read from.

    Partial Call Graph (max 5 caller/called nodes):
    %3 apm_package_ids_from_key apm_package_ids_from_key (public) db_dml db_dml (public) parameter::get parameter::get (public) parameter::set_value parameter::set_value (public) xolirc::Package proc create-page-from-log xolirc::Package proc create-page-from-log xolirc::Package proc create-page-from-log->apm_package_ids_from_key xolirc::Package proc create-page-from-log->db_dml xolirc::Package proc create-page-from-log->parameter::get xolirc::Package proc create-page-from-log->parameter::set_value

    Testcases:
    No testcase defined.
    set package_id [apm_package_ids_from_key -mounted -package_key xolirc]
::xolirc::Package initialize  -package_id $package_id  -init_url 0 -actual_query ""

if {$date ne ""} {
    regsub -all -- "-" $date {} date 
} else {
    set date [parameter::get -package_id $package_id  -parameter "date2process"  -default [clock format [clock seconds] -format "%Y%m%d"]]
    #ns_log notice "about to process $date"
    parameter::set_value -package_id $package_id  -parameter "date2process"  -value [clock format [clock seconds] -format "%Y%m%d"]
}
#ns_log notice "vguerra the date is $date"
set text [$package_id get-html-from-log -date $date]
if { $text eq "" } {
    ns_log Warning "xolirc: Nothing has been logged yet for the date [$package_id dash-date $date]"
    return ""
}    

set page [$package_id resolve_page_name "en:$date"]
if {$page eq ""} {
    set page [::xowiki::Page new  -title "Conversation log in #openacs on [$package_id dash-date $date]"  -name "en:$date"  -package_id $package_id  -parent_id [$package_id folder_id]  -destroy_on_cleanup  -text [list $text]]
    $page initialize_loaded_object
    $page save_new
} elseif { $overwrite } {
    $page set text [list $text]
    $page save
}
set creation_date "[$package_id dash-date $date]"
db_dml update_date "update acs_objects set creation_date = :creation_date where object_id = [$page set revision_id]"

  • process-all-logs (scripted, public)

     xolirc::Package[i] process-all-logs [ -overwrite overwrite ]

    Goes through all the log files and creates the respective xowiki Page.

    Switches:
    -overwrite
    (defaults to "1") (optional)
    In case that the page exists for the processing date, this parameter if overwrite it (1) or not (0).

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

    Testcases:
    No testcase defined.
    #my instvar logs_path
set logs_path "/usr/local/eggdrop/html/"
foreach log [glob -nocomplain -directory $logs_path "openacs*_pg1.html"] {
    regexp {.*openacs(\d{8})_pg1\.html} $log match date
    ns_log notice "working on $date"
    ::xolirc::Package create-page-from-log -overwrite $overwrite -date $date
    
}