Revision c8126d0b
Von Moritz Bunkus vor mehr als 14 Jahren hinzugefügt
| SL/Form.pm | ||
|---|---|---|
|
#$self->{version} = "2.6.1"; # Old hardcoded but secure style
|
||
|
open VERSION_FILE, "VERSION"; # New but flexible code reads version from VERSION-file
|
||
|
$self->{version} = <VERSION_FILE>;
|
||
|
close VERSION_FILE;
|
||
|
close VERSION_FILE;
|
||
|
$self->{version} =~ s/[^0-9A-Za-z\.\_\-]//g; # only allow numbers, letters, points, underscores and dashes. Prevents injecting of malicious code.
|
||
|
|
||
|
$main::lxdebug->leave_sub();
|
||
| ... | ... | |
|
|
||
|
print qq|
|
||
|
<p class="message_ok"><b>$msg</b></p>
|
||
|
|
||
|
|
||
|
<script type="text/javascript">
|
||
|
<!--
|
||
|
// If JavaScript is enabled, the whole thing will be reloaded.
|
||
| ... | ... | |
|
setTimeout("top.frames.location.href='login.pl'",500);
|
||
|
//-->
|
||
|
</script>
|
||
|
|
||
|
|
||
|
</body>
|
||
|
|;
|
||
|
|
||
| ... | ... | |
|
</script>
|
||
|
| if $self->{"fokus"};
|
||
|
|
||
|
# if there is a title, we put some JavaScript in to the page, wich writes a
|
||
|
# if there is a title, we put some JavaScript in to the page, wich writes a
|
||
|
# meaningful title-tag for our frameset.
|
||
|
my $title_hack;
|
||
|
my $title_hack;
|
||
|
if ($self->{"title"}){
|
||
|
$title_hack = qq|
|
||
|
<script type="text/javascript">
|
||
| ... | ... | |
|
</script>
|
||
|
|;
|
||
|
}
|
||
|
|
||
|
|
||
|
#Set Calendar
|
||
|
my $jsscript = "";
|
||
|
if ($self->{jsscript} == 1) {
|
||
| ... | ... | |
|
$ajax
|
||
|
$fokus
|
||
|
$title_hack
|
||
|
|
||
|
|
||
|
<link rel="stylesheet" href="css/jquery.autocomplete.css" type="text/css" />
|
||
|
|
||
|
<meta name="robots" content="noindex,nofollow" />
|
||
Auch abrufbar als: Unified diff
Kosmetik (trailing whitespace removal)