diff options
Diffstat (limited to 'perl-install/services.pm')
| -rw-r--r-- | perl-install/services.pm | 298 |
1 files changed, 0 insertions, 298 deletions
diff --git a/perl-install/services.pm b/perl-install/services.pm deleted file mode 100644 index a578c6c45..000000000 --- a/perl-install/services.pm +++ /dev/null @@ -1,298 +0,0 @@ -package services; # $Id$ - -use diagnostics; -use strict; - -#-###################################################################################### -#- misc imports -#-###################################################################################### -use common; -use run_program; -use my_gtk qw(:helpers :wrappers); - -sub description { - my %services = ( -alsa => __("Launch the ALSA (Advanced Linux Sound Architecture) sound system"), -anacron => __("Anacron a periodic command scheduler."), -apmd => __("apmd is used for monitoring batery status and logging it via syslog. -It can also be used for shutting down the machine when the battery is low."), -atd => __("Runs commands scheduled by the at command at the time specified when -at was run, and runs batch commands when the load average is low enough."), -crond => __("cron is a standard UNIX program that runs user-specified programs -at periodic scheduled times. vixie cron adds a number of features to the basic -UNIX cron, including better security and more powerful configuration options."), -gpm => __("GPM adds mouse support to text-based Linux applications such the -Midnight Commander. It also allows mouse-based console cut-and-paste operations, -and includes support for pop-up menus on the console."), -harddrake => __("HardDrake runs a hardware probe, and optionally configures -new/changed hardware."), -httpd => __("Apache is a World Wide Web server. It is used to serve HTML files -and CGI."), -inet => __("The internet superserver daemon (commonly called inetd) starts a -variety of other internet services as needed. It is responsible for starting -many services, including telnet, ftp, rsh, and rlogin. Disabling inetd disables -all of the services it is responsible for."), -ipchains => __("Launch packet filtering for Linux kernel 2.2 series, to set -up a firewall to protect your machine from network attacks."), -keytable => __("This package loads the selected keyboard map as set in -/etc/sysconfig/keyboard. This can be selected using the kbdconfig utility. -You should leave this enabled for most machines."), -kheader => __("Automatic regeneration of kernel header in /boot for -/usr/include/linux/{autoconf,version}.h"), -kudzu => __("Automatic detection and configuration of hardware at boot."), -linuxconf => __("Linuxconf will sometimes arrange to perform various tasks -at boot-time to maintain the system configuration."), -lpd => __("lpd is the print daemon required for lpr to work properly. It is -basically a server that arbitrates print jobs to printer(s)."), -lvs => __("Linux Virtual Server, used to build a high-performance and highly -available server."), -named => __("named (BIND) is a Domain Name Server (DNS) that is used to resolve -host names to IP addresses."), -netfs => __("Mounts and unmounts all Network File System (NFS), SMB (Lan -Manager/Windows), and NCP (NetWare) mount points."), -network => __("Activates/Deactivates all network interfaces configured to start -at boot time."), -nfs => __("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 => __("NFS is a popular protocol for file sharing across TCP/IP -networks. This service provides NFS file locking functionality."), -numlock => __("Automatically switch on numlock key locker under console -and XFree at boot."), -oki4daemon => __("Support the OKI 4w and compatible winprinters."), -pcmcia => __("PCMCIA support is usually to support things like ethernet and -modems in laptops. It won't get started unless configured so it is safe to have -it installed on machines that don't need it."), -portmap => __("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 => __("Postfix is a Mail Transport Agent, which is the program that -moves mail from one machine to another."), -random => __("Saves and restores system entropy pool for higher quality random -number generation."), -rawdevices => __("Assign raw devices to block devices (such as hard drive -partitions), for the use of applications such as Oracle"), -routed => __("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 => __("The rstat protocol allows users on a network to retrieve -performance metrics for any machine on that network."), -rusersd => __("The rusers protocol allows users on a network to identify who is -logged in on other responding machines."), -rwhod => __("The rwho protocol lets remote users get a list of all of the users -logged into a machine running the rwho daemon (similiar to finger)."), -sound => __("Launch the sound system on your machine"), -syslog => __("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 => __("Load the drivers for your usb devices."), -xfs => __("Starts the X Font Server (this is mandatory for XFree to run)."), - ); - my ($name, $prefix) = @_; - my $s = $services{$name}; - if ($s) { - $s = translate($s); - } else { - $s = -e "$prefix/etc/rc.d/init.d/$name" && cat_("$prefix/etc/rc.d/init.d/$name"); - $s ||= -e "$prefix/etc/init.d/$name" && cat_("$prefix/etc/init.d/$name"); - $s ||= -e "$prefix/etc/xinetd.d/$name" && cat_("$prefix/etc/xinetd.d/$name"); - $s =~ s/\\\s*\n#\s*//mg; - if ($s =~ /^# description:\s+\S/sm) { - ($s) = $s =~ /^# description:\s+(.*?)^(?:[^#]|# {0,2}\S)/sm; - } else { - ($s) = $s =~ /^#\s*(.*?)^[^#]/sm; - } - $s =~ s/#\s*//mg; - } - $s =~ s/\n/ /gm; $s =~ s/\s+$//; - $s; -} - -sub ask_install_simple { - my ($in, $prefix) = @_; - my ($l, $on_services) = services($prefix); - $in->ask_many_from_list("drakxservices", - _("Choose which services should be automatically started at boot time"), - { - list => $l, - help => sub { description($_[0], $prefix) }, - values => $on_services, - sort => 1, - }); -} - -sub ask_install { - my ($in, $prefix) = @_; - my %root_services = ( - _("Printing") => [ qw(cups cupslpd lpr lpd oki4daemon hpoj apcupsd cups-lpd ) ], - _("Internet") => [ qw(httpd boa tux roxen ftp pftp tftp proftpd wu-ftpd pure-ftpdipsec proftpd-xinetd - ipchains iptables ipvsadm isdn4linux ibod jabber jabber-icq adsl squid - portsentry prelude nessusd junkbuster radvd cddbp ippl iptoip jail.init ) ], - _("File sharing") => [ qw(nfs nfslock smb nettalk netfs mcserv autofs amd - venus.init auth2.init codasrv.init update.init swat ) ], - _("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 acon - anacron atd gpm psacct wine acpid numlock jserver sensors mosix bpowerd bpowerfail - fcron powertweak.init ups syslog-ng cvs) ], - _("Remote Administration") => [ qw(sshd telnetd telnet rsh rlogin rexec webmin cfd heartbeat ldirectord - iplog mon vncserver netsaint olympusd drakxtools_http ) ], -# _("Network Client") => [ qw(ypbind nscd arpwatch fetchmail dnrd_rc diald rsync ) ], -# _("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) ], - _("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($prefix); - my %services; - $services{$_} = 0 foreach @{$l || []}; - $services{$_} = 1 foreach @{$on_services || []}; - - $in->ask_browse_tree_info('drakxservices', _("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{$_} || _("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 { - _("Services: %d activated for %d registered", - scalar(grep { $_ } values %services), - scalar(values %services)); - }, - get_info => sub { formatLines(description($_[0], $prefix)) }, - }) or return ($l, $on_services); #- no change on cancel. - ($l, [ grep { $services{$_} } @$l ]); -} - -sub ask_standalone_gtk { - my ($in, $prefix) = @_; - my ($l, $on_services) = services($prefix); - my $W = my_gtk->new(_("Services")); - my ($x, $y, $w_popup); - my $nopop = sub { $w_popup and $w_popup->destroy }; - my $display = sub { $nopop->(); $_[0] and gtkmove(gtkshow(gtkadd($w_popup=new Gtk::Window (-popup), - gtksignal_connect(gtkadd(new Gtk::EventBox(), - gtkadd(gtkset_shadow_type(new Gtk::Frame, 'etched_out'), - gtkset_justify(new Gtk::Label($_[0]), 0))), - button_press_event => sub { $nopop->() } - ))), $x, $y) }; - my $update_service = sub { - my $started = -e "/var/lock/subsys/$_[0]"; - my $action = $started ? "stop" : "start"; - $_[1]->set($started ? _("running") : _("stopped")); - $started, $action; - }; - my $strip = sub { - my $infos_old = $_[0]; - my $infos; - while ($infos_old =~ s/(.{40})//) { - $1 =~ /(.*) ([^ ]*)/; - $infos .= "$1\n$2"; - } - $infos .= $infos_old; - }; - my $b = new Gtk::EventBox(); - $b->set_events(["pointer_motion_mask"]); - gtkadd($W->{window}, gtkadd($b, gtkpack_($W->create_box_with_title(_("Services and deamons")), - 1, gtkset_usize(createScrolledWindow(create_packtable({ col_spacings => 10, row_spacings => 3 }, - map { - my $service = $_; - my $infos = $strip->(description($_, $prefix)); - $infos ||= _("No additional information\nabout this service, sorry."); - my $l = new Gtk::Label(); - my ($started, $action) = $update_service->($service, gtkset_justify($l, 0)); - [ gtkpack__(new Gtk::HBox(0,0), $_), - gtkpack__(new Gtk::HBox(0,0), $l), - gtkpack__(new Gtk::HBox(0,0), gtksignal_connect(new Gtk::Button(_("Infos")), clicked => sub { $display->($infos) })), - gtkpack__(new Gtk::HBox(0,0), gtkset_active(gtksignal_connect( - new Gtk::CheckButton(_("On boot")), - clicked => sub { if ($_[0]->active) { - "@$on_services" =~ /$service/ or push(@$on_services,$service) - } else { - @$on_services = grep(!/$service/, @$on_services) - }}), "@$on_services" =~ /$service/ )), - map { my $a = $_; - gtkpack__(new Gtk::HBox(0,0), gtksignal_connect(new Gtk::Button(_($a)), - clicked => sub { my $c = "service $service " . (lc($a) eq "start" ? "restart" : lc($a)) . " 2>&1"; local $_=`$c`; s/\033\[[^mG]*[mG]//g; - ($started, $action) = $update_service->($service, $l); - $display->($_); - } - )) } (_("Start"), _("Stop")) - ] - } - @$l)), 500, 400), - 0, gtkpack(gtkset_border_width(new Gtk::HBox(0,0),5), $W->create_okcancel) - )) - ); - $b->signal_connect( motion_notify_event => sub { my ($w, $e) = @_; - my ($ox, $oy) = $w->window->get_deskrelative_origin; - $x = $e->{'x'}+$ox; $y = $e->{'y'}+$oy; }); - $b->signal_connect( button_press_event => sub { $nopop->()}); - $::isEmbedded and Gtk->main_iteration while Gtk->events_pending; - $::isEmbedded and kill (12, $::CCPID); - $W->main or return; - ($l, $on_services); -} - -sub ask { - my ($in, $prefix) = @_; - !$::isInstall && $in->isa('interactive_gtk') ? &ask_standalone_gtk : &ask_install; -} - -sub doit { - my ($in, $on_services, $prefix) = @_; - my ($l, $was_on_services) = services($prefix); - - foreach (@$l) { - my $before = member($_, @$was_on_services); - my $after = member($_, @$on_services); - if ($before != $after) { - my $script = "/etc/rc.d/init.d/$_"; - run_program::rooted($prefix, "chkconfig", $after ? "--add" : "--del", $_); - if ($after && cat_("$prefix$script") =~ /^#\s+chkconfig:\s+-/m) { - run_program::rooted($prefix, "chkconfig", "--level", "35", $_, "on"); - } - if (!$after && $::isStandalone) { - run_program::rooted($prefix, $script, "stop"); - } - } - } -} - -#- returns: -#--- the listref of installed services -#--- the listref of "on" services -sub services { - my ($prefix) = @_; - my $cmd = $prefix && !$::testing ? "chroot $prefix" : ""; - my @l = map { [ /([^\s:]+)/, /\bon\b/ ] } grep { !/:$/ } sort `LANGUAGE=C $cmd /sbin/chkconfig --list`; - [ map { $_->[0] } @l ], [ map { $_->[0] } grep { $_->[1] } @l ]; -} - -sub mapgrep(&@) { - my $f = shift; - my @l; - foreach (@_) { - my ($b, $v) = $f->($_); - push @l, $v if $b; - } - @l; -} - -1; |