projects
/
feisty_meow.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
new fortune
[feisty_meow.git]
/
scripts
/
archival
/
snarf_notes.pl
diff --git
a/scripts/archival/snarf_notes.pl
b/scripts/archival/snarf_notes.pl
index b8b3c9f10e24cacb158998df3995de952fe0c134..cf526862145a152035aa7c4062d717cad5f35313 100644
(file)
--- a/
scripts/archival/snarf_notes.pl
+++ b/
scripts/archival/snarf_notes.pl
@@
-8,7
+8,7
@@
# #
# Purpose: #
# #
# #
# Purpose: #
# #
-#
Stuffs up an archive with quartz lists and current new notes.
#
+#
Produces an archive with any current notes from the user's home dir.
#
# #
###############################################################################
# This program is free software; you can redistribute it and/or modify it #
# #
###############################################################################
# This program is free software; you can redistribute it and/or modify it #
@@
-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);
+
&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.
@@
-38,21
+39,17
@@
local($snarf_file) = &snarf_name($snarf_file_base, $number);
# get top level text files and other potentially important items...
&backup_files($snarf_file_base, $number, $root, ".", ("*.html", "*.txt"));
# get top level text files and other potentially important items...
&backup_files($snarf_file_base, $number, $root, ".", ("*.html", "*.txt"));
-# backup all the hierarchies in our quartz directory.
-&backup_hierarchy($snarf_file_base, $number, "$root", "quartz");
# gather any directories in our home that match these often recurring patterns.
# gather any directories in our home that match these often recurring patterns.
-&snarf_by_pattern($snarf_file_base, "$root", "notes");
-&snarf_by_pattern($snarf_file_base, "$root", "project");
-&snarf_by_pattern($snarf_file_base, "$root", "issue");
-&snarf_by_pattern($snarf_file_base, "$root", "idea");
+&snarf_by_pattern($snarf_file_base, "$root", "cloud");
&snarf_by_pattern($snarf_file_base, "$root", "crucial");
&snarf_by_pattern($snarf_file_base, "$root", "crucial");
+&snarf_by_pattern($snarf_file_base, "$root", "idea");
+&snarf_by_pattern($snarf_file_base, "$root", "issue");
&snarf_by_pattern($snarf_file_base, "$root", "list");
&snarf_by_pattern($snarf_file_base, "$root", "list");
+&snarf_by_pattern($snarf_file_base, "$root", "note");
+&snarf_by_pattern($snarf_file_base, "$root", "project");
&snarf_by_pattern($snarf_file_base, "$root", "task");
&snarf_by_pattern($snarf_file_base, "$root", "task");
-# backup additional items from our Ubuntu One folder.
-&snarf_by_pattern($snarf_file_base, "$root", "notes", "Ubuntu One");
-
############################################################################
# now rename the file so only the unpacker can access it.
############################################################################
# now rename the file so only the unpacker can access it.