{'title'};
my $head = \$_[1]->{'head'};
my $body = \$_[1]->{'body'};
my $bodyopts = \$_[1]->{'bodyopts'};
# set page title
$$title = $ML{'.title'};
# server down?
if ($LJ::SERVER_DOWN) {
$$body = LJ::server_down_html();
return;
}
# invalid text input?
unless (LJ::text_in(\%POST)) {
$$body = "";
return;
}
# get remote and see if they can post right now
my $remote = LJ::get_remote();
if ($remote) {
if (LJ::get_cap($remote, "readonly") ||
! LJ::get_cluster_master($remote)) {
$$title = $ML{'.title.readonly'};
$$body = $LJ::MSG_READONLY_USER;
return;
}
if (! LJ::get_cap($remote, "can_post")) {
$$title = "Can't Post";
$$body = $LJ::MSG_NO_POST || "Sorry, you cannot post at this time.";
return;
}
}
# are we spellchecking before we post?
my $spellcheck_html;
my $did_spellcheck;
if ($LJ::SPELLER && $POST{'do_spellcheck'}) {
my $s = new LJ::SpellCheck { 'spellcommand' => $LJ::SPELLER,
'color' => '', };
my $event = LJ::ehtml($POST{'event'});
$spellcheck_html = $s->check_html(\$event);
$did_spellcheck++;
}
### define some bools with common logic ###
my $did_post = LJ::did_post();
my $user_is_remote = $remote && $remote->{'user'} eq $POST{'user'}; # user is remote
my $auth_as_remote = $remote && (! $GET{'altlogin'} || $user_is_remote); # auth as remote
my $auth_missing = $POST{'user'} && ! $POST{'password'} && ! $user_is_remote; # user w/o password
my $showform = $POST{'showform'} || $auth_missing; # show entry form
if ($did_post && ! $spellcheck_html && ! $showform) {
# what's our authentication scheme for subsequent protocol actions?
my $flags = {};
my $user;
if ($POST{'user'} && # user argument given
! $user_is_remote) { # user != remote
$user = $POST{'user'};
} elsif ($remote) { # assume remote if we have it
$flags = { 'noauth' => 1, 'u' => $remote };
$user = $remote->{'user'};
}
# do a login action
my $login_message;
{
# build a clientversion string
my $clientversion = $POST{'webversion'} eq 'full' ? "Web/1.1" : "Web/1.0";
$clientversion .= 's' if $did_spellcheck;
# build a request object
my %req = ( 'mode' => 'login',
'ver' => $LJ::PROTOCOL_VER,
'clientversion' => $clientversion,
'user' => $user,
'password' => $POST{'password'},
'hpassword' => $POST{'hpassword'},
);
my %res;
LJ::do_request(\%req, \%res, $flags);
# error logging in ?
unless ($res{'success'} eq 'OK') {
$$body .= "\n";
$$body .= "
" . LJ::ehtml($res{'errmsg'}) . "
p?>";
return;
}
# server login message for user?
$login_message = LJ::auto_linkify(LJ::ehtml($res{'message'}))
if $res{'message'};
}
# do update postevent
{
## see if an "other" mood they typed in has an equivalent moodid
my $moodid = $POST{'prop_current_moodid'};
my $moodname = lc($POST{'prop_current_mood'});
if (my $id = LJ::mood_id($moodname)) {
$moodid = $id;
undef $moodname;
}
# find security
my $sec = "public";
my $amask = 0;
if ($POST{'security'} eq "private") { $sec = "private"; }
elsif ($POST{'security'} eq "friends") { $sec = "usemask"; $amask = 1; }
elsif ($POST{'security'} eq "custom") {
$sec = "usemask";
foreach my $bit (1..30) {
next unless $POST{"custom_bit_$bit"};
$amask |= (1 << $bit);
}
}
# next, postevent
my %req = ( 'mode' => 'postevent',
'ver' => $LJ::PROTOCOL_VER,
'user' => $user,
'password' => $POST{'password'},
'hpassword' => $POST{'hpassword'},
'usejournal' => $POST{'usejournal'},
'security' => $sec,
'allowmask' => $amask,
);
# copy some things from %POST
foreach (qw(event subject year mon day hour min
prop_picture_keyword prop_current_moodid
prop_current_mood prop_current_music)) {
$req{$_} = $POST{$_};
}
# copy some opts, but make sure they are 1 : 0 explicitly
foreach (qw(preformatted nocomments backdated noemail)) {
$req{"prop_opt_$_"} = $POST{"prop_opt_$_"} ? 1 : 0;
}
my %res;
LJ::do_request(\%req, \%res, $flags);
# examine response
my $update_message;
if ($res{'success'} eq "OK" && $res{'message'}) {
$update_message = LJ::auto_linkify(LJ::ehtml($res{'message'}));
}
# report results
$$body .= "\n";
# update failed?
unless ($res{'success'} eq 'OK') {
$$body .= "
" . LJ::ehtml($res{'errmsg'}) . "
p?>";
return;
}
# update success
my $ju;
if ($POST{'usejournal'}) {
$ju = LJ::load_user($POST{'usejournal'}); # posting as community
} elsif ($user) {
$ju = LJ::load_user($user); # posting not as user from form
} else {
$ju = $remote; # posting as remote
};
$$body .= " LJ::journal_base($ju) . "/" }) ." p?>";
# any messages from the server?
if ($login_message) {
$$body .= "\n";
$$body .= "
";
}
}
return;
}
###
### show update form
###
$$body .= "";
{
# if they submit the form and are spellchecking, remember
# their settings from the GET requests
my $getextra;
$getextra .= "altlogin=1&" if $GET{'altlogin'};
$getextra .= "mode=full&" if $GET{'mode'} eq 'full';
chop $getextra;
$getextra = "?$getextra" if $getextra;
$$body .= "";
return;
}
_code?>{'title'}; _code?>
body=>{'body'}; _code?>
bodyopts=>{'bodyopts'}; _code?>
head<=
{'head'}; _code?>
<=head
page?>
lib: LJ::SpellCheck
link: htdocs/users, htdocs/download/index.bml, htdocs/moodlist.bml
link: htdocs/update.bml, htdocs/lostinfo.bml, htdocs/support/faqbrowse.bml
link: htdocs/allpics.bml
post: htdocs/update.bml
_c?>