Hello Olga,
криво, конечно, но кому сейчас легко ?
$luser = $ENV{'REMOTE_USER'};
@passfile = `cat /path/to/your/authgroupfile`;
foreach (@passfile) {
if ($_ =~ /$luser/) { $_ =~ s/\A(\w+):.*/$1/;
$ENV{'REM_GROUP'} = $_;
}
}
Kind regards,
duke <void@xxxxxxx | http://void.ru>
---------------------------------------
nothing is illegal until you get caught
=============================================================================
= Apache-Talk@xxxxxxxxxxxxx mailing list =
Mail "unsubscribe apache-talk" to majordomo@xxxxxxxxxxxxx if you want to quit.
= Archive avaliable at http://www.lexa.ru/apache-talk =
"Russian Apache" includes software developed
by the Apache Group for use in the Apache HTTP server project
(http://www.apache.org/) See
Apache LICENSE.
Copyright (C) 1995-2001 The Apache Group. All rights reserved.
Copyright (C) 1996 Dm. Kryukov; Copyright (C)
1997-2009 Alex Tutubalin. Design (C) 1998 Max Smolev.