#!/bin/perl

# This program searches the VECTS directory for files without an entry in the knotDB file,
# and adds the file to the database if needed, together with information about the geometry of the knot
# It is a replacement for maint.pl and calls spreadvect.pl as before.

use strict;
use warnings;
use File::Slurp;
use File::Path;
use Data::Dumper;
use File::Copy;

# We start by loading the database.

my $DBFILE = read_file('KnotDB.pl');
my %knots;
eval($DBFILE);
