From 86a39b63527374cf2b948c701503c12212f7616d Mon Sep 17 00:00:00 2001
From: in2 <in2@63ad8ddf-47c3-0310-b6dd-a9e9d9715204>
Date: Thu, 19 Sep 2002 21:19:39 +0000
Subject: url change

git-svn-id: http://opensvn.csie.org/pttbbs/pttbbs/trunk/pttbbs@524 63ad8ddf-47c3-0310-b6dd-a9e9d9715204
---
 util/udnnews.pl | 6 +++---
 1 file 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;
-- 
cgit v1.2.3