I'm a newbie to perl. I've written a few simple scrips and they are
working just fine. My problem lies in my lack of understanding as to why
some code will work in a perl program, but not in a scrip. We have some
good perl programmers here and they gave me some code to use to format a
date I needed.
Scenario: when a ticket has it’s status changed to ‘stalled’, I want to
update a Custom Field with the yyyy/mm/dd format for today’s date. The
code I was given for this is as follows:
Custom Action Prep Code:
set the CF Work-Completed Date
my $trans = $self->TransactionObj;
my $ticket = $self->TicketObj;
my $cf_obj = RT::CustomField->new($RT::SystemUser);
my $cf_name = “Stalled Date”;
( undef, undef, undef, $day, $mon, $year ) = localtime( time );
$cf_value = sprintf( ‘%d/%02d/%02d’, $year + 1900, $mon, $day );
$RT::Logger->debug(“Loaded$cf_obj->Name = “. $cf_obj->Name() .”\n”);
I get nothing. If I change the value of $cf_value to simply
(localtime), I get the full-fledged format of “Thu Feb 26 14:54:33 2009”.
So, I know the condition works and the function of update the Custom
Field works. I just cannot get the code I was given to format the date
to work as a scrip.
Anyone have some experience with this and willing to help?