1 ###############################################################################
3 # º¹Ê¬¤òɽ¼¨¤¹¤ë¥×¥é¥°¥¤¥ó
5 ###############################################################################
6 package plugin::core::Diff;
7 use Algorithm::Diff qw(traverse_sequences);
10 #==============================================================================
12 #==============================================================================
17 return bless $self,$class;
20 #==============================================================================
22 #==============================================================================
26 my $cgi = $wiki->get_CGI;
28 my $pagename = $cgi->param("page");
30 $pagename = $wiki->config("frontpage");
32 unless($wiki->can_show($pagename)){
33 return $wiki->error("»²¾È¸¢¸Â¤¬¤¢¤ê¤Þ¤»¤ó¡£");
35 if($cgi->param('rollback') ne ''){
36 return $self->rollback($wiki, $pagename, $cgi->param('rollback'));
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 ''){
42 $self->clear_history($wiki, $pagename);
43 return $self->show_history($wiki, $pagename);
45 } elsif($cgi->param('generation') eq '' && $cgi->param('diff') eq ''){
47 return $self->show_history($wiki, $pagename);
50 if($cgi->param('generation') ne ''){
51 # »ØÄꤷ¤¿¥ê¥Ó¥¸¥ç¥ó¤Ç¤Îº¹Ê¬¤òɽ¼¨
52 return $self->show_diff($wiki, $pagename, '', $cgi->param('generation'));
54 # »ØÄꤷ¤¿¥ê¥Ó¥¸¥ç¥ó´Ö¤Îº¹Ê¬¤òɽ¼¨
55 return $self->show_diff($wiki, $pagename, $cgi->param('from'), $cgi->param('to'));
58 # ºÇ¸å¤Î¹¹¿·¤Îº¹Ê¬¤òɽ¼¨
59 return $self->show_diff($wiki, $pagename, '', 0);
63 #==============================================================================
65 #==============================================================================
70 $wiki->{storage}->delete_backup_files($wiki, $page);
73 #==============================================================================
74 # ÍúÎò¤«¤é¥Ú¡¼¥¸¤òÉü¸µ
75 #==============================================================================
81 unless($wiki->can_modify_page($page)){
82 return $wiki->error("¹¹¿·¸¢¸Â¤¬¤¢¤ê¤Þ¤»¤ó¡£");
84 my $source = $wiki->get_backup($page,$gen);
85 $wiki->save_page($page, $source);
86 return $wiki->redirect($page);
89 #==============================================================================
91 # ¥¹¥È¥ì¡¼¥¸¤Îbackup_type=all¤Î¤È¤
92 #==============================================================================
98 $wiki->set_title("$page¤ÎÊѹ¹ÍúÎò");
99 my $buf = "<form><ul>\n";
101 my @list = $wiki->{storage}->get_backup_list($page);
104 return "ÍúÎò¤Ï¤¢¤ê¤Þ¤»¤ó¡£";
107 # editlog¥×¥é¥°¥¤¥ó¤Î¥í¥°¤«¤éÊÔ½¸¼Ô¤Î¥æ¡¼¥¶Ì¾¤ò¼èÆÀ
108 # ¡Êeditlog¤ÎÆüÉÕ¤¬¥º¥ì¤ë¤³¤È¤¬¤¢¤Ã¤¿¤Î¤Ç1ÉðÊÆâ¤Î¹¹¿·¤ÏƱ¤¸ÍúÎò¤È¤ß¤Ê¤¹¤è¤¦¤Ë¤·¤Æ¤Þ¤¹¡Ë
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 $!;
113 my($date, $time, $unixtime, $action, $subject, $id) = split(" ",$_);
114 if($subject eq $page){
116 $editlog->{substr($unixtime, 0, length($unixtime) - 4)} = 'anonymous';
118 $editlog->{substr($unixtime, 0, length($unixtime) - 4)} = $id;
125 foreach my $time (@list){
128 $buf .= "<input type=\"radio\" name=\"from\" value=\"\" checked>".
129 "<input type=\"radio\" name=\"to\" value=\"\" checked>";
131 $buf .= "<input type=\"radio\" name=\"from\" value=\"".($#list-$count+1)."\">".
132 "<input type=\"radio\" name=\"to\" value=\"".($#list-$count+1)."\">";
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>";
137 if(defined($editlog->{substr($time, 0, length($time) - 4)})){
138 $buf .= " by ".$editlog->{substr($time, 0, length($time) - 4)};
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";
150 my $login = $wiki->get_login_info();
151 if(defined($login) && $login->{'type'} == 0){
152 $buf .= "<input type=\"submit\" name=\"clear\" value=\"ÍúÎò¤òºï½ü\">\n";
154 return $buf."</form>\n";
157 #==============================================================================
159 #==============================================================================
167 $wiki->set_title("$page¤ÎÊѹ¹ÅÀ");
168 my ($diff, $rollback) = $self->get_diff_html($wiki,$page, $from, $to);
170 $diff =~ s/\n/<br>/g;
174 <li>Äɲ䵤줿Éôʬ¤Ï<ins class="diff">¤³¤Î¤è¤¦¤Ë</ins>ɽ¼¨¤µ¤ì¤Þ¤¹¡£</li>
175 <li>ºï½ü¤µ¤ì¤¿Éôʬ¤Ï<del class="diff">¤³¤Î¤è¤¦¤Ë</del>ɽ¼¨¤µ¤ì¤Þ¤¹¡£</li>
177 <div class="diff">$diff</div>
180 if($wiki->can_modify_page($page) && $rollback && $wiki->get_CGI->param('diff') eq ''){
182 <form action="@{[$wiki->create_url()]}" method="POST">
183 <input type="submit" value="¤³¤Î¥Ð¡¼¥¸¥ç¥ó¤ËÌ᤹"/>
184 <input type="hidden" name="action" value="DIFF"/>
185 <input type="hidden" name="page" value="@{[Util::escapeHTML($page)]}"/>
186 <input type="hidden" name="rollback" value="@{[Util::escapeHTML($from)]}"/>
194 #==============================================================================
196 #==============================================================================
203 my $source1 = $wiki->get_page($page);
204 my $source2 = $wiki->get_backup($page, $gen);
205 my $format = $wiki->get_edit_format();
207 $source1 = $wiki->convert_from_fswiki($source1, $format);
208 $source2 = $wiki->convert_from_fswiki($source2, $format);
211 my @msg1 = split(/\n/,$source1);
212 my @msg2 = split(/\n/,$source2);
213 my $msgrefA = \@msg2;
214 my $msgrefB = \@msg1;
216 traverse_sequences($msgrefA, $msgrefB,
221 $diff_text .= "-".$msgrefA->[$a]."\n";
225 $diff_text .= "+".$msgrefB->[$b]."\n";
232 #==============================================================================
233 # º¹Ê¬Ê¸»úÎó¤òɽ¼¨ÍÑHTML¤È¤·¤Æ¼èÆÀ
234 #==============================================================================
244 $source1 = $wiki->get_backup($page, $from);
246 $source1 = $wiki->get_page($page);
248 if($wiki->config('diff_max') ne '' && $wiki->config('diff_max') > 0){
249 if(length($source1) > $wiki->config('diff_max')){
250 return ('¥Ú¡¼¥¸¥µ¥¤¥º¤¬Â礤¤¤¿¤áº¹Ê¬¤òɽ¼¨¤Ç¤¤Þ¤»¤ó¡£', 0);
256 $source2 = $wiki->get_backup($page, $to);
258 $source2 = $wiki->get_page($page);
260 if($wiki->config('diff_max') ne '' && $wiki->config('diff_max') > 0){
261 if(length($source2) > $wiki->config('diff_max')){
262 return ('¥Ú¡¼¥¸¥µ¥¤¥º¤¬Â礤¤¤¿¤áº¹Ê¬¤òɽ¼¨¤Ç¤¤Þ¤»¤ó¡£', 0);
266 my $format = $wiki->get_edit_format();
268 $source1 = $wiki->convert_from_fswiki($source1, $format);
269 $source2 = $wiki->convert_from_fswiki($source2, $format);
271 return (&_get_diff_html($source1, $source2), $source2 ne "");
274 #==============================================================================
275 # º¹Ê¬HTML¤òÀ¸À®¤¹¤ë´Ø¿ô
276 #==============================================================================
281 my @lines1 = split(/\n/,$source1);
282 my @lines2 = split(/\n/,$source2);
283 my $linesrefA = \@lines2;
284 my $linesrefB = \@lines1;
289 traverse_sequences($linesrefA, $linesrefB, {
292 if($del_buffer ne ''){
293 $diff_text .= "<del class=\"diff\">".Util::escapeHTML($del_buffer)."</del>\n";
296 $diff_text .= Util::escapeHTML($linesrefA->[$a])."\n";
300 $del_buffer .= $linesrefA->[$a]."\n";
304 if($del_buffer eq ''){
305 $diff_text .= "<ins class=\"diff\">".Util::escapeHTML($linesrefB->[$b])."</ins>\n";
308 my @msg1 = _str_jfold($linesrefB->[$b]."\n", 1);
309 my @msg2 = _str_jfold($del_buffer, 1);
310 my $msgrefA = \@msg2;
311 my $msgrefB = \@msg1;
313 traverse_sequences($msgrefA, $msgrefB, {
316 $diff_text .= Util::escapeHTML($msgrefA->[$a]);
320 $diff_text .= "<del class=\"diff\">".Util::escapeHTML($msgrefA->[$a])."</del><wbr>";
324 $diff_text .= "<ins class=\"diff\">".Util::escapeHTML($msgrefB->[$b])."</ins><wbr>";
333 if($del_buffer ne ''){
334 $diff_text .= "<del class=\"diff\">".Util::escapeHTML($del_buffer)."</del>\n";
341 #==============================================================================
342 # ʸ»úÎó¤ò»ØÄêʸ»ú¿ô¤òʬ³ä
343 #==============================================================================
345 my $str = shift; #»ØÄêʸ»úÎó
\r
346 my $byte = shift; #»ØÄê¥Ð¥¤¥È
\r
347 my $j = new Jcode($str);
\r
350 foreach my $buff ( $j->jfold($byte) ){
\r
351 push(@result, $buff);
\r
357 #==============================================================================
358 # ¥Ú¡¼¥¸É½¼¨»þ¤Î¥Õ¥Ã¥¯¥á¥½¥Ã¥É
359 # ¡Öº¹Ê¬¡×¥á¥Ë¥å¡¼¤ò͸ú¤Ë¤·¤Þ¤¹
360 #==============================================================================
364 my $cgi = $wiki->get_CGI;
365 my $page = $cgi->param("page");
366 if($wiki->{storage}->backup_type eq 'all'){
367 $wiki->add_menu("ÍúÎò",$wiki->create_url({ action=>"DIFF",page=>$page }));
369 $wiki->add_menu("º¹Ê¬",$wiki->create_url({ action=>"DIFF",page=>$page }));