diff options
| -rw-r--r-- | util/BBSFileHeader.pm | 5 |
1 files changed, 4 insertions, 1 deletions
diff --git a/util/BBSFileHeader.pm b/util/BBSFileHeader.pm index e9cf3cdd..f203f57c 100644 --- a/util/BBSFileHeader.pm +++ b/util/BBSFileHeader.pm @@ -41,7 +41,10 @@ sub FETCH } elsif( $key eq 'content' ){ my $fn = "$self->{dir}/" . $self->FETCH("$num.filename"); - return `/bin/cat $fn`; + my($c, $fh); + open $fh, "<$fn" || return ''; + $fh->read($c, (-s $fn)); + return $c; } else{ ($h{filename}, $h{recommend}, $h{owner}, $h{date}, $h{title}, |