Revision c8126d0b
Von Moritz Bunkus vor etwa 14 Jahren hinzugefügt
SL/Form.pm | ||
---|---|---|
268 | 268 |
#$self->{version} = "2.6.1"; # Old hardcoded but secure style |
269 | 269 |
open VERSION_FILE, "VERSION"; # New but flexible code reads version from VERSION-file |
270 | 270 |
$self->{version} = <VERSION_FILE>; |
271 |
close VERSION_FILE;
|
|
271 |
close VERSION_FILE; |
|
272 | 272 |
$self->{version} =~ s/[^0-9A-Za-z\.\_\-]//g; # only allow numbers, letters, points, underscores and dashes. Prevents injecting of malicious code. |
273 | 273 |
|
274 | 274 |
$main::lxdebug->leave_sub(); |
... | ... | |
475 | 475 |
|
476 | 476 |
print qq| |
477 | 477 |
<p class="message_ok"><b>$msg</b></p> |
478 |
|
|
478 |
|
|
479 | 479 |
<script type="text/javascript"> |
480 | 480 |
<!-- |
481 | 481 |
// If JavaScript is enabled, the whole thing will be reloaded. |
... | ... | |
484 | 484 |
setTimeout("top.frames.location.href='login.pl'",500); |
485 | 485 |
//--> |
486 | 486 |
</script> |
487 |
|
|
487 |
|
|
488 | 488 |
</body> |
489 | 489 |
|; |
490 | 490 |
|
... | ... | |
672 | 672 |
</script> |
673 | 673 |
| if $self->{"fokus"}; |
674 | 674 |
|
675 |
# if there is a title, we put some JavaScript in to the page, wich writes a
|
|
675 |
# if there is a title, we put some JavaScript in to the page, wich writes a |
|
676 | 676 |
# meaningful title-tag for our frameset. |
677 |
my $title_hack;
|
|
677 |
my $title_hack; |
|
678 | 678 |
if ($self->{"title"}){ |
679 | 679 |
$title_hack = qq| |
680 | 680 |
<script type="text/javascript"> |
... | ... | |
685 | 685 |
</script> |
686 | 686 |
|; |
687 | 687 |
} |
688 |
|
|
688 |
|
|
689 | 689 |
#Set Calendar |
690 | 690 |
my $jsscript = ""; |
691 | 691 |
if ($self->{jsscript} == 1) { |
... | ... | |
723 | 723 |
$ajax |
724 | 724 |
$fokus |
725 | 725 |
$title_hack |
726 |
|
|
726 |
|
|
727 | 727 |
<link rel="stylesheet" href="css/jquery.autocomplete.css" type="text/css" /> |
728 | 728 |
|
729 | 729 |
<meta name="robots" content="noindex,nofollow" /> |
Auch abrufbar als: Unified diff
Kosmetik (trailing whitespace removal)