From: Chris Koeritz Date: Mon, 23 Apr 2012 12:28:16 +0000 (-0400) Subject: renaming to reflect modern purpose. X-Git-Tag: 2.140.90~1396 X-Git-Url: https://feistymeow.org/gitweb/?a=commitdiff_plain;h=fb310c5386967c2f62e1ea5e0f4b39dd4d704937;hp=94202be535cdd66fc7bfea5e8c5be0be859002c6;p=feisty_meow.git renaming to reflect modern purpose. --- diff --git a/scripts/archival/snarf_notes.pl b/scripts/archival/snarf_notes.pl deleted file mode 100644 index ba81fe08..00000000 --- a/scripts/archival/snarf_notes.pl +++ /dev/null @@ -1,62 +0,0 @@ -#!/usr/bin/perl - -############################################################################### -# # -# Name : snarf_notes # -# Author : Chris Koeritz # -# Rights : Copyright (C) 2000-$now by Author # -# # -# Purpose: # -# # -# Stuffs up an archive with quartz lists and current new notes. # -# # -############################################################################### -# 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")); -# 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", "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", "crucial"); -&snarf_by_pattern($snarf_file_base, "$root", "list"); -&snarf_by_pattern($snarf_file_base, "$root", "task"); - -# backup additional folders we care about. -#unneeded it seems: &snarf_by_pattern($snarf_file_base, "$root", "notes", "cloud"); - -############################################################################ - -# 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 new file mode 100644 index 00000000..ba81fe08 --- /dev/null +++ b/scripts/archival/snarf_quartz.pl @@ -0,0 +1,62 @@ +#!/usr/bin/perl + +############################################################################### +# # +# Name : snarf_notes # +# Author : Chris Koeritz # +# Rights : Copyright (C) 2000-$now by Author # +# # +# Purpose: # +# # +# Stuffs up an archive with quartz lists and current new notes. # +# # +############################################################################### +# 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")); +# 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", "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", "crucial"); +&snarf_by_pattern($snarf_file_base, "$root", "list"); +&snarf_by_pattern($snarf_file_base, "$root", "task"); + +# backup additional folders we care about. +#unneeded it seems: &snarf_by_pattern($snarf_file_base, "$root", "notes", "cloud"); + +############################################################################ + +# now rename the file so only the unpacker can access it. +&rename_archive($snarf_file); + +exit 0; +