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 |
# Clear overrides from previous message handling first |
336 |
foreach my $key ( %ENV ) { |
337 |
delete $ENV{$key} if index($key, 'OVERRIDE_SYSPREF_') > 0; |
338 |
} |
339 |
foreach my $key ( keys %{ $config->{'syspref-overrides'} } ) { |
340 |
$ENV{"OVERRIDE_SYSPREF_$key"} = $config->{'syspref-overrides'}->{$key}; |
341 |
} |
342 |
foreach my $key ( keys %{ $server->{account}->{'syspref-overrides'} } ) { |
343 |
$ENV{"OVERRIDE_SYSPREF_$key"} = |
344 |
$server->{account}->{'syspref-overrides'}->{$key}; |
345 |
} |
346 |
|
334 |
# |
347 |
# |
335 |
# What's the field delimiter for variable length fields? |
348 |
# What's the field delimiter for variable length fields? |
336 |
# This can't be based on the account, since we need to know |
349 |
# This can't be based on the account, since we need to know |