/usr/share/perl5/Kwiki/Users.pm is in libkwiki-perl 0.39-2.
This file is owned by root:root, with mode 0o644.
The actual contents of the file can be viewed below.
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 91 92 | package Kwiki::Users;
use Kwiki::Base -Base;
use mixin 'Kwiki::Installer';
const class_id => 'users';
const class_title => 'Kwiki Users';
const user_class => 'Kwiki::User';
sub init {
$self->hub->config->add_file('user.yaml');
}
sub all {
($self->current);
}
sub all_ids {
($self->current->id);
}
sub current {
return $self->{current} = shift if @_;
return $self->{current} if defined $self->{current};
my $user_id = $ENV{REMOTE_USER} || '';
$self->{current} = $self->new_user($user_id);
}
sub new_user {
$self->user_class->new(id => shift);
}
package Kwiki::User;
use base 'Kwiki::Base';
field 'id';
field 'name' => '';
sub new {
$self = super;
$self->set_user_name;
return $self;
}
sub set_user_name {
return unless $self->is_in_cgi;
my $name = '';
$name = $self->preferences->user_name->value
if $self->preferences->can('user_name');
$name ||= $self->hub->config->user_default_name;
$self->name($name);
}
sub preferences {
return $self->{preferences} = shift if @_;
return $self->{preferences} if defined $self->{preferences};
my $preferences = $self->hub->preferences;
$self->{preferences} =
$preferences->new_preferences($self->preference_values);
}
sub preference_values {
$self->hub->cookie->jar->{preferences} || {};
}
package Kwiki::Users;
__DATA__
=head1 NAME
Kwiki::Users - Kwiki Users Base Class
=head1 SYNOPSIS
=head1 DESCRIPTION
=head1 AUTHOR
Brian Ingerson <INGY@cpan.org>
=head1 COPYRIGHT
Copyright (c) 2004. Brian Ingerson. All rights reserved.
This program is free software; you can redistribute it and/or modify it
under the same terms as Perl itself.
See http://www.perl.com/perl/misc/Artistic.html
=cut
__config/user.yaml__
user_default_name: AnonymousGnome
|