Index: openacs.org-dev/packages/irc-logger/www/admin/update.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs.org-dev/packages/irc-logger/www/admin/update.tcl,v
diff -u
--- /dev/null	1 Jan 1970 00:00:00 -0000
+++ openacs.org-dev/packages/irc-logger/www/admin/update.tcl	11 Feb 2003 23:08:38 -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/11 23:08:38 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}}]