Remove broken journal scripts

2 files changed, 0 insertions, 48 deletions

diff --git a/scripts/missing-journal-person-create b/scripts/missing-journal-person-create
deleted file mode 100755
index abbdea3..0000000
--- a/scripts/missing-journal-person-create
+++ /dev/null
@@ -1,28 +0,0 @@
-#!/usr/bin/perl
-
-use strict;
-use warnings;
-
-open(INPUT, "<", "/home/liw/Journal/html/index.html");
-while (<INPUT>) {
-    if (/^<li><span class="createlink">.*page=people%2F([^&]*).*\n$/) {
-        s//$1/;
-        my $basename = $_;
-        my @names = split /\./, $_;
-        my @Names = map ucfirst, @names;
-        my $family = shift @Names;
-        my $given = join ' ', @Names;
-        my $realname = "$family, $given";
-        my $pathname = "/home/liw/Journal/src/people/$basename.mdwn";
-        if (!-e $pathname) {
-            print "$realname\n";
-            open(OUTPUT, ">", $pathname);
-            print OUTPUT "[[!meta title=\"$realname\"]]\n\n";
-            print OUTPUT "[[!inline feeds=no ";
-            print OUTPUT "pages=\"notes/* and !notes/*/* and ";
-            print OUTPUT "link(people/$basename)\"]]\n";
-            close(OUTPUT);
-        }
-    }
-}
-
diff --git a/scripts/missing-journal-tag-create b/scripts/missing-journal-tag-create
deleted file mode 100755
index 62dda5a..0000000
--- a/scripts/missing-journal-tag-create
+++ /dev/null
@@ -1,20 +0,0 @@
-#!/usr/bin/perl
-
-use strict;
-use warnings;
-
-open(INPUT, "<", "/home/liw/Journal/html/index.html");
-while (<INPUT>) {
-    if (/^<li><span class="createlink">.*page=%2Ftag%2F([^&]*)&amp;from=notes%2F.*\n$/) {
-        s//$1/;
-        my $tag = $_;
-        my $pathname = "/home/liw/Journal/src/tag/$tag.mdwn";
-        if (!-e $pathname) {
-            print "$tag\n";
-            open(OUTPUT, ">", $pathname);
-            print OUTPUT "[[!inline archive=yes pages=\"link(tag/$tag)\"]]\n";
-            close(OUTPUT);
-        }
-    }
-}
-