sub writestatus {
  my $gamename = $_[0];
  my %info = %{$_[1]};
  open (FHAND, ">$catandir/$gamename.status");
  print FHAND "$gamename\n";
  foreach (keys %info) {
    print FHAND "$_ $info{$_}\n";
  }
  close(FHAND);
}

#####################################################

sub gamestatushash {
  my $gamename = $_[0];
  open (FHAND, "<$catandir/$gamename.status");
  chomp( my $gamestat = <FHAND> );
  chomp( my @junk = <FHAND> );
  local %info;
  my ($key, $data);
  foreach (@junk) {
    ($key, $data) = split;
    $info{$key} = $data;
  }
  close(FHAND);
  return(\%info);
}

#####################################################

sub gamestatus {
  my $gamename = $_[0];
  if ($gamename !~ /^\w*$/ or $gamename =~ /^\s*$/) {
    return "INVALID";
  } else {
    if (!-e "$catandir/$gamename.status") { 
      return "NOGAME";
    } else {
      open (FHAND, "<$catandir/$gamename.status");
      chomp( $_ = <FHAND> );
      close(FHAND);
      return $_;
    }
  }
}

1;