webadmin-devel

[webmin-devel] acl_security.pl

[Marco R. <mre...@sw...>]

Hi allsome

I got some troubles with acl_security.pl. If i want to edit the rights for 
some user, i always get this error

gamecom::acl_security_form failed : Undefined subroutine 
&gamecom::acl_security_form called at (eval 20) line 2. 

Webmin: 1.121

Here's my code:

#!/usr/bin/perl -w

do '../web-lib.pl';
&init_config();

sub acl_security_form
{
@servers = split (/,/$access{ed_srvrs});
@srv_actions = split (/\//,$access{srv_actions});
@pl_actions = split (/\//,$access{pl_actions});

print "<tr>
	<td colspan=2>Serverzugriff</td>
	</tr>";

foreach $server (@servers)
    {
     if ($server ne "X")
        {
	 print "<tr>
		<td>User hat zugriff auf:</td>
		<td>$server Server<input type=checkbox name=ed_srvrs value=\"$server,\">
		</td>
		</tr>";
	} else
	{
	}
   }
};

Re: [webmin-devel] acl_security.pl

[Jamie C. <jca...@we...>]

I see the bug - the line

@servers = split (/,/$access{ed_srvrs});

should read

@servers = split (/,/, $access{ed_srvrs});

This is also a bug in Webmin, as the user ACL page should display some
kind of error in cases like this.

Also, since %access won't be set in this context, you need to put this
line at the top of the function :

%access = %{$_[0]};

 - Jamie

On Mon, 2004-03-08 at 00:48, Marco Rebsamen wrote:
> Hi allsome
> 
> I got some troubles with acl_security.pl. If i want to edit the rights for 
> some user, i always get this error
> 
> gamecom::acl_security_form failed : Undefined subroutine 
> &gamecom::acl_security_form called at (eval 20) line 2. 
> 
> Webmin: 1.121
> 
> Here's my code:
> 
> #!/usr/bin/perl -w
> 
> do '../web-lib.pl';
> &init_config();
> 
> sub acl_security_form
> {
> @servers = split (/,/$access{ed_srvrs});
> @srv_actions = split (/\//,$access{srv_actions});
> @pl_actions = split (/\//,$access{pl_actions});
> 
> print "<tr>
> 	<td colspan=2>Serverzugriff</td>
> 	</tr>";
> 
> foreach $server (@servers)
>     {
>      if ($server ne "X")
>         {
> 	 print "<tr>
> 		<td>User hat zugriff auf:</td>
> 		<td>$server Server<input type=checkbox name=ed_srvrs value=\"$server,\">
> 		</td>
> 		</tr>";
> 	} else
> 	{
> 	}
>    }
> };
> 
> 
> 
> -------------------------------------------------------
> This SF.Net email is sponsored by: IBM Linux Tutorials
> Free Linux tutorial presented by Daniel Robbins, President and CEO of
> GenToo technologies. Learn everything from fundamentals to system
> administration.http://ads.osdn.com/?ad_id=1470&alloc_id=3638&op=click
> -
> Forwarded by the Webmin development list at web...@we...
> To remove yourself from this list, go to
> http://lists.sourceforge.net/lists/listinfo/webadmin-devel

Re: [webmin-devel] acl_security.pl

[Marco R. <mre...@sw...>]

Thanks, it works :)

Am Montag, 8. M=E4rz 2004 07:42 schrieb Jamie Cameron:
> I see the bug - the line
>
> @servers =3D split (/,/$access{ed_srvrs});
>
> should read
>
> @servers =3D split (/,/, $access{ed_srvrs});
>
> This is also a bug in Webmin, as the user ACL page should display some
> kind of error in cases like this.
>
> Also, since %access won't be set in this context, you need to put this
> line at the top of the function :
>
> %access =3D %{$_[0]};
>
>  - Jamie
>
> On Mon, 2004-03-08 at 00:48, Marco Rebsamen wrote:
> > Hi allsome
> >
> > I got some troubles with acl_security.pl. If i want to edit the rights
> > for some user, i always get this error
> >
> > gamecom::acl_security_form failed : Undefined subroutine
> > &gamecom::acl_security_form called at (eval 20) line 2.
> >
> > Webmin: 1.121
> >
> > Here's my code:
> >
> > #!/usr/bin/perl -w
> >
> > do '../web-lib.pl';
> > &init_config();
> >
> > sub acl_security_form
> > {
> > @servers =3D split (/,/$access{ed_srvrs});
> > @srv_actions =3D split (/\//,$access{srv_actions});
> > @pl_actions =3D split (/\//,$access{pl_actions});
> >
> > print "<tr>
> > 	<td colspan=3D2>Serverzugriff</td>
> > 	</tr>";
> >
> > foreach $server (@servers)
> >     {
> >      if ($server ne "X")
> >         {
> > 	 print "<tr>
> > 		<td>User hat zugriff auf:</td>
> > 		<td>$server Server<input type=3Dcheckbox name=3Ded_srvrs
> > value=3D\"$server,\"> </td>
> > 		</tr>";
> > 	} else
> > 	{
> > 	}
> >    }
> > };
> >
> >
> >
> > -------------------------------------------------------
> > This SF.Net email is sponsored by: IBM Linux Tutorials
> > Free Linux tutorial presented by Daniel Robbins, President and CEO of
> > GenToo technologies. Learn everything from fundamentals to system
> > administration.http://ads.osdn.com/?ad_id=3D1470&alloc_id=3D3638&op=3Dc=
lick
> > -
> > Forwarded by the Webmin development list at web...@we...
> > To remove yourself from this list, go to
> > http://lists.sourceforge.net/lists/listinfo/webadmin-devel
>
> -------------------------------------------------------
> This SF.Net email is sponsored by: IBM Linux Tutorials
> Free Linux tutorial presented by Daniel Robbins, President and CEO of
> GenToo technologies. Learn everything from fundamentals to system
> administration.http://ads.osdn.com/?ad_id=3D1470&alloc_id=3D3638&op=3Dcli=
ck
> -
> Forwarded by the Webmin development list at web...@we...
> To remove yourself from this list, go to
> http://lists.sourceforge.net/lists/listinfo/webadmin-devel