Get, Head

diff --git a/etc/aliases b/etc/aliases
index b74a5d78184d6a62e2494018986e991b51dd525b..300251fa9447c2993e3d6e733e76b3996892fce6 100644 (file)
--- a/etc/aliases
+++ b/etc/aliases
@@ -54,6 +54,14 @@ elif which curl &> /dev/null; then
   alias Head="curl -s --head"
   alias Get="curl -s --get -L"
 fi
+# NB 15.07.15 function nbGet() {
+# NB 15.07.15   declare host port uri
+# NB 15.07.15   eval $(perl -ne 'm,^\s*\w+://([^/:]+)(?::(\d+))?(/.*)?\s*$, and print qq|host=$1 port=$2 uri=$3\n|' <<< "$@")
+# NB 15.07.15   [ -z "$port" ] && port=80
+# NB 15.07.15   [ -z "$uri" ] && uri='/'
+# NB 15.07.15   echo $host $port $uri
+# NB 15.07.15   printf "GET $uri HTTP/1.0\r\nHost: $host\r\n\r\n" |nc -i 5 $host $port
+# NB 15.07.15 }
 
 #--------------------------------------------------------------------------------
 # bc