summaryrefslogtreecommitdiffstats
path: root/perl-install
diff options
context:
space:
mode:
authorPascal Rigaux <pixel@mandriva.com>2006-01-13 16:36:35 +0000
committerPascal Rigaux <pixel@mandriva.com>2006-01-13 16:36:35 +0000
commitbc61dcd6f8e5ccc9311db39886a40feb60b2db4c (patch)
tree93d891dc55b65a139189b682c28265dd40defca1 /perl-install
parente5e2f28a00c5537aa40ba636075a8f067a88a7b4 (diff)
downloaddrakx-backup-do-not-use-bc61dcd6f8e5ccc9311db39886a40feb60b2db4c.tar
drakx-backup-do-not-use-bc61dcd6f8e5ccc9311db39886a40feb60b2db4c.tar.gz
drakx-backup-do-not-use-bc61dcd6f8e5ccc9311db39886a40feb60b2db4c.tar.bz2
drakx-backup-do-not-use-bc61dcd6f8e5ccc9311db39886a40feb60b2db4c.tar.xz
drakx-backup-do-not-use-bc61dcd6f8e5ccc9311db39886a40feb60b2db4c.zip
put kde's enhancements (backward compatible)
- multi distro - new variables in fileshare.conf
Diffstat (limited to 'perl-install')
-rwxr-xr-xperl-install/standalone/fileshareset38
1 files changed, 32 insertions, 6 deletions
diff --git a/perl-install/standalone/fileshareset b/perl-install/standalone/fileshareset
index f6fd20e40..87996820e 100755
--- a/perl-install/standalone/fileshareset
+++ b/perl-install/standalone/fileshareset
@@ -38,6 +38,17 @@ my $username = getpwuid($uid);
my $usage =
"usage: fileshareset --add <dir>
fileshareset --remove <dir>";
+
+my $not_enabled =
+qq(File sharing is not enabled.
+To enable file sharing put
+"FILESHARING=yes" in $authorisation_file);
+
+my $not_simple_enabled =
+qq(Simple file sharing is not enabled.
+To enable simple file sharing put
+"SHARINGMODE=simple" in $authorisation_file);
+
my $non_authorised =
qq(You are not authorised to use fileshare'ing
To grant you the rights:
@@ -57,6 +68,10 @@ my %exit_codes = reverse(
5 => "not exported",
6 => $no_export_method,
+
+ 7 => $not_enabled,
+
+ 8 => $not_simple_enabled,
255 => "various",
);
@@ -145,7 +160,13 @@ sub check {
my ($exclusive_lock) = @_;
my $conf = read_conf($exclusive_lock);
- if (lc($conf->{RESTRICT}) eq 'no') {
+ if (lc($conf->{FILESHARING}) eq 'no') {
+ ::error($not_enabled);
+ } elsif (lc($conf->{SHARINGMODE}) eq 'advanced') {
+ ::error($not_simple_enabled);
+ } elsif ($conf->{FILESHAREGROUP}) {
+ $authorisation_group = $conf->{FILESHAREGROUP};
+ } elsif (lc($conf->{RESTRICT}) eq 'no') {
# ok, access granted for everybody
} else {
my @l;
@@ -253,8 +274,8 @@ sub write {
sub update_server() {
if (fork()) {
system('/usr/sbin/exportfs', '-r');
- if (system('/sbin/pidof rpc.mountd >/dev/null') != 0 ||
- system('/sbin/pidof nfsd >/dev/null') != 0) {
+ if (system('PATH=/bin:/sbin pidof rpc.mountd >/dev/null') != 0 ||
+ system('PATH=/bin:/sbin pidof nfsd >/dev/null') != 0) {
# trying to start the server...
system('/etc/init.d/portmap start') if system('/etc/init.d/portmap status >/dev/null') != 0;
system('/etc/init.d/nfs', $_) foreach 'stop', 'start';
@@ -372,10 +393,15 @@ sub name_mangle {
sub update_server() {
if (fork()) {
system('/usr/bin/killall -HUP smbd 2>/dev/null');
- if (system('/sbin/pidof smbd >/dev/null') != 0 ||
- system('/sbin/pidof nmbd >/dev/null') != 0) {
+ if (system('PATH=/bin:/sbin pidof smbd >/dev/null') != 0 ||
+ system('PATH=/bin:/sbin pidof nmbd >/dev/null') != 0) {
# trying to start the server...
- system('/etc/init.d/smb', $_) foreach 'stop', 'start';
+ my ($f) = grep { -f $_ } map { "/etc/init.d/$_" } 'smb', 'samba', 'rc.samba';
+ if ($f) {
+ system($f, $_) foreach 'stop', 'start';
+ } else {
+ print STDERR "Error: Can't find the samba init script \n";
+ }
}
exit 0;
}