[Perl] Alertfunctie in MySQL insert

[gridfox]

Korte vraag, lange uitleg.

De opzet is als volgt. In een perl-script wordt informatie in een table op een andere server opgeslagen. Nu wil ik dat deze informatie bij het falen van de insert via mail alsnog aangeleverd wordt. Nu had ik het als volgt in gedachten.

# update the job database
$sth = $dbh->prepare("insert into host.table (a, b,c) values ($a, $b, $c)");
$sth->execute or die fallback=1;
$sth->finish;

# Do we need the fallback option?
if (fallback eq 1) {
# Sending the CDR
open(file , "|/usr/lib/sendmail -t");
print(file "From: afzender\@server.nl\n");
print(file "To: geadresseerde\@andereserver.nl\n");
print(file "Subject: $a, $b,$c\n");
print(file "\n");
close(file );
}

Ik heb een script wat de ontvangen info alsnog in de lokale table plaatst.

Dit is getest en normale verzendingen lukken. Zou deze fallback werken of is er een betere/andere manier op dit op te lossen??

[Verwijderd]

Ik kan het mis hebben hoor, maar "or die;" doet het script stoppen, dus na het zetten van de variabele fallback=1, stopt hij.

[Verwijderd]

$sth->err kan je ook gebruiken.

[gridfox]

Verwijderd schreef op 26 augustus 2002 @ 12:45:
$sth->err kan je ook gebruiken.

Hoe zou de functie dan worden, want de pogingen van mij waren niet successvol. Google gaf ook geen vergelijkbare oplossing.

[Verwijderd]

bijv:

$sth = $dbh->prepare("insert into host.table (a, b,c) values ($a, $b, $c)");
$sth->execute();
$error_code = $sth->err;
$sth->finish;
if ($error_code ne '')
{
# Sending the CDR
open(file , "|/usr/lib/sendmail -t");
print(file "From: afzender\@server.nl\n");
print(file "To: geadresseerde\@andereserver.nl\n");
print(file "Subject: $a, $b,$c\n");
print(file "\n");
close(file );
}

Als je er meer info over wilt weten moeten je even in de manual van de DBI module kijken.

suc6

[gridfox]

Thanks zzzflitzzz,

Ik had al het een en ander nagezocht, maar kon geen concrete beschrijving vinden.

[Verwijderd]

Anytime