view release on metacpan or  search on metacpan

lib/Lemonldap/NG/Manager/Cli.pm  view on Meta::CPAN

    unless ( $action eq "restore" ) {

        # This step prevents restoring when config DB is empty (#2340)
        $self->cfgNum( $self->lastCfg ) unless ( $self->cfgNum );
    }

    $self->$action(@_);
}

sub _user {
    my $sysUser = scalar( getpwuid $< );
    chomp $sysUser;
    my $envUser;
    foreach (qw(REMOTE_USER SUDO_USER USER)) {
        ( $envUser = $ENV{$_} ) and last;
    }
    $envUser = undef unless $envUser =~ /\w/;
    if ($sysUser) {
        $sysUser .= " [$envUser] " if $envUser;
    }
    else {