61 lines
1.6 KiB
Plaintext
61 lines
1.6 KiB
Plaintext
|
<?_code
|
||
|
|
{
|
||
|
|
use strict;
|
||
|
|
use vars qw($title $body %GET %POST);
|
||
|
|
|
||
|
|
$title = $ML{'.defaulttitle'};
|
||
|
|
$body = $ML{'.defaultbody'};
|
||
|
|
|
||
|
|
# S2 Redirector
|
||
|
|
if ($POST{'redir_type'} eq "monthview") {
|
||
|
|
my $user = LJ::canonical_username($POST{'redir_user'});
|
||
|
|
my $vhost;
|
||
|
|
$vhost = $POST{'redir_vhost'} if $POST{'redir_vhost'}=~/users|tilde|community|front|other/;
|
||
|
|
if ($vhost eq "other") {
|
||
|
|
# FIXME: lookup their domain alias, and make vhost be "other:domain.com";
|
||
|
|
}
|
||
|
|
my $base = LJ::journal_base($user, $vhost);
|
||
|
|
return $ML{'.error.redirkey'} unless $POST{'redir_key'} =~/^(\d\d\d\d)(\d\d)$/;
|
||
|
|
my ($year, $month) = ($1, $2);
|
||
|
|
return BML::redirect("$base/$year/$month/");
|
||
|
|
}
|
||
|
|
|
||
|
|
# prev/next talkread links
|
||
|
|
my $itemid = $GET{'itemid'}+0;
|
||
|
|
if ($GET{'journal'} && $itemid)
|
||
|
|
{
|
||
|
|
my $journal = $GET{'journal'};
|
||
|
|
my $u = LJ::load_user($journal);
|
||
|
|
|
||
|
|
# sanity check
|
||
|
|
unless ($u) {
|
||
|
|
$body = $ML{'.error.usernotfound'};
|
||
|
|
return;
|
||
|
|
}
|
||
|
|
my $journalid = $u->{'userid'}+0;
|
||
|
|
|
||
|
|
$itemid = int($itemid / 256);
|
||
|
|
|
||
|
|
my $jumpid = 0;
|
||
|
|
$title = $ML{'.error.noentrytitle'};
|
||
|
|
|
||
|
|
if ($GET{'dir'} eq "next") {
|
||
|
|
$jumpid = LJ::get_itemid_after2($u, $itemid);
|
||
|
|
$body = $ML{'.error.noentry.next'};
|
||
|
|
} elsif ($GET{'dir'} eq "prev") {
|
||
|
|
$jumpid = LJ::get_itemid_before2($u, $itemid);
|
||
|
|
$body = $ML{'.error.noentry.prev'};
|
||
|
|
}
|
||
|
|
|
||
|
|
if ($jumpid) {
|
||
|
|
return BML::redirect(LJ::journal_base($u) . "/$jumpid.html");
|
||
|
|
}
|
||
|
|
}
|
||
|
|
|
||
|
|
return;
|
||
|
|
}
|
||
|
|
_code?><?page
|
||
|
|
title=><?_code return $title; _code?>
|
||
|
|
body=><?_code return $body; _code?>
|
||
|
|
page?>
|