summaryrefslogtreecommitdiffstats
path: root/perl-install/fs
Commit message (Expand)AuthorAgeFilesLines
* vol_id failures ("unknown volume type") are too verbosePascal Rigaux2008-01-291-1/+1
* - detect raid partitions based on either type 0xfd or vol_id detectingPascal Rigaux2008-01-281-3/+4
* - do not propose ext4dev filesystem during install (#37157)Pascal Rigaux2008-01-251-1/+1
* - create /dev/cdrom symlink for installer (#36703)Pascal Rigaux2008-01-181-0/+1
* - don't check /proc/partitions for a partition_table::lvm Pascal Rigaux2007-12-031-0/+3
* add install cmdline option "force_atime" Pascal Rigaux2007-11-211-1/+1
* remove debug code from previous commitPascal Rigaux2007-11-191-1/+1
* (umount) fix garbaged error messages when umounting fsThierry Vignaud2007-11-131-1/+1
* have a more readable commentPascal Rigaux2007-11-091-1/+1
* add support for ext4Thierry Vignaud2007-11-064-10/+17
* (part_raw) simplifyThierry Vignaud2007-11-051-1/+1
* - bootloader-config must not need network::network from libdrakx-netPascal Rigaux2007-10-241-1/+1
* - partitioning wizard: ensure existing_part and resize_fat are proposed beforePascal Rigaux2007-10-191-3/+3
* - use /dev/cdrom in fstab, but do not write corresponding udev rulePascal Rigaux2007-10-041-20/+3
* - use /dev/cdrom in fstab, and write corresponding udev rulePascal Rigaux2007-10-031-0/+29
* - diskdrake:Pascal Rigaux2007-10-011-3/+4
* - ignore /proc/partitions when "solaris" extended partition is present (#33866)Pascal Rigaux2007-09-241-1/+5
* cleanupPascal Rigaux2007-09-241-1/+1
* create partition_table_initialize() and partition_table_clear_and_initialize()Pascal Rigaux2007-09-191-1/+1
* - fix getting UUID on mdmadm (eg: md0) devicesPascal Rigaux2007-09-192-6/+4
* we really want to remove existing partitions first (via tell_kernel)Pascal Rigaux2007-09-181-1/+1
* create partition_table::readonly and use itPascal Rigaux2007-09-181-5/+3
* rename partition_table::raw::clear() into partition_table::initialize()Pascal Rigaux2007-09-181-1/+1
* rename ->zero_MBR into ->clear, and ->zero_MBR_and_dirty into ->clear_and_dirtyPascal Rigaux2007-09-182-2/+2
* - also load dm-zero for dmraidPascal Rigaux2007-09-171-1/+1
* o fix typo breaking reading fstab with UUID= entriesPascal Rigaux2007-09-141-1/+1
* - use user_xattr by default on reiserfs (#15068)Pascal Rigaux2007-09-131-0/+1
* - library: have "defaults" mount option instead of empty string (for rescue)Pascal Rigaux2007-09-101-1/+1
* - do not configure "windows" bootloader entries for "hidden" partitionsPascal Rigaux2007-09-071-3/+3
* mkswap is now in util-linux-ngPascal Rigaux2007-09-061-1/+1
* better use $::o->{uuid_by_default} to allow easy setting in auto_installsPascal Rigaux2007-09-041-1/+1
* - add global variable settable via "use_uuid" on kernel cmdlinePascal Rigaux2007-09-041-1/+1
* - support for UUID (including UUID=xxx in fstab)Pascal Rigaux2007-08-315-1/+14
* - do not set relatime option for mounting nfsPascal Rigaux2007-08-311-2/+2
* ensure we have only one of { noatime, relatime }Pascal Rigaux2007-08-281-0/+1
* drop Move support (unused for quite a long time and superceeded by GlobetrotterThierry Vignaud2007-08-272-2/+2
* - diskdrake:Pascal Rigaux2007-08-211-1/+2
* - diskdrake:Pascal Rigaux2007-08-141-1/+3
* - fix handling relatime vs noatimePascal Rigaux2007-08-141-2/+3
* partially revert previous (titi) commit: we do want noatime on laptops, sincePascal Rigaux2007-08-141-3/+5
* (set_default) default all machines to 'relatime' mount optionThierry Vignaud2007-08-141-4/+3
* (set_default) adjust commentThierry Vignaud2007-08-141-1/+1
* (set_default) default laptops to 'relatime' mount option rather than 'noatime'Thierry Vignaud2007-08-141-1/+1
* (help) kill support for 'nodiratime' mount option ; add support for 'relatime'Thierry Vignaud2007-08-141-1/+1
* handle 'relatime' mount optionThierry Vignaud2007-08-141-1/+1
* (partitionWizardSolutions) add missing titleThierry Vignaud2007-08-091-1/+1
* - diskdrake:Pascal Rigaux2007-08-081-2/+8
* - allow using diskdrake even if there is only a lvm PV on full disk availablePascal Rigaux2007-08-081-1/+1
* drop backward compatibility pt_type ids (were kept for compatibility inPascal Rigaux2007-08-061-7/+0
* restore progress bar when formatting ext3Pascal Rigaux2007-08-061-3/+3
generated by cgit v1.2.1 (git 2.21.0) at 2025-04-03 06:41:43 +0000
the system configuration."), lpd => N_("lpd is the print daemon required for lpr to work properly. It is basically a server that arbitrates print jobs to printer(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-04-03 06:41:42 +0000