local($snarf_file) = &snarf_name($snarf_file_base, $number);
# store the archive number in the file for retrieval on the other side.
local($snarf_file) = &snarf_name($snarf_file_base, $number);
# store the archive number in the file for retrieval on the other side.
&backup_hierarchy($snarf_file_base, $number, $root, "octopi");
&backup_hierarchy($snarf_file_base, $number, $root, "scripts");
&backup_hierarchy($snarf_file_base, $number, $root, "hypermedia");
&backup_hierarchy($snarf_file_base, $number, $root, "octopi");
&backup_hierarchy($snarf_file_base, $number, $root, "scripts");
&backup_hierarchy($snarf_file_base, $number, $root, "hypermedia");
# grab the production assets.
&backup_files($snarf_file_base, $number, $root, "production", ("*.ini", "make*", ".gitignore"));
# grab the production assets.
&backup_files($snarf_file_base, $number, $root, "production", ("*.ini", "make*", ".gitignore"));