htdocs/newuser.bml

   1 <?page
   2 title=><?_code BML::ml(".title", {'sitename' => $LJ::SITENAMESHORT}) _code?>
   3 body<=
   4 <?_code
   5 {
   6     use strict;
   7
   8     my $remote = LJ::get_remote();
   9     return "<?needlogin?>" unless $remote;
  10
  11     my $authas = $GET{'authas'} || $remote->{'user'};
  12     my $u = LJ::get_authas_user($authas);
  13     return LJ::bad_input($ML{'error.invalidauth'}) unless $u;
  14
  15     # The copy is slighly different for communities
  16     if ($GET{authas}) {
  17         BML::set_language_scope('/community/create.bml');
  18     } else {
  19         BML::set_language_scope('/create.bml');
  20     }
  21
  22     my $ret;
  23     $ret = "<?h1 $ML{'.success.head'} h1?><?p ".BML::ml(".success.text1", {'email' => $u->email_raw, 'username' => $u->{user}}) ." p?>";
  24
  25     my $uri = LJ::journal_base($u) . "/";
  26     $ret .= "<?p $ML{'.success.text2'} p?>\n";
  27     $ret .= "<?standout <font size='+1' face='arial'><b><a href='$uri'>$uri</a></b></font> standout?>\n";
  28     $ret .= "<?p $ML{'.success.text3'} p?>\n";
  29
  30     $ret .= "<form method='get' action='$LJ::SITEROOT/manage/profile/'>";
  31     $ret .= LJ::html_hidden('authas', $authas) if $GET{'authas'};
  32     $ret .= "<p align='center'>" . LJ::html_submit(undef, "$ML{'.success.btn.enterinfo'} &rarr;") . "</p>";
  33     $ret .= "</form>\n";
  34
  35     return $ret;
  36 }
  37 _code?>
  38 <=body
  39 page?>