61 lines
1.3 KiB
Raku
Executable file
61 lines
1.3 KiB
Raku
Executable file
#!/usr/bin/env raku
|
|
use v6.e.PREVIEW;
|
|
|
|
use DB;
|
|
|
|
my %*SUB-MAIN-OPTS =
|
|
:named-anywhere,
|
|
:bundling,
|
|
;
|
|
|
|
my IO::Path:D $blog-dir = $*PROGRAM.parent;
|
|
#= The directory this script is located in
|
|
|
|
#| Load the database from the provided file
|
|
sub load-db(IO::Path $file --> DB::PostDB:D) {
|
|
my $result = DB::PostDB.from-json: $file.slurp;
|
|
if $result ~~ DB::PostDB:D {
|
|
return $result;
|
|
} else {
|
|
die "Error parsing $file as databse: $result";
|
|
}
|
|
}
|
|
|
|
#| Initalize the database
|
|
multi MAIN(
|
|
"db",
|
|
"init",
|
|
#| The path of the database file
|
|
IO::Path :$file = $blog-dir.add("db.json"),
|
|
#| Overwrite an already existing database file
|
|
Bool :$force
|
|
) {
|
|
die "Database file already exists, use --force to overwrite: {$file.Str}"
|
|
if $file.e && !$force;
|
|
|
|
print "Blog Title: ";
|
|
my $title = get;
|
|
print "Tagline: ";
|
|
my $tagline = get;
|
|
|
|
my $meta = DB::BlogMeta.new: title => $title, tagline => $tagline;
|
|
|
|
my $db = DB::PostDB.new: meta => $meta;
|
|
|
|
if $force {
|
|
$file.spurt: $db.to-json, :create-only;
|
|
} else {
|
|
$file.spurt: $db.to-json;
|
|
}
|
|
}
|
|
|
|
#| Ensure that the database loads, erroring otherwise
|
|
multi MAIN(
|
|
"db",
|
|
"verify",
|
|
#| The path of the database file
|
|
IO::Path :$file = $blog-dir.add("db.json"),
|
|
) {
|
|
load-db $file;
|
|
say "Database OK";
|
|
}
|