#!/usr/bin/perl  -i

$mypref=shift(@ARGV);
$myvar=shift(@ARGV);
$myval=shift(@ARGV);
#$myval=$ARGV[1];
$myfile=$ARGV[0];




if ($myfile) {
use File::Copy;

print "going to set pref $mytype $myvar to $myval in $myfile\n";
$myfilebackup="$myfile.bak";

#rename $name, "$myfile.bak" or die "Cannot backup $myfile: $!";
copy( $myfile, $myfilebackup ) or die "Backup Copy failed: $!";

open IN, "<$myfilebackup" or die "Cannot open: $!";
open OUT, ">$myfile" or die "Cannot create: $!";
#while (<IN>) {
#print OUT $_ unless /^warning:/i;
#}

$found=0;

#open CONF, "$myfile" or die "can't open $myfile $!";
while (<IN>) {
	if (/^\S*$mypref\(\"$myvar\"/) {
		print OUT "$mypref\(\"$myvar\"\, $myval\)\;\n";
		$found=1;
	} else {
	print OUT;
	}
	#s/.*$myvar=.*/$myvar=\'$myval\'/
}
#print "found is $found\n";
if (!($found)) {
		print OUT "$mypref\(\"$myvar\"\, $myval\)\;\n";
}

close ($IN);
close ($OUT);

} else {
	print "usage:  ffprefset.pl type variable value file \nNOTE: must explicity include quotes if pref requires it\n";
}
