1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
|
$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
|
