go: implement with htgen

krebs/3modules/go.nix

@@ -13,52 +13,78 @@ let
   api = {
     enable = mkEnableOption "Enable go url shortener";
     port = mkOption {
-      type = types.str;
+      type = types.int;
-      default = "1337";
+      default = 1337;
       description = "on which port go should run on";
     };
-    redisKeyPrefix = mkOption {
-      type = types.str;
-      default = "go:";
-      description = "change the Redis key prefix which defaults to `go:`";
-    };
   };
 
   imp = {
-    services.redis = {
+    krebs.htgen.go = {
-      enable = mkDefault true;
+      port = cfg.port;
-      bind = mkDefault "127.0.0.1";
+      script = ''. ${pkgs.writeDash "go" ''
-    };
+        find_item() {
+          if test ''${#1} -ge 7; then
+            set -- "$(find "$STATEDIR/items" -mindepth 1 -maxdepth 1 \
+                -regex "$STATEDIR/items/$1[0-9A-Za-z]*$")"
+            if test -n "$1" && test $(echo "$1" | wc -l) = 1; then
+              echo "$1"
+              return 0
+            fi
+          fi
+          return 1
+        }
 
-    users.extraUsers.go = rec {
+        STATEDIR=$HOME
-      name = "go";
+        mkdir -p "$STATEDIR/items"
-      uid = genid name;
-      description = "go url shortener user";
-      home = "/var/lib/go";
-      createHome = true;
-    };
 
-    systemd.services.go = {
+        case "$Method $Request_URI" in
-      description = "go url shortener";
+          "GET /"*)
-      after = [ "network.target" ];
+            if item=$(find_item "''${Request_URI#/}"); then
-      wantedBy = [ "multi-user.target" ];
+              uri=$(cat "$item")
+              printf 'HTTP/1.1 302 Found\r\n'
+              printf 'Content-Type: text/plain\r\n'
+              printf 'Connection: closed\r\n'
+              printf 'Location: %s\r\n' "$uri"
+              printf '\r\n'
+              exit
+            fi
+          ;;
+          "POST /")
+            uri=$(mktemp -t htgen.$$.content.XXXXXXXX)
+            trap 'rm $uri >&2' EXIT
 
-      path = with pkgs; [
+            head -c "$req_content_length" \
-        go-shortener
+              | sed 's/+/ /g;s/%\(..\)/\\x\1/g;' \
-      ];
+              | xargs -0 echo -e \
+              | tee /tmp/tee.log \
+              | ${pkgs.urix}/bin/urix \
+              | head -1 \
+              > "$uri"
+            sha256=$(sha256sum -b "$uri" | cut -d\  -f1)
+            base32=$(${pkgs.nixStable}/bin/nix-hash --to-base32 --type sha256 "$sha256")
+            item="$STATEDIR/items/$base32"
+            ref="http://$req_host/$base32"
 
-      environment = {
+            if ! test -e "$item"; then
-        PORT = cfg.port;
+              mkdir -v -p "$STATEDIR/items" >&2
-        REDIS_KEY_PREFIX = cfg.redisKeyPrefix;
+              cp -v "$uri" "$item" >&2
-      };
+            fi
 
-      restartIfChanged = true;
+            base32short=$(echo "$base32" | cut -b-7)
+            if item=$(find_item "$base32short"); then
+              ref="http://$req_host/$base32short"
+            fi
 
-      serviceConfig = {
+            printf 'HTTP/1.1 200 OK\r\n'
-        User = "go";
+            printf 'Content-Type: text/plain; charset=UTF-8\r\n'
-        Restart = "always";
+            printf 'Connection: close\r\n'
-        ExecStart = "${pkgs.go-shortener}/bin/go";
+            printf '\r\n'
-      };
+            printf '%s\n' "$ref"
+            exit
+          ;;
+        esac
+      ''}'';
     };
   };