From 7cb682aa0c67ee89c9774ef8a4ae5841dfa9cfe2 Mon Sep 17 00:00:00 2001
From: Alex Schroeder <alex@gnu.org>
Date: Tue, 11 Oct 2011 22:17:26 +0000
Subject: [PATCH] Debugging

---
 modules/monitor.pl | 6 +++++-
 1 file changed, 5 insertions(+), 1 deletion(-)

diff --git a/modules/monitor.pl b/modules/monitor.pl
index d8b98b2f..24162741 100644
--- a/modules/monitor.pl
+++ b/modules/monitor.pl
@@ -22,10 +22,14 @@ sub MonitorInit {
   if (!$MonitorUser or !$MonitorPassword or !$MonitorHost) {
     $Message .= $q->p('Monitor extension has been installed but not configured.');
   }
-  MonitorSend() if $q->url() =~ /$MonitorRegexp/;
+  AppendStringToFile("$TempDir/oddmuse.log", localtime . " monitor init\n");
+  MonitorSend() if $q->url =~ /$MonitorRegexp/;
 }
 
 sub MonitorSend {
+  AppendStringToFile("$TempDir/oddmuse.log", localtime . " monitor send\n");
+  require File::Temp;
+  require MIME::Entity;
   my $fh = File::Temp->new(SUFFIX => '.html');
   my $home = ScriptLink(UrlEncode($HomePage), $HomePage);
   print $fh qq(<p>Monitor mail from <a href="$home">$SiteName:$HomePage</a>.</p><hr />)