#!/usr/bin/perl

use DBI;

use lib "/include_perl";
use Func_W2   qw(abrir_db query_db);

($erro, $msg_db, $dbh) = abrir_db("webm2", "$PATH_PRG/db");
use Const_Webm2 qw(%PATH_SYS $PATH_LOG $PATH_PRG $HTTP_HOST_DEFAULT $HOSTNAME
                   $HOST_CRYPT @PASTA_SYS $AUTENTICAR_POP $HORA_VERAO %CONF_GERAL
                   $LDAPMASTER $LDAPCONF @LDAPSLAVE %VALIDA_HOST);

DBI->trace( 2, 'dbitrace.log' );

$query   = "update mensagem set mens_stat = ? where mens_codigo = ? and mens_stat = ?";
#$query   = "update mensagem set mens_stat = 2 where mens_codigo = 350027984 and mens_stat = 1";

@param = (2, 350027984, 1);

   $sth = $dbh->prepare($query);

   if (!$sth->execute(@param))
#	if(!$sth->execute())
   {
      $msg  = $sth->errstr;
      $msg  =~ s/\n|\r/ /g;
      $msg .= "[$query], ".join(",",@param);
   }


print "$msg\n";

$sth->finish;
$dbh->disconnect;

exit;