diff options
| -rw-r--r-- | util/BBSFileHeader.pm (renamed from blog/BBSFileHeader.pm) | 8 |
1 files changed, 5 insertions, 3 deletions
diff --git a/blog/BBSFileHeader.pm b/util/BBSFileHeader.pm index 4865da8b..e9cf3cdd 100644 --- a/blog/BBSFileHeader.pm +++ b/util/BBSFileHeader.pm @@ -44,11 +44,13 @@ sub FETCH return `/bin/cat $fn`; } else{ - ($h{filename}, $h{recommend}, $h{owner}, $h{date}, $h{title}) = - unpack('Z33cZ14Z6Z65', $t); + ($h{filename}, $h{recommend}, $h{owner}, $h{date}, $h{title}, + $h{money}, undef, $h{filemode}) = + unpack('Z33cZ14Z6Z65iCC', $t); $h{title} = substr($h{title}, 3); $self->{cache}{$num}{$_} = $h{$_} - foreach( 'filename', 'owner', 'date', 'title' ); + foreach( 'filename', 'owner', 'date', + 'title', 'money', 'filemode' ); return $h{$key}; } } |