#------------------------------------------------------------
# Copyright (C) 2006 RoyaltyShare, Inc.   All Rights Reserved
# $Id$
#------------------------------------------------------------
package AppUser::User::Command::ForceChangePW;

use lib '/app/tools/common/lib';
use RSApache::Response::XSLT;
use RSApache::Response::Redirect;

use lib '/app/tools/appuser/lib';
use AppUser::User::User;
use AppUser::User::Command::Profile;

use lib '/app/tools/rps/lib';
use RPS::Message;
use RPS::Command;

use base 'AppUser::User::Command::ChangePW';

sub cmd  { return "changepw"; }
sub area { return "login"; }

sub execute {
    my ($self) = @_;
    my $response = $self->SUPER::execute();
    print STDERR "---------  AppUser/User/Command/ForceChangePW.execute\n";
    return $response if $response;
}

sub _getCommand {
    my( $self, $errMsg ) = @_;
    return AppUser::User::Command::ForceChangePW->new( msg => $errMsg->toString );
}

1;