plugin/core/Diff.pm

   1 ###############################################################################
   2 #
   3 # º¹Ê¬¤òÉ½¼¨¤¹¤ë¥×¥é¥°¥¤¥ó
   4 #
   5 ###############################################################################
   6 package plugin::core::Diff;
   7 use Algorithm::Diff qw(traverse_sequences);
   8 use strict;
   9
  10 #==============================================================================
  11 # ¥³¥ó¥¹¥È¥é¥¯¥¿
  12 #==============================================================================
  13 sub new {
  14         my $class = shift;
  15         my $self = {};
  16
  17         return bless $self,$class;
  18 }
  19
  20 #==============================================================================
  21 # ¥¢¥¯¥·¥ç¥ó¤Î¼Â¹Ô
  22 #==============================================================================
  23 sub do_action {
  24         my $self = shift;
  25         my $wiki = shift;
  26         my $cgi = $wiki->get_CGI;
  27
  28         my $pagename = $cgi->param("page");
  29         if($pagename eq ""){
  30                 $pagename = $wiki->config("frontpage");
  31         }
  32         unless($wiki->can_show($pagename)){
  33                 return $wiki->error("»²¾È¸¢¸Â¤¬¤¢¤ê¤Þ¤»¤ó¡£");
  34         }
  35         if($cgi->param('rollback') ne ''){
  36                 return $self->rollback($wiki, $pagename, $cgi->param('rollback'));
  37
  38         } elsif($wiki->{storage}->backup_type eq 'all'){
  39                 my $login = $wiki->get_login_info();
  40                 if(defined($login) && $login->{'type'} == 0 && $cgi->param('clear') ne ''){
  41                         # ÍúÎò¤Î¥¯¥ê¥¢
  42                         $self->clear_history($wiki, $pagename);
  43                         return $self->show_history($wiki, $pagename);
  44
  45                 } elsif($cgi->param('generation') eq '' && $cgi->param('diff') eq ''){
  46                         # ÍúÎò¤òÉ½¼¨
  47                         return $self->show_history($wiki, $pagename);
  48
  49                 } else {
  50                         if($cgi->param('generation') ne ''){
  51                                 # »ØÄê¤·¤¿¥ê¥Ó¥¸¥ç¥ó¤Ç¤Îº¹Ê¬¤òÉ½¼¨
  52                                 return $self->show_diff($wiki, $pagename, '', $cgi->param('generation'));
  53                         }
  54                         # »ØÄê¤·¤¿¥ê¥Ó¥¸¥ç¥ó´Ö¤Îº¹Ê¬¤òÉ½¼¨
  55                         return $self->show_diff($wiki, $pagename, $cgi->param('from'), $cgi->param('to'));
  56                 }
  57         } else {
  58                 # ºÇ¸å¤Î¹¹¿·¤Îº¹Ê¬¤òÉ½¼¨
  59                 return $self->show_diff($wiki, $pagename, '', 0);
  60         }
  61 }
  62
  63 #==============================================================================
  64 # ÍúÎò¤Î¥¯¥ê¥¢
  65 #==============================================================================
  66 sub clear_history {
  67         my $self = shift;
  68         my $wiki = shift;
  69         my $page = shift;
  70         $wiki->{storage}->delete_backup_files($wiki, $page);
  71 }
  72
  73 #==============================================================================
  74 # ÍúÎò¤«¤é¥Ú¡¼¥¸¤òÉü¸µ
  75 #==============================================================================
  76 sub rollback {
  77         my $self = shift;
  78         my $wiki = shift;
  79         my $page = shift;
  80         my $gen  = shift;
  81         unless($wiki->can_modify_page($page)){
  82                 return $wiki->error("¹¹¿·¸¢¸Â¤¬¤¢¤ê¤Þ¤»¤ó¡£");
  83         }
  84         my $source = $wiki->get_backup($page,$gen);
  85         $wiki->save_page($page, $source);
  86         return $wiki->redirect($page);
  87 }
  88
  89 #==============================================================================
  90 # ÍúÎò¤Î°ìÍ÷¤òÉ½¼¨
  91 # ¥¹¥È¥ì¡¼¥¸¤Îbackup_type=all¤Î¤È¤
  92 #==============================================================================
  93 sub show_history {
  94         my $self = shift;
  95         my $wiki = shift;
  96         my $page = shift;
  97
  98         $wiki->set_title("$page¤ÎÊÑ¹¹ÍúÎò");
  99         my $buf   = "<form><ul>\n";
 100         my $count = 0;
 101         my @list  = $wiki->{storage}->get_backup_list($page);
 102
 103         if($#list == -1){
 104                 return "ÍúÎò¤Ï¤¢¤ê¤Þ¤»¤ó¡£";
 105         }
 106
 107         # editlog¥×¥é¥°¥¤¥ó¤Î¥í¥°¤«¤éÊÔ½¸¼Ô¤Î¥æ¡¼¥¶Ì¾¤ò¼èÆÀ
 108         # ¡Êeditlog¤ÎÆüÉÕ¤¬¥º¥ì¤ë¤³¤È¤¬¤¢¤Ã¤¿¤Î¤Ç1ÉÃ°ÊÆâ¤Î¹¹¿·¤ÏÆ±¤¸ÍúÎò¤È¤ß¤Ê¤¹¤è¤¦¤Ë¤·¤Æ¤Þ¤¹¡Ë
 109         my $editlog = {};
 110         if($wiki->config('log_dir') ne "" && -e $wiki->config('log_dir')."/useredit.log"){
 111                 open(DATA,$wiki->config('log_dir')."/useredit.log") or die $!;
 112                 while(<DATA>){
 113                         my($date, $time, $unixtime, $action, $subject, $id) = split(" ",$_);
 114                         if($subject eq $page){
 115                                 if($id eq ''){
 116                                         $editlog->{substr($unixtime, 0, length($unixtime) - 4)} = 'anonymous';
 117                                 } else {
 118                                         $editlog->{substr($unixtime, 0, length($unixtime) - 4)} = $id;
 119                                 }
 120                         }
 121                 }
 122                 close(DATA);
 123         }
 124
 125         foreach my $time (@list){
 126                 $buf .= "<li>";
 127                 if($count == 0){
 128                         $buf .= "<input type=\"radio\" name=\"from\" value=\"".($#list-$count)."\" checked>".
 129                                 "<input type=\"radio\" name=\"to\" value=\"".($#list-$count)."\" checked>";
 130                 } else {
 131                         $buf .= "<input type=\"radio\" name=\"from\" value=\"".($#list-$count)."\">".
 132                                 "<input type=\"radio\" name=\"to\" value=\"".($#list-$count)."\">";
 133                 }
 134                 $buf .= "<a href=\"".$wiki->create_url({ action=>"DIFF",page=>$page,generation=>($#list-$count) })."\">".&Util::format_date($time).
 135                         "</a> <a href=\"".$wiki->create_url({ action=>"SOURCE",page=>$page,generation=>($#list-$count) })."\">¥½¡¼¥¹</a>";
 136
 137                 if(defined($editlog->{substr($time, 0, length($time) - 4)})){
 138                         $buf .= " by ".$editlog->{substr($time, 0, length($time) - 4)};
 139                 }
 140
 141                 $buf .=  "</li>\n";
 142                 $count++;
 143         }
 144
 145         $buf .= "</ul>".
 146                 "<input type=\"hidden\" name=\"page\" value=\"".Util::escapeHTML($page)."\">".
 147                 "<input type=\"hidden\" name=\"action\" value=\"DIFF\">".
 148                 "<input type=\"submit\" name=\"diff\" value=\"ÁªÂò¤·¤¿¥ê¥Ó¥¸¥ç¥ó´Ö¤Îº¹Ê¬¤òÉ½¼¨\">\n";
 149
 150         my $login = $wiki->get_login_info();
 151         if(defined($login) && $login->{'type'} == 0){
 152                 $buf .= "<input type=\"submit\" name=\"clear\" value=\"ÍúÎò¤ò¤¹¤Ù¤Æºï½ü\">\n";
 153         }
 154         return $buf."</form>\n";
 155 }
 156
 157 #==============================================================================
 158 # º¹Ê¬¤òÉ½¼¨
 159 #==============================================================================
 160 sub show_diff {
 161         my $self = shift;
 162         my $wiki = shift;
 163         my $page = shift;
 164         my $from = shift;
 165         my $to   = shift;
 166
 167         $wiki->set_title("$page¤ÎÊÑ¹¹ÅÀ");
 168         my ($diff, $rollback) = $self->get_diff_html($wiki,$page, $from, $to);
 169
 170         my $theme_uri = $wiki->config('theme_uri');
 171         my $buf = qq|
 172 <script type="text/javascript" src="${theme_uri}/resources/jsdifflib/difflib.js"></script>
 173 <script type="text/javascript" src="${theme_uri}/resources/jsdifflib/diffview.js"></script>
 174 <link href="${theme_uri}/resources/jsdifflib/diffview.css" type="text/css" rel="stylesheet" />
 175 <script type="text/javascript">
 176 function diffUsingJS() {\r
 177     // get the baseText and newText values from the two textboxes, and split them into lines\r
 178     var base   = difflib.stringAsLines(document.getElementById("baseText").value);\r
 179     var newtxt = difflib.stringAsLines(document.getElementById("newText").value);\r
 180 \r
 181     // create a SequenceMatcher instance that diffs the two sets of lines\r
 182     var sm = new difflib.SequenceMatcher(base, newtxt);\r
 183 \r
 184     // get the opcodes from the SequenceMatcher instance\r
 185     // opcodes is a list of 3-tuples describing what changes should be made to the base text\r
 186     // in order to yield the new text\r
 187     var opcodes = sm.get_opcodes();\r
 188     var diffoutputdiv = document.getElementById("diffoutputdiv")\r
 189     while (diffoutputdiv.firstChild) diffoutputdiv.removeChild(diffoutputdiv.firstChild);\r
 190 \r
 191     // build the diff view and add it to the current DOM\r
 192     diffoutputdiv.appendChild(diffview.buildView({\r
 193         baseTextLines: base,\r
 194         newTextLines: newtxt,\r
 195         opcodes: opcodes,\r
 196         // set the display titles for each resource\r
 197         baseTextName: "Base Text",\r
 198         newTextName: "New Text",\r
 199         contextSize: null,\r
 200         viewType: 1 // 1 or 0\r
 201     }));\r
 202 }
 203 </script>
 204 $diff
 205 <div id="diffoutputdiv"/>
 206 <script type="text/javascript">
 207   diffUsingJS();
 208 </script>
 209         |;
 210
 211         if($wiki->can_modify_page($page) && $rollback && $wiki->get_CGI->param('diff') eq ''){
 212                 $buf .= qq|
 213                         <form action="@{[$wiki->create_url()]}" method="POST">
 214                                 <input type="submit" value="¤³¤Î¥Ð¡¼¥¸¥ç¥ó¤ËÌá¤¹"/>
 215                                 <input type="hidden" name="action" value="DIFF"/>
 216                                 <input type="hidden" name="page" value="@{[Util::escapeHTML($page)]}"/>
 217                                 <input type="hidden" name="rollback" value="@{[Util::escapeHTML($to)]}"/>
 218                         </form>
 219                 |;
 220         }
 221
 222         return $buf;
 223 }
 224
 225 #==============================================================================
 226 # º¹Ê¬Ê¸»úÎó¤ò¼èÆÀ
 227 #==============================================================================
 228 sub get_diff_text {
 229         my $self = shift;
 230         my $wiki = shift;
 231         my $page = shift;
 232         my $gen  = shift;
 233
 234         my $source1 = $wiki->get_page($page);
 235         my $source2 = $wiki->get_backup($page, $gen);
 236         my $format  = $wiki->get_edit_format();
 237
 238         $source1 = $wiki->convert_from_fswiki($source1, $format);
 239         $source2 = $wiki->convert_from_fswiki($source2, $format);
 240
 241         my $diff_text = "";
 242         my @msg1 = split(/\n/,$source1);
 243         my @msg2 = split(/\n/,$source2);
 244         my $msgrefA = \@msg2;
 245         my $msgrefB = \@msg1;
 246
 247         traverse_sequences($msgrefA, $msgrefB,
 248                 {
 249                         MATCH => sub {},
 250                         DISCARD_A => sub {
 251                                 my ($a, $b) = @_;
 252                                 $diff_text .= "-".$msgrefA->[$a]."\n";
 253                         },
 254                         DISCARD_B => sub {
 255                                 my ($a, $b) = @_;
 256                                 $diff_text .= "+".$msgrefB->[$b]."\n";
 257                         }
 258                 });
 259
 260         return $diff_text;
 261 }
 262
 263 #==============================================================================
 264 # º¹Ê¬Ê¸»úÎó¤òÉ½¼¨ÍÑHTML¤È¤·¤Æ¼èÆÀ
 265 #==============================================================================
 266 sub get_diff_html {
 267         my $self = shift;
 268         my $wiki = shift;
 269         my $page = shift;
 270         my $from = shift;
 271         my $to   = shift;
 272
 273         my $source1 = '';
 274         if($from ne ''){
 275                 $source1 = $wiki->get_backup($page, $from);
 276         } else {
 277                 $source1 = $wiki->get_page($page);
 278         }
 279
 280         my $source2 = '';
 281         if($to ne ''){
 282                 $source2 = $wiki->get_backup($page, $to);
 283         } else {
 284                 $source2 = $wiki->get_page($page);
 285         }
 286         my $format  = $wiki->get_edit_format();
 287
 288         $source1 = $wiki->convert_from_fswiki($source1, $format);
 289         $source2 = $wiki->convert_from_fswiki($source2, $format);
 290
 291         return '<input id="newText" type="hidden" value="'.Util::escapeHTML($source1).'">'.
 292                '<input id="baseText" type="hidden" value="'.Util::escapeHTML($source2).'">';
 293 }
 294
 295 #==============================================================================
 296 # ¥Ú¡¼¥¸É½¼¨»þ¤Î¥Õ¥Ã¥¯¥á¥½¥Ã¥É
 297 # ¡Öº¹Ê¬¡×¥á¥Ë¥å¡¼¤òÍ¸ú¤Ë¤·¤Þ¤¹
 298 #==============================================================================
 299 sub hook {
 300         my $self = shift;
 301         my $wiki = shift;
 302         my $cgi  = $wiki->get_CGI;
 303         my $page = $cgi->param("page");
 304         if($wiki->{storage}->backup_type eq 'all'){
 305                 $wiki->add_menu("ÍúÎò",$wiki->create_url({ action=>"DIFF",page=>$page }));
 306         } else {
 307                 $wiki->add_menu("º¹Ê¬",$wiki->create_url({ action=>"DIFF",page=>$page }));
 308         }
 309 }
 310
 311 1;