Issue with scrip

RT Users
1

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.

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;

Thanks in advance,
Bill G.

2

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

3

Hi Kevin,

Thanks for the Quick response. Is there any good documentation anywhere on
the RT:Date functions? A quick search of the wiki resulted in nothing more
or less, so for the time being, I believe the solution should be something
along the lines of:

 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 + 1, $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;

Thanks,
Bill G.On Tue, Sep 1, 2009 at 11:35 AM, Kevin Falcone falcone@bestpractical.comwrote:

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;

The rt-users Archives

Community help: http://wiki.bestpractical.com
Commercial support: sales@bestpractical.com

Discover RT’s hidden secrets with RT Essentials from O’Reilly Media.
Buy a copy at http://rtbook.bestpractical.com

Bill Graboyes
On Assignment At:
Toyota Motor Sales, USA, Inc.
Consumer Portal Delivery
Office: (310) 468-6754
Cell: (714) 515-8312

4

Hi Kevin,

Thanks for the Quick response. Is there any good documentation anywhere on the RT:Date
functions? A quick search of the wiki resulted in nothing more or less, so for the time being,
I believe the solution should be something along the lines of:

perldoc /opt/rt3/lib/RT/Date.pm

-kevin