38 lines
1008 B
Plaintext
38 lines
1008 B
Plaintext
|
<?_code
|
||
|
|
|
||
|
|
my $remote = LJ::get_remote();
|
||
|
|
|
||
|
|
$title = $LJ::SITENAME;
|
||
|
|
$body = "";
|
||
|
|
$head = "";
|
||
|
|
$bodyopts = "";
|
||
|
|
|
||
|
|
#-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=
|
||
|
|
|
||
|
|
LJ::Portal::construct_page({
|
||
|
|
'form' => \%FORM,
|
||
|
|
'remote' => $remote,
|
||
|
|
'head' => \$head,
|
||
|
|
'body' => \$body,
|
||
|
|
'bodyopts' => \$bodyopts,
|
||
|
|
'border' => 0,
|
||
|
|
});
|
||
|
|
|
||
|
|
return;
|
||
|
|
|
||
|
|
_code?><?page
|
||
|
|
title=><?_code return $title; _code?>
|
||
|
|
head<=
|
||
|
|
<?_c TODO: configurable meta tags could go here? _c?>
|
||
|
|
<?_code return $head; _code?>
|
||
|
|
<?_code return (! LJ::get_remote() &&
|
||
|
|
! $LJ::IS_SSL &&
|
||
|
|
! $LJ::REQ_HEAD_HAS{'chalresp_js'}++) ?
|
||
|
|
$LJ::COMMON_CODE{'chalresp_js'} : "";
|
||
|
|
_code?>
|
||
|
|
<=head
|
||
|
|
bodyopts=><?_code return $bodyopts; _code?>
|
||
|
|
body=><?_code return $body; _code?>
|
||
|
|
page?><?_c <LJDEP>
|
||
|
|
</LJDEP> _c?>
|