Index: openacs.org-dev/packages/irc-logger/ChangeLog =================================================================== RCS file: /usr/local/cvsroot/openacs.org-dev/packages/irc-logger/ChangeLog,v diff -u -r1.2 -r1.3 --- openacs.org-dev/packages/irc-logger/ChangeLog 4 Feb 2003 19:12:39 -0000 1.2 +++ openacs.org-dev/packages/irc-logger/ChangeLog 11 Feb 2003 23:27:11 -0000 1.3 @@ -1,6 +1,25 @@ +2003-02-11 Bart Teeuwisse + + * www/admin/index.adp (Module): + - Added update all RDF logs. + +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): + - Break the description of long hyper links in chunks of 50 characters as not to interfere with the page layout. + - Flush the ETP page whenever the log is updated so that the displayed ETP page is always current. + 2003-01-31 Bart Teeuwisse - * www/doc/index.adp (Module): Fixed link to daemontools + * www/doc/index.adp (Module): + - Fixed link to daemontools 2003-01-30 Bart Teeuwisse Index: openacs.org-dev/packages/irc-logger/irc-logger.info =================================================================== RCS file: /usr/local/cvsroot/openacs.org-dev/packages/irc-logger/irc-logger.info,v diff -u -r1.1 -r1.2 --- openacs.org-dev/packages/irc-logger/irc-logger.info 30 Jan 2003 00:14:01 -0000 1.1 +++ openacs.org-dev/packages/irc-logger/irc-logger.info 11 Feb 2003 23:27:11 -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.org-dev/packages/irc-logger/data/default.xsl =================================================================== RCS file: /usr/local/cvsroot/openacs.org-dev/packages/irc-logger/data/default.xsl,v diff -u -r1.2 -r1.3 --- openacs.org-dev/packages/irc-logger/data/default.xsl 4 Feb 2003 19:13:19 -0000 1.2 +++ openacs.org-dev/packages/irc-logger/data/default.xsl 11 Feb 2003 23:26:04 -0000 1.3 @@ -1,17 +1,19 @@ + xmlns:irc="irc::logger" + exclude-result-prefixes="xsl rdf dc wn foaf irc"> + + @@ -20,6 +22,7 @@
+ @@ -32,11 +35,16 @@ + GMT [] + < @@ -45,31 +53,74 @@ + + + + + - http: + http: + + + - http: + http: + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + Index: openacs.org-dev/packages/irc-logger/perl/logger =================================================================== RCS file: /usr/local/cvsroot/openacs.org-dev/packages/irc-logger/perl/logger,v diff -u -r1.2 -r1.3 --- openacs.org-dev/packages/irc-logger/perl/logger 4 Feb 2003 19:13:35 -0000 1.2 +++ openacs.org-dev/packages/irc-logger/perl/logger 11 Feb 2003 23:24:47 -0000 1.3 @@ -607,7 +607,11 @@ IRC log of $escaped_chan on $date EOT +<<<<<<< logger my $progID = '$Id$'; +======= + my $progID = '$Id$'; +>>>>>>> 1.1.1.1 $progID =~ s/\$/\$/g; # Hide the CVS tag from CVS in the output print $html_log_fh ''; print $html_log_fh <<"EOT"; @@ -2100,7 +2104,11 @@ } my $progname = basename(__FILE__); +<<<<<<< logger my $CVSRevision = '$Revision$'; # capture CVS info here +======= + my $CVSRevision = '$Revision$'; # capture CVS info here +>>>>>>> 1.1.1.1 $CVSRevision =~ s/\$//g; # drop '$' for W3C site repository checkin my $datetime = strftime( '%Y-%m-%dT%H:%MZ', gmtime ); Index: openacs.org-dev/packages/irc-logger/tcl/irc-logger-procs.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs.org-dev/packages/irc-logger/tcl/irc-logger-procs.tcl,v diff -u -r1.2 -r1.3 --- openacs.org-dev/packages/irc-logger/tcl/irc-logger-procs.tcl 4 Feb 2003 19:13:50 -0000 1.2 +++ openacs.org-dev/packages/irc-logger/tcl/irc-logger-procs.tcl 11 Feb 2003 23:23:23 -0000 1.3 @@ -169,11 +169,11 @@ -package_id $package_id \ -default ""]" set log_latest_revision_id [etp::get_latest_revision_id $parent_package_id $date] + set content_type [etp::get_content_type] if {[empty_string_p $log_latest_revision_id]} { # Create a new ETP page for the log. - set content_type [etp::get_content_type] db_exec_plsql page_create {} } @@ -182,6 +182,10 @@ set log_live_revision_id [etp::get_live_revision_id $parent_package_id $date] set log_description "Conversation log of $irc_channel_name of $date" db_dml update_revision {} + + # Flush the cached page from memory + + util_memoize_flush "etp::get_pa $parent_package_id $date $content_type" } } } Index: openacs.org-dev/packages/irc-logger/www/admin/index.adp =================================================================== RCS file: /usr/local/cvsroot/openacs.org-dev/packages/irc-logger/www/admin/index.adp,v diff -u -r1.1 -r1.2 --- openacs.org-dev/packages/irc-logger/www/admin/index.adp 30 Jan 2003 00:15:35 -0000 1.1 +++ openacs.org-dev/packages/irc-logger/www/admin/index.adp 11 Feb 2003 23:17:41 -0000 1.2 @@ -9,4 +9,46 @@ +

Parameters

+

Set package parameters

+ +

RDF log files

+ +

The following RDF log files are available in the RDF + directory (@rdf_dir@).

+

Use View to visit the current ETP page of the log. Follow the Update link to re-apply + the XSL transformation to the RDF log(s).

+ +

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

+ + + + + + + + + + + +
+
    +
  • @rdf_logs.desc@
    • +
+ 		[  + + View  + + |  + + + + Update  + ] + + +  Updated + +
Index: openacs.org-dev/packages/irc-logger/www/admin/index.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs.org-dev/packages/irc-logger/www/admin/index.tcl,v diff -u -r1.2 -r1.3 --- openacs.org-dev/packages/irc-logger/www/admin/index.tcl 4 Feb 2003 19:14:25 -0000 1.2 +++ openacs.org-dev/packages/irc-logger/www/admin/index.tcl 11 Feb 2003 23:17:41 -0000 1.3 @@ -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,26 @@ } else { set title "Administration" } + +# Create a data source of remaining RDF log files in the log directory + +multirow create rdf_logs desc date view_href update_href +set rdf_dir [parameter::get \ + -parameter irc_rdf_dir \ + -package_id $package_id \ + -default ""] + +# First a link to update all RDF log files. + +multirow append rdf_logs "All RDF log files" "*" {} update?[export_vars -url {{date *}}] + +# Followed by links to individual RDF log files. + +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 ../../$date update?[export_vars -url {date $date}] + } else { + multirow append rdf_logs $date $date ../../$date {} + } +} Index: openacs.org-dev/packages/irc-logger/www/doc/index.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs.org-dev/packages/irc-logger/www/doc/index.tcl,v diff -u -r1.2 -r1.3 --- openacs.org-dev/packages/irc-logger/www/doc/index.tcl 4 Feb 2003 19:14:50 -0000 1.2 +++ openacs.org-dev/packages/irc-logger/www/doc/index.tcl 11 Feb 2003 23:21:13 -0000 1.3 @@ -1,28 +1,29 @@ -ad_page_contract { - - @author Bart Teeuwisse (bart.teeuwisse@thecodemill.biz) - @creation-date 2003-01-29 - @cvs $Id$ - -} { -} -properties { - title:onevalue - context_bar:onevalue -} - -# Authenticate the user - -set user_id [ad_maybe_redirect_for_registration] - -set package_name "IRC Logger" -set title "$package_name Documentation" - -# Set the context bar. - -set context_bar [ad_context_bar $package_name] - -set pvt_home [ad_pvt_home] - -# Set signatory for at the bottom of the page - -set signatory "bart.teeuwisse@thecodemill.biz" +ad_page_contract { +~ + + @author Bart Teeuwisse (bart.teeuwisse@thecodemill.biz) + @creation-date 2003-01-29 + @cvs $Id$ + +} { +} -properties { + title:onevalue + context_bar:onevalue +} + +# Authenticate the user + +set user_id [ad_maybe_redirect_for_registration] + +set package_name "IRC Logger" +set title "$package_name Documentation" + +# Set the context bar. + +set context_bar [ad_context_bar $package_name] + +set pvt_home [ad_pvt_home] + +# Set signatory for at the bottom of the page + +set signatory "bart.teeuwisse@thecodemill.biz" Index: openacs.org-dev/packages/irc-logger/www/doc/license.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs.org-dev/packages/irc-logger/www/doc/license.tcl,v diff -u -r1.2 -r1.3 --- openacs.org-dev/packages/irc-logger/www/doc/license.tcl 4 Feb 2003 19:14:50 -0000 1.2 +++ openacs.org-dev/packages/irc-logger/www/doc/license.tcl 11 Feb 2003 23:21:13 -0000 1.3 @@ -1,29 +1,29 @@ -ad_page_contract { - - License information of the Authorize.net Gateway, an - implementation of the Payment Service Contract. - - @author Bart Teeuwisse - @creation-date May 2002 - @cvs $Id$ - -} { -} -properties { - title:onevalue - context_bar:onevalue -} - -# Authenticate the user - -set user_id [ad_maybe_redirect_for_registration] - -set package_name "IRC Logger" -set title "$package_name License" - -# Set the context bar. - -set context_bar [ad_context_bar [list . $package_name] License] - -# Set signatory for at the bottom of the page - -set signatory "bart.teeuwisse@thecodemill.biz" +ad_page_contract { + + License information of the Authorize.net Gateway, an + implementation of the Payment Service Contract. + + @author Bart Teeuwisse + @creation-date May 2002 + @cvs $Id$ + +} { +} -properties { + title:onevalue + context_bar:onevalue +} + +# Authenticate the user + +set user_id [ad_maybe_redirect_for_registration] + +set package_name "IRC Logger" +set title "$package_name License" + +# Set the context bar. + +set context_bar [ad_context_bar [list . $package_name] License] + +# Set signatory for at the bottom of the page + +set signatory "bart.teeuwisse@thecodemill.biz"