Re: DBD::Sybase message suppression....

[amonotod]

> From: amonotod <[EMAIL PROTECTED]>
> Date: 2004/07/21 Wed PM 10:12:45 GMT
> 
> > From: "Chuck Fox" <[EMAIL PROTECTED]>
> > Date: 2004/07/21 Wed PM 09:35:55 GMT
> > 
> > Install an error handler, ignore messages with a severity of 0 or 10
> 
> Okay, found that...  Will try it out soonest...

Basically, straight out of the docs...
if ("\U$servers{$server}->{type}\E" eq "SYBASE") {
  $dbh->{syb_err_handler} = \&err_handler;
}

sub err_handler {
  my($err, $sev, $state, $line, $server, $proc, $msg, $sql, $err_type) = @_;
  my @msg = ();
  if (($sev != 0) && ($sev != 10)) {
    if($err_type eq 'server') {
      push @msg, ('', 'Server message',
            sprintf('Message number: %ld, Severity %ld, State %ld, Line %ld', 
$err,$sev,$state,$line),
            (defined($server) ? "Server '$server' " : '') .
            (defined($proc) ? "Procedure '$proc'" : ''),
            "Message String:$msg");
    } else {
      push @msg, ('', 'Open Client Message:',
            sprintf('Message number: SEVERITY = (%ld) NUMBER = (%ld)', $sev, $err),
            "Message String: $msg");
    }
    print STDERR join("\n",@msg);
    return 0; ## CS_SUCCEED
  }
}

Thanks again,
amonotod


--

    `\|||/         amonotod@    | sun|perl|windows
      (@@)         charter.net  | sysadmin|dba
  ooO_(_)_Ooo____________________________________
  _____|_____|_____|_____|_____|_____|_____|_____|