Revision 941fb8a1
Von Udo Spallek vor fast 19 Jahren hinzugefügt
| SL/Form.pm | ||
|---|---|---|
| 939 | 939 |
# check for <%include filename%> |
| 940 | 940 |
if (/\s*<%include /) {
|
| 941 | 941 |
|
| 942 |
# get the filename |
|
| 942 |
# get the directory/filename
|
|
| 943 | 943 |
chomp $var; |
| 944 | 944 |
$var =~ s/\s*<%include (.+?)%>/$1/; |
| 945 | 945 |
|
| 946 |
# mangle filename |
|
| 947 |
$var =~ s/(\/|\.\.)//g; |
|
| 946 |
# mangle filename on basedir
|
|
| 947 |
$var =~ s/^(\/|\.\.)//g;
|
|
| 948 | 948 |
|
| 949 | 949 |
# prevent the infinite loop! |
| 950 | 950 |
next if ($self->{"$var"});
|
Auch abrufbar als: Unified diff
Erweiterung des <%include FILE%> Befehls um die Moeglichkeit
ein Verzeichnis unterhalb von $template_dir angeben
zu koennen. Die alte Funktionsweise bleibt unangetastet. Die
neue Syntax lautet <%include DIR/SUBDIR/FILENAME%>.