[rt-users] Issue with scrip.

[Kevin Falcone]

On Tue, Sep 01, 2009 at 11:29:36AM -0700, William Graboyes wrote:
>    Hi all,
> 
>    I am having a strange issue with a script, I was wondering if those who are a bit more
>    proficient than myself can give me a couple of pointers.
> 
>    The issue is that sometimes, quite regularly actually, it is printing a date that is 1 month
>    behind the current date. this has me very confused, there are a few that wrote the date
>    properly, (about 17 out of 330). So with out further complications, here is a copy of the
>    scrip.

You may want to read 
$ perldoc -f localtime

which explains that $mon is not 1-12

Also, you may want one of the functions from RT::Date rather than
doing it by hand.

-kevin

> 
>      my $CF_Obj = RT::CustomField->new($self->CurrentUser);
>      my $cf_name = 'Ticket_resolveDate';
>      my ( $sec, $min, $hour, $day, $mon, $year ) = localtime( time );
>      my $cf_value = sprintf( '%d-%02d-%02d %02d:%02d:%02d', $year + 1900, $mon, $day, $hour,
>      $min, $sec );
>      $CF_Obj->LoadByName( Name => $cf_name,);
>      $RT::Logger->debug( "Loaded \$CF_Obj->Name = ". $CF_Obj->Name() ."\n" );
> 
>      $CF_Obj->AddValueForObject( Object => $self->TicketObj,
>      Content => $cf_value, );
>      1;