From: Grant P. <gp...@th...> - 2008-10-31 11:04:49
|
All, I have a custom Webmin mondule written that add a new musql database, sets the mysql permissions etc and it works well, except that it does not add the Usermin permissions correctly. Here is the code: &read_file("$config{'usermin_mysql_dir'}/config", \%mconfig); $mconfig{'access'} .= "\t$in{'user'}: $db"; &write_file("$config{'usermin_mysql_dir'}/config", \%mconfig); When I look in Usermin Configuration -> Usermin Module Configuration -> MySQL Database, the "Database Access control list is getting completely new entries put in them, when it should be appended. Current: user: database1 database2 But what I am getting is: user: database1 user: database2 Can the above perl/regex be adjust to do it correctly? TIA, -Grant |
From: Jamie C. <jca...@we...> - 2008-10-31 17:55:19
|
On 31/Oct/2008 04:04 Grant Peel wrote .. <blockquote type="cite"> <div><font size="2" face="Arial">All,</font></div> <div><font size="2" face="Arial"></font> </div> <div><font size="2" face="Arial">I have a custom Webmin mondule written that add a new musql database, sets the mysql permissions etc and it works well, except that it does not add the Usermin permissions correctly.</font></div> <div><font size="2" face="Arial"></font> </div> <div><font size="2" face="Arial">Here is the code:</font></div> <div><font size="2" face="Arial"></font> </div> <div><font size="2" face="Arial">&read_file("$config{'usermin_mysql_dir'}/config", \%mconfig);<br />$mconfig{'access'} .= "\t$in{'user'}: $db";<br />&write_file("$config{'usermin_mysql_dir'}/config", \%mconfig);</font></div> <div><font size="2" face="Arial"></font> </div> <div><font size="2" face="Arial">When I look in Usermin Configuration -> Usermin Module Configuration -> MySQL Database, the "Database Access control list is getting completely new entries put in them, when it should be appended.</font></div> <div><font size="2" face="Arial"></font> </div> <div><font size="2" face="Arial">Current:</font></div> <div><font size="2" face="Arial"></font> </div> <div><font size="2" face="Arial">user: database1 database2</font></div> <div><font size="2" face="Arial"></font> </div> <div><font size="2" face="Arial">But what I am getting is:</font></div> <div><font size="2" face="Arial"></font> </div> <div><font size="2" face="Arial">user: database1</font></div> <div><font size="2" face="Arial">user: database2</font></div> <div><font size="2" face="Arial"></font> </div> <div><font size="2" face="Arial">Can the above perl/regex be adjust to do it correctly?</font></div> <div></div></blockquote><p>Yes .. you should use code like :<br /><br />if (<font size="2" face="Arial">$mconfig{'access'} =~ /$in{'user'}:/) {<br /> </font><font size="2" face="Arial">$mconfig{'access'} =~ s/$in{'user'}:/$in{'user'}: $db/;</font><br /><font size="2" face="Arial"> }<br /></font>else {<br /><font size="2" face="Arial"> $mconfig{'access'} .= "\t$in{'user'}: $db";<br />}<br /><br /> - Jamie<br /><br /></font> </p> |
From: Grant P. <gp...@th...> - 2008-10-31 22:02:23
|
Jamie, Thanks a bunch, things appear to work now. In the module, the code was change from the commented (#) lines to the ones you suggested. Does this look right to you then? ... #&read_file("$config{'usermin_mysql_dir'}/config", \%mconfig); #$mconfig{'access'} .= "\t$in{'user'}: $db"; #&write_file("$config{'usermin_mysql_dir'}/config", \%mconfig); &read_file("$config{'usermin_mysql_dir'}/config", \%mconfig); if ($mconfig{'access'} =~ /$in{'user'}:/) { $mconfig{'access'} =~ s/$in{'user'}:/$in{'user'}: $db/; } else { $mconfig{'access'} .= "\t$in{'user'}: $db"; } &write_file("$config{'usermin_mysql_dir'}/config", \%mconfig); ... -Grant ----- Original Message ----- From: Jamie Cameron To: Grant Peel ; Webmin users list Sent: Friday, October 31, 2008 1:55 PM Subject: Re: [webmin-l] Database Permissions in Usermin On 31/Oct/2008 04:04 Grant Peel wrote .. All, I have a custom Webmin mondule written that add a new musql database, sets the mysql permissions etc and it works well, except that it does not add the Usermin permissions correctly. Here is the code: &read_file("$config{'usermin_mysql_dir'}/config", \%mconfig); $mconfig{'access'} .= "\t$in{'user'}: $db"; &write_file("$config{'usermin_mysql_dir'}/config", \%mconfig); When I look in Usermin Configuration -> Usermin Module Configuration -> MySQL Database, the "Database Access control list is getting completely new entries put in them, when it should be appended. Current: user: database1 database2 But what I am getting is: user: database1 user: database2 Can the above perl/regex be adjust to do it correctly? Yes .. you should use code like : if ($mconfig{'access'} =~ /$in{'user'}:/) { $mconfig{'access'} =~ s/$in{'user'}:/$in{'user'}: $db/; } else { $mconfig{'access'} .= "\t$in{'user'}: $db"; } - Jamie ------------------------------------------------------------------------------ ------------------------------------------------------------------------- This SF.Net email is sponsored by the Moblin Your Move Developer's challenge Build the coolest Linux based applications with Moblin SDK & win great prizes Grand prize is a trip for two to an Open Source event anywhere in the world http://moblin-contest.org/redirect.php?banner_id=100&url=/ ------------------------------------------------------------------------------ - Forwarded by the Webmin mailing list at web...@li... To remove yourself from this list, go to http://lists.sourceforge.net/lists/listinfo/webadmin-list |
From: Jamie C. <jca...@we...> - 2008-10-31 22:16:10
|
<p>Looks good to me .. of course, the only way to be sure is to actually run it :-)<br /><br /> - Jamie <br /></p><p> On 31/Oct/2008 15:02 Grant Peel wrote .. </p><blockquote type="cite"> <div><font size="2" face="Arial">Jamie,</font></div> <div><font size="2" face="Arial"></font> </div> <div><font size="2" face="Arial">Thanks a bunch, things appear to work now. In the module, the code was change from the commented (#) lines to the ones you suggested. Does this look right to you then?</font></div> <div><font size="2" face="Arial"></font> </div> <div><font size="2" face="Arial"></font> </div> <div><font size="2" face="Arial">...</font></div> <div><font size="2" face="Arial">#&read_file("$config{'usermin_mysql_dir'}/config", \%mconfig);<br />#$mconfig{'access'} .= "\t$in{'user'}: $db";<br />#&write_file("$config{'usermin_mysql_dir'}/config", \%mconfig);</font></div> <div><font size="2" face="Arial"></font> </div> <div><font size="2" face="Arial">&read_file("$config{'usermin_mysql_dir'}/config", \%mconfig);</font></div> <div><font size="2" face="Arial"></font> </div> <div><font size="2" face="Arial">if ($mconfig{'access'} =~ /$in{'user'}:/) {<br /> $mconfig{'access'} =~ s/$in{'user'}:/$in{'user'}: $db/;<br /> }<br />else {<br /> $mconfig{'access'} .= "\t$in{'user'}: $db";<br />}</font></div> <div><font size="2" face="Arial"></font> </div> <div><font size="2" face="Arial">&write_file("$config{'usermin_mysql_dir'}/config", \%mconfig);</font></div> <div><font size="2" face="Arial">...</font></div> <div><font size="2" face="Arial"></font> </div> <div><font size="2" face="Arial">-Grant</font></div> <div><font size="2" face="Arial"></font> </div> <blockquote style="border-left: 2px solid #000000; padding-right: 0px; padding-left: 5px; margin-left: 5px; margin-right: 0px;"> <div style="font-family: arial; font-style: normal; font-variant: normal; font-weight: normal; font-size: 10pt; line-height: normal; font-size-adjust: none; font-stretch: normal;">----- Original Message ----- </div> <div style="background: #e4e4e4 none repeat scroll 0%; -moz-background-clip: -moz-initial; -moz-background-origin: -moz-initial; -moz-background-inline-policy: -moz-initial; font-family: arial; font-style: normal; font-variant: normal; font-weight: normal; font-size: 10pt; line-height: normal; font-size-adjust: none; font-stretch: normal;"><strong>From:</strong> <a href="reply_mail.cgi?new=1&to=jcameron%40webmin%2Ecom" title="jca...@we...">Jamie Cameron</a> </div> <div style="font-family: arial; font-style: normal; font-variant: normal; font-weight: normal; font-size: 10pt; line-height: normal; font-size-adjust: none; font-stretch: normal;"><strong>To:</strong> <a href="reply_mail.cgi?new=1&to=gpeel%40thenetnow%2Ecom" title="gp...@th...">Grant Peel</a> ; <a href="reply_mail.cgi?new=1&to=webadmin%2Dlist%40lists%2Esourceforge%2Enet" title="web...@li...">Webmin users list</a> </div> <div style="font-family: arial; font-style: normal; font-variant: normal; font-weight: normal; font-size: 10pt; line-height: normal; font-size-adjust: none; font-stretch: normal;"><strong>Sent:</strong> Friday, October 31, 2008 1:55 PM</div> <div style="font-family: arial; font-style: normal; font-variant: normal; font-weight: normal; font-size: 10pt; line-height: normal; font-size-adjust: none; font-stretch: normal;"><strong>Subject:</strong> Re: [webmin-l] Database Permissions in Usermin</div> <div><br /></div>On 31/Oct/2008 04:04 Grant Peel wrote .. <blockquote type="cite"> <div><font size="2" face="Arial">All,</font></div> <div><font size="2" face="Arial"></font> </div> <div><font size="2" face="Arial">I have a custom Webmin mondule written that add a new musql database, sets the mysql permissions etc and it works well, except that it does not add the Usermin permissions correctly.</font></div> <div><font size="2" face="Arial"></font> </div> <div><font size="2" face="Arial">Here is the code:</font></div> <div><font size="2" face="Arial"></font> </div> <div><font size="2" face="Arial">&read_file("$config{'usermin_mysql_dir'}/config", \%mconfig);<br />$mconfig{'access'} .= "\t$in{'user'}: $db";<br />&write_file("$config{'usermin_mysql_dir'}/config", \%mconfig);</font></div> <div><font size="2" face="Arial"></font> </div> <div><font size="2" face="Arial">When I look in Usermin Configuration -> Usermin Module Configuration -> MySQL Database, the "Database Access control list is getting completely new entries put in them, when it should be appended.</font></div> <div><font size="2" face="Arial"></font> </div> <div><font size="2" face="Arial">Current:</font></div> <div><font size="2" face="Arial"></font> </div> <div><font size="2" face="Arial">user: database1 database2</font></div> <div><font size="2" face="Arial"></font> </div> <div><font size="2" face="Arial">But what I am getting is:</font></div> <div><font size="2" face="Arial"></font> </div> <div><font size="2" face="Arial">user: database1</font></div> <div><font size="2" face="Arial">user: database2</font></div> <div><font size="2" face="Arial"></font> </div> <div><font size="2" face="Arial">Can the above perl/regex be adjust to do it correctly?</font></div> <div></div></blockquote> <p>Yes .. you should use code like :<br /><br />if (<font size="2" face="Arial">$mconfig{'access'} =~ /$in{'user'}:/) {<br /> </font><font size="2" face="Arial">$mconfig{'access'} =~ s/$in{'user'}:/$in{'user'}: $db/;</font><br /><font size="2" face="Arial"> }<br /></font>else {<br /><font size="2" face="Arial"> $mconfig{'access'} .= "\t$in{'user'}: $db";<br />}<br /><br /> - Jamie<br /><br /></font></p> <p> </p><hr /> <p> </p>-------------------------------------------------------------------------<br />This SF.Net email is sponsored by the Moblin Your Move Developer's challenge<br />Build the coolest Linux based applications with Moblin SDK & win great prizes<br />Grand prize is a trip for two to an Open Source event anywhere in the world<br />http://moblin-contest.org/redirect.php?banner_id=100&url=/ <p> </p><hr /> <p> </p>-<br />Forwarded by the Webmin mailing list at web...@li...<br />To remove yourself from this list, go to<br />http://lists.sourceforge.net/lists/listinfo/webadmin-list<br /></blockquote></blockquote><br /> |
From: Grant P. <gp...@th...> - 2008-10-31 22:23:34
|
Jamie, Thanks again!, testing it thuroughly on a dev box. Working great .... cleaning up code now for deployment! -GRant ----- Original Message ----- From: Jamie Cameron To: Grant Peel ; Webmin users list Sent: Friday, October 31, 2008 6:16 PM Subject: Re: [webmin-l] Database Permissions in Usermin Looks good to me .. of course, the only way to be sure is to actually run it :-) - Jamie On 31/Oct/2008 15:02 Grant Peel wrote .. Jamie, Thanks a bunch, things appear to work now. In the module, the code was change from the commented (#) lines to the ones you suggested. Does this look right to you then? ... #&read_file("$config{'usermin_mysql_dir'}/config", \%mconfig); #$mconfig{'access'} .= "\t$in{'user'}: $db"; #&write_file("$config{'usermin_mysql_dir'}/config", \%mconfig); &read_file("$config{'usermin_mysql_dir'}/config", \%mconfig); if ($mconfig{'access'} =~ /$in{'user'}:/) { $mconfig{'access'} =~ s/$in{'user'}:/$in{'user'}: $db/; } else { $mconfig{'access'} .= "\t$in{'user'}: $db"; } &write_file("$config{'usermin_mysql_dir'}/config", \%mconfig); ... -Grant ----- Original Message ----- From: Jamie Cameron To: Grant Peel ; Webmin users list Sent: Friday, October 31, 2008 1:55 PM Subject: Re: [webmin-l] Database Permissions in Usermin On 31/Oct/2008 04:04 Grant Peel wrote .. All, I have a custom Webmin mondule written that add a new musql database, sets the mysql permissions etc and it works well, except that it does not add the Usermin permissions correctly. Here is the code: &read_file("$config{'usermin_mysql_dir'}/config", \%mconfig); $mconfig{'access'} .= "\t$in{'user'}: $db"; &write_file("$config{'usermin_mysql_dir'}/config", \%mconfig); When I look in Usermin Configuration -> Usermin Module Configuration -> MySQL Database, the "Database Access control list is getting completely new entries put in them, when it should be appended. Current: user: database1 database2 But what I am getting is: user: database1 user: database2 Can the above perl/regex be adjust to do it correctly? Yes .. you should use code like : if ($mconfig{'access'} =~ /$in{'user'}:/) { $mconfig{'access'} =~ s/$in{'user'}:/$in{'user'}: $db/; } else { $mconfig{'access'} .= "\t$in{'user'}: $db"; } - Jamie -------------------------------------------------------------------------- ------------------------------------------------------------------------- This SF.Net email is sponsored by the Moblin Your Move Developer's challenge Build the coolest Linux based applications with Moblin SDK & win great prizes Grand prize is a trip for two to an Open Source event anywhere in the world http://moblin-contest.org/redirect.php?banner_id=100&url=/ -------------------------------------------------------------------------- - Forwarded by the Webmin mailing list at web...@li... To remove yourself from this list, go to http://lists.sourceforge.net/lists/listinfo/webadmin-list ------------------------------------------------------------------------------ ------------------------------------------------------------------------- This SF.Net email is sponsored by the Moblin Your Move Developer's challenge Build the coolest Linux based applications with Moblin SDK & win great prizes Grand prize is a trip for two to an Open Source event anywhere in the world http://moblin-contest.org/redirect.php?banner_id=100&url=/ ------------------------------------------------------------------------------ - Forwarded by the Webmin mailing list at web...@li... To remove yourself from this list, go to http://lists.sourceforge.net/lists/listinfo/webadmin-list |