%#
%# COPYRIGHT:
%#
-%# This software is Copyright (c) 1996-2011 Best Practical Solutions, LLC
+%# This software is Copyright (c) 1996-2012 Best Practical Solutions, LLC
%# <sales@bestpractical.com>
%#
%# (Except where explicitly superseded by other copyright notices)
push @errors, loc("Invalid [_1]: it should be a number", 'WebPort');
}
- unless ( $ARGS{Password} ) {
+ if ( !$ARGS{Password} ) {
push @errors, loc("You must enter an Administrative password");
}
+ else {
+ my $dummy_user = RT::User->new($session{CurrentUser});
+ my ($ok, $msg) = $dummy_user->ValidatePassword($ARGS{Password});
+ unless ($ok) {
+ push @errors, $msg;
+ }
+ }
if ( $Back ) {
RT::Interface::Web::Redirect(RT->Config->Get('WebURL') .