diff options
author | pad <pad@mandriva.com> | 1999-09-06 20:33:18 +0000 |
---|---|---|
committer | pad <pad@mandriva.com> | 1999-09-06 20:33:18 +0000 |
commit | 115b4b1145f86d90f20c0404a54fa907f06c30b0 (patch) | |
tree | 046cd13affb85df1028bcc687e1c8853fc576cd7 /perl-install/printer.pm | |
parent | a6096f902a2df839b7e89c084d629840bf52a3a1 (diff) | |
download | drakx-backup-do-not-use-115b4b1145f86d90f20c0404a54fa907f06c30b0.tar drakx-backup-do-not-use-115b4b1145f86d90f20c0404a54fa907f06c30b0.tar.gz drakx-backup-do-not-use-115b4b1145f86d90f20c0404a54fa907f06c30b0.tar.bz2 drakx-backup-do-not-use-115b4b1145f86d90f20c0404a54fa907f06c30b0.tar.xz drakx-backup-do-not-use-115b4b1145f86d90f20c0404a54fa907f06c30b0.zip |
bugfix
Diffstat (limited to 'perl-install/printer.pm')
-rw-r--r-- | perl-install/printer.pm | 6 |
1 files changed, 3 insertions, 3 deletions
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"; |