Add rsync plugin, though the only rsync-specific thing about it is the

assumption that uploading an entire site is efficient.
master
Amitai Schlair 2009-08-23 15:18:41 -04:00
parent 5bdcd4d57b
commit 3d6bc6e1b7
2 changed files with 48 additions and 0 deletions

View File

@ -0,0 +1,47 @@
#!/usr/bin/perl
package IkiWiki::Plugin::rsync;
use warnings;
no warnings 'redefine';
use strict;
use IkiWiki 3.00;
sub import {
hook(type => "getsetup", id => "rsync", call => \&getsetup);
hook(type => "checkconfig", id => "rsync", call => \&checkconfig);
hook(type => "postrefresh", id => "rsync", call => \&postrefresh);
}
sub getsetup () {
return
plugin => {
safe => 0,
rebuild => 0,
},
rsync_command => {
type => "string",
example => "rsync -qa --delete /path/to/destdir/ user\@host:/path/to/docroot/",
description => "command to upload regenerated pages to another host",
safe => 0,
rebuild => 0,
},
}
sub checkconfig {
if (! exists $config{rsync_command} ||
! defined $config{rsync_command}) {
error("Must specify rsync_command");
}
}
sub postrefresh () {
debug "in postrefresh hook, gonna run rsync";
system $config{rsync_command};
if ($? == -1) {
error("failed to execute rsync_command: $!");
} elsif ($? != 0) {
error(sprintf("rsync_command exited %d", $? >> 8));
}
}
1

View File

@ -524,6 +524,7 @@ sub refresh () {
if (%rendered) {
run_hooks(change => sub { shift->(keys %rendered) });
}
run_hooks(postrefresh => sub { shift->() });
}
sub commandline_render () {