1 |
diff -Nur e-smith-formmagick-2.6.0.old/root/usr/share/perl5/vendor_perl/esmith/FormMagick.pm e-smith-formmagick-2.6.0/root/usr/share/perl5/vendor_perl/esmith/FormMagick.pm |
diff -Nur e-smith-formmagick-2.6.0.old/root/usr/share/perl5/vendor_perl/esmith/FormMagick.pm e-smith-formmagick-2.6.0/root/usr/share/perl5/vendor_perl/esmith/FormMagick.pm |
2 |
--- e-smith-formmagick-2.6.0.old/root/usr/share/perl5/vendor_perl/esmith/FormMagick.pm 2021-03-06 00:48:19.688000000 -0500 |
--- e-smith-formmagick-2.6.0.old/root/usr/share/perl5/vendor_perl/esmith/FormMagick.pm 2021-03-06 00:48:19.688000000 -0500 |
3 |
+++ e-smith-formmagick-2.6.0/root/usr/share/perl5/vendor_perl/esmith/FormMagick.pm 2021-03-06 00:52:00.069000000 -0500 |
+++ e-smith-formmagick-2.6.0/root/usr/share/perl5/vendor_perl/esmith/FormMagick.pm 2021-03-06 01:00:32.343000000 -0500 |
4 |
@@ -20,6 +20,7 @@ |
@@ -20,6 +20,7 @@ |
5 |
use esmith::I18N; |
use esmith::I18N; |
6 |
use POSIX qw(strftime); |
use POSIX qw(strftime); |
18 |
=begin _private |
=begin _private |
19 |
|
|
20 |
The import method is doing some tricky stuff to make sure that when |
The import method is doing some tricky stuff to make sure that when |
21 |
@@ -216,6 +219,7 @@ |
@@ -216,6 +219,9 @@ |
22 |
$data = <main::DATA>; |
$data = <main::DATA>; |
23 |
} |
} |
24 |
|
|
25 |
+ my $csrfdelay = $args{csrfdelay} || $configdb->get('httpd-admin')->prop('csrfTimeout') || '180'; |
+ my $csrfdelay = $args{csrfdelay} || $configdb->get('httpd-admin')->prop('csrfTimeout') || '180'; |
26 |
|
+ $csrfdelay = ($csrfdelay =~ /\D/ )? 180 : $csrfdelay; |
27 |
|
+ $csrfdelay = ( $csrfdelay > 500) ? 500 : $csrfdelay; |
28 |
my $sessiondir = "/var/cache/e-smith/formmagick/sessions"; |
my $sessiondir = "/var/cache/e-smith/formmagick/sessions"; |
29 |
my $charset = $args{charset} || 'UTF-8'; |
my $charset = $args{charset} || 'UTF-8'; |
30 |
|
|
31 |
@@ -225,7 +229,8 @@ |
@@ -225,7 +231,8 @@ |
32 |
charset => $charset, |
charset => $charset, |
33 |
sessiondir => $sessiondir, |
sessiondir => $sessiondir, |
34 |
debug => $args{debug}, |
debug => $args{debug}, |