projects
/
feisty_meow.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
added normal storage area of old code.
[feisty_meow.git]
/
scripts
/
archival
/
snarf_user.pl
diff --git
a/scripts/archival/snarf_user.pl
b/scripts/archival/snarf_user.pl
index ce21b03a0ea98869cc4f24466542a1d0689a6461..4874e072a7c5bf71a6c9909a03ca4036b1f41e88 100644
(file)
--- a/
scripts/archival/snarf_user.pl
+++ b/
scripts/archival/snarf_user.pl
@@
-18,9
+18,10
@@
# version of the License. Please send any updates to "fred@gruntose.com". #
###############################################################################
# version of the License. Please send any updates to "fred@gruntose.com". #
###############################################################################
-require "importenv.pl";
require "shared_snarfer.pl";
require "shared_snarfer.pl";
+use Env qw(HOME USER);
+
&initialize_snarfer;
# get the number we use and increment it for the next use.
&initialize_snarfer;
# get the number we use and increment it for the next use.
@@
-28,24
+29,26
@@
local($number) = &retrieve_number("aa_backup");
# variables for directory location to backup and the file to dump it in.
local($root) = "$HOME";
# variables for directory location to backup and the file to dump it in.
local($root) = "$HOME";
-local($base) = snarf_prefix("$USER");
-local($snarf_file) = &snarf_name($base, $number);
+local($
snarf_file_
base) = snarf_prefix("$USER");
+local($snarf_file) = &snarf_name($
snarf_file_
base, $number);
# store the archive number in the file for retrieval on the other side.
# store the archive number in the file for retrieval on the other side.
-&backup_number("aa_backup", $base, $number);
+&backup_number("aa_backup", $
snarf_file_
base, $number);
############################################################################
# backup all the config info for kde.
############################################################################
# backup all the config info for kde.
-&backup_hierarchy($base, $number, "$root", ".kde");
+&backup_hierarchy($snarf_file_base, $number, "$root", ".kde");
+# and get the config for gnome.
+&backup_hierarchy($snarf_file_base, $number, "$root", ".local");
# get any dot files ending in "rc", or with "bash" or "profile" in them, or
# that start with "x".
# get any dot files ending in "rc", or with "bash" or "profile" in them, or
# that start with "x".
-&backup_files($base, $number, $root, ".",
+&backup_files($
snarf_file_
base, $number, $root, ".",
("*rc", ".*bash*", ".*profile*", ".x*", ));
# get the ssh configuration files.
("*rc", ".*bash*", ".*profile*", ".x*", ));
# get the ssh configuration files.
-&backup_hierarchy($base, $number, "$root", ".ssh");
+&backup_hierarchy($
snarf_file_
base, $number, "$root", ".ssh");
# now rename the file so only the unpacker can access it.
&rename_archive($snarf_file);
# now rename the file so only the unpacker can access it.
&rename_archive($snarf_file);