X-Git-Url: https://feistymeow.org/gitweb/?a=blobdiff_plain;f=scripts%2Farchival%2Fsnarf_quartz.pl;h=b9d54a30cc913040cafd76b3a0be3ad72ac7ae98;hb=359e2d0985e617ad6de421bda835baf621523d97;hp=6985a4bc697d48de557a84996753a69fbc54e3f5;hpb=2eb70b9e9b288734a6988b2426809f2c66e927ae;p=feisty_meow.git diff --git a/scripts/archival/snarf_quartz.pl b/scripts/archival/snarf_quartz.pl index 6985a4bc..b9d54a30 100644 --- a/scripts/archival/snarf_quartz.pl +++ b/scripts/archival/snarf_quartz.pl @@ -18,9 +18,10 @@ # version of the License. Please send any updates to "fred@gruntose.com". # ############################################################################### -require "importenv.pl"; require "shared_snarfer.pl"; +use Env qw(HOME); + &initialize_snarfer; # get the number we use and increment it for the next use. @@ -36,7 +37,8 @@ local($snarf_file) = &snarf_name($snarf_file_base, $number); ############################################################################ -# backup all the hierarchies in our quartz directory. +# 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"); ############################################################################