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

har-to-portal reads post data

Browse Source
This commit is contained in:
Jed Reynolds
2019-12-02 19:09:51 -08:00
parent 5457b84961
commit 2a64d0867b
1 changed files with 9 additions and 4 deletions
Download Patch File Download Diff File Expand all files Collapse all files

13
har-to-portal.pl
View File

@@ -104,15 +104,20 @@ for my $request_start ( sort keys %ordered_entries ) {
#print Dumper($entry);
#print "REF: ".ref($entry);
my $request = $$entry->{request};
print Dumper($request);
#print Dumper($request);
my $ra_headers = $request->{headers};
my $url = $request->{url};
print "URL: $url\n";
my $method = $request->{method};
print "$method: $url\n";
#print Dumper($request) if ($method eq "POST");
for my $header_e (@$ra_headers) {
print "H: ".$header_e->{name} .": ".$header_e->{value} .NL;
print " H: ".$header_e->{name} .": ".$header_e->{value} .NL;
}
if ($method eq "POST") {
print " D: ".$request->{'postData'}->{text} .NL;
}
last;
}
#die("unable to open $::outfile: $!") unless open($fh, ">", $::outfile);