mirror of
https://github.com/webmin/webmin.git
synced 2026-02-03 06:03:28 +00:00
23 lines
743 B
Perl
Executable File
23 lines
743 B
Perl
Executable File
#!/usr/local/bin/perl
|
|
# Set the global hostname and workgroup options
|
|
|
|
$no_acl_check++;
|
|
$ENV{'WEBMIN_CONFIG'} ||= "/etc/webmin";
|
|
$ENV{'WEBMIN_VAR'} ||= "/var/webmin";
|
|
if ($0 =~ /^(.*\/)[^\/]+$/) {
|
|
chdir($1);
|
|
}
|
|
chop($pwd = `pwd`);
|
|
$0 = "$pwd/set-hostname-workgroup.pl";
|
|
require './samba-lib.pl';
|
|
$< == 0 || die "set-hostname-workgroup.pl must be run as root";
|
|
|
|
@ARGV == 2 || die "usage: set-hostname-workgroup.pl <hostname> <workgroup>";
|
|
$ARGV[0] =~ /^[a-z0-9\.\-\_]+$/i || die "Hostname can only contain letters and numbers";
|
|
$ARGV[1] =~ /^[a-z0-9\.\-\_]+$/i || die "Workgroup can only contain letters and numbers";
|
|
&get_share("global");
|
|
&setval("netbios name", $ARGV[0]);
|
|
&setval("workgroup", $ARGV[1]);
|
|
&modify_share("global", "global");
|
|
|