If the database does not exist, it is created with 
protection specified by MASK (as modified by the "umask").

##</code><code>##

sub validateSession{
  my ($session, $file) = @_;
  my %stored;
  return 0 unless (-f "$file.dir" and -f "$file.pag") or
                   -f "file.db";
  return 0 unless dbmopen %$session, $file, 0444;
  %$session = %stored;
  dbmclose %stored;
}