login code for 5.4 framework

gistfile1.aw

<?
    get( 'login' );

    post()->login = function() {
        // is already logged in
        post()->
            verify( function() {
                return $this->obj->session->isLoggedIn();
            })->
            redirect( '/' );

        // login attempt
        post()->
                verify( function($username, $password, $location, $user, $error) {
                    $username->trim()->exists()->len( 1, 15 )->regex( Home::USERNAME_REGEX )
                            and
                    $password->trim()->exists()->minLen( Users::PASSWORD_MIN_LEN )
                            and
                    $location->trim()
                            and
                    list( $user, $error ) = $this->model->users->userLogin( $username, $password );
                } )->
                action(
                        // success \o/
                        function($username, $password, $remember_me, $user) {
                            $this->session->loginUser( $user, $remember_me );
                            $this->redirect( '/' );
                        },

                        // fail : (
                        function($error) {
                            $this->view( 'login/index', $error );
                        }
                );
    };