Re: [rt-users] Issue with scrip.
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: sa...@bestpractical.com Discover RT's hidden secrets with RT Essentials from O'Reilly Media. Buy a copy at http://rtbook.bestpractical.com
Re: [rt-users] Issue with scrip.
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 wrote: > 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: sa...@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 ___ http://lists.bestpractical.com/cgi-bin/mailman/listinfo/rt-users Community help: http://wiki.bestpractical.com Commercial support: sa...@bestpractical.com Discover RT's hidden secrets with RT Essentials from O'Reilly Media. Buy a copy at http://rtbook.bestpractical.com
Re: [rt-users] Issue with scrip.
On Tue, Sep 01, 2009 at 11:48:53AM -0700, William Graboyes wrote: >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 >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 > <[1]falc...@bestpractical.com> wrote: > > 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; > ___ > [2]http://lists.bestpractical.com/cgi-bin/mailman/listinfo/rt-users > > Community help: [3]http://wiki.bestpractical.com > Commercial support: [4]sa...@bestpractical.com > > Discover RT's hidden secrets with RT Essentials from O'Reilly Media. > Buy a copy at [5]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 > > References > >Visible links >1. mailto:falc...@bestpractical.com >2. http://lists.bestpractical.com/cgi-bin/mailman/listinfo/rt-users >3. http://wiki.bestpractical.com/ >4. mailto:sa...@bestpractical.com >5. http://rtbook.bestpractical.com/ > ___ > http://lists.bestpractical.com/cgi-bin/mailman/listinfo/rt-users > > Community help: http://wiki.bestpractical.com > Commercial support: sa...@bestpractical.com > > > Discover RT's hidden secrets with RT Essentials from O'Reilly Media. > Buy a copy at http://rtbook.bestpractical.com ___ http://lists.bestpractical.com/cgi-bin/mailman/listinfo/rt-users Community help: http://wiki.bestpractical.com Commercial support: sa...@bestpractical.com Discover RT's hidden secrets with RT Essentials from O'Reilly Media. Buy a copy at http://rtbook.bestpractical.com