[PLUG] Perl

[Paul Heinlein]

On Thu, 29 Jun 2006, plug_0 at robinson-west.com wrote:

> 
> sub getpassdb
> {
>     # Read password file creating usernames and
>     # passwords hash.
> 
>     local $file_passwd="/root/firewall/var/cgi_password" ;
> 
>    open (INPASS,"$file_passwd") or die "Error--unable to open $file_passwd $!" ;
> 
>     $passline=<INPASS>;
>     @temp_array=split(/[=\n]/,$passline);
> 
>     close(INPASS) ;
> 
>     %passworddb=@temp_array ;
> 
>     return %passworddb;
> }

sub getpasswd {
  my $file_passwd = "/root/firewall/var/cgi_password";
  my %passworddb;
  open (INPASS, "< $file_passwd")
    or die "Error--unable to open $file_passwd $!";

  while ( <INPASS> ) {
    chomp;
    my ( $user, $pass ) = split /=/;
    $passworddb{$user} = $pass;
  }

  return \%passworddb;
}

my $pass_hash = getpasswd();

while ( my ($user, $pass) = each %$pass_hash ) {
  print qq($user = $pass\n);
}

-- 
Paul Heinlein <> heinlein at madboa.com <> www.madboa.com