Index: openacs-4/contrib/packages/irc-logger/ChangeLog =================================================================== RCS file: /usr/local/cvsroot/openacs-4/contrib/packages/irc-logger/ChangeLog,v diff -u -r1.4 -r1.5 --- openacs-4/contrib/packages/irc-logger/ChangeLog 10 Feb 2003 05:23:42 -0000 1.4 +++ openacs-4/contrib/packages/irc-logger/ChangeLog 10 Feb 2003 21:23:10 -0000 1.5 @@ -1,3 +1,10 @@ +2003-02-10 Bart Teeuwisse + + * www/admin (Module): + - Removed all namespace references from the resulting HTML. This previously caused a problem for Opera (7). + - Added an update feature to the admin page. + - Removed an extraneous .xql file from /www/admin. + 2003-02-09 Bart Teeuwisse * data/default.xsl (Module): Index: openacs-4/contrib/packages/irc-logger/irc-logger.info =================================================================== RCS file: /usr/local/cvsroot/openacs-4/contrib/packages/irc-logger/irc-logger.info,v diff -u -r1.1 -r1.2 --- openacs-4/contrib/packages/irc-logger/irc-logger.info 30 Jan 2003 02:48:43 -0000 1.1 +++ openacs-4/contrib/packages/irc-logger/irc-logger.info 10 Feb 2003 21:23:09 -0000 1.2 @@ -7,19 +7,21 @@ f f - + oracle postgresql Bart Teeuwisse The IRC logger places the log files of logger (a Perl script by Dave Beckett) into ETP for integration with OpenACS. + 2003-02-10 the Code Mill The IRC logger places the log files of <a href="http://cvs.ilrt.org/cvsweb/redland/logger/">logger</a> (a Perl script by Dave Beckett) into ETP for integration with OpenACS. Besides logger, this package also depends on <a href="http://www.tdom.org/">tDOM</a> (high performance XML data processing with easy and powerful Tcl scripting functionality). + @@ -28,10 +30,10 @@ - + Index: openacs-4/contrib/packages/irc-logger/data/default.xsl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/contrib/packages/irc-logger/data/default.xsl,v diff -u -r1.2 -r1.3 --- openacs-4/contrib/packages/irc-logger/data/default.xsl 10 Feb 2003 05:23:14 -0000 1.2 +++ openacs-4/contrib/packages/irc-logger/data/default.xsl 10 Feb 2003 21:22:03 -0000 1.3 @@ -1,13 +1,12 @@ + exclude-result-prefixes="xsl rdf dc wn foaf irc"> Fisheye: Tag 1.2 refers to a dead (removed) revision in file `openacs-4/contrib/packages/irc-logger/www/admin/index-postgresql.xql'. Fisheye: No comparison available. Pass `N' to diff? Index: openacs-4/contrib/packages/irc-logger/www/admin/index.adp =================================================================== RCS file: /usr/local/cvsroot/openacs-4/contrib/packages/irc-logger/www/admin/index.adp,v diff -u -r1.1 -r1.2 --- openacs-4/contrib/packages/irc-logger/www/admin/index.adp 30 Jan 2003 02:48:49 -0000 1.1 +++ openacs-4/contrib/packages/irc-logger/www/admin/index.adp 10 Feb 2003 21:21:06 -0000 1.2 @@ -9,4 +9,29 @@ +

Parameters

+

Set package parameters

+ +

RDF log files

+ +

The following RDF log files are still available in the RDF + directory (@rdf_dir@). Click View to visit the + current ETP page of the log. Follow the Update link to re-apply + the XSL transformation to the RDF log.

+ +

The log has no Update link if the RDF log is not writable by the + owner of this AOLserver process.

+ +
    + +
  • @rdf_logs.date@ [ View  + + | Update  + ] + +  Updated + +
  • +
    +
Index: openacs-4/contrib/packages/irc-logger/www/admin/index.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/contrib/packages/irc-logger/www/admin/index.tcl,v diff -u -r1.1 -r1.2 --- openacs-4/contrib/packages/irc-logger/www/admin/index.tcl 30 Jan 2003 02:48:49 -0000 1.1 +++ openacs-4/contrib/packages/irc-logger/www/admin/index.tcl 10 Feb 2003 21:21:06 -0000 1.2 @@ -7,9 +7,11 @@ @creation-date 2003-01-29 @cvs $Id$ } { + {updated {}} } -properties { title:onevalue - + rdf_dir:onevalue + rdf_logs:multilist } # Authenticate the user @@ -34,3 +36,19 @@ } else { set title "Administration" } + +# Create a data source of remaining RDF log files in the log directory + +multirow create rdf_logs date view_href update_href +set rdf_dir [parameter::get \ + -parameter irc_rdf_dir \ + -package_id $package_id \ + -default ""] +foreach rdf_log [glob -nocomplain -directory $rdf_dir *.rdf] { + set date [file rootname [file tail $rdf_log]] + if {[file writable $rdf_log]} { + multirow append rdf_logs $date ../../$date update?[export_vars -url {date $date}] + } else { + multirow append rdf_logs $date ../../$date {} + } +} Index: openacs-4/contrib/packages/irc-logger/www/admin/update.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/contrib/packages/irc-logger/www/admin/update.tcl,v diff -u --- /dev/null 1 Jan 1970 00:00:00 -0000 +++ openacs-4/contrib/packages/irc-logger/www/admin/update.tcl 10 Feb 2003 21:21:06 -0000 1.1 @@ -0,0 +1,38 @@ +ad_page_contract { + + @author Bart Teeuwisse (bart.teeuwisse@thecodemill.biz) + @creation-date 2003-02-10 + @cvs-id $Id: update.tcl,v 1.1 2003/02/10 21:21:06 bartt Exp $ + +} { + date:notnull +} + +# Authenticate the user + +set user_id [ad_maybe_redirect_for_registration] + +# Check for admin privileges + +set package_id [ad_conn package_id] +set admin_p [ad_permission_p $package_id admin] + +foreach rdf_log [glob -nocomplain -directory [parameter::get \ + -parameter irc_rdf_dir \ + -package_id $package_id \ + -default ""] $date.rdf] { + + # Touch the log file so that irc::logger::update_log will process + # the log. + + exec touch $rdf_log + + # Update the ETP page of the log. + + irc::logger::update_log -date $date -package_id $package_id + +} + +# Return to the main admin page + +ad_returnredirect .?[export_vars -url {{updated $date}}]