add date filter

Signed-off-by: Tatsuhiko Miyagawa <miyagawa@bulknews.net>
miyagawa · Jan 16, 2009 · 04834c0 · 04834c0
1 parent b0a3566
commit 04834c0
Showing 1 changed file with 2 additions and 1 deletion.
diff --git a/root/plugins/animate.tv/scraper-webradio.pl b/root/plugins/animate.tv/scraper-webradio.pl
@@ -9,7 +9,8 @@ sub build_scraper {
         process '//table[@width="565" and descendant::a[contains(@href,".asx")] ]', 'entries[]' => scraper {
             process 'td.main_title2', title => 'TEXT';
             process '//table[@width="553"]//td[@class="main_txt1"]', body => 'TEXT';
-            process 'td.main_txt2', date => 'TEXT';
+            process 'td.main_txt2', date => ['TEXT',
+                    sub { s/.*?(\d{4})\x{5e74}(\d{1,2})\x{6708}(\d{1,2})\x{65e5}.*/$1-$2-$3/ } ];
             process '//a[contains(@href, ".asx")]', enclosure => [ '@href',
                     sub { +{ url => $_, type => 'video/x-ms-asf' } } ];
             process '//a[contains(@href, ".asx")]', link => '@href';