summaryrefslogtreecommitdiffstats
path: root/perl-install/any.pm
diff options
context:
space:
mode:
Diffstat (limited to 'perl-install/any.pm')
-rw-r--r--perl-install/any.pm29
1 files changed, 29 insertions, 0 deletions
diff --git a/perl-install/any.pm b/perl-install/any.pm
index 45db781a7..9e459af1c 100644
--- a/perl-install/any.pm
+++ b/perl-install/any.pm
@@ -864,4 +864,33 @@ sub devfssymlinkf {
symlinkf($if, "$prefix/$_") foreach ("dev/$of", "lib/dev-state/$of");
}
+sub fileshare_config {
+ my ($in) = @_;
+
+ my $file = '/etc/security/fileshare.conf';
+ my %conf = getVarsFromSh($file);
+
+ my @l = (__("No sharing"), __("Allow all users"), __("Custom"));
+ my $restrict = exists $conf{RESTRICT} ? text2bool($conf{RESTRICT}) : 1;
+
+ my $r = $in->ask_from_list_('fileshare',
+'Do you want to allow users to export some directories in their home?
+Allowing this will permit users to simply click on "Share" in konqueror and nautilus.
+
+"Custom" permit a per-user granularity.
+',
+ \@l, $l[$restrict ? 0 : 1]) or return;
+ $restrict = $r ne $l[1];
+ $conf{RESTRICT} = bool2yesno($restrict);
+
+ setVarsInSh($file, \%conf);
+ if ($r eq $l[2]) {
+ # custom
+ $in->ask_warn('',
+'The per-user sharing uses the group "fileshare".
+You can use userdrake to add a user in this group.
+Or on the command line use: "usermod -G fileshare user_name"');
+ }
+}
+
1;