28 lines
1 KiB
Awk
28 lines
1 KiB
Awk
$NetBSD: patch-get.gawk,v 1.3 2019/06/15 15:16:30 christos Exp $
|
|
|
|
o Add a new parameter to specify the name of the url to get the files from.
|
|
Well, partial name but that is good enough.
|
|
o Add a user-agent, because iana now requires one
|
|
|
|
--- get.gawk.orig 2008-03-05 13:04:18.000000000 -0500
|
|
+++ get.gawk 2019-06-15 11:14:57.692498675 -0400
|
|
@@ -7,7 +7,7 @@
|
|
|
|
# get.awk: retrieves IANA numbers assignments from iana.org.
|
|
# Requires GNU Awk.
|
|
-# Usage: get.gawk -v file=<filename>
|
|
+# Usage: get.gawk -v url=<url> file=<filename>
|
|
|
|
BEGIN {
|
|
host = "www.iana.org"
|
|
@@ -15,8 +15,8 @@
|
|
# file is set by the caller
|
|
socket = "/inet/tcp/0/" host "/80"
|
|
|
|
- print "Getting http://" host path file >"/dev/stderr"
|
|
- printf "GET %s%s HTTP/1.0\r\nHost: %s\r\n\r\n", path, file, host |& socket
|
|
+ print "Getting http://" host path url "/" url ".txt" >"/dev/stderr"
|
|
+ printf "GET %s%s/%s.txt HTTP/1.0\r\nHost: %s\r\nUser-Agent: MickeyMouse/1.0\r\n\r\n", path, url, url, host |& socket
|
|
printf "Request sent, waiting for data... " >"/dev/stderr"
|
|
|
|
NR = 0
|