summaryrefslogtreecommitdiffstats
path: root/perl-install/install_any.pm
Commit message (Expand)AuthorAgeFilesLines
* migrate fstab when upgrading an alien distro (should be done always?)Pascal Rigaux2005-09-131-1/+2
* when taking screenshot during pkgs install, we can be chrootedPascal Rigaux2005-09-131-2/+4
* for now, disable FTP in media_browser since we don't handle it (#16088)Pascal Rigaux2005-09-131-1/+1
* for local_install we don't want use_root_part to do anythingPascal Rigaux2005-09-131-0/+2
* silently ignore existing X config file if upgrading an alien distroPascal Rigaux2005-09-131-0/+1
* set META_CLASS"xxx" flagPascal Rigaux2005-09-091-0/+1
* have a progress bar when removing packagesPascal Rigaux2005-09-091-1/+12
* Remove commented codeRafael Garcia-Suarez2005-09-091-1/+0
* When adding http suppl media, repropose the last url entered. VeryRafael Garcia-Suarez2005-09-091-2/+7
* pass around wait_message with progress bar capabilityPascal Rigaux2005-09-091-4/+2
* Remove a misleading commentRafael Garcia-Suarez2005-09-061-1/+1
* At some point, an empty hashref is autovivified in $packages->{medium}.Rafael Garcia-Suarez2005-09-051-1/+1
* Proper detection of network interface at supplementary media setupRafael Garcia-Suarez2005-09-051-1/+1
* - new functionality: upgrade_by_removing_pkgs, enabled when upgrading redhat ...Pascal Rigaux2005-09-021-7/+15
* move code to create_minimal_files()Pascal Rigaux2005-09-021-0/+12
* rename pkgs::rpmDbOpenForInstall() to pkgs::open_rpm_db_rw()Pascal Rigaux2005-09-021-1/+1
* opening rpm db in selectPackage(), so remove some rpmDbOpen()Pascal Rigaux2005-09-021-1/+0
* new function select_by_package_names()Pascal Rigaux2005-09-021-5/+2
* hoist things in install_anyPascal Rigaux2005-09-021-1/+9
* fs::format::wait_message() is now ->wait_message_with_progress_bar (on intera...Pascal Rigaux2005-09-021-1/+1
* initial deployment server supportOlivier Blin2005-08-311-0/+25
* more precise log_size during installPascal Rigaux2005-08-261-3/+3
* log more precisely the "naughty servers" unselectedPascal Rigaux2005-08-181-1/+1
* fix typoPascal Rigaux2005-08-161-4/+4
* - if we have a lot of memory, keep the clp in tmpfsPascal Rigaux2005-08-101-10/+36
* create clp_on_tmpfs() for future usePascal Rigaux2005-08-101-1/+2
* cleanupPascal Rigaux2005-08-081-1/+1
* move is_xbox from common to detect_devicesOlivier Blin2005-08-051-1/+1
* workarround problem in supplementary mediaFlorent Villard2005-07-151-0/+5
* Don't write ignored media in urpmi.cfg (bug 15537)Rafael Garcia-Suarez2005-07-011-1/+1
* use fs::type::is_dmraid()Pascal Rigaux2005-07-011-1/+1
* don't spawn a new shell if it's already running (useful when using the no-reb...Pascal Rigaux2005-07-011-1/+4
* fix typo in previous commitPascal Rigaux2005-06-301-1/+1
* install dmraid if neededPascal Rigaux2005-06-301-0/+1
* try to cleanup fs.pmPascal Rigaux2005-06-281-12/+12
* upcase protocol namesThierry Vignaud2005-06-281-4/+4
* (ask_if_suppl_media) upcase protocol nameThierry Vignaud2005-06-281-1/+1
* Add NFS supplementary media in fstabRafael Garcia-Suarez2005-06-281-2/+4
* Fix install_urpmi with nfs suppl mediaRafael Garcia-Suarez2005-06-281-9/+14
* Support NFS supplementary mediaRafael Garcia-Suarez2005-06-271-2/+18
* fsedit::is_same_hd is now fs:get::is_same_hdPascal Rigaux2005-06-131-1/+1
* don't need use MDK::Common... when we have "use common" (which is the standar...Pascal Rigaux2005-06-101-1/+0
* don't need prefixing with current packagePascal Rigaux2005-06-091-1/+1
* (media_browser): handle nfsPascal Rigaux2005-06-071-31/+73
* replace strange "-" with a ascii compliant onePascal Rigaux2005-06-061-1/+1
* install2 functions should be stepsPascal Rigaux2005-06-061-0/+16
* get rid of $clicked and $ent_number (obsolete)Pascal Rigaux2005-06-061-3/+3
* do not use a loop device to read ISO image IDs, read them directly in the fil...Olivier Blin2005-06-031-8/+4
* provide backward compatibility for network fields in loadOOlivier Blin2005-06-031-0/+14
* remove unneeded parentheses (keep first() to make it readable by trainees ...)Olivier Blin2005-06-031-2/+4
generated by cgit v1.2.1 (git 2.21.0) at 2025-02-22 08:44:42 +0000
(s)."), lvs => N_("Linux Virtual Server, used to build a high-performance and highly available server."), messagebus => N_("DBUS is a daemon which broadcasts notifications of system events and other messages"), named => N_("named (BIND) is a Domain Name Server (DNS) that is used to resolve host names to IP addresses."), netfs => N_("Mounts and unmounts all Network File System (NFS), SMB (Lan Manager/Windows), and NCP (NetWare) mount points."), network => N_("Activates/Deactivates all network interfaces configured to start at boot time."), nfs => N_("NFS is a popular protocol for file sharing across TCP/IP networks. This service provides NFS server functionality, which is configured via the /etc/exports file."), nfslock => N_("NFS is a popular protocol for file sharing across TCP/IP networks. This service provides NFS file locking functionality."), ntpd => N_("Synchronizes system time using the Network Time Protocol (NTP)"), numlock => N_("Automatically switch on numlock key locker under console and Xorg at boot."), oki4daemon => N_("Support the OKI 4w and compatible winprinters."), pcmcia => N_("PCMCIA support is usually to support things like ethernet and modems in laptops. It will not get started unless configured so it is safe to have it installed on machines that do not need it."), portmap => N_("The portmapper manages RPC connections, which are used by protocols such as NFS and NIS. The portmap server must be running on machines which act as servers for protocols which make use of the RPC mechanism."), postfix => N_("Postfix is a Mail Transport Agent, which is the program that moves mail from one machine to another."), random => N_("Saves and restores system entropy pool for higher quality random number generation."), rawdevices => N_("Assign raw devices to block devices (such as hard drive partitions), for the use of applications such as Oracle or DVD players"), routed => N_("The routed daemon allows for automatic IP router table updated via the RIP protocol. While RIP is widely used on small networks, more complex routing protocols are needed for complex networks."), rstatd => N_("The rstat protocol allows users on a network to retrieve performance metrics for any machine on that network."), rusersd => N_("The rusers protocol allows users on a network to identify who is logged in on other responding machines."), rwhod => N_("The rwho protocol lets remote users get a list of all of the users logged into a machine running the rwho daemon (similar to finger)."), saned => N_("SANE (Scanner Access Now Easy) enables to access scanners, video cameras, ..."), smb => N_("The SMB/CIFS protocol enables to share access to files & printers and also integrates with a Windows Server domain"), sound => N_("Launch the sound system on your machine"), sshd => N_("Secure Shell is a network protocol that allows data to be exchanged over a secure channel between two computers"), syslog => N_("Syslog is the facility by which many daemons use to log messages to various system log files. It is a good idea to always run syslog."), usb => N_("Load the drivers for your usb devices."), xfs => N_("Starts the X Font Server."), xinetd => N_("Starts other deamons on demand."), ); my ($name) = @_; my $s = $services{$name}; if ($s) { $s = translate($s); } else { my $file = find { -e $_ } map { "$::prefix$_/$name" } '/etc/rc.d/init.d', '/etc/init.d', '/etc/xinetd.d'; $s = cat_($file); $s =~ s/\\\s*\n#\s*//mg; $s = $s =~ /^#\s+(?:Short-)?[dD]escription:\s+(.*?)^(?:[^#]|# {0,2}\S)/sm ? $1 : $s =~ /^#\s*(.*?)^[^#]/sm ? $1 : ''; $s =~ s/#\s*//mg; } $s =~ s/\n/ /gm; $s =~ s/\s+$//; $s; } sub ask_ { my ($in) = @_; my %root_services = ( N("Printing") => [ qw(cups cupslpd lpr lpd oki4daemon hpoj cups-lpd) ], N("Internet") => [ qw(httpd boa tux roxen ftp pftp tftp proftpd wu-ftpd pure-ftpdipsec proftpd-xinetd ipchains iptables ip6tables ipvsadm isdn4linux ibod jabber jabber-icq adsl squid portsentry prelude nessusd junkbuster radvd cddbp ippl iptoip jail.init) ], N("File sharing") => [ qw(nfs-common nfs-server nfslock smb nettalk netfs mcserv autofs amd venus.init auth2.init codasrv.init update.init swat) ], N("System") => [ qw(usb usbd pcmcia irda xinetd inetd kudzu harddrake apmd sound network xfs alsa functions halt kheader killall mandrake_everytime mandrake_firstime random rawdevices single keytable syslog crond medusa-init portmap rpcbind acon anacron atd gpm psacct wine acpid numlock jserver sensors mosix bpowerd bpowerfail fcron powertweak.init ups syslog-ng cvs apcupsd) ], N("Remote Administration") => [ qw(sshd telnetd telnet rsh rlogin rexec webmin cfd heartbeat ldirectord iplog mon vncserver netsaint olympusd drakxtools_http) ], # N("Network Client") => [ qw(ypbind nscd arpwatch fetchmail dnrd_rc diald rsync) ], # N("Network Server") => [ qw(named bootparamd ntpd xntpd chronyd postfix sendmail # imap imaps ipop2 ipop3 pop3s routed yppasswdd ypserv ldap dhcpd dhcrelay # hylafax innd identd rstatd rusersd rwalld rwhod gated # kadmin kprop krb524 krb5kdc krb5server hldsld bayonne sockd dhsd gnu-pop3d # gdips pptpd.conf vrrpd crossfire bnetd pvmd ircd sympa finger ntalk talk) ], N("Database Server") => [ qw(mysql postgresql) ], ); my %services_root; foreach my $root (keys %root_services) { $services_root{$_} = $root foreach @{$root_services{$root}}; } my ($l, $on_services) = services(); my %services; $services{$_} = 0 foreach @{$l || []}; $services{$_} = 1 foreach @{$on_services || []}; $in->ask_browse_tree_info(N("Services"), N("Choose which services should be automatically started at boot time"), { node_state => sub { $services{$_[0]} ? 'selected' : 'unselected' }, build_tree => sub { my ($add_node, $flat) = @_; $add_node->($_, !$flat && ($services_root{$_} || N("Other"))) foreach sort keys %services; }, grep_unselected => sub { grep { !$services{$_} } @_ }, toggle_nodes => sub { my ($set_state, @nodes) = @_; my $new_state = !$services{$nodes[0]}; foreach (@nodes) { $set_state->($_, $new_state ? 'selected' : 'unselected'); $services{$_} = $new_state; } }, get_status => sub { N("Services: %d activated for %d registered", scalar(grep { $_ } values %services), scalar(values %services)); }, get_info => sub { formatLines(description($_[0])) }, interactive_help => sub { interactive::gtk::display_help($in, { interactive_help_id => 'misc-params#drakxid-configureServices' }, $::main_window) }, }) or return $l, $on_services; #- no change on cancel. [ grep { $services{$_} } @$l ]; } sub ask_standalone_gtk { my ($_in) = @_; my ($l, $on_services) = services(); my @xinetd_services = map { $_->[0] } @{(services_raw())[1]}; require ugtk2; ugtk2->import(qw(:wrappers :create)); my $W = ugtk2->new(N("Services")); my ($x, $y, $w_popup); my $nopop = sub { $w_popup and $w_popup->destroy; undef $w_popup }; my $display = sub { my ($text) = @_; $nopop->(); gtkshow(gtkadd($w_popup = Gtk2::Window->new('popup'), gtksignal_connect(gtkadd(Gtk2::EventBox->new, gtkadd(gtkset_shadow_type(Gtk2::Frame->new, 'etched_out'), gtkset_justify(Gtk2::Label->new($text), 'left'))), button_press_event => sub { $nopop->() } )))->move($x, $y) if $text; }; my $update_service = sub { my ($service, $label) = @_; my $started = -e "/var/lock/subsys/$service"; $label->set_label($started ? N("running") : N("stopped")); }; my $b = Gtk2::EventBox->new; $b->set_events('pointer_motion_mask'); gtkadd($W->{window}, gtkadd($b, gtkpack_($W->create_box_with_title, 0, mygtk2::gtknew('Title1', label => N("Services and daemons")), 1, gtkset_size_request(create_scrolled_window(create_packtable({ col_spacings => 10, row_spacings => 3 }, map { my $service = $_; my $is_xinetd_service = member($service, @xinetd_services); my $infos = warp_text(description($_), 40); $infos ||= N("No additional information\nabout this service, sorry."); my $label = gtkset_justify(Gtk2::Label->new, 'left'); $update_service->($service, $label) if !$is_xinetd_service; [ gtkpack__(Gtk2::HBox->new(0,0), $_), gtkpack__(Gtk2::HBox->new(0,0), $label), gtkpack__(Gtk2::HBox->new(0,0), gtksignal_connect(Gtk2::Button->new(N("Info")), clicked => sub { $display->($infos) })), gtkpack__(Gtk2::HBox->new(0,0), gtkset_active(gtksignal_connect( Gtk2::CheckButton->new($is_xinetd_service ? N("Start when requested") : N("On boot")), clicked => sub { if ($_[0]->get_active) { push @$on_services, $service if !member($service, @$on_services); } else { @$on_services = grep { $_ ne $service } @$on_services; } }), member($service, @$on_services))), map { my $a = $_; gtkpack__(Gtk2::HBox->new(0,0), gtksignal_connect(Gtk2::Button->new(translate($a)), clicked => sub { my $action = $a eq "Start" ? 'restart' : 'stop'; log::explanations(qq(GP_LANG="UTF-8" service $service $action)); # as we need the output in UTF-8, force it local $_ = `GP_LANG="UTF-8" service $service $action 2>&1`; s/\033\[[^mG]*[mG]//g; c::set_tagged_utf8($_); $update_service->($service, $label); $display->($_); })) if !$is_xinetd_service; } (N_("Start"), N_("Stop")) ]; } @$l), [ $::isEmbedded ? 'automatic' : 'never', 'automatic' ]), -1, $::isEmbedded ? -1 : 400), 0, gtkpack(gtkset_border_width(Gtk2::HBox->new(0,0),5), $W->create_okcancel) )) ); $b->signal_connect(motion_notify_event => sub { my ($w, $e) = @_; my ($ox, $oy) = $w->window->get_origin; $x = $e->x+$ox; $y = $e->y+$oy }); $b->signal_connect(button_press_event => sub { $nopop->() }); $::isEmbedded and gtkflush(); $W->main or return; $on_services; } sub ask { my ($in) = @_; !$::isInstall && $in->isa('interactive::gtk') ? &ask_standalone_gtk : &ask_; } sub _set_service { my ($service, $enable) = @_; my $script = "/etc/rc.d/init.d/$service"; run_program::rooted($::prefix, "chkconfig", $enable ? "--add" : "--del", $service); #- FIXME: handle services with no chkconfig line and with no Default-Start levels in LSB header if ($enable && cat_("$::prefix$script") =~ /^#\s+chkconfig:\s+-/m) { run_program::rooted($::prefix, "chkconfig", "--level", "35", $service, "on"); } } sub _run_action { my ($service, $action) = @_; run_program::rooted($::prefix, "/etc/rc.d/init.d/$service", $action); } sub doit { my ($in, $on_services) = @_; my ($l, $was_on_services) = services(); foreach (@$l) { my $before = member($_, @$was_on_services); my $after = member($_, @$on_services); if ($before != $after) { _set_service($_, $after); if (!$after && !$::isInstall && !$in->isa('interactive::gtk')) { #- only done after install AND when not using the gtk frontend (since it allows one to start/stop services) #- this allows to skip stopping service "dm" _run_action($_, "stop"); } } } } sub services_raw() { local $ENV{LANGUAGE} = 'C'; my (@services, @xinetd_services); foreach (run_program::rooted_get_stdout($::prefix, '/sbin/chkconfig', '--list')) { if (my ($xinetd_name, $on_off) = m!^\t(\S+):\s*(on|off)!) { push @xinetd_services, [ $xinetd_name, $on_off eq 'on' ]; } elsif (my ($name, $l) = m!^(\S+)\s+(0:(on|off).*)!) { push @services, [ $name, [ $l =~ /(\d+):on/g ] ]; } } \@services, \@xinetd_services; } #- returns: #--- the listref of installed services #--- the listref of "on" services sub services() { my ($services, $xinetd_services) = services_raw(); my @l = @$xinetd_services; if ($::isInstall) { push @l, map { [ $_->[0], @{$_->[1]} > 0 ] } @$services; } else { my $runlevel = (split " ", `/sbin/runlevel`)[1]; push @l, map { [ $_->[0], member($runlevel, @{$_->[1]}) ] } @$services; } @l = sort { $a->[0] cmp $b->[0] } @l; [ map { $_->[0] } @l ], [ map { $_->[0] } grep { $_->[1] } @l ]; } sub service_exists { my ($service) = @_; -x "$::prefix/etc/rc.d/init.d/$service"; } sub restart ($) { my ($service) = @_; # Exit silently if the service is not installed service_exists($service) or return 1; _run_action($service, "restart"); } sub restart_or_start ($) { my ($service) = @_; # Exit silently if the service is not installed service_exists($service) or return 1; _run_action($service, is_service_running($service) ? "restart" : "start"); } sub start ($) { my ($service) = @_; # Exit silently if the service is not installed service_exists($service) or return 1; _run_action($service, "start"); } sub start_not_running_service ($) { my ($service) = @_; # Exit silently if the service is not installed service_exists($service) or return 1; is_service_running($service) || _run_action($service, "start"); } sub stop ($) { my ($service) = @_; # Exit silently if the service is not installed service_exists($service) or return 1; _run_action($service, "stop"); } sub is_service_running ($) { my ($service) = @_; # Exit silently if the service is not installed service_exists($service) or return 1; run_program::rooted($::prefix, "/etc/rc.d/init.d/$service", '>', '/dev/null', '2>', '/dev/null', "status"); } sub starts_on_boot { my ($service) = @_; my (undef, $on_services) = services(); member($service, @$on_services); } sub start_service_on_boot ($) { my ($service) = @_; _set_service($service, 1); } sub do_not_start_service_on_boot ($) { my ($service) = @_; _set_service($service, 0); } sub enable { my ($service, $o_dont_apply) = @_; start_service_on_boot($service); restart_or_start($service) unless $o_dont_apply; } sub disable { my ($service, $o_dont_apply) = @_; do_not_start_service_on_boot($service); stop($service) unless $o_dont_apply; } sub set_status { my ($service, $enable, $o_dont_apply) = @_; if ($enable) { enable($service, $o_dont_apply); } else { disable($service, $o_dont_apply); } } 1;
generated by cgit v1.2.1 (git 2.21.0) at 2025-02-22 08:44:40 +0000