State.pl
No OneTemporary
Actions

Authored By

Unknown

Size

364 B

Referenced Files

None

Subscribers

None

State.pl
View Options

	use strict;

	sub ParseConfig($)
	{
	my ($filename) = @_;
	my ($escaped1, $escaped2);
	open CONFFILE, "$filename" or return;

	while (<CONFFILE>)
	{
	if ($_ =~ /(\w+)\s=\s(.\S)\s/)
	{
	$escaped1 = $1;
	$escaped1 =~ s/'/\\'/g;
	$escaped2 = $2;
	$escaped2 =~ s/'/\\'/g;
	eval( "\$::$escaped1 = '$escaped2';" );
	}
	}

	close CONFFILE;
	}


	return 1;