$query = undef; $sth = undef; $ect = 0; @row = (); $dbok = 1;
    $query = "SELECT cllseen, clmacidx FROM tblmac where clmac = ?";
    if($debug == 1) { print "QUERY: \"$query\"\n"; }
    $sth = undef;
    $sth = $dbh->prepare($query); $sth->execute($mac);
    my $mts = undef; $macidx = undef;
    $sth->bind_columns(undef, \$mts, \$macidx);
    while(@row = $sth->fetchrow_array()) { $ect++; } $sth->finish;
    if($debug == 1) { print "ECT: \"$ect\"\n"; }

    if($ect == 0)
      {
      if($debug == 1) { print "MAC: \"$mac\" DOES -NOT- EXIST. INSERTING L: \"" . __LINE__ . "\"\n"; }

      ### DB
      $query = undef; $sth = undef;
      $query = "INSERT INTO \`tblmac\` (clits, clts, clmac, clupby, cllseen) values (?,?,?,?,?)";
      if($debug == 1) { print "QUERY: \"$query\"\n"; }
      eval { $sth = $dbh->prepare($query); $sth->execute($ineptime,$ineptime,$mac,$val,$ineptime);  1; }
       or do { print "$dtime CANT CONNECT TO SERVER L: \"" . __LINE__ . "\" SLEEPING 30\n"; sleep 30; return($dbh); };
      $sth->finish;
      ### EO DB

      }