CommitBit::Action::ConfirmEmail - Confirm a user's email address

CommitBit documentation Contained in the CommitBit distribution.

Index

Code Index:

NAME

Top

CommitBit::Action::ConfirmEmail - Confirm a user's email address

DESCRIPTION

Top

This is the link in a user's email to confirm that their email email is really theirs. It is not really meant to be rendered on any web page, but is used by the confirmation notification.

actions

A null sub, because the superclass wants to make sure we fill in actions

take_action

Set their confirmed status.

CommitBit documentation Contained in the CommitBit distribution. 
use warnings;
use strict;


package CommitBit::Action::ConfirmEmail;
use base qw/Jifty::Action/;


sub actions { }


sub take_action {
    my $self        = shift;
    my $u = CommitBit::Model::User->new( current_user => CommitBit::CurrentUser->superuser );
    $u->load_by_cols( email => Jifty->web->current_user->user_object->email );

    if ( $u->email_confirmed ) {
        $self->result->error(
            email => "You have already confirmed your account." );
        $self->result->success(1);    # but the action is still a success
    }

    $u->set_email_confirmed('true');

    # Set up our login message
    $self->result->message( "Welcome to CommitBit."
          . " Your email address has now been confirmed." );

    # Actually do the login thing.
    Jifty->web->current_user( CommitBit::CurrentUser->new( id => $u->id ) );
    return 1;
}

1;