Trac用FeedUpgrader#3

３回目になりますが、.plベースで書き換えてみました。前回と動作的には同じになりますが、条件の絞り込みをもう少し厳しくしてみました。

assets/plugins/filter-entryfulltext/trac_chengeset.plへ以下を保存してください。

# upgrader trac changelog feed

# author: Nobuhito Sato

#

sub handle_force {

  my($self, $args) = @_;

  my $entry = $args->{entry};

  my $link      = $entry->link  =~ m!/trac/changeset/!;

  my $changeset = $entry->title =~ m!^Changeset!;

  my $revision  = $entry->title =~ m!^Revision!;

  if($link && ($changeset || $revision)) {

    return 1;

  }

  return;

}
sub extract {

  my($self,$args) = @_;

  dump($args->{entry});

  my $match = '((?:<dl id="overview">).*?</dl>)';

  if( $args->{content} =~ /$match/s ) {

    return $1;

  }

  return;

}

こんなんだったらどうでしょ? > miyagawaさん