chiark / gitweb /
document that nonce-based authentication is for the future
[hippotat.git] / w3mstracetodump
1 #!/usr/bin/perl -n
2
3 # strace -s70000 -ot w3m ./form.html
4
5 next unless
6     (m/^connect\((\d+),.*AF_INET/ and $fd = $1) ..
7     m/^close\($fd\)/;
8
9 next unless s{^write\($fd, "}{};
10 s{", \d+\)\s+= \d+\n}{};
11 s{\\r}{\r}g;
12 s{\\n}{\n}g;
13 s{\\(.)}{$1}g;
14 print or die $!;
15