Variable Settings
get_all;
my $error=0;
if (defined($gets->{"update.x"})) {
$EQDB->query("delete from variables");
my $max=$gets->{maxid};
for(my $i=0;$i<$max;++$i) {
my ($varname,$info,$value) = ($gets->{"variable$i"},$gets->{"info$i"},$gets->{"value$i"});
next if (!$varname);
$q=sprintf("replace into variables (varname,information,value) values('%s','%s','%s')",$EQDB->escape_string($varname),$EQDB->escape_string($info),$EQDB->escape_string($value));
$EQDB->query($q);
if ($EQDB->get_errno) {
$error=1;
printf("Error adding variable %s: %s
\n",$varname,$EQDB->error);
}
}
if ($error==0) {
printf("Variable settings updated, will take affect on server restart.
\n");
}
}
?>