1 files changed, 89 insertions, 0 deletions
diff --git a/content/techjournal/perl_script_to_create_quicknotes_page.md b/content/techjournal/perl_script_to_create_quicknotes_page.md
new file mode 100644
index 0000000..c3424ab
--- /dev/null
+++ b/content/techjournal/perl_script_to_create_quicknotes_page.md
@@ -0,0 +1,89 @@
+---
+title: "Perl script to create this quicknotes page"
+date: 2024-05-26T11:58:04+01:00
+draft: false
+categories: ['Computing']
+tags: ['perl']
+---
+
+I use [quicknote](https://git.yulqen.org/go/quicknote/), written in Go, to add the links to an intermediate page, and then the following Perl to push it to the server.
+This is rough, rookie code at its finest.
+
+I like Perl.
+
+{{< highlight perl >}}
+#!/usr/bin/env -S perl -w
+
+use 5.010;
+use warnings;
+use strict;
+use DateTime;
+use File::Copy;
+use Cwd qw(getcwd);
+
+my $description = $ARGV[0];
+
+if (not defined $description) {
+    print "Please pass even a paltry introductory sentence in quotes. Thanks.\n";
+    exit;
+}
+
+sub get_quicknotes {
+    my $quicknote_file = "/home/lemon/Documents/Notes/quicknote.md";
+    my $bak = "/home/lemon/Documents/Notes/quicknote.md-BAK";
+    copy($quicknote_file, $bak) or die "Failed to make backup of file: $!";
+    my @quicknotes;
+    open my $fh, "<", $quicknote_file or die "Cannot open quicknote.md file";
+    while (<$fh>) {
+        if ($_ =~ /^- (.*)$/) {
+            push @quicknotes => "- $1\n";
+        }
+    }
+    truncate $quicknote_file, 0;
+    return \@quicknotes;
+}
+
+
+my $now = DateTime->now;
+my $day_name = $now->day_name;
+my $day = $now->day;
+my $month = $now->month_name;
+my $year = $now->year;
+
+my $outfile = "/home/lemon/code/html/yulqen.org/content/techjournal/quicknote_capture_${day}_${month}_$year.md";
+
+my $frontmatter = <<TEXT;
+---
+title: "Quicknote capture $day_name $day $month $year"
+date: $now
+draft: false
+categories: ["Tech"]
+tags: ['quicknotes']
+---
+
+$description
+
+TEXT
+
+my $qn_ref = get_quicknotes();
+open my $FH, ">>", $outfile or die $!;
+print $FH $frontmatter;
+foreach (@{$qn_ref}) {
+    print $FH $_;
+}
+close($FH);
+
+chdir "/home/lemon/code/html/yulqen.org";
+say getcwd();
+my @gitaddcmd = ("git add -A");
+my @gitcommitcmd = ("git commit -m 'update'");
+my @gitpushcmd = ("git push");
+my @pushcmd = ("make push");
+system(@pushcmd) or die "Cannot push the file to the remote: $?";
+system(@gitaddcmd) or die "Cannot do git add $?";
+system(@gitcommitcmd) or die "Cannot do git commit: $?";
+system(@gitpushcmd) or die "Cannot do git push: $?";
+
+say "Done!";
+{{< /highlight >}}
+