Kwiki::UserName::Remote - display the remote user name

package Kwiki::UserName::Remote;
use strict;
use warnings;

use Kwiki::UserName -Base;
use mixin 'Kwiki::Installer';

our $VERSION = "0.04";

const class_title => 'Kwiki user name from HTTP authentication';

sub register {
    my $registry = shift;
    $registry->add( preload => 'user_name' );
}

__DATA__

__css/user_name.css__
div #user_name_title {
    font-size: small;
    float: right;
}
__template/tt2/user_name_title.html__
<div id="user_name_title">
<em>(Logged in as 
<a href="[% script_name %]?[% hub.users.current.name %]">
[%- hub.users.current.name || '???' -%]
</a>)
</em>
</div>