RecentDiffsのRSSを出力します。
[recent diffs rss]
Wikiアンテナで捕捉することも可能です。
- 2017-03-16T18:22:19+09:00 [[]] Sexuales Muñecas Reales están hechas de silicona más pesado, silicona es capaz de ofrecerle placer sexual que es mucho mejor que una mujer real... Munecasreales.COM empresa profesional de producir Sexuales Muñecas para Adultos. Todas las Muñecas son de 100% silicona, con alta calidad, gran descuento y gratis envío. En caso de que esté verdaderamente dispuesto a llevar una vida sexual impresionante, siempre debe ir para estas Muñecas de sexo de silicona sin ...
- 2017-03-10T23:54:44+09:00 [[]] want to customize your doll? if you have any question about your doll.please click our website(http://www.ov-doll.com/) or email(ales@ov-doll.com)
- 2017-02-13T15:29:49+09:00 [[]] High quality inflatable photo booth, which can be used for Christmas party, advertising, social media and so on. Free shipping worldwide. Come and enjoy it! International House, 24 Holborn Viaduct, CITY OF LONDON, London EC1A 2BN (+44) 7470 016574 (UK) sales@inflatable-photo-booth.co.uk Website:http://www.inflatable-photo-booth.co.uk/
関連するカスタマイズ
グローバル変数定義
my $max_description_length = 500; # yakty add [recent diffs rss] my $RecentDiffsRss = 'RecentDiffsRss'; # yakty add [recent diffs rss]
%page_commandへの追加
my %page_command = ( $IndexPage => 'index', $SearchPage => 'searchform', $CreatePage => 'create', $RssPage => 'rss', $AdminChangePassword => 'adminchangepasswordform', $FrontPage => 'FrontPage', $RecentChanges => 'recent', # yakty add [modify recentpage] $RecentDiffs => 'recentdiff', # yakty add [recent diffs] $CategoryPage => 'category', # yakty add [category] $RecentDiffsRss => 'diffsrss', # yakty add [recent diffs rss] );
%command_doへの追加
my %command_do = ( read => \&do_read, edit => \&do_edit, adminedit => \&do_adminedit, #adminchangepasswordform => \&do_adminchangepasswordform, #adminchangepassword => \&do_adminchangepassword, write => \&do_write, index => \&do_index, searchform => \&do_searchform, search => \&do_search, create => \&do_create, createresult => \&do_createresult, FrontPage => \&do_FrontPage, comment => \&do_comment, rss => \&do_rss, diff => \&do_diff, interwikibox => \&do_interwiki_box, # Walrus add [InterWikiBox] recent => \&do_recent, # yakty add [modify recentpage] recentdiff => \&do_recent_diffs, # yakty add [recent diffs] login => \&do_login, # yakty add [secret page] logout => \&do_logout, # yakty add [secret page] category => \&do_category, # yakty add [category] diffsrss => \&do_diffsrss, # yakty add [recent diffs rss] );
make_description()追加
# yakty add [recent diffs rss] start sub make_description { my @description = @_; my $description; my @lines; foreach my $line (@description){ $line = &remove_modification($line, 1); push(@lines, $line); } $description = join(" ", @lines); $description =~ s/\s+/ /g; $description = substr($description, 0, $max_description_length) . ' ...' if(length($description) > $max_description_length); return &escape($description); } # yakty add [recent diffs rss] end
do_diffsrss()追加
# yakty add [recent diffs rss] start sub do_diffsrss { my $rss = new Yuki::RSS( version => '1.0', encoding => $charset, ); $rss->channel( title => $modifier_rss_title, link => $modifier_rss_link, description => $modifier_rss_description, ); my $recentdiffs = $database{$RecentDiffs}; my $count = 0; my @description; my ($dc_date, $title, $escaped_title, $link, $description); foreach (split(/\n/, $recentdiffs)) { #last if ($count >= 15); # Walrus mod [dc:date in rss] start # /^\- \d\d\d\d\-\d\d\-\d\d \(...\) \d\d:\d\d:\d\d (\S+)/; # date format. # my $title = &unarmor_name($1); if(/^\- (\d\d\d\d\-\d\d\-\d\d) \(...\) (\d\d:\d\d:\d\d) (\S+)/){ if(@description){ $description = &make_description(@description); $rss->add_item( title => $escaped_title, link => $link, description => $description, dc_date => $dc_date, ); undef @description; $count++; last if ($count >= 15); } $dc_date = "$1T$2+09:00"; $title = &unarmor_name($3); # Walrus mod [dc:date in rss] end $escaped_title = &escape($title); $link = $modifier_rss_link . '?' . &encode($title); } else { if(/^\s\+(.*)/){ push(@description, $1); } } } if(@description){ $description = &make_description(@description); $rss->add_item( title => $escaped_title, link => $link, description => $description, dc_date => $dc_date, ); } # print RSS information (as XML). print <<"EOD" Content-type: text/xml @{[$rss->as_string]} EOD } # yakty add [recent diffs rss] end