dcsimg

# After the fetchrow_array call, before we close the DB  connection:
# Our known correct switchport is in the variable  $good_switchport


if ($row[1] =~  /$good_switchport/i) {
  print "The  port $row[1] for MAC address $row[3] is correct.";
}
else {
  newquery =  "UPDATE bridge SET switchport='$good_switchport' 
               WHERE  (mac_addr='$row[2]' and 
               switchport='$row[1]' and  switch='$row[0]')";
  
# prepare and execute  the query:
  my $hth2 =  $dbh->prepare($newquery);
  if  (!($hth2->execute)) {
      print  "db update failed: $DBI::errstr\n";
      $hth2->finish;
  }
  $hth2->finish;
}