fix fixed_val and fixed_list

1 files changed, 67 insertions, 67 deletions

diff --git a/samba_wizard/Sambashare.pm b/samba_wizard/Sambashare.pm
index 694581a7..5b262dbb 100755
--- a/samba_wizard/Sambashare.pm
+++ b/samba_wizard/Sambashare.pm
@@ -172,7 +172,7 @@ $o->{pages} = {
 					  name => N("Delete which share?") . "\n\n" . N("Please choose the share you want to remove."),
 					  pre => \&list_all_shares,
 					  data => [
-						   { label => '', type => 'list', val => \$o->{var}{wiz_selected_share}, fixed_list => \@listshare },
+						   { label => '', type => 'list', val => \$o->{var}{wiz_selected_share}, list_ref => \@listshare },
 						  ],
 					  next => 'summary_delete',
 					 },
@@ -180,7 +180,7 @@ $o->{pages} = {
 					  name => N("Modify which share?") . "\n\n" . N("Please choose the share you want to modify."),
 					  pre => \&list_all_shares_to_modify,
 					  data => [
-                                                   { label => '', type => 'list', val => \$o->{var}{wiz_selected_share}, fixed_list => \@listshare_tomodify },
+                                                   { label => '', type => 'list', val => \$o->{var}{wiz_selected_share}, list_ref => \@listshare_tomodify },
                                                   ],
 					  post => sub { if ($o->{var}{wiz_selected_share} eq 'homes') { return 'modify_homes_share' }
 						      },
@@ -198,8 +198,8 @@ $o->{pages} = {
 				      },
 				      data => [
 					       { label => N("Comment:"), val => \$o->{var}{wiz_homes_comment}, help => N("This is a text field that is seen next to a share when a client does a queries the server") },
-					       { label => N("Writable:"), val => \$o->{var}{wiz_homes_writable}, fixed_list => \@yesorno },
-					       { label => N("Browseable:"), val => \$o->{var}{wiz_homes_browseable}, fixed_list => \@yesorno },
+					       { label => N("Writable:"), val => \$o->{var}{wiz_homes_writable}, list_ref => \@yesorno },
+					       { label => N("Browseable:"), val => \$o->{var}{wiz_homes_browseable}, list_ref => \@yesorno },
 					       { label => N("Create mode:"), val => \$o->{var}{wiz_homes_create_mode} },
 					       { label => N("Create mask:"), val => \$o->{var}{wiz_homes_create_mask} },
 					       { label => N("Directory mask:"), val => \$o->{var}{wiz_homes_directory_mask} },
@@ -244,12 +244,12 @@ $o->{pages} = {
 				  }
 				},
 				data => [
-					 { label => N("Name of the share:"), fixed_val => \$o->{var}{wiz_selected_share} },
+					 { label => N("Name of the share:"), val_ref => \$o->{var}{wiz_selected_share} },
 					 { label => N("Comment:"), val => \$o->{var}{wiz_share_comment}, help => N("This is a text field that is seen next to a share when a client does a queries the server") },
 					 { label => N("Path:"), val => \$o->{var}{wiz_share_path} },
-					 { label => N("Browseable:"), val => \$o->{var}{wiz_share_browseable}, fixed_list => \@yesorno, help => N("Allows share to be displayed in list of share.") },
-					 { label => N("Writable:"), val => \$o->{var}{wiz_share_writable}, fixed_list => \@yesorno, help => ('Inverted synonym for read only.') },
-					 { label => N("Public:"), val => \$o->{var}{wiz_share_public}, fixed_list => \@yesorno },
+					 { label => N("Browseable:"), val => \$o->{var}{wiz_share_browseable}, list_ref => \@yesorno, help => N("Allows share to be displayed in list of share.") },
+					 { label => N("Writable:"), val => \$o->{var}{wiz_share_writable}, list_ref => \@yesorno, help => ('Inverted synonym for read only.') },
+					 { label => N("Public:"), val => \$o->{var}{wiz_share_public}, list_ref => \@yesorno },
 					],
 				no_back => 1,
 				next => 'modify_share_options',
@@ -273,7 +273,7 @@ $o->{pages} = {
 						 { label => N("valid users"), val => \$o->{var}{wiz_share_valid_users}, help => N("To restrict the share to a particular user. If this is empty (the default) then any user  can  login. ie: guibo") },
 						 { label => N("admin users"), val => \$o->{var}{wiz_share_admin_users}, help => N("This is a list of users who will be granted administrative privileges on the share. This means that they will do all file operations as the super-user (root). You  should  use this option very carefully, as any user in this list will be able to do anything they like on the share, irrespective of file permissions.") },
 						 { label => N("Hide files:"), val => \$o->{var}{wiz_share_hidefiles}, help => N("The hide files option provides one or more directory or filename patterns to Samba. Any file matching this pattern will be treated as a hidden file from the perspective of the client. ie: /.icewm/") },
-						 { label => N("Hide dot files:"), val => \$o->{var}{wiz_share_dotfiles}, fixed_list => \@yesorno, help => N("The hide dot files option hides any files on the server that begin with a dot (.)") },
+						 { label => N("Hide dot files:"), val => \$o->{var}{wiz_share_dotfiles}, list_ref => \@yesorno, help => N("The hide dot files option hides any files on the server that begin with a dot (.)") },
 						],
 					complete => sub {
 					  map { my @users = split(" ", $_);
@@ -306,8 +306,8 @@ $o->{pages} = {
 						  { label => N("force create mode"), val => \$o->{var}{wiz_share_force_create_mode}, help => N("This parameter specifies a set of UNIX mode bit permissions that will always be set on a file created by Samba. This is done by bitwise \'OR\'ing these bits onto the mode bits of a file that is being created or having its permissions changed. The default for this parameter is (in octal) 000. ie: force create mode = 0700 ") },
 						  { label => N("force directory mode"), val => \$o->{var}{wiz_share_force_directory_mode}, help => N("This parameter specifies a set of UNIX mode bit permissions that will always be set on a directory created by Samba. This is done by bitwise \'OR\'ing these bits onto the mode bits of a directory that is being created. The default for this parameter is (in octal) 0000 which will not add any extra permission bits to a created directory. ie: force directory mode = 0755") },
 						  { label => N("force group"), val => \$o->{var}{wiz_share_force_group}, help => N("This specifies a UNIX group name that will be assigned as the default primary group for all users connecting to this service. This is useful for sharing files by ensuring that all access to files on service will use the named group for their permissions checking. ie: force group = agroup") },
-						  { label => N("default case"), val => \$o->{var}{wiz_share_default_case}, fixed_list => \@scase, help => N("lower or upper") },
-						  { label => N("preserve case"), val => \$o->{var}{wiz_share_preserve_case}, fixed_list => \@yesorno, help => N("This controls if new filenames are created with the case that the client passes, or if they are forced to be the default case") },
+						  { label => N("default case"), val => \$o->{var}{wiz_share_default_case}, list_ref => \@scase, help => N("lower or upper") },
+						  { label => N("preserve case"), val => \$o->{var}{wiz_share_preserve_case}, list_ref => \@yesorno, help => N("This controls if new filenames are created with the case that the client passes, or if they are forced to be the default case") },
 						 ],
 					 complete => sub {
 					   map {
@@ -324,8 +324,8 @@ $o->{pages} = {
 				      { label => N("Name of the share:"), val => \$o->{var}{wiz_addshare_name} },
 				      { label => N("Comment:"), val => \$o->{var}{wiz_addshare_comment} },
 				      { label => N("Path:"), val => \$o->{var}{wiz_addshare_path} },
-				      { label => N("Browseable:"), val => \$o->{var}{wiz_addshare_browseable}, fixed_list => \@yesorno, help => N("Allows share to be displayed in list of share.") },
-				      { label => N("Public:"), val => \$o->{var}{wiz_addshare_public}, fixed_list => \@yesorno },
+				      { label => N("Browseable:"), val => \$o->{var}{wiz_addshare_browseable}, list_ref => \@yesorno, help => N("Allows share to be displayed in list of share.") },
+				      { label => N("Public:"), val => \$o->{var}{wiz_addshare_public}, list_ref => \@yesorno },
 				     ],
 			     complete => sub {
 			       foreach my $clef (keys %$samba) {
@@ -367,12 +367,12 @@ $o->{pages} = {
 				     $o->{var}{wiz_cdrom_public} = "yes";
 				   },
 				   data => [
-					 { label => N("Comment:"), fixed_val => \$o->{var}{wiz_cdrom_comment} },
-					 { label => N("CDrom path:"), fixed_val => \$o->{var}{wiz_cdrom_path} },
-					 { label => N("Browseable:"), fixed_val => \$o->{var}{wiz_cdrom_browseable} },
-					 { label => N("Root preexec:"), fixed_val => \$o->{var}{wiz_cdrom_pre} },
-					 { label => N("Root postexec:"), fixed_val => \$o->{var}{wiz_cdrom_post} },
-					 { label => N("Public:"), fixed_val => \$o->{var}{wiz_cdrom_public} },
+					 { label => N("Comment:"), val_ref => \$o->{var}{wiz_cdrom_comment} },
+					 { label => N("CDrom path:"), val_ref => \$o->{var}{wiz_cdrom_path} },
+					 { label => N("Browseable:"), val_ref => \$o->{var}{wiz_cdrom_browseable} },
+					 { label => N("Root preexec:"), val_ref => \$o->{var}{wiz_cdrom_pre} },
+					 { label => N("Root postexec:"), val_ref => \$o->{var}{wiz_cdrom_post} },
+					 { label => N("Public:"), val_ref => \$o->{var}{wiz_cdrom_public} },
 					],
 				   next => 'summary_addcdromshare',
 				  },
@@ -434,8 +434,8 @@ $o->{pages} = {
 					     { label => N("Name of the share:"), val => \$o->{var}{wiz_add_public_share_name} },
 					     { label => N("Comment:"), val => \$o->{var}{wiz_add_public_share_comment} },
 					     { label => N("Path:"), val => \$o->{var}{wiz_add_public_share_path} },
-					     { label => N("Writable:"), val => \$o->{var}{wiz_add_public_share_writable}, fixed_list => \@yesorno },
-					     { label => N("Public:"), fixed_val => \$o->{var}{wiz_add_public_share_public} },
+					     { label => N("Writable:"), val => \$o->{var}{wiz_add_public_share_writable}, list_ref => \@yesorno },
+					     { label => N("Public:"), val_ref => \$o->{var}{wiz_add_public_share_public} },
 
 					    ],
 				    complete => sub {
@@ -470,12 +470,12 @@ $o->{pages} = {
 				       $o->{var}{wiz_addshare_directorymask} = "775";
 				     },
 				     data => [
-					      { label => N("Writable:"), val => \$o->{var}{wiz_addshare_writable}, fixed_list => \@yesorno },
+					      { label => N("Writable:"), val => \$o->{var}{wiz_addshare_writable}, list_ref => \@yesorno },
 #					      { label => N("Create mask:"), val => \$o->{var}{wiz_addshare_createmask} },
 					      { label => N("Read list:"), val => \$o->{var}{wiz_addshare_readlist}, help => N("Specifies a list \of users that have read-only access to a writable share. ie: aginies") },
 					      { label => N("Write list:"), val => \$o->{var}{wiz_addshare_writelist}, help => N("Specifies a user that have read-write access to a share. ie: guibo") },
 					      { label => N("User own directory:"), type => 'bool', val => \$o->{var}{wiz_owner} },
-					      { label => N("Hide dot files:"), val => \$o->{var}{wiz_addshare_dotfiles}, fixed_list => \@yesorno, help => N("The hide dot files option hides any files on the server that begin with a dot (.)") },
+					      { label => N("Hide dot files:"), val => \$o->{var}{wiz_addshare_dotfiles}, list_ref => \@yesorno, help => N("The hide dot files option hides any files on the server that begin with a dot (.)") },
 					      { label => N("Hide files:"), val => \$o->{var}{wiz_addshare_hidefiles}, help => N("The hide files option provides one or more directory or filename patterns to Samba. Any file matching this pattern will be treated as a hidden file from the perspective of the client. ie: /.icewm/") },
 					     ],
 				     complete => sub {
@@ -511,8 +511,8 @@ $o->{pages} = {
 			     },
 			     data => [
 				      { label => N("Comment:"), val => \$o->{var}{wiz_home_comment} },
-				      { label => N("Browseable:"), val => \$o->{var}{wiz_home_browseable}, fixed_list => \@yesorno },
-				      { label => N("Writable:"), val => \$o->{var}{wiz_home_writable}, fixed_list => \@yesorno },
+				      { label => N("Browseable:"), val => \$o->{var}{wiz_home_browseable}, list_ref => \@yesorno },
+				      { label => N("Writable:"), val => \$o->{var}{wiz_home_writable}, list_ref => \@yesorno },
 #				      { label => N("Create mode:"), val => \$o->{var}{wiz_home_createmode} },
 				     ],
 			     next => 'summary_homeshare',
@@ -532,10 +532,10 @@ $o->{pages} = {
 				  $o->{var}{wiz_profiles_writable} = "yes";
 				},
 				data => [
-					 { label => N("Path:"), fixed_val => \$o->{var}{wiz_profiles_path} },
-					 { label => N("Browseable:"), fixed_val => \$o->{var}{wiz_profiles_browseable} },
-					 { label => N("Guest access:"), fixed_val => \$o->{var}{wiz_profiles_guest_ok} },
-					 { label => N("Writable:"), fixed_val => \$o->{var}{wiz_profiles_writable} },
+					 { label => N("Path:"), val_ref => \$o->{var}{wiz_profiles_path} },
+					 { label => N("Browseable:"), val_ref => \$o->{var}{wiz_profiles_browseable} },
+					 { label => N("Guest access:"), val_ref => \$o->{var}{wiz_profiles_guest_ok} },
+					 { label => N("Writable:"), val_ref => \$o->{var}{wiz_profiles_writable} },
 					],
 				next => 'end_add_profiles',
 				post => \&do_it_add_profiles,
@@ -544,21 +544,21 @@ $o->{pages} = {
 				     name => N("Summary add home share") . "\n\n" . N("If you really want to add this share, click the Next button or use the Back button."),
 				     post => \&do_it_add_homeshare,
 				     data => [
-					      { label => N("Comment:"), fixed_val => \$o->{var}{wiz_home_comment} },
-					      { label => N("Browseable:"), fixed_val => \$o->{var}{wiz_home_browseable}, },
-					      { label => N("Writable:"), fixed_val => \$o->{var}{wiz_home_writable}, },
-					      { label => N("Create mode:"), fixed_val => \$o->{var}{wiz_home_createmode} },
+					      { label => N("Comment:"), val_ref => \$o->{var}{wiz_home_comment} },
+					      { label => N("Browseable:"), val_ref => \$o->{var}{wiz_home_browseable}, },
+					      { label => N("Writable:"), val_ref => \$o->{var}{wiz_home_writable}, },
+					      { label => N("Create mode:"), val_ref => \$o->{var}{wiz_home_createmode} },
 					     ],
 				     next => 'end_add_share',
 				    },
 	       summary_modify => {
 				  name => N("Summary modify a share") . "\n\n" . N("If you really want to modify this share, click the Next button or use the Back button."),
 				  data => [
-					   { label => N("Name of the share:"), fixed_val => \$o->{var}{wiz_selected_share} },
-					   { label => N("Comment:"), fixed_val => \$o->{var}{wiz_share_comment} },
-					   { label => N("Browseable:"), fixed_val => \$o->{var}{wiz_share_browseable} },
-					   { label => N("Writable:"), fixed_val => \$o->{var}{wiz_share_writable} },
-					   { label => N("Public:"), fixed_val => \$o->{var}{wiz_share_public} },
+					   { label => N("Name of the share:"), val_ref => \$o->{var}{wiz_selected_share} },
+					   { label => N("Comment:"), val_ref => \$o->{var}{wiz_share_comment} },
+					   { label => N("Browseable:"), val_ref => \$o->{var}{wiz_share_browseable} },
+					   { label => N("Writable:"), val_ref => \$o->{var}{wiz_share_writable} },
+					   { label => N("Public:"), val_ref => \$o->{var}{wiz_share_public} },
 					  ],
 				  post => \&do_it_modify_share,
 				  next => 'end_modify_share',
@@ -567,12 +567,12 @@ $o->{pages} = {
 					 name => N("CDROM") . "\n\n" . N("If you really want to share a CDROM, click the Next button or use the Back button."),
 					 post => \&do_it_add_cdromshare,
 					 data => [
-						  { label => N("Comment:"), fixed_val => \$o->{var}{wiz_cdrom_comment} },
-						  { label => N("Cdrom path:"), fixed_val => \$o->{var}{wiz_cdrom_path} },
-						  { label => N("Browseable:"), fixed_val => \$o->{var}{wiz_cdrom_browseable} },
-						  { label => N("Root preexec:"), fixed_val => \$o->{var}{wiz_cdrom_pre} },
-						  { label => N("Root postexec:"), fixed_val => \$o->{var}{wiz_cdrom_post} },
-						  { label => N("Public:"), fixed_val => \$o->{var}{wiz_cdrom_public} },
+						  { label => N("Comment:"), val_ref => \$o->{var}{wiz_cdrom_comment} },
+						  { label => N("Cdrom path:"), val_ref => \$o->{var}{wiz_cdrom_path} },
+						  { label => N("Browseable:"), val_ref => \$o->{var}{wiz_cdrom_browseable} },
+						  { label => N("Root preexec:"), val_ref => \$o->{var}{wiz_cdrom_pre} },
+						  { label => N("Root postexec:"), val_ref => \$o->{var}{wiz_cdrom_post} },
+						  { label => N("Public:"), val_ref => \$o->{var}{wiz_cdrom_public} },
 						 ],
 					 next => 'end_add_share',
 					},
@@ -580,15 +580,15 @@ $o->{pages} = {
 				    name => N("Summary add share") . "\n\n" . N("If you really want to add this share, click the Next button or use the Back button."),
 				    post => \&do_it_add_share,
 				    data => [
-					     { label => N("Name of the share:"), fixed_val => \$o->{var}{wiz_addshare_name} },
-					     { label => N("Comment:"), fixed_val => \$o->{var}{wiz_addshare_comment} },
-					     { label => N("Browseable:"), fixed_val => \$o->{var}{wiz_addshare_browseable} },
-					     { label => N("Create mask:"), fixed_val => \$o->{var}{wiz_addshare_createmask} },
-					     { label => N("Writable:"), fixed_val => \$o->{var}{wiz_addshare_writable} },
-					     { label => N("Public:"), fixed_val => \$o->{var}{wiz_addshare_public} },
-					     { label => N("Read list:"), fixed_val => \$o->{var}{wiz_addshare_readlist} },
-					     { label => N("Write list:"), fixed_val => \$o->{var}{wiz_addshare_writelist} },
-					     { label => N("Hide dot files:"), fixed_val => \$o->{var}{wiz_addshare_dotfiles} },
+					     { label => N("Name of the share:"), val_ref => \$o->{var}{wiz_addshare_name} },
+					     { label => N("Comment:"), val_ref => \$o->{var}{wiz_addshare_comment} },
+					     { label => N("Browseable:"), val_ref => \$o->{var}{wiz_addshare_browseable} },
+					     { label => N("Create mask:"), val_ref => \$o->{var}{wiz_addshare_createmask} },
+					     { label => N("Writable:"), val_ref => \$o->{var}{wiz_addshare_writable} },
+					     { label => N("Public:"), val_ref => \$o->{var}{wiz_addshare_public} },
+					     { label => N("Read list:"), val_ref => \$o->{var}{wiz_addshare_readlist} },
+					     { label => N("Write list:"), val_ref => \$o->{var}{wiz_addshare_writelist} },
+					     { label => N("Hide dot files:"), val_ref => \$o->{var}{wiz_addshare_dotfiles} },
 					    ],
 				    next => 'end_add_share',
 				   },
@@ -599,8 +599,8 @@ $o->{pages} = {
 				    $o->{var}{wiz_selected_share_comment} = $samba->{$dshare}{comment};
 				  },
 				  data => [
-					   { label => N("Delete this share:"), fixed_val => \$o->{var}{wiz_selected_share} },
-					   { label => N("Comment for this share:"), fixed_val => \$o->{var}{wiz_selected_share_comment} },
+					   { label => N("Delete this share:"), val_ref => \$o->{var}{wiz_selected_share} },
+					   { label => N("Comment for this share:"), val_ref => \$o->{var}{wiz_selected_share_comment} },
 					  ],
 				  post => \&do_it_remove_share,
 				  next => 'end_delete_share',
@@ -609,12 +609,12 @@ $o->{pages} = {
 	       summary_modify_homes_share => {
 				     name => N("Summary of modify homes share"),
 				     data => [
-					      { label => N("Comment:"), fixed_val => \$o->{var}{wiz_homes_comment} },
-					      { label => N("Writable:"), fixed_val => \$o->{var}{wiz_homes_writable} },
-					      { label => N("Browseable:"), fixed_val => \$o->{var}{wiz_homes_browseable} },
-					      { label => N("Create mode:"), fixed_val => \$o->{var}{wiz_homes_create_mode} },
-					      { label => N("Create mask:"), fixed_val => \$o->{var}{wiz_homes_create_mask} },
-					      { label => N("Directory mask:"), fixed_val => \$o->{var}{wiz_homes_directory_mask} },
+					      { label => N("Comment:"), val_ref => \$o->{var}{wiz_homes_comment} },
+					      { label => N("Writable:"), val_ref => \$o->{var}{wiz_homes_writable} },
+					      { label => N("Browseable:"), val_ref => \$o->{var}{wiz_homes_browseable} },
+					      { label => N("Create mode:"), val_ref => \$o->{var}{wiz_homes_create_mode} },
+					      { label => N("Create mask:"), val_ref => \$o->{var}{wiz_homes_create_mask} },
+					      { label => N("Directory mask:"), val_ref => \$o->{var}{wiz_homes_directory_mask} },
 					     ],
 				     post => \&do_it_modify_homes_share,
 				     next => 'end_add_user_share',
@@ -622,10 +622,10 @@ $o->{pages} = {
  	       summary_add_user_share => {
 					  name => N("Summary of add a user share") . "\n\n" . N("If you really want to add this share, click the Next button or use the Back button."),
 					  data => [
-						   { label => N("Name of the share:"), fixed_val => \$o->{var}{wiz_add_user_share_name} },
-						   { label => N("Comment:"),  fixed_val => \$o->{var}{wiz_add_user_share_comment} },
-						   { label => N("Path:"),  fixed_val => \$o->{var}{wiz_add_user_share_path} },
-						   { label => N("Write list:"),  fixed_val => \$o->{var}{wiz_add_user_share_writelist} },
+						   { label => N("Name of the share:"), val_ref => \$o->{var}{wiz_add_user_share_name} },
+						   { label => N("Comment:"),  val_ref => \$o->{var}{wiz_add_user_share_comment} },
+						   { label => N("Path:"),  val_ref => \$o->{var}{wiz_add_user_share_path} },
+						   { label => N("Write list:"),  val_ref => \$o->{var}{wiz_add_user_share_writelist} },
 						  ],
 					  post => \&do_it_add_user_share,
 					  next => 'end_add_user_share',
@@ -636,8 +636,8 @@ $o->{pages} = {
 						     { label => N("Name of the share:"), val => \$o->{var}{wiz_add_public_share_name} },
 						     { label => N("Comment:"), val => \$o->{var}{wiz_add_public_share_comment} },
 						     { label => N("Path:"), val => \$o->{var}{wiz_add_public_share_path} },
-						     { label => N("Public:"), fixed_val => \$o->{var}{wiz_add_public_share_public} },
-						     { label => N("Writable:"), fixed_val => \$o->{var}{wiz_add_public_share_writable} },
+						     { label => N("Public:"), val_ref => \$o->{var}{wiz_add_public_share_public} },
+						     { label => N("Writable:"), val_ref => \$o->{var}{wiz_add_public_share_writable} },
 						    ],
 					    post => \&do_it_add_public_share,
 					    next => 'end_add_public_share',