FM / bin

/usr/bin

Name	Size	Mode	Actions
.ssh.hmac	65	0644	edit dl rm
a2p	106792	0755	edit dl rm
aclocal	31181	0755	edit dl rm
aclocal-1.11	31181	0755	edit dl rm
addftinfo	23488	0755	edit dl rm
addr2line	25480	0755	edit dl rm
animate	5848	0755	edit dl rm
ar	56624	0755	edit dl rm
as	328392	0755	edit dl rm
aspell	164064	0755	edit dl rm
at	1036	0755	edit dl rm
atq	1038	0755	edit dl rm
atrm	1040	0755	edit dl rm
autoconf	14631	0755	edit dl rm
autoheader	8484	0755	edit dl rm
autom4te	31789	0755	edit dl rm
automake	257062	0755	edit dl rm
automake-1.11	257062	0755	edit dl rm
autoreconf	20233	0755	edit dl rm
autoscan	17065	0755	edit dl rm
autoupdate	33766	0755	edit dl rm
awk	375616	0755	edit dl rm
base64	29240	0755	edit dl rm
bashbug-64	6932	0755	edit dl rm
batch	137	0755	edit dl rm
bdftops	292	0755	edit dl rm
bison	299856	0755	edit dl rm
bunzip2	32936	0755	edit dl rm
bzcat	32936	0755	edit dl rm
bzcmp	2128	0755	edit dl rm
bzdiff	2128	0755	edit dl rm
bzgrep	1677	0755	edit dl rm
bzip2	32936	0755	edit dl rm
bzip2recover	10872	0755	edit dl rm
bzless	1259	0755	edit dl rm
bzmore	1259	0755	edit dl rm
c++	267928	0755	edit dl rm
c++filt	23688	0755	edit dl rm
c2ph	36601	0755	edit dl rm
c89	224	0755	edit dl rm
c99	215	0755	edit dl rm
cal	16784	0755	edit dl rm
captoinfo	49832	0755	edit dl rm
catchsegv	3384	0755	edit dl rm
cc	264472	0755	edit dl rm
chcon	57144	0755	edit dl rm
chrt	9624	0755	edit dl rm
cksum	25272	0755	edit dl rm
cldetect	10689	0755	edit dl rm
clear	4976	0755	edit dl rm
cloudlinux-awp-user	1818	0755	edit dl rm
clwpos-user	1818	0755	edit dl rm
cmp	19248	0755	edit dl rm
col	10904	0755	edit dl rm
colcrt	7920	0755	edit dl rm
colrm	5576	0755	edit dl rm
column	9744	0755	edit dl rm
comm	28456	0755	edit dl rm
compare	5968	0755	edit dl rm
composite	5848	0755	edit dl rm
conjure	5848	0755	edit dl rm
convert	5848	0755	edit dl rm
cpan	11839	0755	edit dl rm
cpp	267912	0755	edit dl rm
crontab	1388	0755	edit dl rm
crontab.cagefs	308048	0755	edit dl rm
csplit	106168	0755	edit dl rm
curl	120512	0755	edit dl rm
cut	41704	0755	edit dl rm
dbiprof	6300	0755	edit dl rm
dbiproxy	5482	0755	edit dl rm
ddate	11448	0755	edit dl rm
diff	81080	0755	edit dl rm
diff3	23480	0755	edit dl rm
dig	133688	0755	edit dl rm
dir	109208	0755	edit dl rm
dircolors	32872	0755	edit dl rm
dirname	23720	0755	edit dl rm
display	5848	0755	edit dl rm
dltest	7232	0755	edit dl rm
dprofpp	24089	0755	edit dl rm
du	95448	0755	edit dl rm
dumphint	554	0755	edit dl rm
dvipdf	1057	0755	edit dl rm
enc2xs	39147	0755	edit dl rm
enchant	13136	0755	edit dl rm
enchant-lsmod	7336	0755	edit dl rm
env	23832	0755	edit dl rm
eps2eps	632	0755	edit dl rm
eqn	137328	0755	edit dl rm
eqn2graph	2242	0755	edit dl rm
expand	27960	0755	edit dl rm
expr	97688	0755	edit dl rm
factor	44696	0755	edit dl rm
fc-cache	13000	0755	edit dl rm
fc-cat	11136	0755	edit dl rm
fc-list	8840	0755	edit dl rm
fc-match	9992	0755	edit dl rm
fc-query	7568	0755	edit dl rm
fc-scan	7872	0755	edit dl rm
file	15680	0755	edit dl rm
find	234512	0755	edit dl rm
find2perl	23614	0755	edit dl rm
flex	332448	0755	edit dl rm
flex++	332448	0755	edit dl rm
flock	10928	0755	edit dl rm
floppy	23616	0755	edit dl rm
fmt	30264	0755	edit dl rm
fold	28024	0755	edit dl rm
font2c	300	0755	edit dl rm
free	9696	0755	edit dl rm
freetype-config	3830	0755	edit dl rm
funzip	22056	0755	edit dl rm
g++	267928	0755	edit dl rm
gawk	375616	0755	edit dl rm
gcc	264472	0755	edit dl rm
gcov	39848	0755	edit dl rm
gencat	23048	0755	edit dl rm
geoiplookup	15064	0755	edit dl rm
geoiplookup6	10904	0755	edit dl rm
geqn	137328	0755	edit dl rm
GET	14519	0755	edit dl rm
getconf	22808	0755	edit dl rm
getent	27776	0755	edit dl rm
getopt	12040	0755	edit dl rm
ghostscript	6760	0755	edit dl rm
gindxbib	27824	0755	edit dl rm
git	1139544	0755	edit dl rm
git-receive-pack	1139560	0755	edit dl rm
git-shell	461304	0755	edit dl rm
git-upload-archive	1139560	0755	edit dl rm
git-upload-pack	471216	0755	edit dl rm
glookbib	33320	0755	edit dl rm
gm	4856	0755	edit dl rm
gmake	170576	0755	edit dl rm
gneqn	255	0755	edit dl rm
gnroff	2401	0755	edit dl rm
gpg	761688	0755	edit dl rm
gpg-agent	297976	0755	edit dl rm
gpg-error	18576	0755	edit dl rm
gpg-zip	3303	0755	edit dl rm
gpg2	761688	0755	edit dl rm
gpgsplit	48536	0755	edit dl rm
gpgv	336480	0755	edit dl rm
gpgv2	336480	0755	edit dl rm
gpic	213616	0755	edit dl rm
gprof	94960	0755	edit dl rm
grefer	122224	0755	edit dl rm
grn	65408	0755	edit dl rm
grodvi	81400	0755	edit dl rm
groff	65424	0755	edit dl rm
groffer	7777	0755	edit dl rm
grolbp	87960	0755	edit dl rm
grolj4	77464	0755	edit dl rm
grops	117008	0755	edit dl rm
grotty	77304	0755	edit dl rm
groups	24408	0755	edit dl rm
gs	6760	0755	edit dl rm
gsbj	337	0755	edit dl rm
gsdj	339	0755	edit dl rm
gsdj500	342	0755	edit dl rm
gslj	340	0755	edit dl rm
gslp	337	0755	edit dl rm
gsnd	264	0755	edit dl rm
gsoelim	23512	0755	edit dl rm
gtbl	98176	0755	edit dl rm
gtroff	354864	0755	edit dl rm
gunzip	61	0755	edit dl rm
gzexe	5935	0755	edit dl rm
gzip	64688	0755	edit dl rm
h2ph	28036	0755	edit dl rm
h2xs	60385	0755	edit dl rm
head	32520	0755	edit dl rm
hexdump	21576	0755	edit dl rm
host	119928	0755	edit dl rm
hostid	22056	0755	edit dl rm
hpftodit	20384	0755	edit dl rm
hunspell	52784	0755	edit dl rm
iconv	60272	0755	edit dl rm
icu-config	11187	0755	edit dl rm
id	28104	0755	edit dl rm
identify	5968	0755	edit dl rm
idn	32488	0755	edit dl rm
ifnames	4049	0755	edit dl rm
import	5848	0755	edit dl rm
indxbib	27824	0755	edit dl rm
infocmp	50960	0755	edit dl rm
infotocap	49832	0755	edit dl rm
install	107200	0755	edit dl rm
instmodsh	4253	0755	edit dl rm
ionice	15112	0755	edit dl rm
ipcrm	9064	0755	edit dl rm
ipcs	19720	0755	edit dl rm
isosize	7320	0755	edit dl rm
ispell	988	0755	edit dl rm
isql	27616	0755	edit dl rm
iusql	21576	0755	edit dl rm
join	40360	0755	edit dl rm
kill	11576	0755	edit dl rm
ld	588496	0755	edit dl rm
ldd	5325	0755	edit dl rm
less	149976	0755	edit dl rm
lessecho	7376	0755	edit dl rm
lesskey	16264	0755	edit dl rm
lesspipe.sh	2804	0755	edit dl rm
lex	332448	0755	edit dl rm
libnetcfg	15724	0755	edit dl rm
libtool	283333	0755	edit dl rm
libtoolize	68161	0755	edit dl rm
lkbib	33544	0755	edit dl rm
locale	38640	0755	edit dl rm
localedef	326880	0755	edit dl rm
logger	11608	0755	edit dl rm
logname	22152	0755	edit dl rm
look	8080	0755	edit dl rm
lookbib	33320	0755	edit dl rm
lprsetup.sh	4661	0755	edit dl rm
lynx	1390984	0755	edit dl rm
m4	208520	0755	edit dl rm
Mail	378720	0755	edit dl rm
make	170576	0755	edit dl rm
mcookie	11032	0755	edit dl rm
md5sum	32472	0755	edit dl rm
mesg	6744	0755	edit dl rm
mkfifo	25272	0755	edit dl rm
mogrify	5848	0755	edit dl rm
montage	5848	0755	edit dl rm
msql2mysql	1956	0755	edit dl rm
mysql	3844478	0755	edit dl rm
mysqlaccess	112528	0755	edit dl rm
mysqladmin	3529601	0755	edit dl rm
mysqlbinlog	3727752	0755	edit dl rm
mysqlcheck	3526305	0755	edit dl rm
mysqldump	3603495	0755	edit dl rm
mysqlimport	3526103	0755	edit dl rm
mysqlshow	3519973	0755	edit dl rm
mysql_config	7016	0755	edit dl rm
mysql_find_rows	3791	0755	edit dl rm
mysql_waitpid	3273073	0755	edit dl rm
my_print_defaults	3275254	0755	edit dl rm
namei	12712	0755	edit dl rm
nano	171784	0755	edit dl rm
neqn	255	0755	edit dl rm
net-snmp-create-v3-user	2961	0755	edit dl rm
nl	98120	0755	edit dl rm
nm	41280	0755	edit dl rm
nohup	26184	0755	edit dl rm
nproc	24264	0755	edit dl rm
nroff	2401	0755	edit dl rm
nslookup	120120	0755	edit dl rm
nsupdate	59528	0755	edit dl rm
objcopy	212264	0755	edit dl rm
objdump	284936	0755	edit dl rm
od	58152	0755	edit dl rm
odbcinst	23328	0755	edit dl rm
odbc_config	6808	0755	edit dl rm
openssl	525600	0755	edit dl rm
pango-querymodules-64	10176	0755	edit dl rm
pango-view	49688	0755	edit dl rm
passwd	1044	0755	edit dl rm
paste	25544	0755	edit dl rm
patch	118104	0755	edit dl rm
pathchk	23752	0755	edit dl rm
pdf2dsc	696	0755	edit dl rm
pdf2ps	901	0755	edit dl rm
pdfopt	547	0755	edit dl rm
perl	7184	0755	edit dl rm
perl5.10.1	7184	0755	edit dl rm
perlbug	44726	0755	edit dl rm
perldoc	224	0755	edit dl rm
perlivp	12303	0755	edit dl rm
perlml	4480	0755	edit dl rm
perlthanks	44726	0755	edit dl rm
pf2afm	495	0755	edit dl rm
pfbtopfa	511	0755	edit dl rm
pfbtops	6776	0755	edit dl rm
pgrep	16144	0755	edit dl rm
php	937	0755	edit dl rm
php-cli	933	0755	edit dl rm
php5	933	0755	edit dl rm
php5-cli	933	0755	edit dl rm
pic	213616	0755	edit dl rm
pic2graph	2563	0755	edit dl rm
pico	171784	0755	edit dl rm
piconv	7337	0755	edit dl rm
pinentry	2602	0755	edit dl rm
pinentry-curses	48600	0755	edit dl rm
pinky	29608	0755	edit dl rm
pkg-config	105888	0755	edit dl rm
pkill	16144	0755	edit dl rm
pl2pm	4531	0755	edit dl rm
pmap	12136	0755	edit dl rm
pod2html	2338	0755	edit dl rm
pod2latex	10255	0755	edit dl rm
pod2man	21175	0755	edit dl rm
pod2text	9080	0755	edit dl rm
pod2usage	3342	0755	edit dl rm
podchecker	3699	0755	edit dl rm
podselect	2527	0755	edit dl rm
post-grohtml	131608	0755	edit dl rm
pr	61768	0755	edit dl rm
pre-grohtml	70640	0755	edit dl rm
precat	5656	0755	edit dl rm
preunzip	5656	0755	edit dl rm
prezip	5656	0755	edit dl rm
prezip-bin	7152	0755	edit dl rm
printafm	386	0755	edit dl rm
printenv	23736	0755	edit dl rm
printf	46344	0755	edit dl rm
protoize	68664	0755	edit dl rm
prove	9369	0755	edit dl rm
ps2ascii	786	0755	edit dl rm
ps2epsi	2772	0755	edit dl rm
ps2pdf	315	0755	edit dl rm
ps2pdf12	260	0755	edit dl rm
ps2pdf13	260	0755	edit dl rm
ps2pdf14	260	0755	edit dl rm
ps2pdfwr	1088	0755	edit dl rm
ps2ps	634	0755	edit dl rm
ps2ps2	704	0755	edit dl rm
psed	53325	0755	edit dl rm
pstruct	36601	0755	edit dl rm
ptx	127064	0755	edit dl rm
pv.sh	1420	0755	edit dl rm
pwdx	6744	0755	edit dl rm
pydoc	78	0755	edit dl rm
python	4864	0755	edit dl rm
python2	4864	0755	edit dl rm
python2.6	4864	0755	edit dl rm
quota	82752	0755	edit dl rm
ranlib	56624	0755	edit dl rm
readelf	302608	0755	edit dl rm
readlink	36360	0755	edit dl rm
recode	40168	0755	edit dl rm
refer	122224	0755	edit dl rm
rename	6752	0755	edit dl rm
renice	7320	0755	edit dl rm
reset	17896	0755	edit dl rm
rev	6784	0755	edit dl rm
rnano	171784	0755	edit dl rm
rpcgen	93000	0755	edit dl rm
run-with-aspell	85	0755	edit dl rm
runcon	28104	0755	edit dl rm
rvim	2288088	0755	edit dl rm
s2p	53325	0755	edit dl rm
scl	18304	0755	edit dl rm
scl_enabled	258	0755	edit dl rm
scl_source	1870	0755	edit dl rm
scp	75848	0755	edit dl rm
screen	383096	0755	edit dl rm
script	12624	0755	edit dl rm
sdiff	23568	0755	edit dl rm
selectorctl	7784	0755	edit dl rm
seq	40280	0755	edit dl rm
setsid	5536	0755	edit dl rm
setterm	20784	0755	edit dl rm
sftp	104528	0755	edit dl rm
sha1sum	36280	0755	edit dl rm
sha224sum	42136	0755	edit dl rm
sha256sum	42136	0755	edit dl rm
sha384sum	48568	0755	edit dl rm
sha512sum	48568	0755	edit dl rm
shred	48896	0755	edit dl rm
shuf	36408	0755	edit dl rm
size	28040	0755	edit dl rm
skill	15104	0755	edit dl rm
slabtop	12888	0755	edit dl rm
slogin	450728	0755	edit dl rm
snice	15104	0755	edit dl rm
snmpconf	26137	0755	edit dl rm
soelim	23512	0755	edit dl rm
spell	122	0755	edit dl rm
splain	17452	0755	edit dl rm
split	52824	0755	edit dl rm
sprof	23104	0755	edit dl rm
sqlite3	52680	0755	edit dl rm
ssh	450728	0755	edit dl rm
ssh-add	163016	0755	edit dl rm
ssh-agent	145480	0755	edit dl rm
ssh-copy-id	1425	0755	edit dl rm
ssh-keygen	203976	0755	edit dl rm
ssh-keyscan	253752	0755	edit dl rm
stat	46152	0755	edit dl rm
stdbuf	60920	0755	edit dl rm
strace	433560	0755	edit dl rm
stream	5848	0755	edit dl rm
strings	28040	0755	edit dl rm
strip	212264	0755	edit dl rm
sum	32096	0755	edit dl rm
tabs	11192	0755	edit dl rm
tac	93720	0755	edit dl rm
tail	57688	0755	edit dl rm
tailf	8520	0755	edit dl rm
tbl	98176	0755	edit dl rm
tclsh	5224	0755	edit dl rm
tclsh8.5	5224	0755	edit dl rm
tee	24184	0755	edit dl rm
test	30248	0755	edit dl rm
tfmtodit	23560	0755	edit dl rm
tic	49832	0755	edit dl rm
time	14136	0755	edit dl rm
timeout	46720	0755	edit dl rm
tload	7824	0755	edit dl rm
tmpwatch	17792	0755	edit dl rm
toe	11392	0755	edit dl rm
top	62448	0755	edit dl rm
tput	11504	0755	edit dl rm
tr	37608	0755	edit dl rm
troff	354864	0755	edit dl rm
truncate	48616	0755	edit dl rm
tset	17896	0755	edit dl rm
tsort	31976	0755	edit dl rm
tty	21928	0755	edit dl rm
tzselect	7131	0755	edit dl rm
uapi	1040	0755	edit dl rm
ul	13416	0755	edit dl rm
unexpand	28056	0755	edit dl rm
uniq	36472	0755	edit dl rm
unix-lpr.sh	4206	0755	edit dl rm
unprotoize	57504	0755	edit dl rm
unzip	167160	0755	edit dl rm
unzipsfx	76968	0755	edit dl rm
uptime	4840	0755	edit dl rm
users	24104	0755	edit dl rm
utmpdump	10936	0755	edit dl rm
vdir	109208	0755	edit dl rm
vim	2288088	0755	edit dl rm
vimdiff	2288088	0755	edit dl rm
vimtutor	2084	0755	edit dl rm
vmstat	20320	0755	edit dl rm
watch	12576	0755	edit dl rm
wc	32616	0755	edit dl rm
wftopfa	284	0755	edit dl rm
wget	357400	0755	edit dl rm
whereis	11456	0755	edit dl rm
which	20768	0755	edit dl rm
who	45016	0755	edit dl rm
whoami	23736	0755	edit dl rm
word-list-compress	6720	0755	edit dl rm
x86_64-redhat-linux-c++	267928	0755	edit dl rm
x86_64-redhat-linux-g++	267928	0755	edit dl rm
x86_64-redhat-linux-gcc	264472	0755	edit dl rm
xargs	44024	0755	edit dl rm
xmlcatalog	15152	0755	edit dl rm
xmllint	58888	0755	edit dl rm
xmlwf	22416	0755	edit dl rm
xsltproc	23536	0755	edit dl rm
xsubpp	4093	0755	edit dl rm
xxd	15160	0755	edit dl rm
yes	22120	0755	edit dl rm
zcmp	67	0755	edit dl rm
zdiff	4459	0755	edit dl rm
zegrep	62	0755	edit dl rm
zfgrep	62	0755	edit dl rm
zforce	2026	0755	edit dl rm
zgrep	5407	0755	edit dl rm
zip	212048	0755	edit dl rm
zipcloak	107104	0755	edit dl rm
zipgrep	2953	0755	edit dl rm
zipinfo	167160	0755	edit dl rm
zipnote	98584	0755	edit dl rm
zipsplit	102680	0755	edit dl rm
zless	1731	0755	edit dl rm
zmore	2605	0755	edit dl rm
znew	5270	0755	edit dl rm
zsoelim	23512	0755	edit dl rm
[	33408	0755	edit dl rm

Edit: /usr/bin/snmpconf (26137B)

#!/usr/bin/perl

#
# A simple configuration file builder based on questions listed in
# its own configuration file.  It would certainly be easy to use this
# for other (non-snmp) programs as well.
#

use Getopt::Std;
use Term::ReadLine;
use IO::File;
use Data::Dumper;
use File::Copy;
if ($^O eq 'MSWin32') {
  eval 'require Win32::Registry;';
  if ($@) {
    print "\nWarning: Perl module Win32::Registry is not installed.  This module is\n";
    print "         required to read the SNMPSHAREPATH and SNMPCONFPATH values from \n";
    print "         the registry.  To use snmpconf without the module you need to\n";
    print "         define SNMPSHAREPATH and SNMPCONFPATH as environment variables\n";
    print "         or use the -c and -I command line options.\n";
  }
}

# globals
%tokenitems=qw(line 1 info 1 comment 1);
%arrayitems=qw(question 1 validanswer 1);

# default folder for snmpconf-data
if (defined(&my_getenv("SNMPSHAREPATH"))) {
  $opts{'c'} = &my_getenv("SNMPSHAREPATH") . "/snmpconf-data";
}
else {
  $opts{'c'} = "/usr/share/snmp/snmpconf-data";
}
 
# default config file path
if (defined(&my_getenv("SNMPCONFPATH"))) {
  $confpath = &my_getenv("SNMPCONFPATH");
}
else {
  $confpath = "/usr/share/snmp";
}

# home environment variable
if (defined(&my_getenv("HOME"))) {
  $home = &my_getenv("HOME") . "/.snmp";
}
else {
  $home = "(HOME dir - n/a)";
}

# read the argument string
getopts("qadhfc:piI:r:R:g:G", \%opts);

# display help
if ($opts{'h'}) {
    print "$0 [options] [FILETOCREATE...]\n";
    print "options:\n";
    print "  -f           overwrite existing files without prompting\n";
    print "  -i           install created files into $confpath.\n";
    print "  -p           install created files into $home.\n";
    print "  -I DIR       install created files into DIR.\n";
    print "  -a           Don't ask any questions, just read in current\n";
    print "                   current .conf files and comment them\n";
    print "  -r all|none  Read in all or none of the .conf files found.\n";
    print "  -R file,...  Read in a particular list of .conf files.\n";
    print "  -g GROUP     Ask a series of GROUPed questions.\n";
    print "  -G           List known GROUPs.\n";
    print "  -c conf_dir  use alternate configuration directory.\n";
    print "  -q           run more quietly with less advice.\n";
    print "  -d           turn on debugging output.\n";
    print "  -D           turn on debugging dumper output.\n";
    exit;
}

# setup terminal interface.
$ENV{'PERL_RL'}='o=0' if (!exists($ENV{'PERL_RL'}));
$term = new Term::ReadLine 'snmpconf';

# read in configuration file set
read_config_files($opts{'c'}, \%filetypes);
debug(my_Dumper(\%filetypes));

if ($opts{'G'}) {
    Print("\nKnown GROUPs of tokens:\n\n");
    foreach my $group (keys(%groups)) {
	print "  $group\n";
    }
    Print("\n");
    exit;
}

#
# Expand the search path in case it contains multiple directories
# separated by : (Unix) or ; (Win32)
#
my $ENV_SEPARATOR = ':';
if ($^O eq 'MSWin32') {
  $ENV_SEPARATOR = ';';
}
my @searchpath = split(/$ENV_SEPARATOR/, $confpath);
push @searchpath, "/etc/snmp";
push @searchpath, ".";
push @searchpath, "$home";

# Remove trailing /'s or \'s
for (my $i=0; $i <= $#searchpath; $i++) {
  $searchpath[$i] =~ /(.*?)([\/\\])*$/;
  $searchpath[$i] = $1;
}

# Determine persistent directory.  Order of preference:
# 
# file in SNMP_PERSISTENT_FILE environment variable
# directory defined by persistentDir snmp.conf variable
# directory in SNMP_PERSISTENT_DIR environment variable
# default PERSISTENT_DIRECTORY directory
my $persistentDir = "";
my $persistentFile = "";

# SNMP_PERSISTENT_FILE environment variable
if (defined(&my_getenv("SNMP_PERSISTENT_FILE"))) {
  $persistentFile = &my_getenv("SNMP_PERSISTENT_FILE");
  debug ("persistent file: SNMP_PERSISTENT_FILE environment variable set\n");
}

# snmp.conf persistentDir
if (!($persistentDir) && !($persistentFile)) {
  foreach my $i (@searchpath) {
    debug ("Searching file $i/snmp.conf for persistentDir\n");
    my $temp = get_persistentDir("$i/snmp.conf");
    if ($temp) {
      debug("persistent directory: set to $temp in $i/snmp.conf\n");
      $persistentDir = $temp;
      last;
    }
  }
}

# SNMP_PERSISTENT_DIR environment variable
if (!($persistentDir) && !($persistentFile)) {
  if (&my_getenv("SNMP_PERSISTENT_DIR")) {
    $persistentDir = &my_getenv("SNMP_PERSISTENT_DIR");
    debug ("persistent directory: SNMP_PERSISTENT_DIR environment variable set\n");
  }
}

# PERSISTENT_DIRECTORY default variable
if (!($persistentDir) && !($persistentFile)) {
  $persistentDir = "/var/lib/net-snmp";
  debug ("persistent directory: Using default value\n");
}

# Rebuild search path without persistent folder
# Note:  persistent file handled in Find existing 
# files to possibly read in section
if ($persistentDir) {
  # Remove trailing /'s or \'s
  $persistentDir =~ /(.*?)([\/\\])*$/;
  $persistentDir = $1;
  debug ("persistent directory: $persistentDir\n");

my @searchpath_old = @searchpath;
  @searchpath = ();
  foreach my $path_temp (@searchpath_old) {
    if ($path_temp eq $persistentDir) {
      debug("skipping persistent directory $path_temp\n");
      next;
    }
    push @searchpath, $path_temp;
  }
}

# Reset $confpath to the first path
$confpath = $searchpath[0];

#
# Find existing files to possibly read in.
#
push @searchpath, $opts{I} if ($opts{I});
foreach my $i (@searchpath) {
    debug("searching $i\n");
    foreach my $ft (keys(%filetypes)) {
        if ("$i/$ft" eq $persistentFile) {
          debug("skipping persistent file $i/$ft\n");
          next;
        }
	debug("searching for $i/$ft\n");
	$knownfiles{"$i/$ft"} = $ft if (-f "$i/$ft");
	my $localft = $ft;
	$localft =~ s/.conf/.local.conf/;
	$knownfiles{"$i/$localft"} = $ft if (-f "$i/$localft");
    }
}

#
# Ask the user if they want them to be read in and read them
#
if (keys(%knownfiles)) {
    my @files;
    if (defined($opts{'r'})) {
	if ($opts{'r'} eq "all" || $opts{'r'} eq "a") {
	    @files = keys(%knownfiles);
	} elsif ($opts{'r'} ne "none" && $opts{'r'} ne "n") {
	    print "unknown argument to -r: $opts{'r'}\n";
	    exit(1);
	}
    } elsif(defined($opts{'R'})) {
	@files = split(/\s*,\s*/,$opts{'R'});
	foreach my $i (@files) {
	    my $x = $i;
	    $x =~ s/.*\/([^\/]+)$/$1/;
	    $knownfiles{$i} = $x;
	}
	Print("reading: ", join(",",@files),"\n");
    } else {
	@files = display_menu(-head => "The following installed configuration files were found:\n",
			      -tail => "Would you like me to read them in?  Their content will be merged with the\noutput files created by this session.\n\nValid answer examples: \"all\", \"none\",\"3\",\"1,2,5\"\n",
			      -multiple => 1,
			      -question => 'Read in which',
			      -defaultvalue => 'all',
			      sort keys(%knownfiles));
    }
    foreach my $i (@files) {
	debug("reading $i\n");
	read_config($i, $knownfiles{$i});
    }
}

if ($opts{'g'}) {
    my @groups = split(/,:\s/,$opts{'g'});
    foreach my $group (@groups) {
	do_group($group);
    }
} elsif ($#ARGV >= 0) {
    #
    # loop through requested files.
    #
    foreach my $i (@ARGV) {
	if (!defined($filetypes{$i})) {
	    warn "invalid file: $i\n";
	} else {
	    if ($opts{'a'}) {
		$didfile{$i} = 1;
	    } else {
		build_file($term, $i, $filetypes{$i});
	    }
	}
    }
} else {
    #
    # ask user to select file type to operate on.
    #
    while(1) {
	my $line = display_menu(-head => "I can create the following types of configuration files for you.\nSelect the file type you wish to create:\n(you can create more than one as you run this program)\n",
				-question => 'Select File',
				-otheranswers => ['quit'],
				-mapanswers => { 'q' => 'quit' },
				keys(%filetypes));
	last if ($line eq "quit");
	debug("file selected: $line\n");
	build_file($term, $line, $filetypes{$line});
    }
}

#
# Write out the results to the output files.
#
output_files(\%filetypes, $term);

#
# Display the files that have been created for the user.
#
Print("\n\nThe following files were created:\n\n");
@didfiles = keys(%didfile);
foreach my $i (@didfiles) {
    if ($didfile{$i} ne "1") {
	if ($opts{'i'} || $opts{'I'}) {
          $opts{'I'} = "$confpath" if (!$opts{'I'});

if (! (-d "$opts{'I'}") && ! (mkdir ("$opts{'I'}", 0755))) {
	    print "\nCould not create $opts{'I'} directory: $!\n";
	    print ("File $didfile{$i} left in current directory\n");
	  }
	  else {
            move ("$opts{'I'}/$i", "$opts{'I'}/$i.bak") if (-f "$opts{'I'}/$i");
            if (move ("$didfile{$i}", "$opts{'I'}")) {
              print("  $didfile{$i} installed in $opts{'I'}\n");	    
            }
            else {
              print "\nCould not move file $didfile{$i} to $opts{'I'}/$i: $!\n";
              print ("File $didfile{$i} left in current directory\n");
            }
          }
	} elsif ($opts{'p'}) {
	  if (! (-d "$home") && ! (mkdir ("$home", 0755))) {
	    print "\nCould not create $home directory: $!\n";
	    print ("File $didfile{$i} left in current directory\n");
	  }
	  else {	    
	    move ("$home/$i", "$home/$i.bak") if (-f "$home/$i");
	    if (move ("$didfile{$i}", "$home")) {
	      print("  $didfile{$i} installed in $home\n");
	    }
	    else {
	      print "\nCould not move file $didfile{$i} to $home: $!\n";
	      print ("File $didfile{$i} left in current directory\n");
  	    }
	  }
  	} else {
	    Print("  $didfile{$i} ",
	    ($i ne $didfile{$i})?"[ from $i specifications]":" ","\n");
	    if ($opts{'d'}) {
		open(I,$didfile{$i});
		debug("    " . join("    ",<I>) . "\n");
		close(I);
	    }
	}
    }
}

if (!$opts{'p'} && !$opts{'i'} && !$opts{'I'}) {
    Print("\nThese files should be moved to $confpath if you
want them used by everyone on the system.  In the future, if you add 
the -i option to the command line I'll copy them there automatically for you.

Or, if you want them for your personal use only, copy them to
$home .  In the future, if you add the -p option to the
command line I'll copy them there automatically for you.

");
}

###########################################################################
# Functions
###########################################################################

sub Print {
    print @_ if (!$opts{'q'});
}
#
# handle a group of questions
#
sub get_yn_maybe {
    my $question = shift;
    my $ans = "y";
    if ($question ne "") {
	$ans = get_answer($term, $question,
			  valid_answers(qw(yes y no n)), 'y');
    }
    return ($ans =~ /^y/)?1:0;
}

sub do_group {
    my $group = shift;
    die "no such group $group\n" if (!$groups{$group});
    foreach my $token (@{$groups{$group}}) {
	if ($token->[0] eq "message") {
	    Print ("$token->[1] $token->[2]\n");
	} elsif ($token->[0] eq "subgroup") {
	    do_group($token->[1]) if (get_yn_maybe($token->[2]));
	} elsif (defined($tokenmap{$token->[1]})) {
	    if (get_yn_maybe($token->[2])) {
		do {
		    do_line($token->[1], $tokenmap{$token->[1]});
		} until ($token->[0] ne "multiple" ||
			 get_answer($term, "Do another $token->[1] line?",
				    valid_answers(qw(yes y no n)), 'y')
			 =~ /n/);
	    }
	} elsif (defined($filetypes{$token->[1]})) {
	    $didfile{$token->[1]} = 1;
	} else {
	    die "invalid member $token->[1] of group $group\n";
	}
    }
}

#
# build a particular type of file by operating on sections
#
sub build_file {
    my ($term, $filename, $fileconf) = @_;
    $didfile{$filename} = 1;
    my (@lines);
    while(1) {
	my $line = display_menu(-head => "The configuration information which can be put into $filename is divided\ninto sections.  Select a configuration section for $filename\nthat you wish to create:\n",
				-otheranswers => ['finished'],
				-mapanswers => { 'f' => 'finished' },
				-question => "Select section",
				-numeric => 1,
				map { $_->{'title'}[0] } @$fileconf);

return @lines if ($line eq "finished");
	do_section($fileconf->[$line-1]);
    }
}

#
# configure a particular section by operating on token types
#
sub do_section {
    my $confsect = shift;
    my @lines;
    while(1) {
	Print ("\nSection: $confsect->{'title'}[0]\n");
	Print ("Description:\n");
	Print ("  ", join("\n  ",@{$confsect->{'description'}}),"\n");
	my $line =
	    display_menu(-head => "Select from:\n",
			 -otheranswers => ['finished','list'],
			 -mapanswers => { 'f' => 'finished',
					  'l' => 'list' },
			 -question => 'Select section',
			 -descriptions => [map { $confsect->{$_}{info}[0] } 
					   @{$confsect->{'thetokens'}}],
			 @{$confsect->{'thetokens'}});
	return @lines if ($line eq "finished");
	if ($line eq "list") {
	    print "Lines defined for section \"$confsect->{title}[0]\" so far:\n";
	    foreach my $i (@{$confsect->{'thetokens'}}) {
		if ($#{$confsect->{$i}{'results'}} >= 0) {
		    print "  ",join("\n  ",@{$confsect->{$i}{'results'}}),"\n";
		}
	    }
	    next;
	}
	do_line($line, $confsect->{$line});
    }
    return;
}

#
# Ask all the questions related to a particular line type
#
sub do_line {
    my $token = shift;
    my $confline = shift;
    my (@answers, $counter, $i);
#    debug(my_Dumper($confline));
    Print ("\nConfiguring: $token\n");
    Print ("Description:\n  ",join("\n    ",@{$confline->{'info'}}),"\n\n");
    for($i=0; $i <= $#{$confline->{'question'}}; $i++) {
	if (defined($confline->{'question'}[$i]) &&
	    $confline->{'question'}[$i] ne "") {
	    my $q = $confline->{'question'}[$i];
	    $q =~ s/\$(\d+)/$answers[$1]/g;
	    debug("after: $term, $q, ",$confline->{'validanswer'}[$i],"\n");
	    $answers[$i] = get_answer($term, $q,
				      $confline->{'validanswer'}[$i]);
	    $answers[$i] =~ s/\"/\\\"/g;
	    $answers[$i] = '"' . $answers[$i] . '"' if ($answers[$i] =~ /\s/);
	}
    }
    if ($#{$confline->{'line'}} == -1) {
	my ($i,$line);
	for($i=0; $i <= $#{$confline->{'question'}}; $i++) {
	    next if (!defined($confline->{'question'}[$i]) ||
		     $confline->{'question'}[$i] eq "");
	    $line .= " \$" . $i;
	}
	push @{$confline->{'line'}}, $line;
    }

foreach my $line (@{$confline->{'line'}}) {
	my $finished = $line;
	debug("preline: $finished\n");
	debug("answers: ",my_Dumper(\@answers));
	$finished =~ s/\$(\d+)/$answers[$1]/g;
	if ($line =~ s/^eval\s+//) {
	    debug("eval: $finished\n");
	    $finished = eval $finished;
	    debug("eval results: $finished\n");
	}
	$finished = $token . " " . $finished;
	Print ("\nFinished Output: $finished\n");
	push @{$confline->{'results'}},$finished;
    }
}

#
# read all sets of config files in the various subdirectories.
#
sub read_config_files {
    my $readdir = shift;
    my $filetypes = shift;
    opendir(DH, $readdir) || die "no such directory $readdir, did you run make install?\n";
    my $dir;
    my $configfilename="snmpconf-config";

while(defined($dir = readdir(DH))) {
	next if ($dir =~ /^\./);
	next if ($dir =~ /CVS/);
	debug("dir entry: $dir\n");
	if (-d "$readdir/$dir" && -f "$readdir/$dir/$configfilename") {

my $conffile;

# read the top level configuration inforamation about the direcotry.
	    open(I, "$readdir/$dir/$configfilename");
	    while(<I>) {
		$conffile = $1 if (/forconffile: (.*)/);
	    }
	    close(I);

# no README informatino.
	    if ($conffile eq "") {
		print STDERR "Warning: No 'forconffile' information in $readdir/$dir/$configfilename\n";
		next;
	    }

# read all the daat in the directory
	    $filetypes->{$conffile} = read_config_items("$readdir/$dir", $conffile);
	} else {
	    # no README informatino.
	    print STDERR "Warning: No $configfilename file found in $readdir/$dir\n";
	}
    }
    closedir DH;
}

#
# read each configuration file in a directory
#
sub read_config_items {
    my $itemdir = shift;
    my $type = shift;
    opendir(ITEMS, $itemdir);
    my $file;
    my @results;
    while(defined($file = readdir(ITEMS))) {
	next if ($file =~ /~$/);
	next if ($file =~ /^snmpconf-config$/);
	if (-f "$itemdir/$file") {
	    my $res = read_config_item("$itemdir/$file", $type);
	    if (scalar(keys(%$res)) > 0) {
		push @results, $res;
	    }
	}
    }
    closedir(ITEMS);
    return \@results;
}

#
# mark a list of tokens as a special "group"
#
sub read_config_group {
    my ($fh, $group, $type) = @_;
    my $line;
    debug("handling group $group\n");
    push (@{$groups{$group}},['filetype', $type]);
    while($line = <$fh>) {
	chomp($line);
	next if ($line =~ /^\s*$/);
	next if ($line =~ /^\#/);
	return $line if ($line !~ /^(single|multiple|message|filetype|subgroup)/);
	my ($type, $token, $rest) = ($line =~ /^(\w+)\s+([^\s]+)\s*(.*)/);
	debug ("reading group $group : $type -> $token -> $rest\n");
	push (@{$groups{$group}}, [$type, $token, $rest]);
    }
    return;
}

#
# Parse one file
#
sub read_config_item {
    my $itemfile = shift;
    my $itemcount;
    my $type = shift;
    my $fh = new IO::File($itemfile);
    return if (!defined($fh));
    my (%results, $curtoken);
    debug("tokenitems:  ", my_Dumper(\%tokenitems));
  topwhile:
    while($line = <$fh>) {
	next if ($line =~ /^\s*\#/);
	my ($token, $rest) = ($line =~ /^(\w+)\s+(.*)/);
	next if (!defined($token) || !defined($rest));
	while ($token eq 'group') {
	    # handle special group list
	    my $next = read_config_group($fh, $rest,$type);
	    if ($next) {
		($token, $rest) = ($next =~ /^(\w+)\s+(.*)/);
	    } else {
		next topwhile;
	    }
	}
	debug("token: $token => $rest\n");
	if ($token eq 'steal') {
	    foreach my $stealfrom (keys(%{$results{$rest}})) {
		if (!defined($results{$curtoken}{$stealfrom})) {
		    @{$results{$curtoken}{$stealfrom}} = 
			@{$results{$rest}{$stealfrom}};
		}
	    }
	} elsif (defined($tokenitems{$token})) {
	    if (!defined($curtoken)) {
		die "error in configuration file $itemfile, no token set\n";
	    }
	    $rest =~ s/^\#//;
	    push @{$results{$curtoken}{$token}},$rest;
	} elsif (defined($arrayitems{$token})) {
	    if (!defined($curtoken)) {
		die "error in configuration file $itemfile, no token set\n";
	    }
	    my ($num, $newrest) = ($rest =~ /^(\d+)\s+(.*)/);
	    if (!defined($num) || !defined($newrest)) {
		warn "invalid config line: $line\n";
	    } else {
		$results{$curtoken}{$token}[$num] = $newrest;
	    }
	} elsif ($token =~ /^token\s*$/) {
	    $rest = lc($rest);
	    $curtoken = $rest;
	    if (! exists $results{$curtoken}{'defined'}) {
		push @{$results{'thetokens'}}, $curtoken;
		$results{$curtoken}{'defined'} = 1;
	    }
	    $tokenmap{$curtoken} = $results{$curtoken};
	    debug("current token set to $token\n");
	} else {
	    push @{$results{$token}},$rest;
	}
    }
    return \%results;
}

sub debug {
    print @_ if ($opts{'d'});
}

sub output_files {
    my $filetypes = shift;
    my $term = shift;
    foreach my $ft (keys(%$filetypes)) {
	next if (!$didfile{$ft});
	my $outputf = $ft;
	if (-f $outputf && !$opts{'f'}) {
	    print "\nError: An $outputf file already exists in this directory.\n\n";
	    my $ans = get_answer($term,"'overwrite', 'skip', 'rename' or 'append'? ",valid_answers(qw(o overwrite r rename s skip a append)));
	    next if ($ans =~ /^(s|skip)$/i);
	    if ($ans =~ /^(a|append)/) {
		$outputf = ">$outputf";
	    } elsif ($ans =~ /^(r|rename)$/i) {
		# default to rename for error conditions
		$outputf = $term->readline("Save to what new file name instead (or 'skip')? ");
	    }
	}
	$didfile{$ft} = $outputf;
	open(O,">$outputf") || warn "couldn't write to $outputf\n";
	print O "#" x 75,"\n";
	print O "#\n# $ft\n";
	print O "#\n#   - created by the snmpconf configuration program\n#\n";
	foreach my $sect (@{$filetypes->{$ft}}) {
	    my $secthelp = 0;
	    foreach my $token (@{$sect->{'thetokens'}}) {
		if ($#{$sect->{$token}{'results'}} >= 0) {
		    if ($secthelp++ == 0) {
			print O "#" x 75,"\n# SECTION: ",
			join("\n#          ", @{$sect->{title}}), "\n#\n";
			print O "#   ", join("\n#   ",@{$sect->{description}}),
			"\n";
		    }
		    print O "\n# $token: ",
		    join("\n#   ",@{$sect->{$token}{info}}), "\n\n";
		    foreach my $result (@{$sect->{$token}{'results'}}) {
			print O "$result\n";
		    }
		}
	    }
	    print O "\n\n\n";
	}
	if ($#{$unknown{$ft}} > -1) {
	    print O "#\n# Unknown directives read in from other files by snmpconf\n#\n";
	    foreach my $unknown (@{$unknown{$ft}}) {
		print O $unknown,"\n";
	    }
	}
	close(O);
    }
}

sub get_answer {
    my ($term, $question, $regexp, $defaultval) = @_;
    $question .= " (default = $defaultval)" if (defined($defaultval) && $defaultval ne "");
    $question .= ": ";
    my $ans = $term->readline($question);
    return $defaultval if ($ans eq "" && defined($defaultval) && 
			   $defaultval ne "");
    while (!(!defined($regexp) ||
	     $regexp eq "" ||
	     $ans =~ /$regexp/)) {
	print "invalid answer!  It must match this regular expression: $regexp\n";
	$ans = $term->readline($question);
    }
    return $defaultval if ($ans eq "" && defined($defaultval) && 
			   $defaultval ne "");
    return $ans;
}
    
sub valid_answers {
    my @list;
    foreach $i (@_) {
	push @list, $i if ($i);
    }
    return "^(" . join("|",@list) . ")\$";
}

sub read_config {
    my $file = shift;
    my $filetype = shift;
    return if (!defined($filetypes{$filetype}));
    if (! -f $file) {
	warn "$file does not exist\n";
	return;
    }
    open(I,$file);
    while(<I>) {
	next if (/^\s*\#/);
	next if (/^\s*$/);
	chomp;
	my ($token, $rest) = /^\s*(\w+)\s+(.*)/;
	$token = lc($token);
	next if (defined($alllines{$_})); # drop duplicate lines
	if (defined($tokenmap{$token})) {
	    push @{$tokenmap{$token}{'results'}},$_;
	} else {
	    push @{$unknown{$filetype}},$_;
	}
	$alllines{$_}++;
    }
    close(I);
}

sub display_menu {
    my %config;

while ($#_ > -1 && $_[0] =~ /^-/) {
	my $key = shift;
	$config{$key} = shift;
    }

my $count=1;
    print "\n" if (!defined($config{'-dense'}));
    if ($config{'-head'}) {
	print $config{'-head'};
	print "\n" if (!defined($config{'-dense'}));
    }
    my @answers = @_;
    my @list;
    if (defined($config{'-descriptions'}) && 
	ref($config{'-descriptions'}) eq "ARRAY") {
	@list = @{$config{'-descriptions'}}
    } else {
	@list = @_;
    }
    foreach my $i (@list) {
	printf "  %2d:  $i\n", $count++ if ($i);
    }
    print "\n" if (!defined($config{'-dense'}));
    if (defined($config{'-otheranswers'})) {
	if (ref($config{'-otheranswers'}) eq 'ARRAY') {
	    print "Other options: ", join(", ",
					  @{$config{'-otheranswers'}}), "\n";
	    push @answers, @{$config{'-otheranswers'}};
	    push @answers, keys(%{$config{'-mapanswers'}});
	} else {
	    my $maxlen = 0;
	    push @answers,keys(%{$config{'-otheranswers'}});
	    foreach my $i (keys(%{$config{'-otheranswers'}})) {
		$maxlen = length($i) if (length($i) > $maxlen);
	    }
	    foreach my $i (keys(%{$config{'-otheranswers'}})) {
		printf("  %-" . $maxlen . "s: %s\n", $i, 
		       $config{'-otheranswers'}{$i});
	    }
	}
	print "\n" if (!defined($config{'-dense'}));
    }
    if ($config{'-tail'}) {
	print $config{'-tail'};
	print "\n" if (!defined($config{'-dense'}));
    }

if (defined($config{'-question'})) {
	while(1) {
	    my $numexpr;
	    if ($config{'-multiple'}) {
		$numexpr = '[\d\s,]+|all|a|none|n';
	    } else {
		$numexpr = '\d+';
	    }
	    push @answers,"" if ($config{'-defaultvalue'});
	    $ans = get_answer($term, $config{'-question'},
			      valid_answers($numexpr,@answers),
			      $config{'-defaultvalue'});
	    if ($config{'-mapanswers'}{$ans}) {
		$ans = $config{'-mapanswers'}{$ans};
	    }

if ($ans =~ /^$numexpr$/) {
		if ($config{'-multiple'}) {
		    my @list = split(/\s*,\s*/,$ans);
		    my @ret;
		    $count = 0;
		    foreach my $i (@_) {
			$count++;
			if ($ans eq "all" || $ans eq "a" 
			    || grep(/^$count$/,@list)) {
			    push @ret, $i;
			}
		    }
		    return @ret;
		} else {
		    if ($ans <= 0 || $ans > $#_+1) {
			warn "invalid selection: $ans [must be 1-" .
			    ($#_+1) . "]\n";
		    } else {
			return $ans if ($config{'-numeric'});
			$count = 0;
			foreach my $i (@_) {
			    $count++;
			    if ($ans eq $count) {
				return $i;
			    }
			}
		    }
		}
	    } else {
		return $ans;
	    }
	}
    }
}

sub my_Dumper {
    if ($opts{'D'}) {
	return Dumper(@_);
    } else {
	return "\n";
    }
}

sub get_persistentDir {
    my $file = shift;
    my $result = 0;
    if (! -f $file) {
	return 0;
    }
    open(I,$file);
    while(<I>) {
	next if (/^\s*\#/);
	next if (/^\s*$/);
	chomp;
	my ($token, $rest) = /^\s*(\w+)\s+(.*)/;
        if (lc($token) eq "persistentdir") {
          $result = $rest;
        }
        next;
    }
    close(I);
    return $result;
}

# Usage:   &win32_reg_read("key", "value")
# Example: &win32_reg_read("SOFTWARE\\Net-SNMP","SNMPSHAREPATH");
# Returns: Value if found in HKCU or HCLM.  Otherwise an empty string.
sub win32_reg_read {
  my $sub_key = shift;
  my $value = shift;

require Win32::Registry;
   
  my ($hkey, %key_values, $temp, $no_warn);
 
  # Try HKCU first
  $no_warn = $HKEY_CURRENT_USER;
  if ($HKEY_CURRENT_USER->Open($sub_key, $hkey))
  {
    $hkey->GetValues(\%key_values);   
    foreach $temp (sort keys %key_values) {
      if ($temp eq $value) {
        return $key_values{$temp}[2];
      }
    }
    $hkey->Close(); 
  }

# Try HKLM second
  $no_warn = $HKEY_LOCAL_MACHINE;
  if ($HKEY_LOCAL_MACHINE->Open($sub_key, $hkey))
  {
    $hkey->GetValues(\%key_values);
    foreach $temp (sort keys %key_values) {
      if ($temp eq $value) {
        return $key_values{$temp}[2];
      }
    }
    $hkey->Close(); 
  }
  return "";
}

# Usage:   &my_getenv("key")
# Example: &my_getenv("SNMPSHAREPATH");
# Returns: Unix:  Environment variable value (undef if not defined)
#          Win32: HKCU\Software\Net-SNMP\(key) or
#          Win32: HKLM\Software\Net-SNMP\(key) or
#          Win32: Environment variable value (undef if not defined)
sub my_getenv {
  my $key = shift;
  
  # Unix
  if ($^O ne 'MSWin32') {
    return $ENV{$key};
  }
  # Windows
  else {
    my $temp = &win32_reg_read("SOFTWARE\\Net-SNMP","$key");
    if ($temp ne "") {
      return $temp;
    }
    else {
      return $ENV{$key};
    }
  }
}

cmd: