34 lines
599 B
Perl
34 lines
599 B
Perl
|
#!/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
|