package FS::access_user;
use strict;
-use vars qw( @ISA $htpasswd_file );
+use vars qw( @ISA $DEBUG $me $conf $htpasswd_file );
use FS::UID;
use FS::Conf;
use FS::Record qw( qsearch qsearchs dbh );
@ISA = qw( FS::m2m_Common FS::option_Common FS::Record );
#@ISA = qw( FS::m2m_Common FS::option_Common );
+$DEBUG = 0;
+$me = '[FS::access_user]';
+
#kludge htpasswd for now (i hope this bootstraps okay)
FS::UID->install_callback( sub {
- my $conf = new FS::Conf;
+ $conf = new FS::Conf;
$htpasswd_file = $conf->base_dir. '/htpasswd';
} );
=head1 DESCRIPTION
-An FS::access_user object represents an internal access user. FS::access_user inherits from
-FS::Record. The following fields are currently supported:
+An FS::access_user object represents an internal access user. FS::access_user
+inherits from FS::Record. The following fields are currently supported:
=over 4
=item access_usergroup
+Returns links to the the groups this user is a part of, as FS::access_usergroup
+objects (see L<FS::access_usergroup>).
+
=cut
sub access_usergroup {
$rightname = [ $rightname ] unless ref($rightname);
+ warn "$me access_right called on ". join(', ', @$rightname). "\n"
+ if $DEBUG;
+
#some caching of ACL requests for low-hanging fruit perf improvement
#since we get a new $CurrentUser object each page view there shouldn't be any
#issues with stickiness
if ( $self->{_ACLcache} ) {
- return grep $self->{_ACLcache}{$_}, @$rightname
- unless grep !exists($self->{_ACLcache}{$_}), @$rightname;
+ unless ( grep !exists($self->{_ACLcache}{$_}), @$rightname ) {
+ warn "$me ACL cache hit for ". join(', ', @$rightname). "\n"
+ if $DEBUG;
+ return grep $self->{_ACLcache}{$_}, @$rightname
+ }
+
+ warn "$me ACL cache miss for ". join(', ', @$rightname). "\n"
+ if $DEBUG;
} else {
+
+ warn "initializing ACL cache\n"
+ if $DEBUG;
$self->{_ACLcache} = {};
+
}
- my $has_right = ' ( '. join(' OR ',
- map { 'rightname = '. dbh->quote($_) }
- @$rightname
- ).
- ' ) ';
+ my $has_right = ' rightname IN ('. join(',', map '?', @$rightname ). ') ';
my $sth = dbh->prepare("
SELECT groupnum FROM access_usergroup
AND $has_right
LIMIT 1
") or die dbh->errstr;
- $sth->execute($self->usernum) or die $sth->errstr;
+ $sth->execute($self->usernum, @$rightname) or die $sth->errstr;
my $row = $sth->fetchrow_arrayref;
- #$row ? $row->[0] : '';
- $self->{_ACLcache}{$rightname} = ( $row ? $row->[0] : '' );
+ my $return = $row ? $row->[0] : '';
+
+ #just caching the single-rightname hits should be enough of a win for now
+ if ( scalar(@$rightname) == 1 ) {
+ $self->{_ACLcache}{${$rightname}[0]} = $return;
+ }
+
+ $return;
+
+}
+
+=item default_customer_view
+
+Returns the default customer view for this user, from the
+"default_customer_view" user preference, the "cust_main-default_view" config,
+or the hardcoded default, "jumbo" (may change to "basics" in the near future).
+
+=cut
+
+sub default_customer_view {
+ my $self = shift;
+
+ $self->option('default_customer_view')
+ || $conf->config('cust_main-default_view')
+ || 'jumbo'; #'basics' in 1.9.1?
}