diff options
Diffstat (limited to 'scripts/missing-journal-person-create')
-rwxr-xr-x | scripts/missing-journal-person-create | 28 |
1 files changed, 0 insertions, 28 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); - } - } -} - |