.woodpecker/.build.yml

@@ -36,6 +36,22 @@ pipeline:
     when:
       event: push
 
+  cli:
+    image: 'chewingbever/vlang:latest'
+    environment:
+      - LDFLAGS=-static
+    commands:
+      - make cli-prod
+      # Make sure the binary is actually statically built
+      - readelf -d vieterctl
+      - du -h vieterctl
+      - '[ "$(readelf -d vieterctl | grep NEEDED | wc -l)" = 0 ]'
+      # This removes so much, it's amazing
+      - strip -s vieterctl
+      - du -h vieterctl
+    when:
+      event: push
+
   upload:
     image: 'chewingbever/vlang:latest'
     secrets: [ s3_username, s3_password ]
@@ -58,5 +74,20 @@ pipeline:
         -H "Content-Type: $CONTENT_TYPE"
         -H "Authorization: AWS $S3_USERNAME:$SIGNATURE"
         https://$URL$OBJ_PATH
+
+      # Also update the CLI tool
+      - export OBJ_PATH="/vieter/commits/$CI_COMMIT_SHA/vieterctl-$(echo '${PLATFORM}' | sed 's:/:-:g')"
+      - export SIG_STRING="PUT\n\n$CONTENT_TYPE\n$DATE\n$OBJ_PATH"
+      - export SIGNATURE=`echo -en $SIG_STRING | openssl sha1 -hmac $S3_PASSWORD -binary | base64`
+      - >
+        curl 
+        --silent
+        -XPUT
+        -T vieterctl
+        -H "Host: $URL"
+        -H "Date: $DATE"
+        -H "Content-Type: $CONTENT_TYPE"
+        -H "Authorization: AWS $S3_USERNAME:$SIGNATURE"
+        https://$URL$OBJ_PATH
     when:
       event: push

Makefile

@@ -42,6 +42,18 @@ pvieter: $(SOURCES)
 c:
 	$(V) -o vieter.c $(SRC_DIR)
 
+# Build the CLI tool
+.PHONY: cli
+cli: dvieterctl
+dvieterctl: cli.v
+	$(V_PATH) -showcc -g -o dvieterctl cli.v
+
+.PHONY: cli-prod
+cli-prod: vieterctl
+vieterctl: cli.v
+cli-prod:
+	$(V_PATH) -showcc -o vieterctl -prod cli.v
+
 # =====EXECUTION=====
 # Run the server in the default 'data' directory
 .PHONY: run

PKGBUILD

@@ -1,7 +1,7 @@
 # Maintainer: Jef Roosens
 
 pkgbase='vieter'
-pkgname='vieter'
+pkgname=('vieter' 'vieterctl')
 pkgver=0.1.0.rc1.r45.g6d3ff8a
 pkgrel=1
 depends=('glibc' 'openssl' 'libarchive' 'gc')
@@ -23,12 +23,21 @@ build() {
     # Build the compiler
     CFLAGS= make v
 
+    # Build the server & the CLI tool
     make prod
+    make cli-prod
 }
 
-package() {
+package_vieter() {
     pkgdesc="Vieter is a lightweight implementation of an Arch repository server."
     install -dm755 "$pkgdir/usr/bin"
 
     install -Dm755 "$pkgbase/pvieter" "$pkgdir/usr/bin/vieter"
 }
+
+package_vieterctl() {
+    pkgdesc="Allows you to configure a Vieter server's list of Git repositories."
+    install -dm755 "$pkgdir/usr/bin"
+
+    install -Dm755 "$pkgbase/vieterctl" "$pkgdir/usr/bin/vieterctl"
+}

src/build.v

@@ -1,4 +1,4 @@
-module build
+module main
 
 import docker
 import encoding.base64
@@ -7,8 +7,6 @@ import json
 import server
 import env
 import net.http
-import cli
-import git
 
 const container_build_dir = '/build'
 
@@ -64,13 +62,15 @@ fn create_build_image() ?string {
 	return image.id
 }
 
-fn build(conf env.BuildConfig) ? {
+fn build() ? {
+	conf := env.load<env.BuildConfig>() ?
+
 	// We get the repos list from the Vieter instance
 	mut req := http.new_request(http.Method.get, '$conf.address/api/repos', '') ?
 	req.add_custom_header('X-Api-Key', conf.api_key) ?
 
 	res := req.do() ?
-	repos := json.decode([]git.GitRepo, res.text) ?
+	repos := json.decode([]server.GitRepo, res.text) ?
 
 	// No point in doing work if there's no repos present
 	if repos.len == 0 {

src/build/cli.v

@@ -1,16 +0,0 @@
-module build
-
-import cli
-import env
-
-pub fn cmd() cli.Command {
-	return cli.Command{
-		name: 'build'
-		description: 'Run the build process.'
-		execute: fn (cmd cli.Command) ? {
-			conf := env.load<env.BuildConfig>() ?
-
-			build(conf) ?
-		}
-	}
-}

src/env.v

@@ -56,9 +56,15 @@ fn get_env_var(field_name string) ?string {
 	}
 }
 
-fn load_in_place<T>(mut o T) ? {
+// load<T> attempts to create the given type from environment variables. For
+// each field, the corresponding env var is its name in uppercase prepended
+// with the hardcoded prefix. If this one isn't present, it looks for the env
+// var with the file_suffix suffix.
+pub fn load<T>() ?T {
+	res := T{}
+
 	$for field in T.fields {
-		o.$(field.name) = get_env_var(field.name) or {
+		res.$(field.name) = get_env_var(field.name) or {
 			// We use the default instead, if it's present
 			mut default := ''
 
@@ -76,19 +82,5 @@ fn load_in_place<T>(mut o T) ? {
 			default
 		}
 	}
-}
-
-// load<T> attempts to create the given type from environment variables. For
-// each field, the corresponding env var is its name in uppercase prepended
-// with the hardcoded prefix. If this one isn't present, it looks for the env
-// var with the file_suffix suffix.
-pub fn load<T>() ?T {
-	mut res := T{}
-
-	load_in_place<T>(mut res) ?
-
 	return res
 }
-
-pub fn load_with_file<T>(path string) ?T {
-}

src/git/cli.v

@@ -1,37 +0,0 @@
-module git
-
-import cli
-import env
-import net.http
-
-struct Config {
-	address string [required]
-	api_key string [required]
-}
-
-pub fn cmd() cli.Command {
-	return cli.Command{
-		name: 'repos'
-		description: 'Interact with the repos API.'
-		commands: [
-			cli.Command{
-				name: 'list'
-				description: 'List the current repos.'
-				execute: fn (cmd cli.Command) ? {
-					conf := env.load<Config>() ?
-
-					list(conf) ?
-				}
-			},
-		]
-	}
-}
-
-fn list(conf Config) ? {
-	mut req := http.new_request(http.Method.get, '$conf.address/api/repos', '') ?
-	req.add_custom_header('X-API-Key', conf.api_key) ?
-
-	res := req.do() ?
-
-	println(res.text)
-}

src/git/git.v

@@ -1,39 +0,0 @@
-module git
-
-import os
-import json
-
-pub struct GitRepo {
-pub:
-	url    string [required]
-	branch string [required]
-}
-
-pub fn read_repos(path string) ?[]GitRepo {
-	if !os.exists(path) {
-		mut f := os.create(path) ?
-
-		defer {
-			f.close()
-		}
-
-		f.write_string('[]') ?
-
-		return []
-	}
-
-	content := os.read_file(path) ?
-	res := json.decode([]GitRepo, content) ?
-	return res
-}
-
-pub fn write_repos(path string, repos []GitRepo) ? {
-	mut f := os.create(path) ?
-
-	defer {
-		f.close()
-	}
-
-	value := json.encode(repos)
-	f.write_string(value) ?
-}

src/main.v

@@ -3,33 +3,15 @@ module main
 import os
 import server
 import util
-import cli
-import env
-import build
-import git
 
 fn main() {
-	mut app := cli.Command{
+	if os.args.len == 1 {
-		name: 'vieter'
+		util.exit_with_message(1, 'No action provided.')
-		description: 'Arch repository server'
-		version: '0.1.0'
-		flags: [
-			cli.Flag{
-				flag: cli.FlagType.string
-				name: 'config-file'
-				abbrev: 'f'
-				description: 'Location of Vieter config file; defaults to ~/.vieterrc.'
-				global: true
-				default_value: [os.expand_tilde_to_home('~/.vieterrc')]
-			},
-		]
-		commands: [
-			server.cmd(),
-			build.cmd(),
-			git.cmd(),
-		]
 	}
 
-	app.setup()
+	match os.args[1] {
-	app.parse(os.args)
+		'server' { server.server() ? }
+		'build' { build() ? }
+		else { util.exit_with_message(1, 'Unknown action: ${os.args[1]}') }
+	}
 }

src/server/cli.v

@@ -1,16 +0,0 @@
-module server
-
-import cli
-import env
-
-pub fn cmd() cli.Command {
-	return cli.Command{
-		name: 'server'
-		description: 'Start the Vieter server'
-		execute: fn (cmd cli.Command) ? {
-			conf := env.load<env.ServerConfig>() ?
-
-			server(conf) ?
-		}
-	}
-}

src/server/git.v

@@ -3,10 +3,44 @@ module server
 import web
 import os
 import json
-import git
 
 const repos_file = 'repos.json'
 
+pub struct GitRepo {
+pub:
+	url    string [required]
+	branch string [required]
+}
+
+fn read_repos(path string) ?[]GitRepo {
+	if !os.exists(path) {
+		mut f := os.create(path) ?
+
+		defer {
+			f.close()
+		}
+
+		f.write_string('[]') ?
+
+		return []
+	}
+
+	content := os.read_file(path) ?
+	res := json.decode([]GitRepo, content) ?
+	return res
+}
+
+fn write_repos(path string, repos []GitRepo) ? {
+	mut f := os.create(path) ?
+
+	defer {
+		f.close()
+	}
+
+	value := json.encode(repos)
+	f.write_string(value) ?
+}
+
 ['/api/repos'; get]
 fn (mut app App) get_repos() web.Result {
 	if !app.is_authorized() {
@@ -14,7 +48,7 @@ fn (mut app App) get_repos() web.Result {
 	}
 
 	repos := rlock app.git_mutex {
-		git.read_repos(app.conf.repos_file) or {
+		read_repos(app.conf.repos_file) or {
 			app.lerror('Failed to read repos file.')
 
 			return app.server_error(500)
@@ -34,13 +68,13 @@ fn (mut app App) post_repo() web.Result {
 		return app.server_error(400)
 	}
 
-	new_repo := git.GitRepo{
+	new_repo := GitRepo{
 		url: app.query['url']
 		branch: app.query['branch']
 	}
 
 	mut repos := rlock app.git_mutex {
-		git.read_repos(app.conf.repos_file) or {
+		read_repos(app.conf.repos_file) or {
 			app.lerror('Failed to read repos file.')
 
 			return app.server_error(500)
@@ -57,7 +91,7 @@ fn (mut app App) post_repo() web.Result {
 	repos << new_repo
 
 	lock app.git_mutex {
-		git.write_repos(app.conf.repos_file, repos) or { return app.server_error(500) }
+		write_repos(app.conf.repos_file, repos) or { return app.server_error(500) }
 	}
 
 	return app.ok('Repo added successfully.')
@@ -73,13 +107,13 @@ fn (mut app App) delete_repo() web.Result {
 		return app.server_error(400)
 	}
 
-	repo_to_remove := git.GitRepo{
+	repo_to_remove := GitRepo{
 		url: app.query['url']
 		branch: app.query['branch']
 	}
 
 	mut repos := rlock app.git_mutex {
-		git.read_repos(app.conf.repos_file) or {
+		read_repos(app.conf.repos_file) or {
 			app.lerror('Failed to read repos file.')
 
 			return app.server_error(500)
@@ -88,7 +122,7 @@ fn (mut app App) delete_repo() web.Result {
 	filtered := repos.filter(it != repo_to_remove)
 
 	lock app.git_mutex {
-		git.write_repos(app.conf.repos_file, filtered) or { return app.server_error(500) }
+		write_repos(app.conf.repos_file, filtered) or { return app.server_error(500) }
 	}
 
 	return app.ok('Repo removed successfully.')

src/server/server.v

@@ -6,7 +6,6 @@ import log
 import repo
 import env
 import util
-import cli
 
 const port = 8000
 
@@ -21,7 +20,9 @@ pub mut:
 }
 
 // server starts the web server & starts listening for requests
-pub fn server(conf env.ServerConfig) ? {
+pub fn server() ? {
+	conf := env.load<env.ServerConfig>() ?
+
 	// Configure logger
 	log_level := log.level_from_tag(conf.log_level) or {
 		util.exit_with_message(1, 'Invalid log level. The allowed values are FATAL, ERROR, WARN, INFO & DEBUG.')