From efffd2d370164ed6b1db028b0d0071a6cbf7179d Mon Sep 17 00:00:00 2001 From: Don Armstrong Date: Mon, 3 Oct 2005 02:08:01 +0000 Subject: [PATCH] changed default path to lib for pick_a_quote.pl --- signature_stuff/pick_a_quote.pl | 12 +++++++++--- 1 file changed, 9 insertions(+), 3 deletions(-) diff --git a/signature_stuff/pick_a_quote.pl b/signature_stuff/pick_a_quote.pl index 1f1ab09..a2de709 100755 --- a/signature_stuff/pick_a_quote.pl +++ b/signature_stuff/pick_a_quote.pl @@ -5,9 +5,15 @@ use strict; use IO::File; -my $sigfile = new IO::File "> /home/don/.signature"; -my $templatefile = new IO::File "/home/don/signature_stuff/sigtemplate.txt"; -my $quotesfile = new IO::File "/home/don/signature_stuff/quote.txt"; +use User; + +my ($temp_file,$quote_file) = @ARGV; +$temp_file ||= User->Home."/lib/signature_stuff/sigtemplate.txt"; +$quote_file ||= User->Home."/lib/signature_stuff/quote.txt"; + +my $sigfile = new IO::File User->Home."/.signature", 'w' or die "Unable to open ~/.signature for writing; $!"; +my $templatefile = new IO::File $temp_file, 'r' or die "Unable to open $temp_file $!"; +my $quotesfile = new IO::File $quote_file,'r' or die "Unable to open $quote_file $!"; my $template = ''; -- 2.39.2