Logfile isn't doing what I think it should do....(haha)

[Brown, Denise (CBS)]

I'm having a problem getting my output to print to the LOGFILE as a FAILED
UPDATE

Everything reports that "Updated waybill number..." ok even though I put
data that should fail in my input file.

What am I doing wrong?



        $sql_upd =3D "update bcerts_2001 set track_num=3D\'$track_num\' ";
        $sql_upd .=3D "where rsf_number=3D\'$rsf_num\'" ;
        printf "%s \n", $sql_upd ;
        $sth_upd =3D $dbh->prepare($sql_upd)
           || die "Cannot prepare sql_upd statement: $dbh->errstr" ;
        $result =3D $sth_upd->execute ();
            if ($result) {
                  printf LOGFILE "Updated waybill number $rsf_num  =
$track_num \n";
                    } else {
            printf LOGFILE "FAILED UPDATE, $rsf_num, $track_num, $name,$add=
1, $add2, $add3,  $add4, $add5 \n" ;
            printf EXCFILE "$sql_upd \n";
                    }           # end if result
        $result =3D $sth_upd->finish
            || die "Can't finish sql_sel statement: $dbh->errstr";
}
        $result =3D $dbh->disconnect
        || die "Can't disconnect from database: $dbh->errstr";
close LOGFILE;
close EXCFILE;
exit;


-- 
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]