diff options
| author | Juergen Kahrs <Juergen.Kahrs@googlemail.com> | 2013-06-01 18:12:23 +0200 |
|---|---|---|
| committer | Juergen Kahrs <Juergen.Kahrs@googlemail.com> | 2013-06-01 18:12:23 +0200 |
| commit | 37be8a17ee9e955dec8bbddb8cd2b31487e44a0c (patch) | |
| tree | af9323636c991634144ddb5532d975f08ac56282 /helpers/testnet.awk | |
| parent | 1a4fe61b7ad390740a0c70a0175b82301c083704 (diff) | |
| parent | 5482bf19246965d6839fe9df1aec0785f0b1a329 (diff) | |
| download | egawk-37be8a17ee9e955dec8bbddb8cd2b31487e44a0c.tar.gz egawk-37be8a17ee9e955dec8bbddb8cd2b31487e44a0c.tar.bz2 egawk-37be8a17ee9e955dec8bbddb8cd2b31487e44a0c.zip | |
Merge remote-tracking branch 'origin/master' into cmake
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) + } |