X-Git-Url: https://feistymeow.org/gitweb/?a=blobdiff_plain;f=scripts%2Farchival%2Fsnarf_linux_config.pl;h=436ab523ea1ef96e3e38366d70bd8ffd1aab1153;hb=baf34d26f73b32deb1a89feb0fa2d1469e397405;hp=b7066fd69390e5c15e40b69b409494be6748c61a;hpb=e3048a74dee2b60a40af5557d55cee99868cccb2;p=feisty_meow.git diff --git a/scripts/archival/snarf_linux_config.pl b/scripts/archival/snarf_linux_config.pl index b7066fd6..436ab523 100644 --- a/scripts/archival/snarf_linux_config.pl +++ b/scripts/archival/snarf_linux_config.pl @@ -15,16 +15,17 @@ # version of the License. Please send any updates to "fred@gruntose.com". ############## -require "importenv.pl"; require "shared_snarfer.pl"; +use Env qw(HOME); + &initialize_snarfer; # get the number we use and increment it for the next use. local($number) = &retrieve_number("aa_backup"); # variables used throughout. -local($snarf_file_base) = snarf_prefix("config-linux_"); +local($snarf_file_base) = snarf_prefix("config-linux"); local($snarf_file) = &snarf_name($snarf_file_base, $number); # store the current archive number in the file for retrieval on the