Moved project directories and files to an empty local repo

Link_Checker/scan_links

@@ -0,0 +1,64 @@
+#!/usr/bin/env perl
+#===============================================================================
+#
+#         FILE: scan_links
+#
+#        USAGE: ./scan_links  
+#
+#  DESCRIPTION: Scan the notes in the database for links. Test each link to
+#               see if it's available. Keep a record of the date, show, link
+#               and result. If a link fails more than N tests take action.
+#               Possible actions are:
+#               - report the problem
+#               - look for the link on archive.org
+#               - modify the notes
+#
+#      OPTIONS: ---
+# REQUIREMENTS: ---
+#         BUGS: ---
+#        NOTES: ---
+#       AUTHOR: Dave Morriss (djm), Dave.Morriss@gmail.com
+#      VERSION: 0.0.1
+#      CREATED: 2017-04-02 14:09:02
+#     REVISION: 2017-04-02 14:51:19
+#
+#===============================================================================
+
+use 5.010;
+use strict;
+use warnings;
+use utf8;
+
+
+#
+# Version number (manually incremented)
+#
+our $VERSION = '0.0.1';
+
+#
+# Script and directory names
+#
+( my $PROG = $0 ) =~ s|.*/||mx;
+( my $DIR  = $0 ) =~ s|/?[^/]*$||mx;
+$DIR = '.' unless $DIR;
+
+#-------------------------------------------------------------------------------
+# Declarations
+#-------------------------------------------------------------------------------
+#
+# Constants and other declarations
+#
+my $basedir    = "$ENV{HOME}";
+
+
+#
+# Enable Unicode mode
+#
+binmode STDOUT, ":encoding(UTF-8)";
+binmode STDERR, ":encoding(UTF-8)";
+
+
+exit;
+
+# vim: syntax=perl:ts=8:sw=4:et:ai:tw=78:fo=tcrqn21:fdm=marker
+