/>/g; $ret =~ s/"/"/g; $ret =~ s/\n/
\n/g if $use_br; return $ret; } sub read_news { my $use_br = shift; %news = (); %sort = (); open FR, "< $news_file"; while () { chomp; if ($use_br) { s/\\n/
\n/g; } else { s/\\n/\n/g; } my ($f,$sort,$ueber,$abstr,$long) = split /\t/,$_,5; next if !length($f); $news{$f} = [$sort,$ueber,$abstr,$long]; $sort{$f} = $sort; } close FR; } ##################################### read_news(0); $f = $cgi->param('name'); my ($sort,$ueber,$abstr,$long) = @{$news{$f}}; $sort = HTMLenc($sort,1); $ueber = HTMLenc($ueber,1); $long = HTMLenc($long,1); print <<"HTML";
HTML ####################################### !>

如果您希望更多的资料,
请您用依妹儿与我们联系bs@china-kassel.com