From 115b4b1145f86d90f20c0404a54fa907f06c30b0 Mon Sep 17 00:00:00 2001 From: pad Date: Mon, 6 Sep 1999 20:33:18 +0000 Subject: bugfix --- perl-install/printer.pm | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) (limited to 'perl-install/printer.pm') diff --git a/perl-install/printer.pm b/perl-install/printer.pm index 2ea70fe8e..37f0d61c3 100644 --- a/perl-install/printer.pm +++ b/perl-install/printer.pm @@ -460,17 +460,17 @@ sub configure_queue($) { if ($entry->{TYPE} eq "SMB") { #- simple config file required if SMB printer - my $config_file = "$prefix$queue_path.config"; + my $config_file = "$prefix$queue_path/.config"; local *F; open F, ">$config_file" or die "Can't create $config_file $!"; print F "share='\\\\$entry->{SMBHOST}\\$entry->{SMBSHARE}'\n"; - print F "hostip='$entry->{SMBHOSTIP}'\n"; + print F "hostip=$entry->{SMBHOSTIP}\n"; print F "user='$entry->{SMBUSER}'\n"; print F "password='$entry->{SMBPASSWD}'\n"; print F "workgroup='$entry->{SMBWORKGROUP}'\n"; } elsif ($entry->{TYPE} eq "NCP") { #- same for NCP printer - my $config_file = "$prefix$queue_path.config"; + my $config_file = "$prefix$queue_path/.config"; local *F; open F, ">$config_file" or die "Can't create $config_file $!"; print F "server=$entry->{NCPHOST}\n"; -- cgit v1.2.1