scottk/wlan-lanforge-scripts
1
0
Fork 0
mirror of https://github.com/Telecominfraproject/wlan-lanforge-scripts.git synced 2025-11-01 19:28:00 +00:00
Code Issues Packages Projects Releases Wiki Activity

har-to-portal: fixes interpreting some HTTP/2 post records that lack postData

Browse Source
This commit is contained in:
Jed Reynolds
2020-07-03 17:16:46 -07:00
parent 7f0122f8c4
commit 7dbe6ff816
1 changed files with 4 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files

6
har-to-portal.pl
View File

@@ -101,6 +101,7 @@ print "-------------------------------------------------------------------------
my $found_redirect = 0; my $found_redirect = 0;
my $found_login_post = 0; my $found_login_post = 0;
die("unable to open $::outfile: $!") unless open($fh, ">", $::outfile); die("unable to open $::outfile: $!") unless open($fh, ">", $::outfile);
for my $request_start ( sort keys %ordered_entries ) { for my $request_start ( sort keys %ordered_entries ) {
print "Start: $request_start\n"; print "Start: $request_start\n";
my $entry = $ordered_entries{$request_start}; my $entry = $ordered_entries{$request_start};
@@ -124,10 +125,11 @@ for my $request_start ( sort keys %ordered_entries ) {
print $fh NL.dQH. $header_e->{name} .CS. $header_e->{value} .qQ; print $fh NL.dQH. $header_e->{name} .CS. $header_e->{value} .qQ;
} }
print $fh c.NL; print $fh c.NL;
if ($method eq "POST") { # seems like HTTP/2 POSTS to google lack any postData?
if (($method eq "POST") && ($request->{httpVersion} =~ m|^HTTP/1|)) {
$found_login_post++; $found_login_post++;
print $fh MP.NL; print $fh MP.NL;
print $fh PD.a. $request->{'postData'}->{text} .a.c.NL; print $fh PD.a. $request->{'postData'}->{'text'} .a.c.NL;
} }
print $fh q( 'url'=>).Q. $url .Q.c.NL; print $fh q( 'url'=>).Q. $url .Q.c.NL;
print $fh q( 'print'=>1).NL; print $fh q( 'print'=>1).NL;