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 |
- |
|
|