mirror of
https://github.com/webmin/webmin.git
synced 2026-02-09 08:42:20 +00:00
56 lines
1.4 KiB
Perl
Executable File
56 lines
1.4 KiB
Perl
Executable File
#!/usr/local/bin/perl
|
|
# chown.cgi
|
|
# Change permissions on cache/log/pid files after a user change
|
|
|
|
require './squid-lib.pl';
|
|
$access{'admopts'} || &error($text{'eadm_ecannot'});
|
|
$| = 1;
|
|
&ui_print_header(undef, $text{'chown_header'}, "");
|
|
$conf = &get_config();
|
|
|
|
# Stop squid
|
|
if ($pidstruct = &find_config("pid_filename", $conf)) {
|
|
$pidfile = $pidstruct->{'values'}->[0];
|
|
}
|
|
else { $pidfile = $config{'pid_file'}; }
|
|
if (open(PID, $pidfile)) {
|
|
<PID> =~ /(\d+)/; $pid = $1;
|
|
close(PID);
|
|
}
|
|
if ($pid && kill(0, $pid)) {
|
|
print "<p>$text{'chown_stop'}<br>\n";
|
|
system("$config{'squid_path'} -f $config{'squid_conf'} ".
|
|
"-k shutdown >/dev/null 2>&1");
|
|
for($i=0; $i<40; $i++) {
|
|
if (!kill(0, $pid)) { last; }
|
|
sleep(1);
|
|
}
|
|
print "$text{'chown_done'}<br>\n";
|
|
$stopped++;
|
|
}
|
|
|
|
# Change ownership
|
|
print "<p>$text{'chown_chown'}<br>\n";
|
|
($user, $group) = &get_squid_user($conf);
|
|
&chown_files($user, $group, $conf);
|
|
print "$text{'chown_done'}<br>\n";
|
|
|
|
# Re-start Squid
|
|
if ($stopped) {
|
|
print "<p>$text{'chown_restart'}<br>\n";
|
|
$temp = &transname();
|
|
system("$config{'squid_path'} -sY -f $config{'squid_conf'} >$temp 2>&1 </dev/null &");
|
|
sleep(3);
|
|
$errs = `cat $temp`;
|
|
unlink($temp);
|
|
if ($errs) {
|
|
system("$config{'squid_path'} -k shutdown -f $config{'squid_conf'} >/dev/null 2>&1");
|
|
print "$text{'chown_failrestart'}<br>\n";
|
|
print "<pre>$errs</pre>\n";
|
|
}
|
|
print "$text{'chown_done'}<br>\n";
|
|
}
|
|
|
|
&ui_print_footer("", $text{'chown_return'});
|
|
|