summaryrefslogtreecommitdiffstats
path: root/perl-install
diff options
context:
space:
mode:
authorAntoine Ginies <aginies@mandriva.com>2005-08-26 11:04:43 +0000
committerAntoine Ginies <aginies@mandriva.com>2005-08-26 11:04:43 +0000
commitd9d35ac55a650d030976dd4d656dccf555164468 (patch)
tree5e987d5914254f6072c9104185e26850f2da75c8 /perl-install
parent825d4e31955c49bfe91f0917cc4b564c5f9bc06f (diff)
downloaddrakx-d9d35ac55a650d030976dd4d656dccf555164468.tar
drakx-d9d35ac55a650d030976dd4d656dccf555164468.tar.gz
drakx-d9d35ac55a650d030976dd4d656dccf555164468.tar.bz2
drakx-d9d35ac55a650d030976dd4d656dccf555164468.tar.xz
drakx-d9d35ac55a650d030976dd4d656dccf555164468.zip
some perl_checker fix (why mine is not up to date, while i am running cooker ?)
Diffstat (limited to 'perl-install')
-rwxr-xr-xperl-install/standalone/draksambashare16
1 files changed, 8 insertions, 8 deletions
diff --git a/perl-install/standalone/draksambashare b/perl-install/standalone/draksambashare
index a7f960713..69e13e254 100755
--- a/perl-install/standalone/draksambashare
+++ b/perl-install/standalone/draksambashare
@@ -330,9 +330,9 @@ sub printers_section() {
$samba->{'use client driver'} = "yes";
}
-sub add_entry {
+sub add_entry() {
use wizards;
- my ($wiz_addshare_name, $wiz_addshare_comment, $wiz_addshare_path, $wiz_addshare_browseable, $wiz_addshare_public);
+ my ($wiz_addshare_name, $wiz_addshare_comment, $wiz_addshare_path);
my $w = wizards->new;
my $wiz = {
name => N("Add a Samba share"),
@@ -396,7 +396,7 @@ sub add_entry {
gtkset_mousecursor_normal();
}
-sub add_printers_entry {
+sub add_printers_entry() {
use wizards;
my $w = wizards->new;
my %print = (
@@ -415,10 +415,10 @@ sub add_printers_entry {
no_back => 1,
post => sub {
if ($wiz_todo == 1) {
- pdf_section;
+ &pdf_section;
} elsif ($wiz_todo == 2) {
- printdollar_section;
- printers_section;
+ &printdollar_section;
+ &printers_section;
}
return;
},
@@ -439,7 +439,7 @@ sub add_printers_entry {
sub modify_printers_entry {
my ($selected) = @_;
- my ($dir, $i, $path, $comment, $print_command, $guest_ok, $share_name, $browseable, $printable, $write_list, $printing, $lpq_command, $create_mode, $writable, $use_client_driver, $inherit_permissions);
+ my ($dir, $comment, $print_command, $guest_ok, $share_name, $browseable, $printable, $write_list, $printing, $lpq_command, $create_mode, $writable, $use_client_driver, $inherit_permissions);
$share_name = Gtk2::Label->new;
$_ = Gtk2::Entry->new foreach $dir, $path, $comment, $print_command, $write_list, $printing, $lpq_command, $create_mode;
@@ -503,7 +503,7 @@ sub modify_printers_entry {
sub modify_entry {
my ($selected) = @_;
- my ($dir, $i, $path, $comment, $create_mask, $directory_mask, $read_list, $write_list, $admin_users, $valid_users, $force_group, $browseable, $public, $writable, $hide_files, $hide_dot_files, $force_create_mode, $preserve_case, $default_case, $inherit_permissions, $share_name);
+ my ($dir, $comment, $create_mask, $directory_mask, $read_list, $write_list, $admin_users, $valid_users, $force_group, $browseable, $public, $writable, $hide_files, $hide_dot_files, $force_create_mode, $preserve_case, $default_case, $inherit_permissions, $share_name);
$share_name = Gtk2::Label->new;
$_ = Gtk2::Entry->new foreach $dir, $path, $comment, $create_mask, $directory_mask, $hide_files;