#!/usr/bin/perl # This plugin adds a "Diff" button to the page edit form. package IkiWiki::Plugin::editdiff; use warnings; use strict; use IkiWiki 3.00; use HTML::Entities; use IPC::Open2; sub import { hook(type => "getsetup", id => "editdiff", call => \&getsetup); hook(type => "formbuilder_setup", id => "editdiff", call => \&formbuilder_setup); } sub getsetup () { return plugin => { safe => 1, rebuild => 0, section => "web", }, } sub diff ($$) { my $orig=shift; my $content=shift; my $sigpipe=0; $SIG{PIPE} = sub { $sigpipe=1; }; my $pid = open2(*DIFFOUT, *DIFFIN, 'diff', '-u', $orig, '-'); binmode($_, ':utf8') foreach (*DIFFIN, *DIFFOUT); print DIFFIN $content; close DIFFIN; my $ret=''; while () { if (defined $ret) { $ret.=$_; } elsif (/^\@\@/) { $ret=$_; } } close DIFFOUT; waitpid $pid, 0; $SIG{PIPE}="default"; return "couldn't run diff\n" if $sigpipe; return "
".encode_entities($ret)."
"; } sub formbuilder_setup { my %params=@_; my $form=$params{form}; return if ! defined $form->field("do") || $form->field("do") ne "edit"; my $page=$form->field("page"); $page = IkiWiki::possibly_foolish_untaint($page); return unless exists $pagesources{$page}; push @{$params{buttons}}, "Diff"; if ($form->submitted eq "Diff") { my $content=$form->field('editcontent'); $content=~s/\r\n/\n/g; $content=~s/\r/\n/g; my $diff = diff(srcfile($pagesources{$page}), $content); $form->tmpl_param("page_diff", $diff); } } 1