Revision 750

Date:
2018/11/20 09:58:37
Author:
ahitrov
Revision Log:
Bugfix and debug off

Files:

Legend:

 
Added
 
Removed
 
Modified

  • utf8/core/lib/Contenido/Mail.pm

     
    36 36 }
    37 37 }
    38 38
    39 warn Dumper $self;
    39 warn Dumper $self if $DEBUG;
    40 40 return $self;
    41 41 }
    42 42

  • utf8/core/services/mail_process.pl

     
    29 29 $keeper->t_connect() || die $keeper->error();
    30 30 my $ids = $keeper->TSQL->selectall_arrayref("SELECT id FROM mailqueue WHERE status = 0 and dtime <= CURRENT_TIMESTAMP ORDER BY ctime LIMIT 5");
    31 31 if ( ref $ids eq 'ARRAY' && @$ids ) {
    32 $keeper->TSQL->do("UPDATE mailqueue SET status = 2 WHERE ID IN (".join(',', '?' x scalar @$ids).")", {}, map { $_->[0] } @$ids);
    32 $keeper->TSQL->do("UPDATE mailqueue SET status = 2 WHERE ID IN (".join(',', ('?') x scalar @$ids).")", {}, map { $_->[0] } @$ids);
    33 33 }
    34 34 $keeper->t_finish();
    35 35