Lines 47-53
sub call {
Link Here
|
47 |
} elsif ( $stateful_methods{$request_method} ) { |
47 |
} elsif ( $stateful_methods{$request_method} ) { |
48 |
|
48 |
|
49 |
# Get the CSRF token from the param list or the header |
49 |
# Get the CSRF token from the param list or the header |
50 |
my $csrf_token = $req->param('csrf_token') || $req->header('HTTP_CSRF_TOKEN'); |
50 |
my $csrf_token = $req->param('csrf_token') || $req->header('CSRF_TOKEN'); |
51 |
|
51 |
|
52 |
if ( defined $req->param('op') && $original_op !~ m{^cud-} ) { |
52 |
if ( defined $req->param('op') && $original_op !~ m{^cud-} ) { |
53 |
$error = sprintf "Programming error - op '%s' must start with 'cud-' for %s", $original_op, |
53 |
$error = sprintf "Programming error - op '%s' must start with 'cud-' for %s", $original_op, |
54 |
- |
|
|