Lines 408-413
my $use_syspref_cache = 1;
Link Here
|
408 |
sub preference { |
408 |
sub preference { |
409 |
my $self = shift; |
409 |
my $self = shift; |
410 |
my $var = shift; # The system preference to return |
410 |
my $var = shift; # The system preference to return |
|
|
411 |
warn "REMOTE ADDRESS: " . $ENV{'REMOTE_ADDR'}; |
411 |
|
412 |
|
412 |
return $ENV{"OVERRIDE_SYSPREF_$var"} |
413 |
return $ENV{"OVERRIDE_SYSPREF_$var"} |
413 |
if defined $ENV{"OVERRIDE_SYSPREF_$var"}; |
414 |
if defined $ENV{"OVERRIDE_SYSPREF_$var"}; |
414 |
- |
|
|