diff options
| author | Arnold D. Robbins <arnold@skeeve.com> | 2013-05-30 21:06:38 +0300 |
|---|---|---|
| committer | Arnold D. Robbins <arnold@skeeve.com> | 2013-05-30 21:06:38 +0300 |
| commit | 99f48db79898094a62c5177161a3a24794239ac3 (patch) | |
| tree | 34b9da20c2db6d1fd45db118dd7098c5157ad365 /helpers/testnet.awk | |
| parent | 0737d543cbf09f9142cc67db052d6d40f178560b (diff) | |
| download | egawk-99f48db79898094a62c5177161a3a24794239ac3.tar.gz egawk-99f48db79898094a62c5177161a3a24794239ac3.tar.bz2 egawk-99f48db79898094a62c5177161a3a24794239ac3.zip | |
Start helpers directory.
Diffstat (limited to 'helpers/testnet.awk')
| -rw-r--r-- | helpers/testnet.awk | 12 |
1 files changed, 12 insertions, 0 deletions
diff --git a/helpers/testnet.awk b/helpers/testnet.awk new file mode 100644 index 00000000..0200f312 --- /dev/null +++ b/helpers/testnet.awk @@ -0,0 +1,12 @@ +BEGIN { + URL = ARGV[1]; ARGV[1] = "" + if (Method == "") Method = "GET" + HttpService = "/inet/tcp/0/www.yahoo.com/80" + ORS = RS = "\r\n\r\n" + print Method " " URL "/index.html HTTP/1.0" |& HttpService + HttpService |& getline Header + print Header > "/dev/stderr" + while ((HttpService |& getline) > 0) + printf "%s", $0 + close(HttpService) + } |