require "shared_snarfer.pl";
-use Env qw(HOME);
+use Env qw(FEISTY_MEOW_APEX);
&initialize_snarfer; # let the snarfer hook us in.
&backup_number("aa_backup", $snarf_file_base, $number);
# the top directory where everything we're grabbing lives.
-local($root) = &canonicalize("$HOME/feisty_meow");
+local($root) = &canonicalize("$FEISTY_MEOW_APEX");
# grab the top level stuff.
&backup_files($snarf_file_base, $number, $root, ".", ("*.txt", "make*", ".gitignore"));
###moved &backup_hierarchy($snarf_file_base, $number, $root, "customize");
&backup_hierarchy($snarf_file_base, $number, $root, "infobase");
&backup_hierarchy($snarf_file_base, $number, $root, "documentation");
-&backup_hierarchy($snarf_file_base, $number, $root, "examples");
-&backup_hierarchy($snarf_file_base, $number, $root, "feisty_inits");
+&backup_hierarchy($snarf_file_base, $number, $root, "experiments");
&backup_hierarchy($snarf_file_base, $number, $root, "graphiq");
&backup_hierarchy($snarf_file_base, $number, $root, "huffware");
&backup_hierarchy($snarf_file_base, $number, $root, "kona");