Apache2-WebApp-Extra-Admin

 view release on metacpan or  search on metacpan

usr/share/webapp-toolkit/extra/class/admin_users_add.tt  view on Meta::CPAN

        $pwd->writeInfo($param{username}, time() );

        $self->SUPER::_log_action($c, "Added User ($username)");

        # list the users
        $self->_list_users($c);
    }
    else {

        $error{alert} = ERROR_FORM_INPUT;

        # errors exist, reload the form
        $self->_view_page( $c, \%param, \%error );
    }
}

1;

__END__

usr/share/webapp-toolkit/extra/class/admin_users_edit.tt  view on Meta::CPAN

        $pwd->htpasswd($param{username}, $param{password}, { overwrite => 1 });

        $self->SUPER::_log_action($c, 'Updated User (' . $param{username} . ')');

        # list the users
        $self->_list_users($c);
    }
    else {

        $error{alert} = ERROR_FORM_INPUT;

        # errors exist, reload the form
        $self->_view_page($c, \%param, \%error);
    }
}

1;

__END__

usr/share/webapp-toolkit/extra/class/admin_users_error.tt  view on Meta::CPAN

use warnings;

our $VERSION = 0.19;

#----------------------------------------------------------------------------+
# Constants to be exported.

use constant ERROR_ACCESS_DENIED =>
    "Access denied";

use constant ERROR_FORM_INPUT =>
    "ERROR: The highlighted form fields contain errors";

use constant ERROR_PASSWORD =>
    "Must be between 8 and 15 characters";

use constant ERROR_REQUIRED =>
    "Required information";

use constant ERROR_USERNAME =>
    "Must be between 5 and 15 alphanumeric characters";

usr/share/webapp-toolkit/extra/class/admin_users_error.tt  view on Meta::CPAN

use constant ERROR_USERNAME_EXISTS =>
    "The username selected is already in use";

use vars qw( @ISA @EXPORT_OK %EXPORT_TAGS );

require Exporter;

@ISA       = qw( Exporter );
@EXPORT_OK = qw(
  ERROR_ACCESS_DENIED
  ERROR_FORM_INPUT
  ERROR_PASSWORD
  ERROR_REQUIRED
  ERROR_USERNAME
  ERROR_USERNAME_DOESNT_EXIST
  ERROR_USERNAME_EXISTS
  );

%EXPORT_TAGS = (
    all => \@EXPORT_OK,
  );