diff options
| author | in2 <in2@63ad8ddf-47c3-0310-b6dd-a9e9d9715204> | 2002-09-20 05:19:39 +0800 |
|---|---|---|
| committer | in2 <in2@63ad8ddf-47c3-0310-b6dd-a9e9d9715204> | 2002-09-20 05:19:39 +0800 |
| commit | 86a39b63527374cf2b948c701503c12212f7616d (patch) | |
| tree | 5941a1b29e2cf4389ff3a83bc6445c9500395f7a /util | |
| parent | 55e90901043584ace1d01b8315f6be046a277893 (diff) | |
| download | pttbbs-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')
| -rw-r--r-- | util/udnnews.pl | 6 |
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; |