# ex_hello

# Learning Perl on Win32 Systems, Exercise hello



init_words();

print "What is your name? ";

$name = <STDIN>;

chomp ($name);

if ($name =~ /^erik\b/i) { # back to the other way :-)

  print "Hello, Erik! How good of you to be here!\n";

} else {

  print "Hello, $name!\n"; # ordinary greeting

  print "What is the secret word? ";

  $guess = <STDIN>;

  chomp ($guess);

  while (! good_word($name,$guess)) {

    print "Wrong, try again. What is the secret word? ";

    $guess = <STDIN>;

    chomp ($guess);

  }

}

dbmopen (%last_good,"lastdb",0666) || 

                 die "can't dbmopen lastdb: $!";

$last_good{$name} = time;

dbmclose (%last_good) || die "can't dbmclose lastdb: $!";

sub init_words {

  while ( defined($filename = glob("*.sec")) ) {

    open (WORDSLIST, $filename) || 

      die "can't open $filename: $!";

    if (-M WORDSLIST <= 7.0) {

      while (defined ($name = <WORDSLIST>)) {

	chomp ($name);

	$word = <WORDSLIST>;

	chomp ($word);

	$words{$name} = $word;

      }

    } else { # rename the file so it gets noticed

      rename ($filename,"$filename.old");

    }

         close (WORDSLIST) ||

	   die "couldn't close $filename: $!";

  }

}

sub good_word {

  my($somename,$someguess) = @_; # name the parameters

  $somename =~ s/\W.*//; # delete everything after first word

  $somename =~ tr/A-Z/a-z/; # lowercase everything

  if ($somename eq "erik") { # should not need to guess

    return 1; # return value is true

  } elsif (($words{$somename} || "groucho") eq $someguess) {

    return 1; # return value is true

  } else {

    log_failure($somename,$someguess);

    return 0; # return value is false

  }

}



sub log_failure {

  my($somename,$someguess) = @_; # name the parameters

  open(LOG, ">>failures.log") || die "failures.log: $!";

  print LOG "bad news: $somename guessed $someguess\n";

  close (LOG)  || die "can't close failures.log: $!";

}