add upload command

blog

@@ -417,3 +417,23 @@ multi MAIN(
     $series.post-ids.push: $post-id.Int;
     $db.write: $db-dir;
 }
+
+#| Do a clean build and upload the blog to the remote
+multi MAIN(
+    "upload",
+    #| The path of the database directory
+    IO::Path(Str) :$db-dir = $default-db-dir,
+    #| The path of the output directory
+    IO::Path(Str) :$site-dir = $default-site-dir,
+) {
+    my $db = read-db $db-dir;
+    my $site = "{$site-dir.absolute}/";
+    # Clean out the site dir
+    my $proc = run <rm -rf>, $site;
+    die "clean failed" unless $proc;
+    # Render the site
+    $db.render: $site-dir;
+    # Upload it
+    $proc = run <rsync -avzhL>, $site, <static.stranger.systems:/var/www/www.stranger.system>;
+    die "rsync failed" unless $proc;
+}