The wildcat of a wilderness

Wildcat blosxom

Click here to visit our sponsor.
[returns to the top.]

writbackplus_custom_06 hack

   Categories [] [2004 11 08(Mon) posted at 21:24]
TrackbackとCommentを分ける変更をしてみた
LittleStoryホームページさんで動いているwritbackを参照しました

まずflavour部分ですが、writeback.generalをtrackback.generalとcomment.generalに分け
comment.generalには
<p>$writeback::name<br />$writeback::title<br />$writeback::comment</p>
trackback.generalには
<p>$writeback::blog_name<br />$writeback::title<br />$writeback::excerpt</p>

story flavourか、writebacksform.generalに記述している$writeback::writebacks$writeback::$writeback::trackbacks$writeback::commentsにする

残りは件数のカウント部分ですが、
$writeback::countでwriteback件数(両方) $writeback::tb_countでtrackback件数 $writeback::cm_countでcomment件数

で、これをしてもrecentwritebacks_treeでは全然関係ないのでTrackbackとCommentを読み分けられないし、dateは記録形式が違うので別問題な罠
簡単に出来そうなのはwritbackplus_custom_06 85-86行の
# What fields are used in your comments form and by trackbacks?
my @fields = qw! name url date title comment excerpt blog_name ip !;
をいじってデータの格納順を変え、dateの形式を変えてしまう
recentwritebacks_treeのdateをいじるとソートが面倒っぽい
むしろキャッシュファイル作った方がTrackbackとComment両方ある場合両方カウントされてしまうのを防げるのでよいと思う

以下plugin内部の変更


8-10行


package writeback;



package writeback;
use vars qw($trackback_flavour $writeback_response $trackback_response); use vars qw($count $writebacks $cm_count $tb_count $trackbacks $comments); use vars qw($last_cm_date $last_cm_name);

385-389行

sub story {
	my($pkg, $path, $filename, $story_ref, $title_ref, $body_ref) = @_;
    
	$path =~ s!^/*!!; $path &&= "/$path";
	my %param = ();


sub story {
	my($pkg, $path, $filename, $story_ref, $title_ref, $body_ref) = @_;
    
	$path =~ s!^/*!!; $path &&= "/$path";
	($count, $writebacks, $cm_count, $comments, $tb_count, $trackbacks) = (0, '', 0, '',  0, '');
	($last_cm_date, $last_cm_name) =(''.'');
	my %param = ();
403行

				my $writeback = &$blosxom::template($path,'writeback',$blosxom::flavour) || &$blosxom::template($path,'writeback','general') || '<p><b>Name/Blog:</b> $writeback::name$writeback::blog_name<br /><b>URL:</b> $writeback::url<br /><b>Title:</b> $writeback::title<br /><b>Comment/Excerpt:</b> $writeback::comment$writeback::excerpt</p>';


			my $writeback ='';
			if ($param{'comment'}) {
				if ($blosxom::path_info =~ /\./) {
					$param{'comment'} =~s/\t/<br>/g;
					$writeback = &$blosxom::template($path,'writeback',$blosxom::flavour) || &$blosxom::template($path, 'comment', 'general') || '<p>$writeback::name<br />$writeback::title<br />$writeback::comment</p>';
				}
				$cm_count++;
			} elsif ($param{'excerpt'}) {
				if ($blosxom::path_info =~ /\./) {
					$param{'excerpt'} =~s/\t/<br>/g;
					$writeback = &$blosxom::template($path,'writeback',$blosxom::flavour) || &$blosxom::template($path, 'trackback', 'general') || '<p>$writeback::blog_name<br />$writeback::title<br />$writeback::excerpt</p>';
				}
				$tb_count++;
			}

429-437行

				$writeback =~ s/\$writeback::(\w+)/$param{$1}/ge;
				
				$writeback = Jcode->new(\$writeback, $charcode)->euc;
				$writeback =~ s/<a href=\"\">(($euc_characters)+)<\/a>/$1/g;
				$writeback = Jcode->new(\$writeback, 'euc')->$charcode();
				$writebacks .= $writeback;
				$count++;
			}
		}


				$writeback =~ s/\$writeback::(\w+)/$param{$1}/ge;
				
				$writeback = Jcode->new(\$writeback, $charcode)->euc;
				$writeback =~ s/<a href=\"\">(($euc_characters)+)<\/a>/$1/g;
				$writeback = Jcode->new(\$writeback, 'euc')->$charcode();
				$writebacks .= $writeback;
			if ($blosxom::path_info =~ /\./) {
				$writeback =~ s/\$writeback::(\w+)/$param{$1}/ge;
				if ($param{'excerpt'}) {
					$trackbacks .= $writeback;
				} else {
					$comments .= $writeback;
				}
				$writebacks .= $writeback;
			}
				$count++;
			}
		}
[Trackback(0)/Comment(2)] [Edit] [mixi]
 
TrackBack
   NO TrackBack
 
 
Comment
Компания Тепло и Уют
Posted by [ envislig ] at 2015/11/6 02:49:55

Монтаж ПВХ конструкций:1200 руб.за шт. http:
г. Нижний Тагил, пр. Дзержинского, 53. тел.(3435)33-04-49, 92-01-29, 8-904-178-02-87
В процессе работы, а также после ее окончания проводилась проверка выполненной работы и в последующем на семинарах, совместно с опытными мастерами и монтажниками разрабатывались методы улучшения качества работ.

<img>http:>
<b>только на сайт хостинг провайдеру не жалуйтесь пожалуйста, а то сайт отключат.</b>

...
Teplo i Uyt
Posted by [ envislig ] at 2015/11/10 20:11:05

Ремонтно-строительные работы: от объемов http:
только попробуй мля пожаловаться на мой сайт в яндекс или хостеру за чморю наххх!!!!

<img>http:>


...
 
Comment form
  • URL/Emailは記入すると公開されます。
  • コメント内のタグは<p>,<br>以外は実体参照に変換されます。
  • その他の項目内のタグは実体参照に変換されます。
  • URLとおぼしき文字列はリンクに変換されます。誤動作を回避するため、半角の空白で一旦区切ることを推奨します。




(任意)


(任意)





[wikieditish.xcg] [returns to the top.]
[returns to the top.]