One Hat Cyber Team

Your IP: 216.73.216.133
Server IP: 185.119.109.197
Server: Linux managedhosting.chostar.me 5.15.0-160-generic #170-Ubuntu SMP Wed Oct 1 10:06:56 UTC 2025 x86_64
Server Software: Apache
PHP Version: 8.1.33
Buat File | Buat Folder

View File Name : readonly-share.pl

#!/usr/bin/perl
# Set a Samba share to read-only mode

$no_acl_check++;
$ENV{'WEBMIN_CONFIG'} ||= "/etc/webmin";
$ENV{'WEBMIN_VAR'} ||= "/var/webmin";
if ($0 =~ /^(.*\/)[^\/]+$/) {
	chdir($1);
	}
chop($pwd = `pwd`);
$0 = "$pwd/readonly-share.pl";
require './samba-lib.pl';
$< == 0 || die "readwrite-share.pl must be run as root";

@ARGV || die "usage: readonly-share.pl <share> ...";
foreach $s (@ARGV) {
	&get_share($s);
	&setval("writable", "no");
	&modify_share($s, $s);
	}