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 -N -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 {}
+    }
+}