chasquid-util: Add domaininfo-remove

This patch adds a chasquid-util subcommand to remove a domain
information entry.

The main use case is to manually allow a security level downgrade, after
performing manual verification.

cmd/chasquid-util/chasquid-util.go

@@ -8,6 +8,7 @@ package main
 import (
 	"fmt"
 	"io/ioutil"
+	"net/url"
 	"os"
 	"path/filepath"
 	"syscall"
@@ -33,6 +34,7 @@ Usage:
   chasquid-util [options] authenticate <username> [--password=<password>]
   chasquid-util [options] check-userdb <domain>
   chasquid-util [options] aliases-resolve <address>
+  chasquid-util [options] domaininfo-remove <domain>
   chasquid-util [options] print-config
 
 Options:
@@ -56,12 +58,13 @@ func main() {
 	}
 
 	commands := map[string]func(){
-		"user-add":        userAdd,
-		"user-remove":     userRemove,
-		"authenticate":    authenticate,
-		"check-userdb":    checkUserDB,
-		"aliases-resolve": aliasesResolve,
-		"print-config":    printConfig,
+		"user-add":          userAdd,
+		"user-remove":       userRemove,
+		"authenticate":      authenticate,
+		"check-userdb":      checkUserDB,
+		"aliases-resolve":   aliasesResolve,
+		"print-config":      printConfig,
+		"domaininfo-remove": domaininfoRemove,
 	}
 
 	for cmd, f := range commands {
@@ -247,3 +250,22 @@ func printConfig() {
 
 	fmt.Println(proto.MarshalTextString(conf))
 }
+
+// chasquid-util domaininfo-remove <domain>
+func domaininfoRemove() {
+	domain := args["<domain>"].(string)
+
+	conf, err := config.Load(configDir + "/chasquid.conf")
+	if err != nil {
+		Fatalf("Error reading config")
+	}
+
+	// File for the corresponding domain.
+	// Note this is making some assumptions about the data layout and
+	// protoio's storage structure, so it will need adjustment if they change.
+	file := conf.DataDir + "/domaininfo/s:" + url.QueryEscape(domain)
+	err = os.Remove(file)
+	if err != nil {
+		Fatalf("Error removing file: %v", err)
+	}
+}

cmd/chasquid-util/test.sh

@@ -19,8 +19,9 @@ function check_userdb() {
 }
 
 
-mkdir -p .config/domains/domain
-touch .config/chasquid.conf
+mkdir -p .config/domains/domain/ .data/domaininfo
+rm -f .config/chasquid.conf
+echo 'data_dir: ".data"' >> .config/chasquid.conf
 
 if ! r print-config > /dev/null; then
 	echo print-config failed
@@ -54,6 +55,16 @@ if r authenticate user@domain --password=passwd > /dev/null; then
 	exit 1
 fi
 
+touch '.data/domaininfo/s:dom%C3%A1in'
+if ! r domaininfo-remove domáin; then
+	echo domaininfo-remove failed
+	exit 1
+fi
+if [ -f '.data/domaininfo/s:dom%C3%A1in' ]; then
+	echo domaininfo-remove did not remove file
+	exit 1
+fi
+
 echo "alias: user@somewhere" > .config/domains/domain/aliases
 A=$(r aliases-resolve alias@domain | grep somewhere)
 if [ "$A" != "(email)  user@somewhere" ]; then