NAME Plack::App::ChangePassword - Plack change password application. SYNOPSIS use Plack::App::ChangePassword; my $obj = Plack::App::ChangePassword->new(%parameters); my $psgi_ar = $obj->call($env); my $app = $obj->to_app; METHODS "new" my $obj = Plack::App::ChangePassword->new(%parameters); Constructor. * "author" Author string to HTML head. Default value is undef. * "content_type" Content type for output. Default value is 'text/html; charset=__ENCODING__'. * "css" Instance of CSS::Struct::Output object. Default value is CSS::Struct::Output::Raw instance. * "css_init" Reference to array with CSS::Struct structure. Default value is CSS initialization from Tags::HTML::Page::Begin like * { box-sizing: border-box; margin: 0; padding: 0; } * "encoding" Set encoding for output. Default value is 'utf-8'. * "favicon" Link to favicon. Default value is undef. * "flag_begin" Flag that means begin of html writing via Tags::HTML::Page::Begin. Default value is 1. * "flag_end" Flag that means end of html writing via Tags::HTML::Page::End. Default value is 1. * "generator" HTML generator string. Default value is 'Plack::App::ChangePassword; Version: __VERSION__'. * "message_cb" Callback to process message from application. Arguments for callback are: $env, $message_type and $message. Returns undef. Default value is undef. * "psgi_app" PSGI application to run instead of normal process. Intent of this is change application in "_process_actions" method. Default value is undef. * "redirect_change_password" Redirect URL after successful password changed. Default value is undef. * "redirect_error" Redirect URL after error in changing of password. Default value is undef. * "change_password_cb" Callback for main changing of password. Arguments for callback are: $env, $old_password and $password. Returns 0/1 for (un)successful changing of password. Default value is undef. * "script_js" Reference to array with Javascript code strings. Default value is []. * "script_js_src" Reference to array with Javascript URLs. Default value is []. * "status_code" HTTP status code. Default value is 200. * "tags" Instance of Tags::Output object. Default value is Tags::Output::Raw->new( 'xml' => 1, 'no_simple' => ['script', 'textarea'], 'preserved' => ['pre', 'style'], ); * "title" Page title. Default value is 'Change password page'. Returns instance of object. "call" my $psgi_ar = $obj->call($env); Implementation of login page. Returns reference to array (PSGI structure). "to_app" my $app = $obj->to_app; Creates Plack application. Returns Plack::Component object. EXAMPLE use strict; use warnings; use CSS::Struct::Output::Indent; use Plack::App::ChangePassword; use Plack::Runner; use Tags::Output::Indent; # Run application. my $app = Plack::App::ChangePassword->new( 'css' => CSS::Struct::Output::Indent->new, 'generator' => 'Plack::App::ChangePassword', 'tags' => Tags::Output::Indent->new( 'preserved' => ['style'], 'xml' => 1, ), )->to_app; Plack::Runner->new->run($app); # Output: # HTTP::Server::PSGI: Accepting connections at http://0:5000/ # > curl http://localhost:5000/ # <!DOCTYPE html> # <html lang="en"> # <head> # <meta http-equiv="Content-Type" content="text/html; charset=utf-8" /> # <meta name="generator" content="Plack::App::ChangePassword" /> # <meta name="viewport" content="width=device-width, initial-scale=1.0" /> # <title> # Change password page # </title> # <style type="text/css"> # * { # box-sizing: border-box; # margin: 0; # padding: 0; # } # .form-change-password { # width: 300px; # background-color: #f2f2f2; # padding: 20px; # border-radius: 5px; # box-shadow: 0 0 10px rgba(0, 0, 0, 0.2); # } # .form-change-password fieldset { # border: none; # padding: 0; # margin-bottom: 20px; # } # .form-change-password legend { # font-weight: bold; # margin-bottom: 10px; # } # .form-change-password p { # margin: 0; # padding: 10px 0; # } # .form-change-password label { # display: block; # font-weight: bold; # margin-bottom: 5px; # } # .form-change-password input[type="text"], .form-change-password input[type="password"] { # width: 100%; # padding: 8px; # border: 1px solid #ccc; # border-radius: 3px; # } # .form-change-password button[type="submit"] { # width: 100%; # padding: 10px; # background-color: #4CAF50; # color: #fff; # border: none; # border-radius: 3px; # cursor: pointer; # } # .form-change-password button[type="submit"]:hover { # background-color: #45a049; # } # .form-change-password .messages { # text-align: center; # } # .container { # display: flex; # align-items: center; # justify-content: center; # height: 100vh; # } # </style> # </head> # <body> # <div class="container"> # <div class="inner"> # <form class="form-change-password" method="post"> # <fieldset> # <legend> # Change password # </legend> # <p> # <label for="old_password"> # Old password # </label> # <input type="password" name="old_password" id="old_password" # autofocus="autofocus" /> # </p> # <p> # <label for="password1"> # New password # </label> # <input type="password" name="password1" id="password1" /> # </p> # <p> # <label for="password2"> # Confirm new password # </label> # <input type="password" name="password2" id="password2" /> # </p> # <p> # <button type="submit" name="change_password" value= # "change_password"> # Save Changes # </button> # </p> # </fieldset> # </form> # </div> # </div> # </body> # </html> DEPENDENCIES Plack::Component::Tags::HTML, Plack::Request, Plack::Response, Plack::Session, Plack::Util::Accessor, Tags::HTML::ChangePassword, Tags::HTML::Container. SEE ALSO Plack::App::Login Plack login application. Plack::App::Login::Password Plack login/password application. Plack::App::Register Plack register application. REPOSITORY <https://github.com/michal-josef-spacek/Plack-App-ChangePassword> AUTHOR Michal Josef Å paÄek <mailto:skim@cpan.org> <http://skim.cz> LICENSE AND COPYRIGHT © 2024 Michal Josef Å paÄek BSD 2-Clause License VERSION 0.02