People of the Perl, I have a need to develop some logic to automatically pick up a publc key for my gpg keyring. I will use cURL ( client for URL lookups ) language for the actual download , but the catch is the expiration time of our key which is 2005-11-16. So I want to say if calc data =~ current date then call cURL. I tried an ascii increment but this only incremented from 2005-06-23 to 2006. Maybe I am going about this all wrong??? My like operator really needs to say + - 7 days from 2005-11-16 then call cURL and check for a new public key.
Here is my code: require 5.8.0; use strict; use warnings; # for talx expiration date of their pubkey 2005-11-16 our $time = $^T; $ENV{"PATH"} = qq(/home/gpghrp/.gnupg/scripts:/usr/local/bin:/bin:/usr/bin); ##--## Begin Routines ##--## sub dateme { my ($year,$month,$day) = (localtime)[5,4,3]; sprintf ("%04d-%02d-%02d\n", ($year += 1900), $month+1,$day); } my $curtdate = &dateme(); #print $curtdate,"\n"; sub date_manip_fwd_6mths { use constant ONE_DAY => 86400; use constant THIRTY_DAYS => ONE_DAY * 30; use constant SIX_MTHS => THIRTY_DAYS * 5; my $days = (shift); my ($y,$m,$d) = (localtime($time + $days)) [5,4,3]; sprintf ("%04d-%02d-%02d", ($y += 1900), $m+1,$d); } my $calcdate = &date_manip_fwd_6mths(SIX_MTHS); #print $calcdate,"\n"; #my $calcdate = &date_manip_fwd_6mths(); ##--## Main ##--## print "$calcdate\n$curtdate"; if ( $calcdate eq $curtdate ) { print "YES\n"; print "$calcdate\n$curtdate"; } __END_CODE__ __BEGIN_DATA__ 2005-11-20 2005-06-23 Derek B. Smith OhioHealth IT UNIX / TSM / EDM Teams 614-566-4145 -- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED] <http://learn.perl.org/> <http://learn.perl.org/first-response>