Changeset 18877 for lang/perl/plagger/assets

Timestamp:

09/05/08 08:22:31 (3 months ago)

Author:

sweetpotato

Message:

• homepage2_nifty_com_4koma_new.pl: added
  
• shop_melonbooks_co_jp_tsuhan.pl: trivial change
  
• www3_kuradashi-shinkan_com_kanko_comicdb.pl: added
  
• www_toranoana_jp_mailorder.pl: trivial change
  

Location:

lang/perl/plagger/assets/plugins/CustomFeed-Script

Files:

• homepage2_nifty_com_4koma_new.pl (added)
• shop_melonbooks_co_jp_tsuhan.pl (modified) (1 diff)
• www3_kuradashi-shinkan_com_kanko_comicdb.pl (added)
• www_toranoana_jp_mailorder.pl (modified) (1 diff)

lang/perl/plagger/assets/plugins/CustomFeed-Script/shop_melonbooks_co_jp_tsuhan.pl

@@ -9 +9 @@
 use Time::ParseDate;
 use URI;
-use Web::Scraper;
+use Web::Scraper 0.22;
 use YAML;
 

lang/perl/plagger/assets/plugins/CustomFeed-Script/www_toranoana_jp_mailorder.pl

@@ -49 +49 @@
 
 sub mk_body {
-    my $id = shift;
+    my $id = $_;
     my $dir = join '/', ($id =~ /^(\d{2})(\d{4})(\d{2})(\d{2})/);
     join '', map {