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 | |
parent | a6096f902a2df839b7e89c084d629840bf52a3a1 (diff) | |
download | drakx-115b4b1145f86d90f20c0404a54fa907f06c30b0.tar drakx-115b4b1145f86d90f20c0404a54fa907f06c30b0.tar.gz drakx-115b4b1145f86d90f20c0404a54fa907f06c30b0.tar.bz2 drakx-115b4b1145f86d90f20c0404a54fa907f06c30b0.tar.xz drakx-115b4b1145f86d90f20c0404a54fa907f06c30b0.zip |
bugfix
Diffstat (limited to 'perl-install')
-rw-r--r-- | perl-install/install2.pm | 21 | ||||
-rw-r--r-- | perl-install/install_steps.pm | 8 | ||||
-rw-r--r-- | perl-install/install_steps_interactive.pm | 89 | ||||
-rw-r--r-- | perl-install/interactive.pm | 26 | ||||
-rw-r--r-- | perl-install/interactive_gtk.pm | 39 | ||||
-rw-r--r-- | perl-install/keyboard.pm | 18 | ||||
-rw-r--r-- | perl-install/lang.pm | 15 | ||||
-rw-r--r-- | perl-install/modules.pm | 27 | ||||
-rw-r--r-- | perl-install/network.pm | 67 | ||||
-rw-r--r-- | perl-install/printer.pm | 6 | ||||
-rw-r--r-- | perl-install/share/po/no.po | 254 |
11 files changed, 354 insertions, 216 deletions
diff --git a/perl-install/install2.pm b/perl-install/install2.pm index 3d90b1679..5dfae42b1 100644 --- a/perl-install/install2.pm +++ b/perl-install/install2.pm @@ -12,16 +12,16 @@ use common qw(:common :file :system :functional); use install_any qw(:all); use log; use network; +use lang; use keyboard; use fs; use fsedit; -use modules; use partition_table qw(:types); -use detect_devices; use pkgs; -use smp; -use lang; use printer; +use modules; +use detect_devices; +use smp; use run_program; use install_steps_graphical; @@ -203,7 +203,7 @@ for (my $i = 0; $i < @installSteps; $i += 2) { push @orderedInstallSteps, $installSteps[$i]; } -#TOSEE bug avec +#TOSEE bug with #%installSteps = # map_tab_hash { # my ($i, $h) = @_; @@ -298,8 +298,8 @@ $o = $::o = { DEVICE => "/dev/dev1", - REMOTEHOST => "padhost", - REMOTEQUEUE => "padqueue", + REMOTEHOST => "", + REMOTEQUEUE => "", NCPHOST => "printerservername", NCPQUEUE => "queuename", @@ -321,7 +321,7 @@ $o = $::o = { steps => \%installSteps, orderedSteps => \@orderedInstallSteps, - installClass => "beginner", + installClass => "expert", base => [ qw(basesystem initscripts console-tools mkbootdisk anacron rhs-hwdiag utempter ldconfig chkconfig ntsysv mktemp setup filesystem SysVinit bdflush crontabs dev e2fsprogs etcskel fileutils findutils getty_ps grep groff gzip hdparm info initscripts isapnptools kbdconfig kernel less ldconfig lilo logrotate losetup man mkinitrd mingetty modutils mount net-tools passwd procmail procps psmisc mandrake-release rootfiles rpm sash sed setconsole setserial shadow-utils sh-utils slocate stat sysklogd tar termcap textutils time timeconfig tmpwatch util-linux vim-minimal vixie-cron which cpio) ], # for the list of fields available for user and superuser, see @etc_pass_fields in install_steps.pm @@ -606,3 +606,8 @@ sub killCardServices { my $pid = chop_(cat_("/tmp/cardmgr.pid")); $pid and kill(15, $pid); # send SIGTERM } + +#-###################################################################################### +#- Wonderful perl :( +#-###################################################################################### +1; # diff --git a/perl-install/install_steps.pm b/perl-install/install_steps.pm index 6e8bff2e9..6cd107081 100644 --- a/perl-install/install_steps.pm +++ b/perl-install/install_steps.pm @@ -81,8 +81,12 @@ sub errorInStep($$) {} #------------------------------------------------------------------------------ sub selectLanguage { my ($o) = @_; - $o->{keyboard} ||= keyboard::lang2keyboard($o->{lang}); - selectKeyboard($o); + lang::set($o->{lang}); + + unless ($o->{keyboard_force}) { + $o->{keyboard} = keyboard::lang2keyboard($o->{lang}); + selectKeyboard($o); + } } #------------------------------------------------------------------------------ sub selectKeyboard { diff --git a/perl-install/install_steps_interactive.pm b/perl-install/install_steps_interactive.pm index f81008943..8696dfba0 100644 --- a/perl-install/install_steps_interactive.pm +++ b/perl-install/install_steps_interactive.pm @@ -41,7 +41,7 @@ sub selectLanguage($) { my ($o) = @_; $o->{lang} = lang::text2lang($o->ask_from_list("Language", - __("Which language do you want?"), + _("Which language do you want?"), # the translation may be used for the help [ lang::list() ], lang::lang2text($o->{lang}))); @@ -147,13 +147,17 @@ sub configureNetwork($) { add2hash($intf, $last); add2hash($intf, { NETMASK => '255.255.255.0' }); $o->configureNetworkIntf($intf); + + $o->{netc} ||= {}; + delete $o->{netc}{dnsServer}; + delete $o->{netc}{GATEWAY}; $last = $intf; } # { # my $wait = $o->wait_message(_("Hostname"), _("Determining host name and domain...")); # network::guessHostname($o->{prefix}, $o->{netc}, $o->{intf}); # } - $o->configureNetworkNet($o->{netc} ||= {}, @l); + $o->configureNetworkNet($o->{netc}, $last ||= {}, @l); } install_steps::configureNetwork($o); } @@ -177,13 +181,19 @@ notation (for example, 1.2.3.4)."), } return 0; } + }, + focus_out => sub { + $intf->{NETMASK} = network::netmask($intf->{IPADDR}) unless $_[0] } + ); } sub configureNetworkNet { - my ($o, $netc, @devices) = @_; - + my ($o, $netc, $intf, @devices) = @_; + $netc->{dnsServer} ||= network::dns($intf->{IPADDR}); + $netc->{GATEWAY} ||= network::gateway($intf->{IPADDR}); + $o->ask_from_entries_ref(_("Configuring network"), _("Please enter your host name. Your host name should be a fully-qualified host name, @@ -225,7 +235,7 @@ name (often lp) and a spool directory associated with it. What name and directory should be used for this queue?"), [_("Name of queue:"), _("Spool directory:")], [\$o->{printer}{QUEUE}, \$o->{printer}{SPOOLDIR}], - focus_out => sub + changed => sub { $o->{printer}{SPOOLDIR} = "$printer::spooldir/$o->{printer}{QUEUE}" unless $_[0]; @@ -274,30 +284,39 @@ on that server which jobs should be placed in."), ); } elsif ($o->{printer}{TYPE} eq "SMB") { - return if !$o->ask_from_entries_ref(_("SMB/Windows 95/NT Printer Options"), - _("To print to a SMB printer, you need to provide the + return if !$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} - ] + [_("SMB server host:"), _("SMB server IP:"), + _("Share name:"), _("User name:"), _("Password:"), + _("Workgroup:")], + [\$o->{printer}{SMBHOST}, \$o->{printer}{SMBHOSTIP}, + \$o->{printer}{SMBSHARE}, \$o->{printer}{SMBUSER}, + {val => \$o->{printer}{SMBPASSWD}, hidden => 1}, \$o->{printer}{SMBWORKGROUP} + ], + complete => sub { + unless (network::is_ip($o->{printer}{SMBHOSTIP})) { + $o->ask_warn('', _("IP address should be in format 1.2.3.4")); + return (1,1); + } + return 0; + }, + ); } else {#($o->{printer}{TYPE} eq "NCP") { return if !$o->ask_from_entries_ref(_("NetWare Printer Options"), - _("To print to a NetWare printer, you need to provide the + _("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}], + [_("Printer Server:"), _("Print Queue Name:"), + _("User name:"), _("Password:")], + [\$o->{printer}{NCPHOST}, \$o->{printer}{NCPQUEUE}, + \$o->{printer}{NCPUSER}, {val => \$o->{printer}{NCPPASSWD}, hidden => 1}], ); } @@ -394,15 +413,16 @@ wish to access and any applicable user name and password."), sub setRootPassword($) { my ($o) = @_; $o->{superuser}{password2} ||= $o->{user}{password} ||= ""; - my %sup = %{$o->{superuser}}; + my $sup = $o->{superuser}; $o->ask_from_entries_ref(_("Set root password"), _("Set root password"), [_("Password"), _("Password (again)")], - [\$sup{password}, \$sup{password2}], + [{ val => \$sup->{password}, hidden => 1}, + { val => \$sup->{password2}, hidden => 1}], complete => sub { - $sup{password} eq $sup{password2} or $o->ask_warn('', [ _("You must enter the same password"), _("Please try again") ]), return (1,1); - (length $sup{password} < 6) and $o->ask_warn('', _("This password is too simple")), return (1,0); + $sup->{password} eq $sup->{password2} or $o->ask_warn('', [ _("You must enter the same password"), _("Please try again") ]), return (1,1); + (length $sup->{password} < 6) and $o->ask_warn('', _("This password is too simple")), return (1,0); return 0 } ); @@ -415,7 +435,7 @@ sub setRootPassword($) { sub addUser($) { my ($o) = @_; $o->{user}{password2} ||= $o->{user}{password} ||= ""; - my %u = %{$o->{user}}; + my $u = $o->{user}; my @fields = qw(realname name password password2); my @shells = install_any::shells($o); @@ -423,20 +443,21 @@ sub addUser($) { _("Add user"), _("Enter a user"), [ _("Real name"), _("User name"), _("Password"), _("Password (again)"), _("Shell") ], - [ (map { \$u{$_}} @fields), - {val => \$u{shell}, list => \@shells, not_edit => !$::expert}, + [ \$u->{realname}, \$u->{name}, + {val => \$u->{password}, hidden => 1}, {val => \$u->{password2}, hidden => 1}, + {val => \$u->{shell}, list => \@shells, not_edit => !$::expert}, ], focus_out => sub { $u{name} = lc first($u{realname} =~ /(\w+)/) if $_[0] eq 0; }, complete => sub { - $u{password} eq $u{password2} or $o->ask_warn('', [ _("You must enter the same password"), _("Please try again") ]), return (1,2); - (length $u{password} < 6) and $o->ask_warn('', _("This password is too simple")), return (1,1); - $u{name} or $o->ask_warn('', _("Please give a user name")), return (1,0); - $u{name} =~ /^[a-z0-9_-]+$/ or $o->ask_warn('', _("The user name must contain only lower cased letters, numbers, `-' and `_'")), return (1,0); + $u->{password} eq $u->{password2} or $o->ask_warn('', [ _("You must enter the same password"), _("Please try again") ]), return (1,3); + (length $u->{password} < 6) and $o->ask_warn('', _("This password is too simple")), return (1,2); + $u->{name} or $o->ask_warn('', _("Please give a user name")), return (1,0); + $u->{name} =~ /^[a-z0-9_-]+$/ or $o->ask_warn('', _("The user name must contain only lower cased letters, numbers, `-' and `_'")), return (1,0); return 0; }, - ); + ) or return; install_steps::addUser($o); $o->{user} = {}; goto &addUser if $::expert; @@ -553,7 +574,6 @@ sub load_thiskind { sub setup_thiskind { my ($o, $type, $auto, $at_least_one) = @_; my @l = $o->load_thiskind($type); - return if $auto && (@l || !$at_least_one); while (1) { @l ? @@ -561,12 +581,13 @@ sub setup_thiskind { [ _("Found %s %s interfaces", join(", ", map { $_->[0] } @l), $type), _("Do you have another one?") ], "No") : $o->ask_yesorno('', _("Do you have an %s interface?", $type), "No") or return; - + my @r = $o->loadModule($type) or return; push @l, \@r; - } + } } + #-###################################################################################### #- Wonderful perl :( #-###################################################################################### diff --git a/perl-install/interactive.pm b/perl-install/interactive.pm index dc846f42b..2f3fb4c15 100644 --- a/perl-install/interactive.pm +++ b/perl-install/interactive.pm @@ -1,10 +1,11 @@ - - package interactive; use diagnostics; use strict; +#-###################################################################################### +#- misc imports +#-###################################################################################### use common qw(:common :functional); # heritate from this class and you'll get all made interactivity for same steps. @@ -27,9 +28,10 @@ use common qw(:common :functional); # ask_from_listW should handle differently small lists and big ones. -1; - +#-###################################################################################### +#- OO Stuff +#-###################################################################################### sub new($) { my ($type) = @_; @@ -37,6 +39,9 @@ sub new($) { } +#-###################################################################################### +#- Interactive functions +#-###################################################################################### sub ask_warn($$$) { my ($o, $title, $message) = @_; ask_from_list($o, $title, $message, [ _("Ok") ]); @@ -100,7 +105,9 @@ sub ask_from_entries($$$$;$%) { [ map { $$_ } @$val ] : undef; } - +# can get a hash of callback: focus_out changed and complete +# moreove if you pass a hash with a field list -> combo +# if you pass a hash with a field hidden -> emulate stty -echo sub ask_from_entries_ref($$$$;$%) { my ($o, $title, $message, $l, $val, %callback) = @_; @@ -109,8 +116,8 @@ sub ask_from_entries_ref($$$$;$%) { { if ((ref $_) eq "SCALAR") { { val => $_ } } else { - @{$_->{list}} ? - { (%{$_}, type => "list")} : {(%{$_})} + ($_->{list} && @{$_->{list}}) ? + { %{$_}, type => "list"} : $_ } } @{$val} ]; @@ -138,3 +145,8 @@ sub kill { } $o->{before_killing} = @interactive::objects; } + +#-###################################################################################### +#- Wonderful perl :( +#-###################################################################################### +1; # diff --git a/perl-install/interactive_gtk.pm b/perl-install/interactive_gtk.pm index c0582ea51..53528aac1 100644 --- a/perl-install/interactive_gtk.pm +++ b/perl-install/interactive_gtk.pm @@ -94,6 +94,7 @@ sub ask_from_entries_refW { } } @{$val}; my $ok = $w->create_okcancel; + sub comb_entry { my ($entry, $ref) = @_; ($ref->{type} eq "list" && @{$ref->{list}}) ? $entry->entry : $entry @@ -113,9 +114,8 @@ sub ask_from_entries_refW { for (my $i = 0; $i < $num_fields; $i++) { my $ind = $i; #cos lexical bindings pb !! - my $entry = $entries[$i]; - #changed callback - my $callback = sub { + my $entry = comb_entry($entries[$i], $val->[$i]); + my $changed_callback = sub { return if $ignore; #handle recursive deadlock &{$updates[$ind]}; if ($hcallback{changed}) { @@ -127,7 +127,7 @@ sub ask_from_entries_refW { }; }; if ($hcallback{focus_out}) { - my $callfocusout = sub { + my $focusout_callback = sub { return if $ignore; &{$hcallback{focus_out}}($ind); #update all the value @@ -135,16 +135,26 @@ sub ask_from_entries_refW { foreach (@updates_inv) { &{$_};} $ignore = 0; }; - comb_entry($entry,$val->[$i])->signal_connect(focus_out_event => $callfocusout); + $entry->signal_connect(focus_out_event => $focusout_callback); } - comb_entry($entry,$val->[$i])->signal_connect(changed => $callback); - comb_entry($entry,$val->[$i])->signal_connect(activate => sub { - ($ind == ($num_fields -1)) ? - ($w->{ok}->grab_focus(), ) : (comb_entry($entries[$ind+1],$val->[$ind+1])->grab_focus(),$_[0]->signal_emit_stop("activate")) ; - }); - comb_entry($entry,$val->[$i])->set_text(${$val->[$i]{val}}) if ${$val->[$i]{val}}; - comb_entry($entry,$val->[$i])->set_visibility(0) if $l->[$i] =~ /password/i; -# &{$updates[$i]}; + $entry->signal_connect(changed => $changed_callback); + my $go_to_next = sub { + if ($ind == ($num_fields -1)) { + $w->{ok}->grab_focus(); + } else { + comb_entry($entries[$ind+1],$val->[$ind+1])->grab_focus(); + } + }; + $entry->signal_connect(activate => $go_to_next); + $entry->signal_connect(key_press_event => sub { + my ($w, $e) = @_; + my $c = chr $e->{keyval}; + &$go_to_next if $c eq "\x8d"; + }); + + $entry->set_text(${$val->[$i]{val}}) if ${$val->[$i]{val}}; + $entry->set_visibility(0) if $val->[$i]{hidden}; + &{$updates[$i]}; } my @entry_list = mapn { [($_[0], $_[1])]} $l, \@entries; @@ -155,7 +165,6 @@ sub ask_from_entries_refW { create_packtable({}, @entry_list), $ok )); - comb_entry($entries[0],$val->[0])->grab_focus(); if ($hcallback{complete}) { my $callback = sub { @@ -175,8 +184,6 @@ sub ask_from_entries_refW { } else { $w->main(); } - - } diff --git a/perl-install/keyboard.pm b/perl-install/keyboard.pm index fad61f667..8bd75bbf3 100644 --- a/perl-install/keyboard.pm +++ b/perl-install/keyboard.pm @@ -1,14 +1,21 @@ + package keyboard; use diagnostics; use strict; +#-###################################################################################### +#- misc imports +#-###################################################################################### use common qw(:common :system :file); use run_program; use log; use c; +#-###################################################################################### +#- Globals +#-###################################################################################### my $KMAP_MAGIC = 0x8B39C07F; my %lang2keyboard = @@ -16,9 +23,6 @@ my %lang2keyboard = "en" => "us", ); -1; - - # [1] = name for loadkeys, [2] = extension for Xmodmap my %keyboards = ( # armenian xmodmap have to be checked... @@ -60,6 +64,9 @@ my %keyboards = ( "yu" => [ __("Yugoslavian (latin layout)"), "yu-latin2", "yu" ], ); +#-###################################################################################### +#- Functions +#-###################################################################################### sub list { map { $_->[0] } values %keyboards } sub xmodmaps { map { $_->[2] } values %keyboards } sub keyboard2text { $keyboards{$_[0]} && $keyboards{$_[0]}[0] } @@ -142,3 +149,8 @@ sub read($) { } die "empty keyboard configuration file"; } + +#-###################################################################################### +#- Wonderful perl :( +#-###################################################################################### +1; # diff --git a/perl-install/lang.pm b/perl-install/lang.pm index 1fd767a02..d7a5c1eb8 100644 --- a/perl-install/lang.pm +++ b/perl-install/lang.pm @@ -3,10 +3,16 @@ use diagnostics; use strict; +#-###################################################################################### +#- misc imports +#-###################################################################################### use common qw(:file); use commands; use log; +#-###################################################################################### +#- Globals +#-###################################################################################### # key (to be used in $LC_ALL), [0] = english name, [1] = charset encoding, # [2] = value for $LANG, [3] = value for LANGUAGE (a list of possible # languages, carefully choosen) @@ -88,7 +94,9 @@ my %charsets = ( "*-helvetica-medium-r-normal--14-*-*-*-*-viscii1.1-1" ], ); -1; +#-###################################################################################### +#- Functions +#-###################################################################################### sub list { map { $_->[0] } values %languages } sub lang2text { $languages{$_[0]} && $languages{$_[0]}[0] } @@ -164,3 +172,8 @@ sub load_font { log::l("fontset: " . $fontSet); # Gtk::Gdk::Font::fontset_load("*",$fontSet); } + +#-###################################################################################### +#- Wonderful perl :( +#-###################################################################################### +1; # diff --git a/perl-install/modules.pm b/perl-install/modules.pm index 5222e72dc..6124c11b0 100644 --- a/perl-install/modules.pm +++ b/perl-install/modules.pm @@ -353,19 +353,22 @@ sub get_stage1_conf { sub load_thiskind($;&) { my ($type, $f) = @_; - - my @devs = pci_probing::main::probe($type); - log::l("pci probe found " . scalar @devs . " $type devices"); - - my %devs; foreach (@devs) { - my ($text, $mod) = @$_; - $devs{$mod}++ and log::l("multiple $mod devices found"), next; - $drivers{$mod} or log::l("module $mod not in install table"), next; - log::l("found driver for $mod"); - &$f($text, $mod) if $f; - load($mod, $type); + unless ($::testing) { + my @devs = pci_probing::main::probe($type); + log::l("pci probe found " . scalar @devs . " $type devices"); + + my %devs; foreach (@devs) { + my ($text, $mod) = @$_; + $devs{$mod}++ and log::l("multiple $mod devices found"), next; + $drivers{$mod} or log::l("module $mod not in install table"), next; + log::l("found driver for $mod"); + &$f($text, $mod) if $f; + load($mod, $type); + } + @devs; + } else { + (); } - @devs; } # This assumes only one of each driver type is loaded diff --git a/perl-install/network.pm b/perl-install/network.pm index 1234dcce2..cc5c74fa6 100644 --- a/perl-install/network.pm +++ b/perl-install/network.pm @@ -3,15 +3,18 @@ package network; use diagnostics; use strict; +#-###################################################################################### +#- misc imports +#-###################################################################################### use Socket; use common qw(:common :file :system :functional); use detect_devices; use log; -1; - - +#-###################################################################################### +#- Functions +#-###################################################################################### sub read_conf { my ($file) = @_; my %netc = getVarsFromSh($file); @@ -138,7 +141,61 @@ sub findIntf { push @$intf, $l = { DEVICE => $device } unless $l; $l; } - +#PAD \s* a la fin +my $ip_regexp = qr/(\d{1,3})\.(\d{1,3})\.(\d{1,3})\.(\d{1,3})$/; sub is_ip { - $_[0] =~ /^(\d{1,3}\.){3}\d{1,3}$/; + my ($ip) = @_; + return 0 unless $ip =~ $ip_regexp; + my @fields = ($1, $2, $3, $4); + foreach (@fields) { + return 0 if $_ < 0 || $_ > 255; + } + return 1; +} + +sub netmask { + my ($ip) = @_; + return "255.255.255.0" unless is_ip($ip); + $ip =~ $ip_regexp; + if ($1 >= 1 && $1 < 127) { + return "255.0.0.0"; #1.0.0.0 to 127.0.0.0 + } elsif ($1 >= 128 && $1 <= 191 ){ + return "255.255.0.0"; #128.0.0.0 to 191.255.0.0 + } elsif ($1 >= 192 && $1 <= 223) { + return "255.255.255.0"; + } else { + return "255.255.255.255"; #experimental classes + } } + +sub masked_ip { + my ($ip) = @_; + return "" unless is_ip($ip); + my @mask = netmask($ip) =~ $ip_regexp; + my @ip = $ip =~ $ip_regexp; + for (my $i = 0; $i < @ip; $i++) { + $ip[$i] &= int $mask[$i]; + } + join(".", @ip); +} + +sub dns { + my ($ip) = @_; + my $mask = masked_ip($ip); + my @masked = masked_ip($ip) =~ $ip_regexp; + $masked[3] = 12; + join (".", @masked); + +} +sub gateway { + my ($ip) = @_; + my @masked = masked_ip($ip) =~ $ip_regexp; + $masked[3] = 1; + join (".", @masked); + +} + +#-###################################################################################### +#- Wonderful perl :( +#-###################################################################################### +1; # 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"; diff --git a/perl-install/share/po/no.po b/perl-install/share/po/no.po index b2fbc6a6c..27a354697 100644 --- a/perl-install/share/po/no.po +++ b/perl-install/share/po/no.po @@ -5,7 +5,7 @@ msgid "" msgstr "" "Project-Id-Version: panoramix VERSION\n" -"POT-Creation-Date: 1999-09-05 23:27+0200\n" +"POT-Creation-Date: 1999-09-06 20:58+0200\n" "PO-Revision-Date: 1999-08-25 11:07+0200\n" "Last-Translator: Terje Bjerkelia <terje@bjerkelia.com>\n" "Language-Team: norwegian\n" @@ -64,8 +64,8 @@ msgstr "En feil oppsto, pr�v � endre noen parametere" msgid "Automatic resolutions" msgstr "Automatiske oppl�sninger" -#: ../Xconfigurator.pm_.c:333 ../install_steps_interactive.pm_.c:341 -#: ../install_steps_interactive.pm_.c:342 +#: ../Xconfigurator.pm_.c:333 ../install_steps_interactive.pm_.c:360 +#: ../install_steps_interactive.pm_.c:361 msgid "Resolution" msgstr "Oppl�sning" @@ -515,8 +515,8 @@ msgstr "Les n�ye!" msgid "all data on this partition will be lost" msgstr "alle data p� denne partisjonen vil g� tapt" -#: ../diskdrake.pm_.c:136 ../install2.pm_.c:405 ../install_steps.pm_.c:69 -#: ../install_steps_interactive.pm_.c:33 +#: ../diskdrake.pm_.c:136 ../install2.pm_.c:407 ../install_steps.pm_.c:69 +#: ../install_steps_interactive.pm_.c:32 msgid "Error" msgstr "Feil" @@ -670,7 +670,7 @@ msgstr "Du m� starte maskinen p� nytt for at modifiseringene skal tre i kraft" msgid "Computing fat filesystem bounds" msgstr "Beregner fat filsystemgrense" -#: ../diskdrake.pm_.c:425 ../diskdrake.pm_.c:461 ../interactive_gtk.pm_.c:173 +#: ../diskdrake.pm_.c:425 ../diskdrake.pm_.c:461 ../interactive_gtk.pm_.c:193 msgid "Resizing" msgstr "Endrer st�rrelse" @@ -1013,8 +1013,8 @@ msgstr "Konfigurer X" msgid "Configure printer" msgstr "Konfigurer X" -#: ../install2.pm_.c:187 ../install_steps_interactive.pm_.c:400 -#: ../install_steps_interactive.pm_.c:401 +#: ../install2.pm_.c:187 ../install_steps_interactive.pm_.c:418 +#: ../install_steps_interactive.pm_.c:419 msgid "Set root password" msgstr "Sett root passord" @@ -1054,7 +1054,7 @@ msgstr "ekspert" msgid "server" msgstr "tjener" -#: ../install2.pm_.c:415 +#: ../install2.pm_.c:417 msgid "" "An error has occurred - no valid devices were found on which to create new " "filesystems. Please check your hardware for the cause of this problem" @@ -1062,11 +1062,11 @@ msgstr "" "En feil har oppst�tt - ingen gyldige enheter ble funnet for � opprette nye " "filsystemer. Vennligst sjekk maskinvaren din for �rsaken til dette problemet" -#: ../install2.pm_.c:430 +#: ../install2.pm_.c:432 msgid "partitioning failed: no root filesystem" msgstr "partisjonering feilet: intet root filsystem" -#: ../install_steps.pm_.c:269 +#: ../install_steps.pm_.c:267 msgid "no floppy available" msgstr "" @@ -1127,15 +1127,15 @@ msgstr "forbereder installasjon" msgid "installing package %s" msgstr "installerer pakke %s" -#: ../install_steps_interactive.pm_.c:33 +#: ../install_steps_interactive.pm_.c:32 msgid "An error occurred" msgstr "En feil oppsto" -#: ../install_steps_interactive.pm_.c:45 +#: ../install_steps_interactive.pm_.c:44 msgid "Which language do you want?" msgstr "Hvilket spr�k �nsker du?" -#: ../install_steps_interactive.pm_.c:56 +#: ../install_steps_interactive.pm_.c:55 #, fuzzy msgid "Which keyboard do you have?" msgstr "Hvilken sektor vil du flytte til?" @@ -1207,81 +1207,81 @@ msgid "" "system?" msgstr "" -#: ../install_steps_interactive.pm_.c:222 +#: ../install_steps_interactive.pm_.c:232 msgid "Standard Printer Options" msgstr "" -#: ../install_steps_interactive.pm_.c:223 +#: ../install_steps_interactive.pm_.c:233 msgid "" "Every print queue (which print jobs are directed to) needs a \n" "name (often lp) and a spool directory associated with it. What \n" "name and directory should be used for this queue?" msgstr "" -#: ../install_steps_interactive.pm_.c:226 +#: ../install_steps_interactive.pm_.c:236 msgid "Name of queue:" msgstr "" -#: ../install_steps_interactive.pm_.c:226 +#: ../install_steps_interactive.pm_.c:236 msgid "Spool directory:" msgstr "" -#: ../install_steps_interactive.pm_.c:237 +#: ../install_steps_interactive.pm_.c:247 msgid "Select Printer Connection" msgstr "" -#: ../install_steps_interactive.pm_.c:238 +#: ../install_steps_interactive.pm_.c:248 msgid "How is the printer connected?" msgstr "" -#: ../install_steps_interactive.pm_.c:246 +#: ../install_steps_interactive.pm_.c:256 msgid "Detecting devices..." msgstr "" -#: ../install_steps_interactive.pm_.c:246 +#: ../install_steps_interactive.pm_.c:256 msgid "Test ports" msgstr "" -#: ../install_steps_interactive.pm_.c:260 +#: ../install_steps_interactive.pm_.c:270 msgid "Local Printer Device" msgstr "" -#: ../install_steps_interactive.pm_.c:261 +#: ../install_steps_interactive.pm_.c:271 msgid "" "What device is your printer connected to \n" "(note that /dev/lp0 is equivalent to LPT1:)?\n" msgstr "" -#: ../install_steps_interactive.pm_.c:262 +#: ../install_steps_interactive.pm_.c:272 #, fuzzy msgid "Printer Device:" msgstr "Enhet: " -#: ../install_steps_interactive.pm_.c:268 +#: ../install_steps_interactive.pm_.c:278 msgid "Remote lpd Printer Options" msgstr "" -#: ../install_steps_interactive.pm_.c:269 +#: ../install_steps_interactive.pm_.c:279 msgid "" "To use a remote lpd print queue, you need to supply \n" "the hostname of the printer server and the queue name \n" "on that server which jobs should be placed in." msgstr "" -#: ../install_steps_interactive.pm_.c:272 +#: ../install_steps_interactive.pm_.c:282 #, fuzzy msgid "Remote hostname:" msgstr "Brukernavn" -#: ../install_steps_interactive.pm_.c:272 +#: ../install_steps_interactive.pm_.c:282 msgid "Remote queue:" msgstr "" -#: ../install_steps_interactive.pm_.c:277 +#: ../install_steps_interactive.pm_.c:288 msgid "SMB/Windows 95/NT Printer Options" msgstr "" -#: ../install_steps_interactive.pm_.c:278 +#: ../install_steps_interactive.pm_.c:289 msgid "" "To print to a SMB printer, you need to provide the \n" "SMB host name (this is not always the same as the machines \n" @@ -1290,42 +1290,46 @@ msgid "" "applicable user name, password, and workgroup information." msgstr "" -#: ../install_steps_interactive.pm_.c:283 +#: ../install_steps_interactive.pm_.c:294 #, fuzzy msgid "SMB server IP:" msgstr "tjener" -#: ../install_steps_interactive.pm_.c:283 +#: ../install_steps_interactive.pm_.c:294 #, fuzzy msgid "SMB server host:" msgstr "tjener" -#: ../install_steps_interactive.pm_.c:284 -#: ../install_steps_interactive.pm_.c:298 +#: ../install_steps_interactive.pm_.c:295 +#: ../install_steps_interactive.pm_.c:317 #, fuzzy msgid "Password:" msgstr "Passord" -#: ../install_steps_interactive.pm_.c:284 +#: ../install_steps_interactive.pm_.c:295 #, fuzzy msgid "Share name:" msgstr "Brukernavn" -#: ../install_steps_interactive.pm_.c:284 -#: ../install_steps_interactive.pm_.c:298 +#: ../install_steps_interactive.pm_.c:295 +#: ../install_steps_interactive.pm_.c:317 #, fuzzy msgid "User name:" msgstr "Brukernavn" -#: ../install_steps_interactive.pm_.c:285 +#: ../install_steps_interactive.pm_.c:296 msgid "Workgroup:" msgstr "" -#: ../install_steps_interactive.pm_.c:292 +#: ../install_steps_interactive.pm_.c:303 +msgid "IP address should be in format 1.2.3.4" +msgstr "" + +#: ../install_steps_interactive.pm_.c:311 msgid "NetWare Printer Options" msgstr "" -#: ../install_steps_interactive.pm_.c:293 +#: ../install_steps_interactive.pm_.c:312 msgid "" "To print to a NetWare printer, you need to provide the \n" "NetWare print server name (this is not always the same as the machines \n" @@ -1333,112 +1337,112 @@ msgid "" "wish to access and any applicable user name and password." msgstr "" -#: ../install_steps_interactive.pm_.c:297 +#: ../install_steps_interactive.pm_.c:316 msgid "Print Queue Name:" msgstr "" -#: ../install_steps_interactive.pm_.c:297 +#: ../install_steps_interactive.pm_.c:316 msgid "Printer Server:" msgstr "" -#: ../install_steps_interactive.pm_.c:319 +#: ../install_steps_interactive.pm_.c:338 #, fuzzy msgid "Configure Printer" msgstr "Konfigurer X" -#: ../install_steps_interactive.pm_.c:320 +#: ../install_steps_interactive.pm_.c:339 #, fuzzy msgid "What type of printer do you have?" msgstr "Hva slags brukertype vil du ha?" -#: ../install_steps_interactive.pm_.c:331 -#: ../install_steps_interactive.pm_.c:332 +#: ../install_steps_interactive.pm_.c:350 +#: ../install_steps_interactive.pm_.c:351 msgid "Paper Size" msgstr "" -#: ../install_steps_interactive.pm_.c:351 +#: ../install_steps_interactive.pm_.c:370 msgid "CRLF" msgstr "" -#: ../install_steps_interactive.pm_.c:352 +#: ../install_steps_interactive.pm_.c:371 msgid "Fix stair-stepping of text?" msgstr "" -#: ../install_steps_interactive.pm_.c:368 +#: ../install_steps_interactive.pm_.c:387 #, fuzzy msgid "Configure Uniprint Driver" msgstr "Konfigurer X" -#: ../install_steps_interactive.pm_.c:369 +#: ../install_steps_interactive.pm_.c:388 msgid "You may now configure the uniprint options for this printer." msgstr "" -#: ../install_steps_interactive.pm_.c:377 +#: ../install_steps_interactive.pm_.c:396 #, fuzzy msgid "Configure Color Depth" msgstr "Konfigurer X" -#: ../install_steps_interactive.pm_.c:378 +#: ../install_steps_interactive.pm_.c:397 msgid "You may now configure the color options for this printer." msgstr "" -#: ../install_steps_interactive.pm_.c:402 -#: ../install_steps_interactive.pm_.c:427 +#: ../install_steps_interactive.pm_.c:420 +#: ../install_steps_interactive.pm_.c:445 msgid "Password" msgstr "Passord" -#: ../install_steps_interactive.pm_.c:402 -#: ../install_steps_interactive.pm_.c:427 +#: ../install_steps_interactive.pm_.c:420 +#: ../install_steps_interactive.pm_.c:445 msgid "Password (again)" msgstr "Passord (igjen)" -#: ../install_steps_interactive.pm_.c:405 -#: ../install_steps_interactive.pm_.c:432 +#: ../install_steps_interactive.pm_.c:424 +#: ../install_steps_interactive.pm_.c:454 msgid "Please try again" msgstr "Vennligst pr�v igjen" -#: ../install_steps_interactive.pm_.c:405 -#: ../install_steps_interactive.pm_.c:432 +#: ../install_steps_interactive.pm_.c:424 +#: ../install_steps_interactive.pm_.c:454 msgid "You must enter the same password" msgstr "Du m� skrive inn det samme passordet" -#: ../install_steps_interactive.pm_.c:406 -#: ../install_steps_interactive.pm_.c:433 +#: ../install_steps_interactive.pm_.c:425 +#: ../install_steps_interactive.pm_.c:455 msgid "This password is too simple" msgstr "Dette passordet er for enkelt" -#: ../install_steps_interactive.pm_.c:425 +#: ../install_steps_interactive.pm_.c:443 msgid "Add user" msgstr "Legg til bruker" -#: ../install_steps_interactive.pm_.c:426 +#: ../install_steps_interactive.pm_.c:444 #, fuzzy msgid "Enter a user" msgstr "Legg til en bruker" -#: ../install_steps_interactive.pm_.c:427 +#: ../install_steps_interactive.pm_.c:445 msgid "Real name" msgstr "Virkelig navn" -#: ../install_steps_interactive.pm_.c:427 +#: ../install_steps_interactive.pm_.c:445 msgid "Shell" msgstr "Skall" -#: ../install_steps_interactive.pm_.c:427 +#: ../install_steps_interactive.pm_.c:445 msgid "User name" msgstr "Brukernavn" -#: ../install_steps_interactive.pm_.c:434 +#: ../install_steps_interactive.pm_.c:456 msgid "Please give a user name" msgstr "Vennligst oppgi et brukernavn" -#: ../install_steps_interactive.pm_.c:435 +#: ../install_steps_interactive.pm_.c:457 #, fuzzy msgid "" "The user name must contain only lower cased letters, numbers, `-' and `_'" msgstr "Brukernavnet kan kun inneholde bokstaver, tall, `-' og `_'" -#: ../install_steps_interactive.pm_.c:455 +#: ../install_steps_interactive.pm_.c:476 msgid "" "A custom bootdisk provides a way of booting into your Linux system without\n" "depending on the normal bootloader. This is useful if you don't want to " @@ -1452,44 +1456,44 @@ msgid "" "failures. Would you like to create a bootdisk for your system?" msgstr "" -#: ../install_steps_interactive.pm_.c:463 +#: ../install_steps_interactive.pm_.c:484 msgid "Sorry, no floppy drive available" msgstr "" -#: ../install_steps_interactive.pm_.c:466 +#: ../install_steps_interactive.pm_.c:487 #, fuzzy msgid "Choose the floppy drive you want to use to make the bootdisk" msgstr "Velg de partisjonene du �nsker � formatere" -#: ../install_steps_interactive.pm_.c:470 +#: ../install_steps_interactive.pm_.c:491 #, c-format msgid "Insert a floppy in drive %s" msgstr "" -#: ../install_steps_interactive.pm_.c:471 +#: ../install_steps_interactive.pm_.c:492 #, fuzzy msgid "Creating bootdisk" msgstr "Opprett oppstartdiskett" -#: ../install_steps_interactive.pm_.c:478 +#: ../install_steps_interactive.pm_.c:499 msgid "First sector of boot partition" msgstr "" -#: ../install_steps_interactive.pm_.c:478 +#: ../install_steps_interactive.pm_.c:499 msgid "First sector of drive" msgstr "" -#: ../install_steps_interactive.pm_.c:481 +#: ../install_steps_interactive.pm_.c:502 #, fuzzy msgid "Lilo Installation" msgstr "Installerer" -#: ../install_steps_interactive.pm_.c:482 +#: ../install_steps_interactive.pm_.c:503 #, fuzzy msgid "Where do you want to install the bootloader?" msgstr "Hvor vil du montere %s enheten?" -#: ../install_steps_interactive.pm_.c:493 +#: ../install_steps_interactive.pm_.c:514 msgid "" "Congratulations, installation is complete.\n" "Remove the boot media and press return to reboot.\n" @@ -1500,43 +1504,43 @@ msgid "" "install chapter of the Official Linux Mandrake User's Guide." msgstr "" -#: ../install_steps_interactive.pm_.c:510 +#: ../install_steps_interactive.pm_.c:531 #, fuzzy, c-format msgid "What %s card have you?" msgstr "Hva slags scsi-kort har du?" -#: ../install_steps_interactive.pm_.c:520 +#: ../install_steps_interactive.pm_.c:541 msgid "Autoprobe" msgstr "" -#: ../install_steps_interactive.pm_.c:520 +#: ../install_steps_interactive.pm_.c:541 msgid "Specify options" msgstr "" -#: ../install_steps_interactive.pm_.c:527 +#: ../install_steps_interactive.pm_.c:548 msgid "Module options:" msgstr "" -#: ../install_steps_interactive.pm_.c:546 +#: ../install_steps_interactive.pm_.c:567 #, fuzzy, c-format msgid "Installing driver for %s card %s" msgstr "Installerer driver for scsi-kort %s" -#: ../install_steps_interactive.pm_.c:547 +#: ../install_steps_interactive.pm_.c:568 #, c-format msgid "(module %s)" msgstr "(modul %s)" -#: ../install_steps_interactive.pm_.c:561 +#: ../install_steps_interactive.pm_.c:581 #, fuzzy, c-format msgid "Found %s %s interfaces" msgstr " scsi grensesnitt" -#: ../install_steps_interactive.pm_.c:562 +#: ../install_steps_interactive.pm_.c:582 msgid "Do you have another one?" msgstr "Har du enda ett?" -#: ../install_steps_interactive.pm_.c:563 +#: ../install_steps_interactive.pm_.c:583 #, fuzzy, c-format msgid "Do you have an %s interface?" msgstr "Har du et scsi grensesnitt" @@ -1546,24 +1550,24 @@ msgstr "Har du et scsi grensesnitt" msgid "Starting step `%s'\n" msgstr "Starter steg `%s'\n" -#: ../interactive.pm_.c:42 ../interactive.pm_.c:52 ../my_gtk.pm_.c:174 -#: ../my_gtk.pm_.c:316 ../my_gtk.pm_.c:412 +#: ../interactive.pm_.c:47 ../interactive.pm_.c:57 ../my_gtk.pm_.c:174 +#: ../my_gtk.pm_.c:316 ../my_gtk.pm_.c:413 msgid "Ok" msgstr "Ok" -#: ../interactive.pm_.c:47 ../my_gtk.pm_.c:315 +#: ../interactive.pm_.c:52 ../my_gtk.pm_.c:315 msgid "No" msgstr "Nei" -#: ../interactive.pm_.c:47 ../my_gtk.pm_.c:315 +#: ../interactive.pm_.c:52 ../my_gtk.pm_.c:315 msgid "Yes" msgstr "Ja" -#: ../interactive.pm_.c:52 ../my_gtk.pm_.c:175 ../my_gtk.pm_.c:316 +#: ../interactive.pm_.c:57 ../my_gtk.pm_.c:175 ../my_gtk.pm_.c:316 msgid "Cancel" msgstr "Avbryt" -#: ../interactive.pm_.c:125 +#: ../interactive.pm_.c:132 msgid "Please wait" msgstr "Vennligst vent" @@ -1592,125 +1596,125 @@ msgstr "Ditt valg? (standard %s) " msgid "Your choice? (default %s enter `none' for none) " msgstr "Ditt valg? (standard %s trykk `none' for ingen) " -#: ../keyboard.pm_.c:26 +#: ../keyboard.pm_.c:30 msgid "Belgian" msgstr "" -#: ../keyboard.pm_.c:27 +#: ../keyboard.pm_.c:31 msgid "Bulgarian" msgstr "" -#: ../keyboard.pm_.c:28 +#: ../keyboard.pm_.c:32 msgid "Czech" msgstr "" -#: ../keyboard.pm_.c:29 +#: ../keyboard.pm_.c:33 msgid "German" msgstr "" -#: ../keyboard.pm_.c:30 +#: ../keyboard.pm_.c:34 msgid "Danish" msgstr "" -#: ../keyboard.pm_.c:31 +#: ../keyboard.pm_.c:35 msgid "Dvorak" msgstr "" -#: ../keyboard.pm_.c:32 +#: ../keyboard.pm_.c:36 msgid "Finnish" msgstr "" -#: ../keyboard.pm_.c:33 +#: ../keyboard.pm_.c:37 msgid "French" msgstr "" -#: ../keyboard.pm_.c:37 +#: ../keyboard.pm_.c:41 msgid "Greek" msgstr "" -#: ../keyboard.pm_.c:38 +#: ../keyboard.pm_.c:42 msgid "Hungarian" msgstr "" -#: ../keyboard.pm_.c:39 +#: ../keyboard.pm_.c:43 #, fuzzy msgid "Israelian" msgstr "Installerer" -#: ../keyboard.pm_.c:40 +#: ../keyboard.pm_.c:44 msgid "Icelandic" msgstr "" -#: ../keyboard.pm_.c:41 +#: ../keyboard.pm_.c:45 #, fuzzy msgid "Italian" msgstr "Installerer" -#: ../keyboard.pm_.c:42 +#: ../keyboard.pm_.c:46 msgid "Latin American" msgstr "" -#: ../keyboard.pm_.c:43 +#: ../keyboard.pm_.c:47 msgid "Dutch" msgstr "" -#: ../keyboard.pm_.c:44 +#: ../keyboard.pm_.c:48 msgid "Norwegian" msgstr "" -#: ../keyboard.pm_.c:45 +#: ../keyboard.pm_.c:49 msgid "Polish" msgstr "" -#: ../keyboard.pm_.c:46 +#: ../keyboard.pm_.c:50 msgid "Portuguese" msgstr "" -#: ../keyboard.pm_.c:47 +#: ../keyboard.pm_.c:51 msgid "Canadian (Quebec)" msgstr "" -#: ../keyboard.pm_.c:48 +#: ../keyboard.pm_.c:52 msgid "Russian" msgstr "" -#: ../keyboard.pm_.c:49 +#: ../keyboard.pm_.c:53 msgid "Swedish" msgstr "" -#: ../keyboard.pm_.c:50 +#: ../keyboard.pm_.c:54 msgid "Swiss (french layout)" msgstr "" -#: ../keyboard.pm_.c:51 +#: ../keyboard.pm_.c:55 msgid "Swiss (german layout)" msgstr "" -#: ../keyboard.pm_.c:52 +#: ../keyboard.pm_.c:56 msgid "Slovenian" msgstr "" -#: ../keyboard.pm_.c:53 +#: ../keyboard.pm_.c:57 msgid "Slovakian" msgstr "" -#: ../keyboard.pm_.c:56 +#: ../keyboard.pm_.c:60 msgid "Turkish (traditional \"F\" model)" msgstr "" -#: ../keyboard.pm_.c:57 +#: ../keyboard.pm_.c:61 msgid "Turkish (modern \"Q\" model)" msgstr "" -#: ../keyboard.pm_.c:58 +#: ../keyboard.pm_.c:62 msgid "UK keyboard" msgstr "" -#: ../keyboard.pm_.c:59 +#: ../keyboard.pm_.c:63 msgid "US keyboard" msgstr "" -#: ../keyboard.pm_.c:60 +#: ../keyboard.pm_.c:64 msgid "Yugoslavian (latin layout)" msgstr "" |