scottk/wlan-lanforge-scripts
1
0
Fork 0
mirror of https://github.com/Telecominfraproject/wlan-lanforge-scripts.git synced 2025-11-01 11:18:03 +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

11
har-to-portal.pl
View File

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