1 |
--- /usr/share/perl5/vendor_perl/CGI/FormMagick/Events.pm.ori 2019-01-27 13:17:40.000000000 -0500 |
--- perl-CGI-FormMagick-0.93.old/lib/CGI/FormMagick/Events.pm 2019-01-27 13:17:40.000000000 -0500 |
2 |
+++ /usr/share/perl5/vendor_perl/CGI/FormMagick/Events.pm 2019-01-27 14:35:18.143816986 -0500 |
+++ perl-CGI-FormMagick-0.93/lib/CGI/FormMagick/Events.pm 2019-01-27 14:35:18.143816986 -0500 |
3 |
@@ -83,8 +83,12 @@ |
@@ -83,8 +83,12 @@ |
4 |
$self->debug_msg("Validation successful."); |
$self->debug_msg("Validation successful."); |
5 |
|
|
28 |
warn "CSRF protection blocked request\n"; |
warn "CSRF protection blocked request\n"; |
29 |
return $self->error($self->localise('CSRF_VALIDATION_FAILURE')); |
return $self->error($self->localise('CSRF_VALIDATION_FAILURE')); |
30 |
} |
} |
31 |
--- /usr/share/perl5/vendor_perl/CGI/FormMagick.pm.ori 2019-01-27 13:17:40.000000000 -0500 |
--- perl-CGI-FormMagick-0.93.old/lib/CGI/FormMagick.pm 2019-01-27 13:17:40.000000000 -0500 |
32 |
+++ /usr/share/perl5/vendor_perl/CGI/FormMagick.pm 2019-01-27 14:32:14.186747779 -0500 |
+++ perl-CGI-FormMagick-0.93/lib/CGI/FormMagick.pm 2019-01-27 14:32:14.186747779 -0500 |
33 |
@@ -202,6 +202,7 @@ |
@@ -202,6 +202,7 @@ |
34 |
# Create a CSRF token to compare later with. And store it in the session |
# Create a CSRF token to compare later with. And store it in the session |
35 |
if ($self->{csrf} and not $self->{cgi}->param('csrf_token_compare')){ |
if ($self->{csrf} and not $self->{cgi}->param('csrf_token_compare')){ |