summaryrefslogtreecommitdiffstats
path: root/perl-install/install_steps_interactive.pm
diff options
context:
space:
mode:
Diffstat (limited to 'perl-install/install_steps_interactive.pm')
-rw-r--r--perl-install/install_steps_interactive.pm53
1 files changed, 52 insertions, 1 deletions
diff --git a/perl-install/install_steps_interactive.pm b/perl-install/install_steps_interactive.pm
index 529693ddf..ed0a16fb1 100644
--- a/perl-install/install_steps_interactive.pm
+++ b/perl-install/install_steps_interactive.pm
@@ -18,7 +18,7 @@ use lang;
use keyboard;
use fs;
use log;
-
+use printer;
1;
sub errorInStep($$) {
@@ -195,9 +195,60 @@ sub printerConfig($) {
);
} elsif ($o->{printer}{TYPE} eq "REMOTE") {
+ $o->{printer}{REMOTEHOST} ||= $o->{default}{printer}{REMOTEHOST};
+ $o->{printer}{REMOTEQUEUE} ||= $o->{default}{printer}{REMOTEQUEUE};
+ $o->ask_from_entries_ref(_("Remote lpd Printer Options"),
+ _("To use a remote lpd print queue, you need to supply
+ the hostname of the printer server and the queue name
+ on that server which jobs should be placed in."),
+ [_("Remote hostname:"), _("Remote queue:")],
+ [\$o->{printer}{REMOTEHOST}, \$o->{printer}{REMOTEQUEUE}],
+ );
} elsif ($o->{printer}{TYPE} eq "SMB") {
+ $o->{printer}{SMBHOST} ||= $o->{default}{printer}{SMBHOST};
+ $o->{printer}{SMBHOSTIP} ||= $o->{default}{printer}{SMBHOSTIP};
+ $o->{printer}{SMBSHARE} ||= $o->{default}{printer}{SMBSHARE};
+ $o->{printer}{SMBUSER} ||= $o->{default}{printer}{SMBUSER};
+ $o->{printer}{SMBPASSWD} ||= $o->{default}{printer}{SMBPASSWD};
+ $o->{printer}{SMBWORKGROUP} ||= $o->{default}{printer}{SMBWORKGROUP};
+
+
+ $o->ask_from_entries_ref(_("SMB/Windows 95/NT Printer Options"),
+ _("To print to a SMB printer, you need to provide the
+ SMB host name (this is not always the same as the machines
+ TCP/IP hostname) and possibly the IP address of the print server, as
+ well as the share name for the printer you wish to access and any
+ applicable user name, password, and workgroup information."),
+ [_("SMB server host:"), _("SMB server IP:"),
+ _("Share name:"), _("User name:"), _("Password:"),
+ _("Workgroup:")],
+ [\$o->{printer}{SMBHOST}, \$o->{printer}{SMBHOSTIP},
+ \$o->{printer}{SMBSHARE}, \$o->{printer}{SMBUSER},
+ \$o->{printer}{SMBPASSWD}, \$o->{printer}{SMBWORKGROUP}
+ ]
+ );
+
+
+
} elsif ($o->{printer}{TYPE} eq "NCP") {
+ $o->{printer}{NCPHOST} ||= $o->{default}{printer}{NCPHOST};
+ $o->{printer}{NCPQUEUE} ||= $o->{default}{printer}{NCPQUEUE};
+ $o->{printer}{NCPUSER} ||= $o->{default}{printer}{NCPUSER};
+ $o->{printer}{NCPPASSWD} ||= $o->{default}{printer}{NCPPASSWD};
+
+
+ $o->ask_from_entries_ref(_("NetWare Printer Options"),
+ _("To print to a NetWare printer, you need to provide the
+ NetWare print server name (this is not always the same as the machines
+ TCP/IP hostname)
+ as well as the print queue name for the printer you wish to access and any
+ applicable user name and password."),
+ [_("Printer Server:"), _("Print Queue Name:"),
+ _("User name:"), _("Password:")],
+ [\$o->{printer}{NCPHOST}, \$o->{printer}{NCPQUEUE},
+ \$o->{printer}{NCPUSER}, \$o->{printer}{NCPPASSWD}],
+ );
}