From 2eb70b9e9b288734a6988b2426809f2c66e927ae Mon Sep 17 00:00:00 2001 From: Chris Koeritz Date: Tue, 24 Apr 2012 16:17:05 -0400 Subject: [PATCH] split the notes snarfing out of snarf_quartz. both are kind of useful. they are separate now, because quartz is no longer where i hide all my to-dos; these are in the cloud instead. snarf notes is actually kind of general now, since it looks for several patterns that seem reasonable to include in the archive. --- scripts/archival/snarf_notes.pl | 57 ++++++++++++++++++++++++++++++++ scripts/archival/snarf_quartz.pl | 13 +------- 2 files changed, 58 insertions(+), 12 deletions(-) create mode 100644 scripts/archival/snarf_notes.pl diff --git a/scripts/archival/snarf_notes.pl b/scripts/archival/snarf_notes.pl new file mode 100644 index 00000000..f2e39d2e --- /dev/null +++ b/scripts/archival/snarf_notes.pl @@ -0,0 +1,57 @@ +#!/usr/bin/perl + +############################################################################### +# # +# Name : snarf_notes # +# Author : Chris Koeritz # +# Rights : Copyright (C) 2000-$now by Author # +# # +# Purpose: # +# # +# 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 # +# under the terms of the GNU General Public License as published by the Free # +# Software Foundation; either version 2 of the License or (at your option) # +# any later version. See: "http://www.gruntose.com/Info/GNU/GPL.html" for a # +# version of the License. Please send any updates to "fred@gruntose.com". # +############################################################################### + +require "importenv.pl"; +require "shared_snarfer.pl"; + +&initialize_snarfer; + +# get the number we use and increment it for the next use. +local($number) = &retrieve_number("aa_backup"); + +# variables for directory location to backup and the file to dump it in. +local($root) = "$HOME"; +local($snarf_file_base) = &snarf_prefix("notes"); +local($snarf_file) = &snarf_name($snarf_file_base, $number); + +# store the archive number in the file for retrieval on the other side. +&backup_number("aa_backup", $snarf_file_base, $number); + +############################################################################ + +# get top level text files and other potentially important items... +&backup_files($snarf_file_base, $number, $root, ".", ("*.html", "*.txt")); + +# gather any directories in our home that match these often recurring patterns. +&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", "note"); +&snarf_by_pattern($snarf_file_base, "$root", "project"); +&snarf_by_pattern($snarf_file_base, "$root", "task"); + +############################################################################ + +# now rename the file so only the unpacker can access it. +&rename_archive($snarf_file); + +exit 0; + diff --git a/scripts/archival/snarf_quartz.pl b/scripts/archival/snarf_quartz.pl index e1d2bbd0..6985a4bc 100644 --- a/scripts/archival/snarf_quartz.pl +++ b/scripts/archival/snarf_quartz.pl @@ -8,7 +8,7 @@ # # # Purpose: # # # -# Stuffs up an archive with quartz lists and current new notes. # +# Packs up an archive with the quartz repository. # # # ############################################################################### # This program is free software; you can redistribute it and/or modify it # @@ -36,20 +36,9 @@ 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")); # 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. -&snarf_by_pattern($snarf_file_base, "$root", "quartz"); -&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", "crucial"); -&snarf_by_pattern($snarf_file_base, "$root", "list"); -&snarf_by_pattern($snarf_file_base, "$root", "task"); - ############################################################################ # now rename the file so only the unpacker can access it. -- 2.34.1