sub read_ini()
{
  my @file = read_file("recorder.ini");
  my $line = 0;
  my $pos = 0;
  my $var = "";
  my $val;
  
  for(@file)
  {
    if(substr(@file[$line],0,1) ne "#")
    {
      $pos = index(@file[$line],"=");
      if($pos > 0)
      {
        $var = substr(@file[$line],0,$pos);
	$val = substr(@file[$line],$pos + 1, length(@file[$line]) - $pos);
	if($var eq "NAME")
	  { $NAME = $val; }
	elsif($var eq "OFFICE")
	  { $OFFICE = $val; }
        # And so on for other instances
      }
    }

    $line++;
  }
}