diff options
| author | in2 <in2@63ad8ddf-47c3-0310-b6dd-a9e9d9715204> | 2002-11-20 10:07:51 +0800 |
|---|---|---|
| committer | in2 <in2@63ad8ddf-47c3-0310-b6dd-a9e9d9715204> | 2002-11-20 10:07:51 +0800 |
| commit | ad7a6a0b3c67bf3c4f781c3af4bb298682e5709e (patch) | |
| tree | a9c34da4263f30bc2fadd4675a78c7df1e9037dd | |
| parent | e07f3d0a84b85285057d047077395b61fd1b37ba (diff) | |
| download | pttbbs-ad7a6a0b3c67bf3c4f781c3af4bb298682e5709e.tar pttbbs-ad7a6a0b3c67bf3c4f781c3af4bb298682e5709e.tar.gz pttbbs-ad7a6a0b3c67bf3c4f781c3af4bb298682e5709e.tar.bz2 pttbbs-ad7a6a0b3c67bf3c4f781c3af4bb298682e5709e.tar.lz pttbbs-ad7a6a0b3c67bf3c4f781c3af4bb298682e5709e.tar.xz pttbbs-ad7a6a0b3c67bf3c4f781c3af4bb298682e5709e.tar.zst pttbbs-ad7a6a0b3c67bf3c4f781c3af4bb298682e5709e.zip | |
s/����\&\#22531\;/���}/g;
git-svn-id: http://opensvn.csie.org/pttbbs/pttbbs/trunk@577 63ad8ddf-47c3-0310-b6dd-a9e9d9715204
| -rw-r--r-- | pttbbs/util/udnnews.pl | 14 |
1 files changed, 11 insertions, 3 deletions
diff --git a/pttbbs/util/udnnews.pl b/pttbbs/util/udnnews.pl index 4d37a26a..5e19ae88 100644 --- a/pttbbs/util/udnnews.pl +++ b/pttbbs/util/udnnews.pl @@ -20,11 +20,20 @@ chdir '/home/bbs'; getudnnewstitle(\@titles); foreach( @titles ){ postout({brdname => 'udnnews', - title => FormatChinese($_->[1]), + title => strreplace(FormatChinese($_->[1])), owner => 'udnnews.', content => getudnnewscontent("http://www.udn.com/NEWS/FOCUSNEWS/$_->[0]")}); } +sub strreplace +{ + my($str) = @_; + $str =~ s/¢Ì/¤Q/g; + $str =~ s/¢Î/¤Ê/g; + $str =~ s/´å¿ü\&\#22531\;/´å´}/g; + return $str; +} + sub getudnnewscontent($) { my($url) = @_; @@ -38,8 +47,7 @@ sub getudnnewscontent($) $content =~ s/\r//g; $content =~ s/\n\n\n/\n\n/g; $content =~ s/\n\n\n//g; - $content =~ s/¢Ì/¤Q/g; - $content =~ s/¢Î/¤Ê/g; + $content = strreplace($content); undef $ret; foreach( split(/\n/, $content) ){ s/ //g; |