htgen-imgur: 1.0.0 -> 1.1.0

Use HTGEN_VERBOSE for printing debug information.

krebs/5pkgs/simple/htgen-imgur/default.nix

@@ -2,7 +2,7 @@ with import <stockholm/lib>;
 { attr, coreutils, exiv2, findutils, gnugrep, jq, nix, utillinux, stdenv }:
 stdenv.mkDerivation rec {
   pname = "htgen-imgur";
-  version = "1.0.0";
+  version = "1.1.0";
 
   src = ./src;
 

krebs/5pkgs/simple/htgen-imgur/src/htgen-imgur

@@ -27,13 +27,15 @@ basic_response() {(
     }
   ')
 
-  printf "HTTP/1.1 $status_code $status_reason\r\n"
-  printf 'Connection: close\r\n'
-  printf 'Content-Length: %d\r\n' $(expr ${#response_body} + 1)
-  printf 'Content-Type: application/json; charset=UTF-8\r\n'
-  printf 'Server: %s\r\n' "$Server"
-  printf '\r\n'
-  printf '%s\n' "$response_body"
+  if test "$HTGEN_VERBOSE" = true; then
+    printf "HTTP/1.1 $status_code $status_reason\r\n"
+    printf 'Connection: close\r\n'
+    printf 'Content-Length: %d\r\n' $(expr ${#response_body} + 1)
+    printf 'Content-Type: application/json; charset=UTF-8\r\n'
+    printf 'Server: %s\r\n' "$Server"
+    printf '\r\n'
+    printf '%s\n' "$response_body"
+  fi
 
 )}
 
@@ -78,7 +80,9 @@ case "$Method $path" in
     trap "rm $content >&2" EXIT
 
     case ${req_expect-} in 100-continue)
-      printf 'HTTP/1.1 100 Continue\r\n\r\n'
+      if test "$HTGEN_VERBOSE" = true; then
+        printf 'HTTP/1.1 100 Continue\r\n\r\n'
+      fi
     esac
 
     head -c $req_content_length > $content