#!/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