Apache2-WebApp-Extra-Admin

 view release on metacpan or  search on metacpan

META.yml  view on Meta::CPAN

--- #YAML:1.0
name: Apache2::WebApp::Extra::Admin
abstract: Web based admin control panel
version: 0.19
author:
  - Marc S. Brooks <mbrooks@cpan.org>
license: perl
distribution_type: module
requires:
  Apache2::WebApp: 0.39
  Apache2::WebApp::Plugin::DateTime: 0.06
  Apache2::WebApp::Plugin::DBI: 0.09
  Apache::Htpasswd: 1.8
  Params::Validate: 0
build_requires:
no_index:
  directory:
    - preview
    - usr
resources:
  license: http://dev.perl.org/licenses/

Makefile.PL  view on Meta::CPAN

# See lib/ExtUtils/MakeMaker.pm for details of how to influence
# the contents of the Makefile that is written.

WriteMakefile(
    NAME         => 'Apache2::WebApp::Extra::Admin',
    VERSION_FROM => 'lib/Apache2/WebApp/Extra/Admin.pm', # finds \$VERSION
    AUTHOR       => 'Marc S. Brooks (mbrooks@cpan.org)',
    PREREQ_PM    => {
       'Apache2::WebApp'                   => 0.39,
       'Apache2::WebApp::Plugin::DateTime' => 0.06,
       'Apache2::WebApp::Plugin::DBI'      => 0.09,
       'Apache::Htpasswd'                  => 1.8,
       'Params::Validate'                  => 0,
    }
  );

# Install build script template dependencies (non-standard way)
sub MY::postamble {
'
install::

README  view on Meta::CPAN

    * Template based output.
    * Compatible with Internet Explorer, Firefox, Safari, Chrome, and Opera
    web browsers.
    * User management panel.
    * User action logging.
    * Result sorting capabilities.
    * Pagination (Next/Last pages)

PREREQUISITES
      Apache2::WebApp
      Apache2::WebApp::Plugin::DateTime
      Apache2::WebApp::Plugin::DBI (optional)
      Apache::Htpasswd
      Params::Validate

INSTALLATION
    From source:

      $ tar xfz Apache2-WebApp-Extra-Admin-0.X.X.tar.gz
      $ perl MakeFile.PL PREFIX=~/path/to/custom/dir LIB=~/path/to/custom/lib
      $ make

README  view on Meta::CPAN

    information will be written to a file that can be located in your
    project "logs" directory.

DEBUG MODE
    If debugging is enabled, the URI and query string are logged. This can
    pose as a security risk when running in a production environment since
    personal information (including passwords) may be exposed.

SEE ALSO
    Apache2::WebApp, Apache2::WebApp::Plugin::DBI,
    Apache2::WebApp::Plugin::DateTime, Apache::Htpasswd

AUTHOR
    Marc S. Brooks, <mbrooks@cpan.org> <http://mbrooks.info>

COPYRIGHT
    This program is free software; you can redistribute it and/or modify it
    under the same terms as Perl itself.

    See <http://dev.perl.org/licenses/artistic.html>

lib/Apache2/WebApp/Extra/Admin.pm  view on Meta::CPAN

=item * Result sorting capabilities.

=item * Pagination (Next/Last pages)

=back

=head1 PREREQUISITES

  Apache2::WebApp
  Apache2::WebApp::Plugin::DateTime
  Apache2::WebApp::Plugin::DBI (optional)
  Apache::Htpasswd
  Params::Validate

=head1 INSTALLATION

From source:

  $ tar xfz Apache2-WebApp-Extra-Admin-0.X.X.tar.gz
  $ perl MakeFile.PL PREFIX=~/path/to/custom/dir LIB=~/path/to/custom/lib

lib/Apache2/WebApp/Extra/Admin.pm  view on Meta::CPAN

=head1 DEBUG MODE

If debugging is enabled, the URI and query string are logged.  This can
pose as a security risk when running in a production environment since
personal information (including passwords) may be exposed.

=head1 SEE ALSO

L<Apache2::WebApp>, L<Apache2::WebApp::Plugin::DBI>,
L<Apache2::WebApp::Plugin::DateTime>, L<Apache::Htpasswd>

=head1 AUTHOR

Marc S. Brooks, E<lt>mbrooks@cpan.orgE<gt> L<http://mbrooks.info>

=head1 COPYRIGHT

This program is free software; you can redistribute it and/or modify it
under the same terms as Perl itself.

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

        while (<INFILE>) {
            chomp;

            my ($user, $action, $string, $ip, $epoch) = split(/\t/);

            push @data, {
                admin_log_username     => $user,
                admin_log_action       => $action,
                admin_log_query_string => $string,
                admin_log_user_ip_addr => $ip,
                created                => $c->plugin('DateTime')->format_time($epoch, '%m-%d-%Y / %R %p')
              };
        }
        close(INFILE);
    }
    else {

        # create the log file
        open (FILE, ">$logfile") or $self->SUPER::_error("Cannot open file: $!");
        close(FILE);
    }

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

        }
        else {
            $status = 'Active';
        }

        $epoch ||= 110790000;    # default

        push( @results, {
            username => $user,
            status   => $status,
            created  => $c->plugin('DateTime')->format_time($epoch, '%m-%d-%Y / %R %p'),
          });
    }

    return \@results;
}

1;

__END__