52 lines
1.4 KiB
Perl
52 lines
1.4 KiB
Perl
|
# This code was forked from the LiveJournal project owned and operated
|
||
|
|
# by Live Journal, Inc. The code has been modified and expanded by
|
||
|
|
# Dreamwidth Studios, LLC. These files were originally licensed under
|
||
|
|
# the terms of the license supplied by Live Journal, Inc, which can
|
||
|
|
# currently be found at:
|
||
|
|
#
|
||
|
|
# http://code.livejournal.org/trac/livejournal/browser/trunk/LICENSE-LiveJournal.txt
|
||
|
|
#
|
||
|
|
# In accordance with the original license, this code and all its
|
||
|
|
# modifications are provided under the GNU General Public License.
|
||
|
|
# A copy of that license can be found in the LICENSE file included as
|
||
|
|
# part of this distribution.
|
||
|
|
|
||
|
|
package LJ::Directory::PackedUserRecord;
|
||
|
|
use strict;
|
||
|
|
use Carp qw(croak);
|
||
|
|
|
||
|
|
sub new {
|
||
|
|
my ( $pkg, %args ) = @_;
|
||
|
|
my $self = bless {}, $pkg;
|
||
|
|
foreach my $f (qw(updatetime age journaltype regionid)) {
|
||
|
|
$self->{$f} = delete $args{$f};
|
||
|
|
}
|
||
|
|
croak("Unknown args") if %args;
|
||
|
|
return $self;
|
||
|
|
}
|
||
|
|
|
||
|
|
sub packed {
|
||
|
|
my $self = shift;
|
||
|
|
return pack(
|
||
|
|
"NCCCx",
|
||
|
|
$self->{updatetime} || 0,
|
||
|
|
$self->{age} || 0,
|
||
|
|
|
||
|
|
# the byte after age is a bunch of packed fields:
|
||
|
|
# u_int8_t journaltype:2; // 0: person, 1: openid, 2: comm, 3: syn
|
||
|
|
(
|
||
|
|
{
|
||
|
|
P => 0,
|
||
|
|
I => 1,
|
||
|
|
C => 2,
|
||
|
|
Y => 3,
|
||
|
|
}->{ $self->{journaltype} }
|
||
|
|
|| 0
|
||
|
|
) << 0 + 0,
|
||
|
|
$self->{regionid} || 0
|
||
|
|
);
|
||
|
|
|
||
|
|
}
|
||
|
|
|
||
|
|
1;
|