mirror of
https://github.com/webmin/webmin.git
synced 2025-07-20 16:48:46 +00:00
21 lines
487 B
Perl
Executable File
21 lines
487 B
Perl
Executable File
#!/usr/local/bin/perl
|
|
# Set a Samba share to read-write mode
|
|
|
|
$no_acl_check++;
|
|
$ENV{'WEBMIN_CONFIG'} ||= "/etc/webmin";
|
|
$ENV{'WEBMIN_VAR'} ||= "/var/webmin";
|
|
if ($0 =~ /^(.*\/)[^\/]+$/) {
|
|
chdir($1);
|
|
}
|
|
chop($pwd = `pwd`);
|
|
$0 = "$pwd/readwrite-share.pl";
|
|
require './samba-lib.pl';
|
|
$< == 0 || die "readwrite-share.pl must be run as root";
|
|
|
|
@ARGV || die "usage: readwrite-share.pl <share> ...";
|
|
foreach $s (@ARGV) {
|
|
&get_share($s);
|
|
&setval("writable", "yes");
|
|
&modify_share($s, $s);
|
|
}
|