summaryrefslogtreecommitdiffstats
path: root/samba_wizard
diff options
context:
space:
mode:
Diffstat (limited to 'samba_wizard')
-rwxr-xr-xsamba_wizard/Samba.pm4
-rwxr-xr-xsamba_wizard/Sambaprint.pm4
-rwxr-xr-xsamba_wizard/Sambashare.pm4
3 files changed, 6 insertions, 6 deletions
diff --git a/samba_wizard/Samba.pm b/samba_wizard/Samba.pm
index 1a2da921..d057f9b1 100755
--- a/samba_wizard/Samba.pm
+++ b/samba_wizard/Samba.pm
@@ -69,9 +69,9 @@ my $o = {
test_host_domain($SHORTHOSTNAME, $DOMAINNAME);
},
needed_rpm => [ 'samba-server' ],
- defaultimage => "/usr/share/wizards/samba_wizard/images/sambasrv.png"
+ defaultimage => "/usr/share/wizards/samba_wizard/images/sambasrv.png",
};
-$::Wizard_pix_up = "/usr/share/wizards/samba_wizard/images/sambasrv.png";
+
# we ask glueconf to give us the structure representing /etc/samba/smb.conf
if (!-f "/etc/samba/smb.conf") { mkdir_p("/etc/samba/"); cp_af("/usr/share/wizards/samba_wizard/scripts/smb.conf.default", "/etc/samba/smb.conf") }
my $samba = new Libconf::Glueconf::Samba::Smb_conf({ filename => '/etc/samba/smb.conf' });
diff --git a/samba_wizard/Sambaprint.pm b/samba_wizard/Sambaprint.pm
index b0821be0..d6816a13 100755
--- a/samba_wizard/Sambaprint.pm
+++ b/samba_wizard/Sambaprint.pm
@@ -44,9 +44,9 @@ my $o = {
wiz_printers_browseable => '', wiz_printers_guestok => '', wiz_printers_createmode => '',
list_printers => '',
},
- defaultimage => "/usr/share/wizards/samba_wizard/images/IC-sambaprt-48.png"
+ defaultimage => "/usr/share/wizards/samba_wizard/images/IC-sambaprt-48.png",
};
-$::Wizard_pix_up = "/usr/share/wizards/samba_wizard/images/IC-sambaprt-48.png";
+
# we ask glueconf to give us the structure representing /etc/samba/smb.conf
my $samba = new Libconf::Glueconf::Samba::Smb_conf({ filename => '/etc/samba/smb.conf'});
diff --git a/samba_wizard/Sambashare.pm b/samba_wizard/Sambashare.pm
index b90658d5..9545feb2 100755
--- a/samba_wizard/Sambashare.pm
+++ b/samba_wizard/Sambashare.pm
@@ -53,9 +53,9 @@ my $o = {
wiz_understanding => '',
},
needed_rpm => [ 'samba-server' ],
- defaultimage => "/usr/share/wizards/samba_wizard/images/IC-sambashare-48.png"
+ defaultimage => "/usr/share/wizards/samba_wizard/images/IC-sambashare-48.png",
};
-$::Wizard_pix_up = "/usr/share/wizards/samba_wizard/images/IC-sambashare-48.png";
+
# we ask glueconf to give us the structure representing /etc/samba/smb.conf
my $samba = new Libconf::Glueconf::Samba::Smb_conf({ filename => '/etc/samba/smb.conf'});