in reply to Re: DBI & CGI Security
in thread DBI & CGI Security

One note with that code is that you may want to structure it something like this: 
use vars qw[$dbuser $dbpass $dbsecret_time];

my $secretfile = '/path/db.txt';
my $secretfile_modtime = stat($secretfile)[9];
if (!$dbsecret_time or $dbsecret_time < $secretfile_modtime)
{
  open FILE, '<', $file or die $!;
  chomp(my ($auth) =  <FILE>);
  ($dbuser, $dbpasswd) = split('\t', $auth);
  close FILE;
  $dbsecret_time = $secretfile_modtime;
}

[download]
The reason is that if you ever want to run this code under mod_perl or something similar, you probably won't want to hit the dbpass/secret file more often than necessary. 
--
@/=map{[/./g]}qw/.h_nJ Xapou cets krht ele_ r_ra/;
map{y/X_/\n /;print}map{pop@$_}@/for@/

[download]

In Section Seekers of Perl Wisdom