Question: The following script changes the date from today's date to (today's date+6 months). How do i change that value to 2 or 3 months instead?
Thanks!
Expand|Select|Wrap|Line Numbers
- #!/usr/local/bin/perl -w
- use strict;
- use Date::Calc qw( Delta_Days Add_Delta_Days Today Month_to_Text );
- my $TAC_FILE = "$ENV{HOME}/tacacs/common/user_accounts";
- my ($year, $month, $day) = Add_Delta_Days(Today(), 30);
- my $m = substr(Month_to_Text($month),0,3);
- my $expire_date = "$m $day $year";
- open(TACFILE, "$TAC_FILE") || die "Can't open $TAC_FILE file\n";
- while(<TACFILE>) {
- if (/^\s+member\s+=\s+\S+\s+$/) {
- s/^(\s+)(member\s+=\s+\S+)/$1$2\n$1expires = "$expire_date"/
- }
- print $_;
- }
- close(TACFILE);