my($attr, $val, $def, $ref);
foreach $attr (sort keys %{ $self->{Conf} }) {
- print AA "Checking $attr...";
$val = $self->{Conf}->{$attr};
$ref = ref $val;
$def = $ConfigDef{$attr};
. ($noPad ? "" : " ");
}
-sub ConnectData {
+sub ConnectData
+{
# fallback routine in case no database used
return 1;
CgiNavBarAdminAllHosts => {struct => 'SCALAR',
type => 'BOOLEAN', },
- CgiHeaderFontType => {struct => 'SCALAR',
- type => 'STRING', },
-
- CgiHeaderFontSize => {struct => 'SCALAR',
- type => 'INT', },
-
- CgiNavBarBgColor => {struct => 'SCALAR',
- type => 'STRING', },
-
- CgiHeaderBgColor => {struct => 'SCALAR',
- type => 'STRING', },
-
CgiHeaders => {struct => 'SCALAR',
type => 'STRING', },