Hi: Line 124 is the last line.

Privileges selected when setting up user. All shown. Of course I don't see write there. Update is there though.

ALL PRIVILEGES
ALTER     ALTER ROUTINE
CREATE     CREATE ROUTINE
CREATE TEMPORARY TABLES     CREATE VIEW
DELETE     DROP
EVENT     EXECUTE
INDEX     INSERT
LOCK TABLES     REFERENCES
SELECT     SHOW VIEW
TRIGGER     UPDATE
[download]

I think you pinted me yto a place to look as the dlete did empty the table (so no one can log on now. HaH!!

Did something change in perl in the last 5 yrs that would have changes how this stuff works?

as the dlete did empty the table

So it was the load, and probably the apache-user cant read the file

the user/group of apache prob changed. You prob want to adjust the group of the apache-user so it can read those secure dirs/files

Thanks for tip. All working now. Had a time with the relative path

sub UpdateUserTable
{
my $dbh = shift;
my ($sth, $stmt);
my $infile = "../securefiles/accesscontrol.txt";
    warn("Entered sub UpdateUserTable");
    $stmt =    "DELETE
                FROM users";

    $sth = $dbh->prepare ($stmt);
    $sth->execute () or die "Unable to execute query: " . $sth->errstr
+;


    #$stmt =    "LOAD DATA LOCAL INFILE '/home/jalamior/public_html/ht
+tpsdocs/securefiles/accesscontrol.txt'
    $stmt =    "LOAD DATA LOCAL INFILE '$infile' INTO TABLE users
                FIELDS TERMINATED BY ',' LINES TERMINATED BY '\n'";





    $sth = $dbh->prepare ($stmt);
    $sth->execute () or die "Unable to execute query: " . $sth->errstr
+;
}
[download]

Hi:

The code above posts a message "complete" on a new blank page. UGLY.

I would like to pop up a windows message instead.

Have any of you ever used this: Net::NetSend?

Reading the description sounds like it gets the netbios and IP it needs itself. Don't want the client (machine) to have to do anything.

Search on monks found nothing.

Any insight appreciated before I attack this