Revision 5cf977e5
Von Moritz Bunkus vor etwa 17 Jahren hinzugefügt
| bin/mozilla/common.pl | ||
|---|---|---|
| 578 | 578 |
$form->redirect($locale->text("Marked as paid"));
|
| 579 | 579 |
} |
| 580 | 580 |
else {
|
| 581 |
my $referer = $ENV{HTTP_REFERER};
|
|
| 582 |
$referer =~ s/^(.*)action\=.*\&(.*)$/$1action\=mark_as_paid\&mark_as_paid\=1\&login\=$form->{login}\&password\=$form->{password}\&id\=$form->{id}\&$2/;
|
|
| 581 |
my $referer = $ENV{HTTP_REFERER};
|
|
| 582 |
my $login = $form->escape($form->{login});
|
|
| 583 |
my $password = $form->escape($form->{password});
|
|
| 584 |
my $id = $form->escape($form->{id});
|
|
| 585 |
$referer =~ s/^(.*)action\=.*\&(.*)$/$1action\=mark_as_paid\&mark_as_paid\=1\&login\=$login\&password\=$password\&id\=$id\&$2/; |
|
| 583 | 586 |
$form->header(); |
| 584 | 587 |
print qq|<body>|; |
| 585 | 588 |
print qq|<p><b>|.$locale->text('Mark as paid?').qq|</b></p>|;
|
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.