Submit Request
body<=
{'r'};
my @errors = ();
unless (LJ::did_post() && LJ::check_referer('/support/submit.bml')) { push @errors, ""; }
my $u;
my $user;
my $remote;
my %req; # the request we're building to submit
if ($POST{'reqtype'} eq "user")
{
$req{'reqtype'} = "user";
$user = LJ::canonical_username($POST{'user'});
if ($POST{'password'} eq "_REMOTE") {
$remote = LJ::get_remote();
if ($remote && $remote->{'user'} eq $user) {
$u = LJ::load_user($remote->{'user'});
$req{'requserid'} = $remote->{'userid'};
}
}
unless ($req{'requserid'}) {
$u = LJ::load_user($user);
push @errors, "Invalid username" unless $u;
if (LJ::auth_okay($u, $POST{'password'}, $POST{'hpassword'})) {
$req{'requserid'} = $u->{'userid'};
} else {
push @errors, "Invalid password";
}
}
$req{'reqemail'} = $u->{'email'};
}
elsif ($POST{'reqtype'} eq "email")
{
$req{'reqtype'} = "email";
$req{'reqemail'} = $POST{'email'};
LJ::check_email($POST{'email'}, \@errors);
}
$req{'reqname'} = $POST{'reqname'};
$req{'body'} = $POST{'message'};
$req{'subject'} = $POST{'subject'};
$req{'spcatid'} = $POST{'spcatid'};
$req{'uniq'} = $r->notes('uniq');
# insert diagnostic information
$req{useragent} = BML::get_client_header('User-Agent')
if $LJ::SUPPORT_DIAGNOSTICS{track_useragent};
return LJ::bad_input(@errors) if @errors;
my $spid = LJ::Support::file_request(\@errors, \%req);
return LJ::bad_input(@errors) if @errors;
my $url = "$LJ::SITEROOT/support/see_request.bml?id=$spid";
return "Your $LJ::SITENAMESHORT support request has been filed and will be answered as soon as possible. Your request tracking number is $spid. You can track its progress here: ";
}
_code?>
Back to the support area.
<=body
page?>
link: htdocs/support/see_request.bml, htdocs/support/index.bml
_c?>