Hi, This is what I want to do ... but could this be done without using [%PERL%] ??
[% PERL %] use Date::Calc qw(Today_and_Now Add_Delta_DHMS Day_of_Week_to_Text Day_of_Week Month_to_Text); my ($y,$m,$d,$H,$M,$S) = Add_Delta_DHMS(Today_and_Now(), +7,-5,+30,0) ; my $dow = Day_of_Week_to_Text(Day_of_Week($y,$m,$d)); my $mt = substr(Month_to_Text($m),0,3) ; my $dw = substr($dow,0,3) ; print "$dw, $d $mt $y 13:00:00" [% END %] Thanks -- Eco http://www.ecocode.net * Life is wonderful with Emacs and Perl *
pgpL97Fo98xzy.pgp
Description: PGP signature
