FM / sbin

/snap/core18/2979/usr/sbin

Name	Size	Mode	Actions
aa-remove-unknown	2923	0755	edit dl rm
aa-status	8610	0755	edit dl rm
add-shell	860	0755	edit dl rm
addgroup	37322	0755	edit dl rm
adduser	37322	0755	edit dl rm
apparmor_status	8610	0755	edit dl rm
arpd	55328	0755	edit dl rm
chgpasswd	59216	0755	edit dl rm
chmem	43088	0755	edit dl rm
chpasswd	55152	0755	edit dl rm
chroot	39096	0755	edit dl rm
cpgr	57304	0755	edit dl rm
cppw	57304	0755	edit dl rm
delgroup	16495	0755	edit dl rm
deluser	16495	0755	edit dl rm
e2freefrag	14408	0755	edit dl rm
e4crypt	22600	0755	edit dl rm
e4defrag	26616	0755	edit dl rm
faillock	14328	0755	edit dl rm
fdformat	30800	0755	edit dl rm
filefrag	14352	0755	edit dl rm
genl	59448	0755	edit dl rm
groupadd	63408	0755	edit dl rm
groupdel	72056	0755	edit dl rm
groupmems	59256	0755	edit dl rm
groupmod	69816	0755	edit dl rm
grpck	55096	0755	edit dl rm
grpconv	50872	0755	edit dl rm
grpunconv	50872	0755	edit dl rm
iconvconfig	30976	0755	edit dl rm
invoke-rc.d	16031	0755	edit dl rm
ip6tables-apply	7016	0755	edit dl rm
iptables-apply	7016	0755	edit dl rm
ldattach	30800	0755	edit dl rm
mklost+found	10232	0755	edit dl rm
netplan	798	0755	edit dl rm
newusers	84368	0755	edit dl rm
nfnl_osf	14328	0755	edit dl rm
nologin	6136	0755	edit dl rm
pam-auth-update	19850	0755	edit dl rm
pam_getenv	2890	0755	edit dl rm
pam_timestamp_check	10232	0755	edit dl rm
pwck	50992	0755	edit dl rm
pwconv	46800	0755	edit dl rm
pwunconv	46776	0755	edit dl rm
readprofile	18544	0755	edit dl rm
remove-shell	904	0755	edit dl rm
rfkill	47184	0755	edit dl rm
rmt	59792	0755	edit dl rm
rmt-tar	59792	0755	edit dl rm
rtcwake	43088	0755	edit dl rm
service	9262	0755	edit dl rm
sshd	790952	0755	edit dl rm
tarcat	936	0755	edit dl rm
tzconfig	106	0755	edit dl rm
update-ca-certificates	5394	0755	edit dl rm
update-mime	9053	0755	edit dl rm
update-passwd	31136	0755	edit dl rm
update-rc.d	16508	0755	edit dl rm
useradd	126240	0755	edit dl rm
userdel	84464	0755	edit dl rm
usermod	126016	0755	edit dl rm
vigr	61624	0755	edit dl rm
vipw	61624	0755	edit dl rm
visudo	213816	0755	edit dl rm
zic	55440	0755	edit dl rm

Edit: /snap/core18/2979/usr/sbin/pam_getenv (2890B)

#!/usr/bin/perl -w

=head1 NAME

pam_getenv - get environment variables from /etc/environment

=head1 SYNOPSIS

pam_getenv B<[-l] [-s]> I<env_var>

=head1 DESCRIPTION

This tool  will print out the value of I<env_var> from F</etc/environment>.  It will attempt to expand environment variable references in the definition of I<env_var> but will fail if PAM items are expanded.

The B<-l> option indicates the script should return an environment variable related to default locale information.

The B<-s> option indicates that the script should return an
system default environment variable.

Currently neither the B<-l> or B<-s> options do anything.  They are
included because future versions of Debian may have a separate
repository for the initial environment used by init scripts and for
system locale information.  These options will allow this script to be
a stable interface even in that environment.

=cut

# Copyright 2004 by Sam Hartman
# This script may be copied under the terms of the GNU GPL
# version 2, or at your option any later version.

use strict;
use vars qw(*CONFIGFILE *ENVFILE);

sub read_line($) {
  my $fh = shift;
  my $line;
  local $_;
  line: while (<$fh>) {
    chomp;
    s/^\s+//;
s/\#.*$//;
    next if $_ eq "";
    if (s/\\\s*$//) {
      $line .= $_;
      next line;
    }

$line .= $_;
    last;
  }
  $line;
  
}

sub parse_line($) {
  my $var;
  my (%x, @x);
  local $_ = shift;
  return undef unless defined $_ and s/(\S+)\s//;
  $var->{Name} = $1;
  s/^\s*//;
  @x = split(/=([^"\s]\S*|"[^"]*")\s*/, $_);
  unless (scalar(@x)%2 == 0) {
    push @x, undef;
  }
  %x = @x;
  @{$var}{"Default", "Override"} =
    @x{"DEFAULT", "OVERRIDE"};
  $var;
}

sub expand_val($) {
  my ($val) = @_;
return undef unless $val;
	die "Cannot handle PAM items\n" if /(?<!\\)\@/;
  $val =~ s/(?<!\\)\$\{([^}]+)\}/$ENV{$1}||""/eg;
  return $val;
}

my $lookup;

while ($_ = shift) {
  next if $_ eq "-s";
  next if $_ eq "-l";
  $lookup = $_;
  last;
}
unless (defined $lookup) {
  die "Usage: pam_getenv [-l] [-s] env_var\n";
}

my %allvars;

open (CONFIGFILE, "/etc/security/pam_env.conf")
  or die "Cannot open environment file: $!\n";

while (my $var = parse_line(read_line(\*CONFIGFILE))) {
  my $val;
  unless ($val = expand_val($var->{Override})) {
    $val = expand_val($var->{Default});
  }
  $allvars{$var->{Name}} = $val;
}

if (open (ENVFILE, "/etc/environment")) {
  while (my $line = read_line(\*ENVFILE)) {
    $line =~ s/^export //;
    $line =~ /(.*?)=(.+)/ or next;
    my ($var, $val) = ($1, $2);
    # This is bizarre logic (" and ' match each other, quotes are only
    # significant at the start and end of the string, and the trailing quote
    # may be omitted), but it's what pam_env does.
    $val =~ s/^["'](.*?)["']?$/$1/;
    $allvars{$var} = $val;
  }
}

if (exists $allvars{$lookup}) {
  print $allvars{$lookup}, "\n";
  exit(0);
}

cmd: