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; _______________________________________________ http://lists.bestpractical.com/cgi-bin/mailman/listinfo/rt-users Community help: http://wiki.bestpractical.com Commercial support: [email protected] Discover RT's hidden secrets with RT Essentials from O'Reilly Media. Buy a copy at http://rtbook.bestpractical.com
