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