summaryrefslogtreecommitdiffstats
path: root/util/udnnews.pl
diff options
context:
space:
mode:
authorptt <ptt@63ad8ddf-47c3-0310-b6dd-a9e9d9715204>2003-07-02 21:53:10 +0800
committerptt <ptt@63ad8ddf-47c3-0310-b6dd-a9e9d9715204>2003-07-02 21:53:10 +0800
commitcd8f55fc4d83e06cb8a1dd17dbb120fb2601d16d (patch)
treec0a64689ca0994792a968817de7eab494de9ae20 /util/udnnews.pl
parent71c408e6375a819b3e8e792aa6255a41b3334601 (diff)
downloadpttbbs-cd8f55fc4d83e06cb8a1dd17dbb120fb2601d16d.tar
pttbbs-cd8f55fc4d83e06cb8a1dd17dbb120fb2601d16d.tar.gz
pttbbs-cd8f55fc4d83e06cb8a1dd17dbb120fb2601d16d.tar.bz2
pttbbs-cd8f55fc4d83e06cb8a1dd17dbb120fb2601d16d.tar.lz
pttbbs-cd8f55fc4d83e06cb8a1dd17dbb120fb2601d16d.tar.xz
pttbbs-cd8f55fc4d83e06cb8a1dd17dbb120fb2601d16d.tar.zst
pttbbs-cd8f55fc4d83e06cb8a1dd17dbb120fb2601d16d.zip
*** empty log message ***
git-svn-id: http://opensvn.csie.org/pttbbs/pttbbs/trunk/pttbbs@995 63ad8ddf-47c3-0310-b6dd-a9e9d9715204
Diffstat (limited to 'util/udnnews.pl')
-rw-r--r--util/udnnews.pl15
1 files changed, 8 insertions, 7 deletions
diff --git a/util/udnnews.pl b/util/udnnews.pl
index 07c49d4b..ba0fc072 100644
--- a/util/udnnews.pl
+++ b/util/udnnews.pl
@@ -39,8 +39,8 @@ sub getudnnewscontent($)
my($url) = @_;
my($buf, $content, $ret);
$buf = `$LYNX -source '$url'`;
- ($content) = $buf =~ m|<p><font class="text12" color=#CC0033><br>(.*?)<tr valign="top">|s;
- ($content) = $buf =~ m|<p><font color="#CC0033" class="text12">(.*?)<tr valign="top">|s if( !$content );
+ ($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;
@@ -105,10 +105,11 @@ sub postout
{
my($param) = @_;
return if( !$param->{title} );
- open FH, ">/tmp/postout.$$";
- print FH $param->{content};
- close FH;
+# open FH, ">/tmp/postout.$$";
+# print FH $param->{content};
+print "$param->{content}";
+# close FH;
- system("bin/post '$param->{brdname}' '$param->{title}' '$param->{owner}' /tmp/postout.$$");
- unlink "/tmp/postout.$$";
+# system("bin/post '$param->{brdname}' '$param->{title}' '$param->{owner}' /tmp/postout.$$");
+# unlink "/tmp/postout.$$";
}