htdocs/post_qotd.bml

   1 <?page
   2 body<=
   3 <?_code
   4 {
   5     use strict;
   6     use vars qw(%GET %POST $title $headextra @errors @warnings);
   7
   8     my $u = LJ::load_user($GET{user});
   9     $u = LJ::get_remote() unless $u;
  10
  11     return "<?needlogin?>" unless $u;
  12
  13     my @questions = LJ::QotD->get_questions( user => $u, skip => 0 );
  14
  15     # redirect to the update page with the most recent QotD filled in
  16     if (@questions) {
  17         my $url = LJ::Widget::QotD->answer_url($questions[0]);
  18         return BML::redirect($url);
  19     }
  20
  21     return BML::redirect("$LJ::SITEROOT/");
  22 }
  23 _code?>
  24 <=body
  25 title=><?_code return $title; _code?>
  26 head<=
  27 <?_code return $headextra; _code?>
  28 <=head
  29 page?>