tossed a couple antiquated scripts, removed QUARTZ_DIR which is no longer used.
authorChris Koeritz <fred@gruntose.com>
Fri, 18 Oct 2013 13:57:05 +0000 (09:57 -0400)
committerChris Koeritz <fred@gruntose.com>
Fri, 18 Oct 2013 13:57:05 +0000 (09:57 -0400)
customizing/fred/fred_variables.sh
scripts/archival/snarf_fred_data.pl [deleted file]
scripts/archival/snarf_quartz.pl [deleted file]

index 50c86ee18f05ce8be7d4f412035c30c36ee85d7b..2f13d5e547995e3a6d6c54e00d74b404ffa9c174 100644 (file)
@@ -4,9 +4,6 @@
 if [ -z "$NETHACKOPTIONS" ]; then
   # if we don't see the nethack variable defined, this probably hasn't run yet.
 
-  # The quartz directory has *really* personalized items.
-  export QUARTZDIR=$HOME/quartz
-
   # The cloud directory is our new repository that's always available.  It serves as our
   # personal cloud for data.
   export CLOUD_DIR=$HOME/cloud
diff --git a/scripts/archival/snarf_fred_data.pl b/scripts/archival/snarf_fred_data.pl
deleted file mode 100644 (file)
index 1aff83c..0000000
+++ /dev/null
@@ -1,52 +0,0 @@
-#!/usr/bin/perl
-
-###############################################################################
-#                                                                             #
-#  Name   : snarf_fred_data                                                   #
-#  Author : Chris Koeritz                                                     #
-#  Rights : Copyright (C) 2000-$now by Author                                 #
-#                                                                             #
-#  Purpose:                                                                   #
-#                                                                             #
-#    Creates an archive with all of fred's important data trees.              #
-#                                                                             #
-###############################################################################
-#  This program is free software; you can redistribute it and/or modify it    #
-#  under the terms of the GNU General Public License as published by the Free #
-#  Software Foundation; either version 2 of the License or (at your option)   #
-#  any later version.  See: "http://www.gruntose.com/Info/GNU/GPL.html" for a #
-#  version of the License.  Please send any updates to "fred@gruntose.com".   #
-###############################################################################
-
-require "shared_snarfer.pl";
-
-use Env qw(HOME);
-
-&initialize_snarfer;
-
-# get the number we use and increment it for the next use.
-local($number) = &retrieve_number("aa_backup");
-
-# variables for directory location to backup and the file to dump it in.
-local($root) = "$HOME";
-local($snarf_file_base) = &snarf_prefix("fred_data");
-local($snarf_file) = &snarf_name($snarf_file_base, $number);
-
-# store the archive number in the file for retrieval on the other side.
-&backup_number("aa_backup", $snarf_file_base, $number);
-
-############################################################################
-
-&backup_hierarchy($snarf_file_base, $number, "$root", "cloud");
-&backup_hierarchy($snarf_file_base, $number, "$root", "ebooks");
-&backup_hierarchy($snarf_file_base, $number, "$root", "feisty_meow");
-&backup_hierarchy($snarf_file_base, $number, "$root", "quartz");
-&backup_hierarchy($snarf_file_base, $number, "$root", "web");
-
-############################################################################
-
-# now rename the file so only the unpacker can access it.
-&rename_archive($snarf_file);
-
-exit 0;
-
diff --git a/scripts/archival/snarf_quartz.pl b/scripts/archival/snarf_quartz.pl
deleted file mode 100644 (file)
index b9d54a3..0000000
+++ /dev/null
@@ -1,50 +0,0 @@
-#!/usr/bin/perl
-
-###############################################################################
-#                                                                             #
-#  Name   : snarf_quartz                                                      #
-#  Author : Chris Koeritz                                                     #
-#  Rights : Copyright (C) 2000-$now by Author                                 #
-#                                                                             #
-#  Purpose:                                                                   #
-#                                                                             #
-#    Packs up an archive with the quartz repository.                          #
-#                                                                             #
-###############################################################################
-#  This program is free software; you can redistribute it and/or modify it    #
-#  under the terms of the GNU General Public License as published by the Free #
-#  Software Foundation; either version 2 of the License or (at your option)   #
-#  any later version.  See: "http://www.gruntose.com/Info/GNU/GPL.html" for a #
-#  version of the License.  Please send any updates to "fred@gruntose.com".   #
-###############################################################################
-
-require "shared_snarfer.pl";
-
-use Env qw(HOME);
-
-&initialize_snarfer;
-
-# get the number we use and increment it for the next use.
-local($number) = &retrieve_number("aa_backup");
-
-# variables for directory location to backup and the file to dump it in.
-local($root) = "$HOME";
-local($snarf_file_base) = &snarf_prefix("quartz");
-local($snarf_file) = &snarf_name($snarf_file_base, $number);
-
-# store the archive number in the file for retrieval on the other side.
-&backup_number("aa_backup", $snarf_file_base, $number);
-
-############################################################################
-
-# backup all the hierarchies in our quartz directory, as well as any other well known
-# repositories of goodness.
-&backup_hierarchy($snarf_file_base, $number, "$root", "quartz");
-
-############################################################################
-
-# now rename the file so only the unpacker can access it.
-&rename_archive($snarf_file);
-
-exit 0;
-