Changeset 2439 for trunk/LATMOS-Accounts/lib/LATMOS/Accounts.pm

Timestamp:

07/20/20 19:07:40 (4 years ago)

Author:

nanardon

Message:

Flag in log when change are made by SyncManager?

File:

• trunk/LATMOS-Accounts/lib/LATMOS/Accounts.pm (modified) (2 diffs)

trunk/LATMOS-Accounts/lib/LATMOS/Accounts.pm

@@ -74 +74 @@
 
     $self->{_configdir} = $config;
+    $self->{_loguser} = $options{loguser};
     bless($self, $class);
 
-    unless ($options{noacl} || $ENV{LA_USERNAME}) {
+    unless ($options{noacl}) {
         if (-f (my $aclf = join('/', $self->_configdir, 'la-acls.ini'))) {
             $self->{_acls} = LATMOS::Accounts::Acls->new($aclf) or do {
@@ -147 +148 @@
     };
     $base;
+}
+
+=head2 LogUser
+
+Return the username to use when no user is connected
+
+=cut
+
+sub LogUser {
+    my ( $self, $Login ) = @_;
+
+    my $name = $self->{_loguser} || '@Console';
+
+    if ($Login) {
+        $self->{_loguser} = $Login;
+    }
+
+    return $name;
 }