undoing webusers-improvement (not working)

This commit is contained in:
io 2005-01-21 12:35:40 +00:00
parent 07dec3420e
commit 16fc7ae400

View file

@ -689,26 +689,12 @@ sub create_list {
die 'SQL table creation failed: ', $list->errmsg();
}
}
&set_webusers_permission;
return 0;
}
# ------------------------------------------------------------------------
sub set_webusers_permission {
# Handle authentication stuff
my ($contents, $old_contents);
if ($Q::webusers) {
# remove old line
open(WEBUSER, ">$LIST_DIR/webusers") || die "Unable to open webusers: $!";
@old_contents = <WEBUSERS>;
@contents = (grep { ! /^$Q::list:/ } @old_contents);
push(@contents,"$Q::list: $Q::webusers\n");
print WEBUSER (@contents);
close WEBUSER;
open(WEBUSER, ">>$LIST_DIR/webusers") || die "Unable to open webusers: $!";
print WEBUSER "$Q::list: $Q::webusers\n";
close WEBUSER;
}
return 0;