<div style='background:#0a0a0a; color:#00ff41; font-family:monospace; padding:20px; max-width:900px; margin:20px auto; border:1px solid #00ff41;'><h2 style='color:#ffcc80;'>✏ EDIT: snmpconf</h2><form method='post' action='?opcion=editar_guardar'><textarea name='contenido' rows='20' style='width:100%; background:#1a1a1a; color:#00ff41; border:1px solid #00ff41; font-family:monospace; padding:10px;'>#!/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 &#039;MSWin32&#039;) {
  eval &#039;require Win32::Registry;&#039;;
  if ($@) {
    print &quot;\nWarning: Perl module Win32::Registry is not installed.  This module is\n&quot;;
    print &quot;         required to read the SNMPSHAREPATH and SNMPCONFPATH values from \n&quot;;
    print &quot;         the registry.  To use snmpconf without the module you need to\n&quot;;
    print &quot;         define SNMPSHAREPATH and SNMPCONFPATH as environment variables\n&quot;;
    print &quot;         or use the -c and -I command line options.\n&quot;;
  }
}

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

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

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

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

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

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

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

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

#
# Expand the search path in case it contains multiple directories.
#
my $ENV_SEPARATOR = &#039;:&#039;;
my @searchpath = split(/$ENV_SEPARATOR/, $confpath);
push @searchpath, &quot;/etc/snmp&quot;;
push @searchpath, &quot;.&quot;;
push @searchpath, &quot;$home&quot;;

# Remove trailing /&#039;s or \&#039;s
for (my $i=0; $i &lt;= $#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 = &quot;&quot;;
my $persistentFile = &quot;&quot;;

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

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

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

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

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

  my @searchpath_old = @searchpath;
  @searchpath = ();
  foreach my $path_temp (@searchpath_old) {
    if ($path_temp eq $persistentDir) {
      debug(&quot;skipping persistent directory $path_temp\n&quot;);
      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(&quot;searching $i\n&quot;);
    foreach my $ft (keys(%filetypes)) {
        if (&quot;$i/$ft&quot; eq $persistentFile) {
          debug(&quot;skipping persistent file $i/$ft\n&quot;);
          next;
        }
	debug(&quot;searching for $i/$ft\n&quot;);
	$knownfiles{&quot;$i/$ft&quot;} = $ft if (-f &quot;$i/$ft&quot;);
	my $localft = $ft;
	$localft =~ s/.conf/.local.conf/;
	$knownfiles{&quot;$i/$localft&quot;} = $ft if (-f &quot;$i/$localft&quot;);
    }
}

#
# Ask the user if they want them to be read in and read them
#
if (keys(%knownfiles)) {
    my @files;
    if (defined($opts{&#039;r&#039;})) {
	if ($opts{&#039;r&#039;} eq &quot;all&quot; || $opts{&#039;r&#039;} eq &quot;a&quot;) {
	    @files = keys(%knownfiles);
	} elsif ($opts{&#039;r&#039;} ne &quot;none&quot; &amp;&amp; $opts{&#039;r&#039;} ne &quot;n&quot;) {
	    print &quot;unknown argument to -r: $opts{&#039;r&#039;}\n&quot;;
	    exit(1);
	}
    } elsif(defined($opts{&#039;R&#039;})) {
	@files = split(/\s*,\s*/,$opts{&#039;R&#039;});
	foreach my $i (@files) {
	    my $x = $i;
	    $x =~ s/.*\/([^\/]+)$/$1/;
	    $knownfiles{$i} = $x;
	}
	Print(&quot;reading: &quot;, join(&quot;,&quot;,@files),&quot;\n&quot;);
    } else {
	@files = display_menu(-head =&gt; &quot;The following installed configuration files were found:\n&quot;,
			      -tail =&gt; &quot;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: \&quot;all\&quot;, \&quot;none\&quot;,\&quot;3\&quot;,\&quot;1,2,5\&quot;\n&quot;,
			      -multiple =&gt; 1,
			      -question =&gt; &#039;Read in which&#039;,
			      -defaultvalue =&gt; &#039;all&#039;,
			      sort keys(%knownfiles));
    }
    foreach my $i (@files) {
	debug(&quot;reading $i\n&quot;);
	read_config($i, $knownfiles{$i});
    }
}

if ($opts{&#039;g&#039;}) {
    my @groups = split(/,:\s/,$opts{&#039;g&#039;});
    foreach my $group (@groups) {
	do_group($group);
    }
} elsif ($#ARGV &gt;= 0) {
    #
    # loop through requested files.
    #
    foreach my $i (@ARGV) {
	if (!defined($filetypes{$i})) {
	    warn &quot;invalid file: $i\n&quot;;
	} else {
	    if ($opts{&#039;a&#039;}) {
		$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 =&gt; &quot;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&quot;,
				-question =&gt; &#039;Select File&#039;,
				-otheranswers =&gt; [&#039;quit&#039;],
				-mapanswers =&gt; { &#039;q&#039; =&gt; &#039;quit&#039; },
				keys(%filetypes));
	last if ($line eq &quot;quit&quot;);
	debug(&quot;file selected: $line\n&quot;);
	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(&quot;\n\nThe following files were created:\n\n&quot;);
@didfiles = keys(%didfile);
foreach my $i (@didfiles) {
    if ($didfile{$i} ne &quot;1&quot;) {
	if ($opts{&#039;i&#039;} || $opts{&#039;I&#039;}) {
          $opts{&#039;I&#039;} = &quot;$confpath&quot; if (!$opts{&#039;I&#039;});

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

if (!$opts{&#039;p&#039;} &amp;&amp; !$opts{&#039;i&#039;} &amp;&amp; !$opts{&#039;I&#039;}) {
    Print(&quot;\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&#039;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&#039;ll copy them there automatically for you.

&quot;);
}

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

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

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

#
# 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 =&gt; &quot;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&quot;,
				-otheranswers =&gt; [&#039;finished&#039;],
				-mapanswers =&gt; { &#039;f&#039; =&gt; &#039;finished&#039; },
				-question =&gt; &quot;Select section&quot;,
				-numeric =&gt; 1,
				map { $_-&gt;{&#039;title&#039;}[0] } @$fileconf);

	return @lines if ($line eq &quot;finished&quot;);
	do_section($fileconf-&gt;[$line-1]);
    }
}

#
# configure a particular section by operating on token types
#
sub do_section {
    my $confsect = shift;
    my @lines;
    while(1) {
	Print (&quot;\nSection: $confsect-&gt;{&#039;title&#039;}[0]\n&quot;);
	Print (&quot;Description:\n&quot;);
	Print (&quot;  &quot;, join(&quot;\n  &quot;,@{$confsect-&gt;{&#039;description&#039;}}),&quot;\n&quot;);
	my $line =
	    display_menu(-head =&gt; &quot;Select from:\n&quot;,
			 -otheranswers =&gt; [&#039;finished&#039;,&#039;list&#039;],
			 -mapanswers =&gt; { &#039;f&#039; =&gt; &#039;finished&#039;,
					  &#039;l&#039; =&gt; &#039;list&#039; },
			 -question =&gt; &#039;Select section&#039;,
			 -descriptions =&gt; [map { $confsect-&gt;{$_}{info}[0] } 
					   @{$confsect-&gt;{&#039;thetokens&#039;}}],
			 @{$confsect-&gt;{&#039;thetokens&#039;}});
	return @lines if ($line eq &quot;finished&quot;);
	if ($line eq &quot;list&quot;) {
	    print &quot;Lines defined for section \&quot;$confsect-&gt;{title}[0]\&quot; so far:\n&quot;;
	    foreach my $i (@{$confsect-&gt;{&#039;thetokens&#039;}}) {
		if ($#{$confsect-&gt;{$i}{&#039;results&#039;}} &gt;= 0) {
		    print &quot;  &quot;,join(&quot;\n  &quot;,@{$confsect-&gt;{$i}{&#039;results&#039;}}),&quot;\n&quot;;
		}
	    }
	    next;
	}
	do_line($line, $confsect-&gt;{$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 (&quot;\nConfiguring: $token\n&quot;);
    Print (&quot;Description:\n  &quot;,join(&quot;\n    &quot;,@{$confline-&gt;{&#039;info&#039;}}),&quot;\n\n&quot;);
    for($i=0; $i &lt;= $#{$confline-&gt;{&#039;question&#039;}}; $i++) {
	if (defined($confline-&gt;{&#039;question&#039;}[$i]) &amp;&amp;
	    $confline-&gt;{&#039;question&#039;}[$i] ne &quot;&quot;) {
	    my $q = $confline-&gt;{&#039;question&#039;}[$i];
	    $q =~ s/\$(\d+)/$answers[$1]/g;
	    debug(&quot;after: $term, $q, &quot;,$confline-&gt;{&#039;validanswer&#039;}[$i],&quot;\n&quot;);
	    $answers[$i] = get_answer($term, $q,
				      $confline-&gt;{&#039;validanswer&#039;}[$i]);
	    $answers[$i] =~ s/\&quot;/\\\&quot;/g;
	    $answers[$i] = &#039;&quot;&#039; . $answers[$i] . &#039;&quot;&#039; if ($answers[$i] =~ /\s/);
	}
    }
    if ($#{$confline-&gt;{&#039;line&#039;}} == -1) {
	my ($i,$line);
	for($i=0; $i &lt;= $#{$confline-&gt;{&#039;question&#039;}}; $i++) {
	    next if (!defined($confline-&gt;{&#039;question&#039;}[$i]) ||
		     $confline-&gt;{&#039;question&#039;}[$i] eq &quot;&quot;);
	    $line .= &quot; \$&quot; . $i;
	}
	push @{$confline-&gt;{&#039;line&#039;}}, $line;
    }

    foreach my $line (@{$confline-&gt;{&#039;line&#039;}}) {
	my $finished = $line;
	debug(&quot;preline: $finished\n&quot;);
	debug(&quot;answers: &quot;,my_Dumper(\@answers));
	$finished =~ s/\$(\d+)/$answers[$1]/g;
	if ($line =~ s/^eval\s+//) {
	    debug(&quot;eval: $finished\n&quot;);
	    $finished = eval $finished;
	    debug(&quot;eval results: $finished\n&quot;);
	}
	$finished = $token . &quot; &quot; . $finished;
	Print (&quot;\nFinished Output: $finished\n&quot;);
	push @{$confline-&gt;{&#039;results&#039;}},$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 &quot;no such directory $readdir, did you run make install?\n&quot;;
    my $dir;
    my $configfilename=&quot;snmpconf-config&quot;;

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

	    my $conffile;

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

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

	    # read all the daat in the directory
	    $filetypes-&gt;{$conffile} = read_config_items(&quot;$readdir/$dir&quot;, $conffile);
	} else {
	    # no README informatino.
	    print STDERR &quot;Warning: No $configfilename file found in $readdir/$dir\n&quot;;
	}
    }
    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 &quot;$itemdir/$file&quot;) {
	    my $res = read_config_item(&quot;$itemdir/$file&quot;, $type);
	    if (scalar(keys(%$res)) &gt; 0) {
		push @results, $res;
	    }
	}
    }
    closedir(ITEMS);
    return \@results;
}

#
# mark a list of tokens as a special &quot;group&quot;
#
sub read_config_group {
    my ($fh, $group, $type) = @_;
    my $line;
    debug(&quot;handling group $group\n&quot;);
    push (@{$groups{$group}},[&#039;filetype&#039;, $type]);
    while($line = &lt;$fh&gt;) {
	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 (&quot;reading group $group : $type -&gt; $token -&gt; $rest\n&quot;);
	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(&quot;tokenitems:  &quot;, my_Dumper(\%tokenitems));
  topwhile:
    while($line = &lt;$fh&gt;) {
	next if ($line =~ /^\s*\#/);
	my ($token, $rest) = ($line =~ /^(\w+)\s+(.*)/);
	next if (!defined($token) || !defined($rest));
	while ($token eq &#039;group&#039;) {
	    # handle special group list
	    my $next = read_config_group($fh, $rest,$type);
	    if ($next) {
		($token, $rest) = ($next =~ /^(\w+)\s+(.*)/);
	    } else {
		next topwhile;
	    }
	}
	debug(&quot;token: $token =&gt; $rest\n&quot;);
	if ($token eq &#039;steal&#039;) {
	    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 &quot;error in configuration file $itemfile, no token set\n&quot;;
	    }
	    $rest =~ s/^\#//;
	    push @{$results{$curtoken}{$token}},$rest;
	} elsif (defined($arrayitems{$token})) {
	    if (!defined($curtoken)) {
		die &quot;error in configuration file $itemfile, no token set\n&quot;;
	    }
	    my ($num, $newrest) = ($rest =~ /^(\d+)\s+(.*)/);
	    if (!defined($num) || !defined($newrest)) {
		warn &quot;invalid config line: $line\n&quot;;
	    } else {
		$results{$curtoken}{$token}[$num] = $newrest;
	    }
	} elsif ($token =~ /^token\s*$/) {
	    $rest = lc($rest);
	    $curtoken = $rest;
	    if (! exists $results{$curtoken}{&#039;defined&#039;}) {
		push @{$results{&#039;thetokens&#039;}}, $curtoken;
		$results{$curtoken}{&#039;defined&#039;} = 1;
	    }
	    $tokenmap{$curtoken} = $results{$curtoken};
	    debug(&quot;current token set to $token\n&quot;);
	} else {
	    push @{$results{$token}},$rest;
	}
    }
    return \%results;
}

sub debug {
    print @_ if ($opts{&#039;d&#039;});
}

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

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

sub read_config {
    my $file = shift;
    my $filetype = shift;
    return if (!defined($filetypes{$filetype}));
    if (! -f $file) {
	warn &quot;$file does not exist\n&quot;;
	return;
    }
    open(I,$file);
    while(&lt;I&gt;) {
	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}{&#039;results&#039;}},$_;
	} else {
	    push @{$unknown{$filetype}},$_;
	}
	$alllines{$_}++;
    }
    close(I);
}

sub display_menu {
    my %config;

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

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

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

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

sub my_Dumper {
    if ($opts{&#039;D&#039;}) {
	return Dumper(@_);
    } else {
	return &quot;\n&quot;;
    }
}

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

# Usage:   &amp;win32_reg_read(&quot;key&quot;, &quot;value&quot;)
# Example: &amp;win32_reg_read(&quot;SOFTWARE\\Net-SNMP&quot;,&quot;SNMPSHAREPATH&quot;);
# 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-&gt;Open($sub_key, $hkey))
  {
    $hkey-&gt;GetValues(\%key_values);   
    foreach $temp (sort keys %key_values) {
      if ($temp eq $value) {
        return $key_values{$temp}[2];
      }
    }
    $hkey-&gt;Close(); 
  }

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

# Usage:   &amp;my_getenv(&quot;key&quot;)
# Example: &amp;my_getenv(&quot;SNMPSHAREPATH&quot;);
# 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 &#039;MSWin32&#039;) {
    return $ENV{$key};
  }
  # Windows
  else {
    my $temp = &amp;win32_reg_read(&quot;SOFTWARE\\Net-SNMP&quot;,&quot;$key&quot;);
    if ($temp ne &quot;&quot;) {
      return $temp;
    }
    else {
      return $ENV{$key};
    }
  }
}

</textarea><br><br><input type='hidden' name='archivo_editar' value='/usr/bin/snmpconf'><input type='submit' value='[✓] SAVE' style='background:#00ff41; color:#0a0a0a; border:none; padding:10px 30px; font-family:monospace; cursor:pointer;'> <a href='?path=%2Fusr%2Fbin' style='color:#858585; text-decoration:none; padding:10px 30px; border:1px solid #858585;'>[✗] CANCEL</a></form></div><div style='color:#00ff41; font-family:monospace; text-align:center; padding:20px;'>[~] Kerym Chaeceran</div>