Revision 1d1cd1dd
Von Sven Schöling vor fast 12 Jahren hinzugefügt
SL/Form.pm | ||
---|---|---|
380 | 380 |
my $self = shift; |
381 | 381 |
|
382 | 382 |
return URI->new($ENV{HTTP_REFERER})->canonical() if $ENV{HTTP_X_FORWARDED_FOR}; |
383 |
return URI->new if !$ENV{REQUEST_URI}; # for testing |
|
383 | 384 |
|
384 | 385 |
my $scheme = $ENV{HTTPS} && (lc $ENV{HTTPS} eq 'on') ? 'https' : 'http'; |
385 |
my $port = $ENV{SERVER_PORT} || '';
|
|
386 |
my $port = $ENV{SERVER_PORT}; |
|
386 | 387 |
$port = undef if (($scheme eq 'http' ) && ($port == 80)) |
387 | 388 |
|| (($scheme eq 'https') && ($port == 443)); |
388 | 389 |
|
... | ... | |
479 | 480 |
); |
480 | 481 |
|
481 | 482 |
$self->{favicon} ||= "favicon.ico"; |
482 |
$self->{titlebar} = join ' - ', grep $_, $self->{title}, $self->{login}, $::myconfig{dbname}, $self->{version} if $self->{title}; |
|
483 |
$self->{titlebar} = join ' - ', grep $_, $self->{title}, $self->{login}, $::myconfig{dbname}, $self->{version} if $self->{title} || !$self->{titlebar};
|
|
483 | 484 |
|
484 | 485 |
# build includes |
485 | 486 |
if ($self->{refresh_url} || $self->{refresh_time}) { |
Auch abrufbar als: Unified diff
warnings