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 | 7dd329b898761fd898fdeba082f9083625390506 (patch) | |
| tree | cd61a8d0194399bbc3b798f89a4012d300e24854 | |
| parent | 89d453055f6fac7fd67c0f7148d429f51356e6eb (diff) | |
| download | pttbbs-7dd329b898761fd898fdeba082f9083625390506.tar pttbbs-7dd329b898761fd898fdeba082f9083625390506.tar.gz pttbbs-7dd329b898761fd898fdeba082f9083625390506.tar.bz2 pttbbs-7dd329b898761fd898fdeba082f9083625390506.tar.lz pttbbs-7dd329b898761fd898fdeba082f9083625390506.tar.xz pttbbs-7dd329b898761fd898fdeba082f9083625390506.tar.zst pttbbs-7dd329b898761fd898fdeba082f9083625390506.zip | |
move BBSFileHeader.pm to util/
git-svn-id: http://opensvn.csie.org/pttbbs/pttbbs/trunk@1002 63ad8ddf-47c3-0310-b6dd-a9e9d9715204
| -rw-r--r-- | pttbbs/util/BBSFileHeader.pm (renamed from pttbbs/blog/BBSFileHeader.pm) | 8 |
1 files changed, 5 insertions, 3 deletions
diff --git a/pttbbs/blog/BBSFileHeader.pm b/pttbbs/util/BBSFileHeader.pm index 4865da8b..e9cf3cdd 100644 --- a/pttbbs/blog/BBSFileHeader.pm +++ b/pttbbs/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}; } } |