summaryrefslogtreecommitdiffstats
path: root/util/udnnews.pl
diff options
context:
space:
mode:
authorin2 <in2@63ad8ddf-47c3-0310-b6dd-a9e9d9715204>2002-09-20 05:19:39 +0800
committerin2 <in2@63ad8ddf-47c3-0310-b6dd-a9e9d9715204>2002-09-20 05:19:39 +0800
commit86a39b63527374cf2b948c701503c12212f7616d (patch)
tree5941a1b29e2cf4389ff3a83bc6445c9500395f7a /util/udnnews.pl
parent55e90901043584ace1d01b8315f6be046a277893 (diff)
downloadpttbbs-86a39b63527374cf2b948c701503c12212f7616d.tar
pttbbs-86a39b63527374cf2b948c701503c12212f7616d.tar.gz
pttbbs-86a39b63527374cf2b948c701503c12212f7616d.tar.bz2
pttbbs-86a39b63527374cf2b948c701503c12212f7616d.tar.lz
pttbbs-86a39b63527374cf2b948c701503c12212f7616d.tar.xz
pttbbs-86a39b63527374cf2b948c701503c12212f7616d.tar.zst
pttbbs-86a39b63527374cf2b948c701503c12212f7616d.zip
url change
git-svn-id: http://opensvn.csie.org/pttbbs/pttbbs/trunk/pttbbs@524 63ad8ddf-47c3-0310-b6dd-a9e9d9715204
Diffstat (limited to 'util/udnnews.pl')
-rw-r--r--util/udnnews.pl6
1 files changed, 3 insertions, 3 deletions
diff --git a/util/udnnews.pl b/util/udnnews.pl
index 66ddc094..f75a50dd 100644
--- a/util/udnnews.pl
+++ b/util/udnnews.pl
@@ -22,7 +22,7 @@ foreach( @titles ){
postout({brdname => 'udnnews',
title => FormatChinese($_->[1]),
owner => 'udnnews.',
- content => getudnnewscontent("http://udnnews.com/NEWS/FOCUSNEWS/$_->[0]")});
+ content => getudnnewscontent("http://www.udn.com/NEWS/FOCUSNEWS/$_->[0]")});
}
sub getudnnewscontent($)
@@ -45,14 +45,14 @@ sub getudnnewscontent($)
$ret .= FormatChinese($_, 60). "\n" if( $_ );
}
return "※ [轉錄自 $url ]\n\n$ret\n\n".
- "--\n感謝 http://www.udnnews.com/NEWS/ 熱情贊助";
+ "--\n感謝 http://www.udn.com/ 熱情贊助";
}
sub getudnnewstitle($)
{
my($ra_titles) = @_;
my($url, $title);
- open FH, "$LYNX -source http://udnnews.com/NEWS/FOCUSNEWS/ | $GREP '<font color=\"#FF9933\">' |";
+ open FH, "$LYNX -source http://www.udn.com/NEWS/FOCUSNEWS/ | $GREP '<font color=\"#FF9933\">' |";
while( <FH> ){
($url, $title) = $_ =~ m|<font color="#FF9933">.</font><a href="(.*?)"><font color="#003333">(.*?)</font></a><font color="#003333">|;
$title =~ s/<.*?>//g;