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