updated webgui to run with Config::JSON 2.04

This commit is contained in:
JT Smith 2008-01-25 05:10:33 +00:00
parent fb434a8b3a
commit 34fd8c9245
20 changed files with 56 additions and 51 deletions

View file

@ -398,7 +398,7 @@ sub showDebug {
$form->{$key} = "********";
}
}
$text = JSON::objToJson($form, {pretty => 1, indent => 4, autoconv=>0, skipinvalid=>1});
$text = JSON->new->pretty->encode($form);
$text =~ s/&/&/sg;
$text =~ s/>/>/sg;
$text =~ s/</&lt;/sg;