Hello,
Last time I got so much feedback that I will try it again. I learned a lot of
the last recommendations, but the next issue could not be made more efficient by
me. Can you ?
#!/usr/local/bin/perl
#
my $base = "/user/IPlib/IPlib/Analog_CMOS/Camera"; ## Set temporarily for this test,
normaly the user switches the $base depended on which folder he clicks.
my $href = "comic_a2"; ## Set temporarily for this test, normaly this is a
foreach of a directory($base) content, only if ( -d ...) are used.
if ( -e "${base}/${href}/user.perm" ) {
open(USERS, "< ${base}/${href}/user.perm");
while(<USERS>) {
if ( m/^user:/ ) {
my $user = (split, /:\s*/)[1];
our @users = split(/,/, $user);
next;
} # End if $user
if ( m/^group:/ ) {
my $grp = (split, /:\s*/)[1];
our @grp = split(/,/, $grp);
next;
} # End if $user
if ( m/^descr:/ ) {
my $dgrp = (split, /:\s*/)[1];
our @dgrp = split(/,/, $dgrp);
next;
} # End if $user
} # End while
} # End if -e
else {
@users = "niets";
@grp = "niets";
@dgrp = "niets";
}
close(USERS);
# ----
user.perm:
user: one,two,three
group: grp1,grp3
descr: grp1,grp2,grp3
#---
What am I doing out here ? Well as I showed in my previous case I log in using apache
and then determine the group that was used to log in.
Now I am listing a directory($base) in a browser and each directory($href) in that
directory($base) will be checked for the file user.perm, if this file excists it needs
to
be opened to find out the permissions of a document in that directory.
F.Y.I. A bit further in the script it is used to verify if the current $pwuser is
allowed to view only the description/the complete document or nothing at all. But as
the
script is quiet large I will send only this little piece. If you are interested I can
send you the complete private.
Your help is much apreciated !!
Regs David
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
