# Reads in the specified options file and outputs
# it in a hash taht can be displayed by zeddweb using
# standard formatting lines

sub optionsReader
{
    my $inFile = shift;
    my $count = 0;
    my( @rValue ) = ();

#    print "infile: $inFile\n";

    while( $inFile =~ s/^\s*?(.*?)\s*?\n//s )
    {
	$entry = $1;	

#	print "Entry: $entry\n";

	push @rValue, 
   	           { 
		      'value' => "option$count",
		      'option' => $entry
		   };
	$count++;
    }

    return @rValue;
}

return 1;