archive/oddmuse
2
0
Fork 0
forked from github/kensanata.oddmuse
Code Pull Requests Activity

Debugging

Browse Source
This commit is contained in:
Alex Schroeder
2011-10-11 22:17:26 +00:00
parent b8ba1781cb
commit 7cb682aa0c
1 changed files with 5 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files

6
modules/monitor.pl
View File

@@ -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 />)