pinger/pingee now tested and working

1 files changed, 33 insertions, 0 deletions

diff --git a/IkiWiki/Plugin/pingee.pm b/IkiWiki/Plugin/pingee.pm
new file mode 100644
index 000000000..ee799a57a
--- /dev/null
+++ b/IkiWiki/Plugin/pingee.pm
@@ -0,0 +1,33 @@
+#!/usr/bin/perl
+package IkiWiki::Plugin::pingee;
+
+use warnings;
+use strict;
+use IkiWiki 2.00;
+
+sub import { #{{{
+	hook(type => "cgi", id => "aggregate", call => \&cgi);
+} # }}}
+
+sub cgi ($) { #{{{
+	my $cgi=shift;
+
+	if (defined $cgi->param('do') && $cgi->param("do") eq "ping") {
+		$|=1;
+		print "Content-Type: text/plain\n\n";
+		$config{cgi}=0;
+		$config{verbose}=1;
+		$config{syslog}=0;
+		print gettext("Ping received.")."\n\n";
+
+		IkiWiki::lockwiki();
+		IkiWiki::loadindex();
+		require IkiWiki::Render;
+		IkiWiki::rcs_update();
+		IkiWiki::refresh();
+		IkiWiki::saveindex();
+		exit 0;
+	}
+} #}}}
+
+1