From 706862022193f62accff8884305931be8fd83fe1 Mon Sep 17 00:00:00 2001 From: Antoine Ginies Date: Wed, 15 Feb 2006 10:37:34 +0000 Subject: fix bug #20162 (can't launch samba wizard) --- samba_wizard/Samba.pm | 2 +- samba_wizard/Sambaprint.pm | 2 +- samba_wizard/Sambashare.pm | 2 +- 3 files changed, 3 insertions(+), 3 deletions(-) (limited to 'samba_wizard') diff --git a/samba_wizard/Samba.pm b/samba_wizard/Samba.pm index 85a84fda..a0421bea 100755 --- a/samba_wizard/Samba.pm +++ b/samba_wizard/Samba.pm @@ -73,7 +73,7 @@ my $o = { $::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', show_commented_info => 1 }); +my $samba = new Libconf::Glueconf::Samba::Smb_conf({ filename => '/etc/samba/smb.conf'}); #my $samba = new Libconf::Glueconf::Samba::Smb_conf(filename => '/etc/samba/smb.conf', comments_struct => [['^\s*#'], ['^\s*;']]); $samba->{libconf}{disable_inline_comments} = 1; diff --git a/samba_wizard/Sambaprint.pm b/samba_wizard/Sambaprint.pm index 01f8622a..0c5ea761 100755 --- a/samba_wizard/Sambaprint.pm +++ b/samba_wizard/Sambaprint.pm @@ -47,7 +47,7 @@ my $o = { }; $::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', show_commented_info => 1 }); +my $samba = new Libconf::Glueconf::Samba::Smb_conf({ filename => '/etc/samba/smb.conf'}); #debug use Data::Dumper; diff --git a/samba_wizard/Sambashare.pm b/samba_wizard/Sambashare.pm index 54345fde..870531c2 100755 --- a/samba_wizard/Sambashare.pm +++ b/samba_wizard/Sambashare.pm @@ -56,7 +56,7 @@ my $o = { }; $::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', show_commented_info => 1 }); +my $samba = new Libconf::Glueconf::Samba::Smb_conf({ filename => '/etc/samba/smb.conf'}); #use Data::Dumper; #print Dumper($samba); -- cgit v1.2.1