summaryrefslogtreecommitdiffstats
path: root/util/udnnews.pl
diff options
context:
space:
mode:
Diffstat (limited to 'util/udnnews.pl')
-rw-r--r--util/udnnews.pl14
1 files changed, 6 insertions, 8 deletions
diff --git a/util/udnnews.pl b/util/udnnews.pl
index 1c49dc8c..21e3262c 100644
--- a/util/udnnews.pl
+++ b/util/udnnews.pl
@@ -22,7 +22,7 @@ foreach( @titles ){
postout({brdname => 'udnnews',
title => strreplace(FormatChinese($_->[1])),
owner => 'udnnews.',
- content => getudnnewscontent("http://www.udn.com/NEWS/FOCUSNEWS/$_->[0]")});
+ content => getudnnewscontent("http://www.udn.com/NEWS/FOCUSNEWS/$_->[0]", $_)});
}
sub strreplace
@@ -34,19 +34,17 @@ sub strreplace
return $str;
}
-sub getudnnewscontent($)
+sub getudnnewscontent($$)
{
- my($url) = @_;
+ my($url, $title) = @_;
my($buf, $content, $ret);
$buf = `$LYNX -source '$url'`;
($content) = $buf =~ m|<!-- start of content -->(.*?)<!-- end of content -->|s;
# ($content) = $buf =~ m|<p><font color="#CC0033" class="text12">(.*?)<tr valign="top">|s if( !$content );
- $content =~ s/<br>/\n/g;
$content =~ s/<p>/\n/gi;
$content =~ s/<.*?>//g;
$content =~ s/\r//g;
- $content =~ s/\n\n\n/\n\n/g;
- $content =~ s/\n\n\n//g;
+ $content =~ s/\n+/\n/gs;
$content = strreplace($content);
undef $ret;
foreach( split(/\n/, $content) ){
@@ -54,8 +52,8 @@ sub getudnnewscontent($)
$ret .= FormatChinese($_, 60). "\n" if( $_ );
}
return
- "作者: udnnews.(聯合新聞) 看板: udnnews\n".
- "標題: \n".
+ "作者: udnnews.(聯合新聞網) 看板: udnnews\n".
+ "標題: $title\n".
"時間: 即時\n".
"※ [轉錄自 $url ]\n\n$ret\n\n".
"--\n\n 聯合新聞網 http://www.udn.com/ 獨家授權批踢踢實業坊 ".