qr/./);
my $dbr = LJ::get_db_reader();
my $remote = LJ::get_remote();
my $sth;
$title = "";
$head = "";
$body = "";
my $dberr = sub {
$title = $ML{'Error'};
$body = $ML{'error.nodb'};
return undef;
};
# Find out if a 'user' argument is specified in the URL.
my $user = LJ::canonical_username($GET{'user'});
if ($GET{'user'} && ! $user) {
$body = $ML{'error.malformeduser'};
return;
}
# Find out if an 'authas' argument is specified in the URL.
# If not, try to authenticate as 'user'. If still no success, use $remote.
my $authasu = LJ::get_authas_user($GET{'authas'} || $user) || $remote;
my $authasarg;
my $authasarge;
unless (LJ::did_post()) {
if ($authasu) {
$body .= "\n\n";
$user ||= $authasu->{user};
$authasarg = "&authas=$authasu->{user}";
$authasarge = "&authas=$authasu->{user}";
} else {
$authasu = $remote;
}
}
# Now, whose memories page do we actually want to see?
# - if 'user' is specified, we want to see theirs
# (in this case, $user has already been set to that)
# - if no 'user', but 'authas' is specified, we want to see authas's
# (in this case, $user has been set to $authasu->{user} above
# - if neither is specified, we want to see remote's:
if ($user eq "" && defined $remote) {
$user = $remote->{'user'};
}
my $u = LJ::load_user($user);
unless ($u) {
# There is no 'authas' OR $remote.
# If there's a 'user', that user doesn't exist.
# Otherwise, complain about the absence of 'user' / suggest logging in.
$title = $ML{'Error'};
$body = $user eq "" ? BML::ml('.login', { 'aopts' => 'href="/login?ret=1"' })
: $ML{'error.username_notfound'};
return;
}
# owner if you've authed as them or you administrate them
my $is_owner = $authasu && $user eq $authasu->{user} ||
$remote && $remote->can_manage_other( $u );
my $userid = $u->{'userid'};
if ( $u->is_redirect ) {
my $renamedto = $u->prop( "renamedto" );
return BML::redirect( "/tools/memories?user=$renamedto$authasarg" );
}
$u->preload_props("opt_blockrobots", "adult_content") if $u->is_visible;
unless ($u->is_visible && ! $u->should_block_robots) {
$head = LJ::robot_meta_tags();
}
if ($u->is_suspended) {
$title = $ML{'error.suspended.title'};
$body = "$LJ::SITENAME,'user'=>$user}) . " p?>";
return;
}
if ($u->is_deleted) {
$body = $u->display_journal_deleted( $remote, bml => {
title => \$title,
head => \$head } );
return;
}
if ($u->is_expunged) {
$title = $ML{'error.purged.title'};
$body = "";
return;
}
if (LJ::did_post()) {
unless (LJ::check_form_auth()) {
$title = $ML{'Error'};
$body = "\n";
return;
}
unless ($is_owner) {
$title = $ML{'Error'};
$body = "\n";
return;
}
my @to_delete = ();
foreach (keys %POST) {
push @to_delete, $1 if /^select_mem_(\d+)$/;
}
unless (@to_delete) {
$title = $ML{'Error'};
$body = "";
return;
}
# delete them!
LJ::Memories::delete_by_id($authasu, \@to_delete);
$title = $ML{'.delete.deleted.title'};
$body = " "href='./memories?user=$authasu->{user}'" }) . " p?>";
return;
}
my %filters = ("all" => $ML{'.filter.all'},
"own" => BML::ml(".filter.own", { 'user' => $user }),
"other" => $ML{'.filter.other'});
my $filter = $GET{'filter'} || "all";
unless (defined $filters{$filter}) { $filter = "all"; }
my %sorts = ('memid' => $ML{'.sort.orderadded'},
'des' => $ML{'.sort.description'},
'user' => $ML{'.sort.journal'});
my $sort = ($GET{'sortby'} || 'memid');
unless (defined $sorts{$sort}) { $sort = 'memid'; }
# keys must be the same as those of %sorts
my %sortfunc = ('memid' => sub {
sort { $a->{'memid'} <=> $b->{'memid'} } @_;
},
'des' => sub {
sort { $a->{'des'} cmp $b->{'des'} } @_;
},
'user' => sub {
sort { $a->{'user'} cmp $b->{'user'} ||
$a->{'des'} cmp $b->{'des'} } @_;
});
my $securities = ['public'];
if ($authasu) {
if ($is_owner) {
$securities = [];
} elsif ( $authasu->is_person && $u->trusts_or_has_member( $authasu ) ) {
$securities = ['public', 'friends'];
}
}
my $kwmap = LJ::Memories::get_keywords($u);
return $dberr->() unless defined $kwmap;
if ($GET{'keyword'})
{
if ($GET{'keyword'} eq "*") {
$title = $ML{'.title.memorable'};
$body .= " $user }) . " p?>";
} else {
my $ekw = LJ::ehtml($GET{'keyword'});
$title = BML::ml(".title.keyword", { 'keyword' => $ekw, 'user' => $user });
$body .= BML::ml(".body.keyword", { 'keyword' => $ekw, 'user' => $user });
}
$body .= "\n";
$body .= "<< $ML{'.back'}";
my $key_id;
foreach (keys %$kwmap) {
$key_id = $_ if $kwmap->{$_} eq $GET{keyword};
}
my $memoryhash = LJ::Memories::get_by_keyword($u, $key_id,
{ security => $securities, filter => $filter });
return $dberr->() unless defined $memoryhash;
my @memories = $sortfunc{$sort}->( values %$memoryhash );
my $mem_us = LJ::load_userids( map { $_->{journalid} } @memories );
$body .= "\n";
}
return;
}
$title = $ML{'.title.memorable'};
$body .= BML::ml(".body.list_categories", { 'user' => $user });
my $rows = LJ::Memories::get_keyword_counts($u, { security => $securities, filter => $filter });
return $dberr->() unless defined $rows;
my @sortedrows;
push @sortedrows, { keyword => $kwmap->{$_}, count => $rows->{$_} }
foreach keys %{$rows || {}};
@sortedrows = sort { $a->{'keyword'} cmp $b->{'keyword'} } @sortedrows;
$body .= "";
unless (@sortedrows) {
$body .= " $u->display_name } ) . " p?>";
} else {
$body .= "";
foreach my $row (@sortedrows) {
my $noun = BML::ml(".plur_entry", {'num' => $row->{'count'}});
my $ue_keyword = LJ::eurl($row->{'keyword'});
my $keyword = $row->{'keyword'};
LJ::text_out(\$keyword);
if ($keyword eq "*") { $keyword = $ML{'.uncategorized'}; }
else { $keyword = LJ::ehtml($keyword); }
$body .= "- $keyword: $noun\n
";
}
$body .= "
";
}
return;
_code?>
head=>
body<=
<=body
page?>