|
Lines 331-336
sub handle {
Link Here
|
| 331 |
my $config = $server->{config}; |
331 |
my $config = $server->{config}; |
| 332 |
my $self; |
332 |
my $self; |
| 333 |
|
333 |
|
|
|
334 |
# Set system preference overrides, first global, then account level |
| 335 |
foreach my $key ( keys %{ $config->{'syspref-overrides'} } ) { |
| 336 |
$ENV{"OVERRIDE_SYSPREF_$key"} = $config->{'syspref-overrides'}->{$key}; |
| 337 |
} |
| 338 |
foreach my $key ( keys %{ $server->{account}->{'syspref-overrides'} } ) { |
| 339 |
$ENV{"OVERRIDE_SYSPREF_$key"} = |
| 340 |
$server->{account}->{'syspref-overrides'}->{$key}; |
| 341 |
} |
| 342 |
|
| 334 |
# |
343 |
# |
| 335 |
# What's the field delimiter for variable length fields? |
344 |
# What's the field delimiter for variable length fields? |
| 336 |
# This can't be based on the account, since we need to know |
345 |
# This can't be based on the account, since we need to know |