diff options
| author | in2 <in2@63ad8ddf-47c3-0310-b6dd-a9e9d9715204> | 2003-07-03 13:49:06 +0800 |
|---|---|---|
| committer | in2 <in2@63ad8ddf-47c3-0310-b6dd-a9e9d9715204> | 2003-07-03 13:49:06 +0800 |
| commit | c6ce21a8f241d028c5df5c3275df264b1857fe23 (patch) | |
| tree | db2e78e9285d86254b9b4a94878617915df0e0c3 | |
| parent | 7ff23307751ae09c504d6586ceaefa650c7d62e1 (diff) | |
| download | pttbbs-c6ce21a8f241d028c5df5c3275df264b1857fe23.tar pttbbs-c6ce21a8f241d028c5df5c3275df264b1857fe23.tar.gz pttbbs-c6ce21a8f241d028c5df5c3275df264b1857fe23.tar.bz2 pttbbs-c6ce21a8f241d028c5df5c3275df264b1857fe23.tar.lz pttbbs-c6ce21a8f241d028c5df5c3275df264b1857fe23.tar.xz pttbbs-c6ce21a8f241d028c5df5c3275df264b1857fe23.tar.zst pttbbs-c6ce21a8f241d028c5df5c3275df264b1857fe23.zip | |
move BBSFileHeader.pm to util/
git-svn-id: http://opensvn.csie.org/pttbbs/pttbbs/trunk/pttbbs@1002 63ad8ddf-47c3-0310-b6dd-a9e9d9715204
| -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}; } } |