|
Lines 339-345
sub handle {
Link Here
|
| 339 |
# Set system preference overrides, first global, then account level |
339 |
# Set system preference overrides, first global, then account level |
| 340 |
# Clear overrides from previous message handling first |
340 |
# Clear overrides from previous message handling first |
| 341 |
foreach my $key ( keys %ENV ) { |
341 |
foreach my $key ( keys %ENV ) { |
| 342 |
delete $ENV{$key} if index($key, 'OVERRIDE_SYSPREF_') > 0; |
342 |
delete $ENV{$key} if index($key, 'OVERRIDE_SYSPREF_') == 0; |
| 343 |
} |
343 |
} |
| 344 |
foreach my $key ( keys %{ $config->{'syspref_overrides'} } ) { |
344 |
foreach my $key ( keys %{ $config->{'syspref_overrides'} } ) { |
| 345 |
$ENV{"OVERRIDE_SYSPREF_$key"} = $config->{'syspref_overrides'}->{$key}; |
345 |
$ENV{"OVERRIDE_SYSPREF_$key"} = $config->{'syspref_overrides'}->{$key}; |
| 346 |
- |
|
|