|
Server : Apache/2.2.2 (Fedora) System : Linux App1.pathumtani.go.th 2.6.20-1.2320.fc5smp #1 SMP Tue Jun 12 19:40:16 EDT 2007 i686 User : apache ( 48) PHP Version : 5.2.9 Disable Function : NONE Directory : /proc/self/root/usr/libexec/webmin/pserver/ |
Upload File : |
#!/usr/bin/perl
# save_access.cgi
# Save readers and writers lists
require './pserver-lib.pl';
$access{'access'} || &error($text{'access_ecannot'});
&ReadParse();
&error_setup($text{'access_err'});
&lock_file($readers_file);
@passwd = &list_passwords();
%gotuser = map { $_->{'user'}, 1 } @passwd;
if ($in{'readers_def'}) {
unlink($readers_file);
}
else {
@readers = split(/\s+/, $in{'readers'});
foreach $r (@readers) {
defined(getpwnam($r)) || $gotuser{$r} ||
&error(&text('access_euser', $r));
}
&open_tempfile(READERS, ">$readers_file");
foreach $r (@readers) {
&print_tempfile(READERS, $r,"\n");
}
&close_tempfile(READERS);
}
&unlock_file($readers_file);
&lock_file($writers_file);
if ($in{'writers_def'}) {
unlink($writers_file);
}
else {
@writers = split(/\s+/, $in{'writers'});
foreach $r (@writers) {
defined(getpwnam($r)) || $gotuser{$r} ||
&error(&text('access_euser', $r));
}
&open_tempfile(WRITERS, ">$writers_file");
foreach $r (@writers) {
&print_tempfile(WRITERS, $r,"\n");
}
&close_tempfile(WRITERS);
}
&unlock_file($writers_file);
&webmin_log("access");
&redirect("");