Fixed token extraction for compatibility with v0.5.0.0

This commit is contained in:
rev138
2015-05-03 22:42:12 -04:00
parent 50d996959b
commit ec9d103a79
+4 -2
View File
@@ -443,9 +443,11 @@ sub extract_token {
my $csrf = {};
# parse out CSRF param and token
$html =~ m/meta content="([^"]+)" name="csrf-param"/;
# $html =~ m/meta content="([^"]+)" name="csrf-param"/;
$html =~ m/meta name="csrf-param" content="([^"]+)"/;
$csrf->{'param'} = decode_entities( $1 ) if defined ( $1 );
$html =~ m/meta content="([^"]+)" name="csrf-token"/;
# $html =~ m/meta content="([^"]+)" name="csrf-token"/;
$html =~ m/meta name="csrf-token" content="([^"]+)"/;
$csrf->{'token'} = decode_entities( $1 ) if defined ( $1 );
return $csrf if defined $csrf->{'param'} and defined $csrf->{'token'};