in reply to Re: MySQL access denied
in thread MySQL access denied

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?

Replies are listed 'Best First'.
Re^3: MySQL access denied
by huck (Prior) on Mar 13, 2017 at 03:32 UTC

    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

[reply]
Re^3: MySQL access denied
by tultalk (Monk) on Mar 13, 2017 at 04:42 UTC

    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]
[reply]
[d/l]

      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

[reply]
[reply]

        Sorry Never mind. The required messaging systems are not provided in "modern" windows OS. Oops.

        looking into Tk if I can figure it out.

[reply]

In Section Seekers of Perl Wisdom