Revision 5cf977e5
Von Moritz Bunkus vor etwa 17 Jahren hinzugefügt
| SL/User.pm | ||
|---|---|---|
| 830 | 830 |
|
| 831 | 831 |
foreach my $upgradescript (@upgradescripts) {
|
| 832 | 832 |
my $a = $upgradescript; |
| 833 |
$a =~ s/^$form->{dbdriver}-upgrade-|\.(sql|pl)$//g;
|
|
| 833 |
$a =~ s/^\Q$form->{dbdriver}\E-upgrade-|\.(sql|pl)$//g;
|
|
| 834 | 834 |
my $file_type = $1; |
| 835 | 835 |
|
| 836 | 836 |
my ($mindb, $maxdb) = split /-/, $a; |
| ... | ... | |
| 1036 | 1036 |
truncate(CONF, 0); |
| 1037 | 1037 |
|
| 1038 | 1038 |
while ($line = shift @config) {
|
| 1039 |
if ($line =~ /^\[$self->{login}\]/) {
|
|
| 1039 |
if ($line =~ /^\[\Q$self->{login}\E\]/) {
|
|
| 1040 | 1040 |
$newmember = 0; |
| 1041 | 1041 |
last; |
| 1042 | 1042 |
} |
Auch abrufbar als: Unified diff
Quoten von allen in regulären Ausdrücken verwendeten Variablen, die direkt oder indirekt von Benutzereingaben stammen können. Fix für Bug 302.