« 第2回合同戦術研究会の巻 | メイン | 最強の船の巻 »

2005年10月13日

いろいろアップデート

(原題「fusianasan」パッチ。2005-10-13 10:58:24初出。)

　模擬戦で冗談で言っていたfusianasanパッチ for MovableType 3.2を作成してみました。ほとんど変更点はありませんが、とりあえず名前、Email、本文に対して「fusianasan」をリモートホスト名に置換します。ま、Perl初心者レベルの内容なのでたいした処理じゃないんですけどね。

*** Comments.pm.orig	Thu Sep 22 15:54:40 2005
--- Comments.pm	Thu Oct 13 10:50:50 2005
***************
*** 468,475 ****
      my ($app, $entry) = @_;
      my $q = $app->{query};
      
!     my $nick = $q->param('author');
!     my $email = $q->param('email');
      my ($session, $commenter) = $app->_get_commenter_session();
      if ($commenter) {
          $nick = $commenter->nickname();
--- 468,477 ----
      my ($app, $entry) = @_;
      my $q = $app->{query};
      
!     my $ip = gethostbyaddr(pack('C4', split(/\./, $ENV{REMOTE_ADDR})), 2)
!              || $ENV{REMOTE_ADDR};
!     my $nick  = $app->_fusianasan($q->param('author'), $ip);
!     my $email = $app->_fusianasan($q->param('email'), $ip);
      my ($session, $commenter) = $app->_get_commenter_session();
      if ($commenter) {
          $nick = $commenter->nickname();
***************
*** 488,498 ****
      $comment->author(remove_html($nick));
      $comment->email(remove_html($email));
      $comment->url(is_valid_url($url, 'stringent'));
!     $comment->text($text);
      #$comment->visible(0); # leave as undefined
      $comment->is_junk(0);
      
      return ($comment, $commenter);
  }
  
  sub _commenter_has_comment {
--- 490,507 ----
      $comment->author(remove_html($nick));
      $comment->email(remove_html($email));
      $comment->url(is_valid_url($url, 'stringent'));
!     $comment->text ($app->_fusianasan($text, $ip));
      #$comment->visible(0); # leave as undefined
      $comment->is_junk(0);
      
      return ($comment, $commenter);
+ }
+ 
+ sub _fusianasan {
+     my ($app, $str, $ip) = @_;
+ 
+     $str =~ s/fusianasan/$ip/gi;
+     $str;
  }
  
  sub _commenter_has_comment {

　パッチをgzip形式でここに置いておきました。

　さらに、右側のリンク集について、15分に1回更新をチェックして、更新順に並べ替えるようにしてみました。この関係で、15分に一度、RSSを取得していますので、問題がある場合はご連絡ください。それから、タイトルはRSSから取得していますので、誤字があっても私には言わないでください(汗)

投稿者 美紅 : 2005年10月13日 16:54

FC2トラックバック

このエントリーのトラックバックURL:
http://meixiaojie.com/cgi-bin/mt-tb.cgi/103

コメント

コメント本文にURLを書いた場合、spamコメントとして保留します。普通にチェックせずに削除してしまうので、URLを書く必要がある場合は別途私宛にご連絡ください。