cgi-bin/solpeople/account-confirm.pl

   1 #!/usr/bin/perl -w
   2 use strict;
   3 use warnings;
   4
   5 use CXGN::DB::Connection;
   6 use CXGN::Page;
   7 use CXGN::People;
   8 use CXGN::People::Login;
   9
  10 my $page = CXGN::Page->new( "solpeople User Confirmation", "Koni" );
  11 my $dbh = CXGN::DB::Connection->new();
  12
  13 my ( $username, $confirm_code ) = $page->get_arguments( "username", "confirm" );
  14 my $sp = CXGN::People::Login->get_login( $dbh, $username );
  15
  16 if ( !$sp ) {
  17     confirm_failure($page, "Username \"$username\" was not found.");
  18 }
  19
  20 if ( !$sp->get_confirm_code() ) {
  21     confirm_failure($page, "No confirmation is required for user <b>$username</b>. This account has already been confirmed. <p><a href='/user/login?goto_url=%2F'>[Login Page]</a></p>");
  22 }
  23
  24 if ( $sp->get_confirm_code() ne $confirm_code ) {
  25     confirm_failure($page, "Confirmation code is not valid!\n");
  26 }
  27
  28 $sp->set_disabled(undef);
  29 $sp->set_confirm_code(undef);
  30 $sp->set_private_email( $sp->get_pending_email() );
  31
  32 $sp->store();
  33
  34 $page->header();
  35
  36 print <<EOF;
  37
  38 <p>Confirmation successful for username <b>$username</b>.</p>
  39
  40 <p><a href="/user/login?goto_url=%2F">[Login Page]</a></p>
  41 <br />
  42
  43 EOF
  44
  45 $page->footer();
  46
  47 sub confirm_failure {
  48     my ($page, $reason) = @_;
  49
  50     $page->header();
  51
  52     print <<EOF;
  53
  54   <p>Sorry, we are unable to process this confirmation request. Please check that your complete confirmation URL has been pasted correctly into your browser.</p>
  55
  56   <p><b>Reason:</b> $reason</p>
  57
  58   <br />
  59
  60 EOF
  61
  62     $page->footer();
  63
  64     exit 0;
  65 }