drakx - Mageia Installer and base platform for many utilities

Mageia Installer and base platform for many utilities

Thierry Vignaud [tv]

summary refs log tree commit diff stats

path: root/docs/TODO

	Commit message (Expand)	Author	Age	Files	Lines
*	no_comment	Pascal Rigaux	1999-09-03	1	-0/+4
*	no_comment	Pascal Rigaux	1999-08-31	1	-0/+2
*	no_comment	Pascal Rigaux	1999-08-31	1	-0/+2
*	no_comment	Pascal Rigaux	1999-08-30	1	-4/+2
*	no_comment	Pascal Rigaux	1999-08-29	1	-0/+6
*	no_comment	Pascal Rigaux	1999-08-29	1	-2/+0
*	no_comment	Pascal Rigaux	1999-08-28	1	-0/+24
*	no_comment	Pascal Rigaux	1999-08-27	1	-12/+10
*	no_comment	Pascal Rigaux	1999-08-25	1	-0/+2
*	no_comment	Pascal Rigaux	1999-08-24	1	-8/+0
*	no_comment	Pascal Rigaux	1999-08-24	1	-3/+2
*	no_comment	Pascal Rigaux	1999-08-23	1	-1/+3
*	no_comment	Pascal Rigaux	1999-08-23	1	-5/+0
*	no_comment	Pascal Rigaux	1999-08-23	1	-18/+18
*	no_comment	Pascal Rigaux	1999-08-13	1	-6/+6
*	no_comment	Pascal Rigaux	1999-08-12	1	-0/+12
*	no_comment	Pascal Rigaux	1999-08-12	1	-4/+1
*	no_comment	Pascal Rigaux	1999-08-12	1	-1/+15
*	* empty log message *	Pascal Rigaux	1999-08-09	1	-6/+6
*	no_comment	Pascal Rigaux	1999-07-30	1	-0/+7
*	no_comment	Pascal Rigaux	1999-07-24	1	-0/+4
*	no_comment	Pascal Rigaux	1999-07-24	1	-0/+2
*	no_comment	Pascal Rigaux	1999-07-23	1	-0/+8
*	"no"	Pascal Rigaux	1999-07-21	1	-1/+1
*	* empty log message *	Pascal Rigaux	1999-07-21	1	-0/+16

str">'compiz-decorator-gtk' ], desktop_packages => { KDE4 => [ 'compiz-decorator-kde4' ], }, name => 'Compiz Fusion', description => N_("Compiz Fusion is a 3D compositing window manager."), }, { wm => 'metisse-start-fvwm', configuration_tool => '', packages => [ 'metisse' ], name => 'Metisse FVWM', description => N_("Metisse FVWM is a FVWM window manager modified for Metisse."), }, ); sub parse_glxinfo { my (%options) = @_; my $glx_info = {}; my $extensions_section; my @glxinfo = $options{file} ? cat_($options{file}) : do { require run_program; my $lib = arch() =~ /x86_64/ ? "lib64" : "lib"; local $ENV{LD_LIBRARY_PATH} = $options{Mesa} && "/usr/$lib/mesa"; run_program::rooted_get_stdout($::prefix, '/usr/bin/glxinfo', '2>', '/dev/null'); }; foreach (@glxinfo) { chomp; if (/^direct rendering: Yes/) { $glx_info->{capabilities}{direct_rendering} = 1; } elsif (my ($type, $value) = /^(.*) string: (.*)$/) { $type =~ s/\s/_/g; $glx_info->{strings}{$type} = $value; } elsif (/^(.*) extensions:/) { $extensions_section = $1; $extensions_section =~ s/\s/_/g; } elsif (/^\s/) { if ($extensions_section) { push @{$glx_info->{extensions}{$extensions_section}}, grep { $_ } split(/,?\s+/); } } else { undef $extensions_section; } } $glx_info; } my @glx_blacklist = qw(geode mga nv openchrome sis tdfx vesa vmware); sub is_in_metisse() { my $display = $ENV{DISPLAY}; $display =~ s/\..*//; $display && any { member($display, split("\0", cat_("/proc/" . $_ . "/cmdline"))); } fuzzy_pidofs("Xmetisse"); } sub get_glx_status { my ($o_mesa_file, $o_system_file) = @_; my ($driver, $resolution); require Xconfig::xfree; eval { my $raw_X = Xconfig::xfree->read; $driver = $raw_X->get_Driver; $resolution = $raw_X->get_resolution; }; $resolution ||= {}; member($driver, @glx_blacklist) and return {}; my ($mesa_glx_info, $system_glx_info); if ($o_mesa_file) { $mesa_glx_info = parse_glxinfo(file => $o_mesa_file); $system_glx_info = $o_system_file ? parse_glxinfo(file => $o_system_file) : $mesa_glx_info; } else { $system_glx_info = parse_glxinfo(); $mesa_glx_info = parse_glxinfo(Mesa => 1); } my $glx_status = {}; $glx_status->{context}{Mesa} = $system_glx_info->{strings}{OpenGL_renderer} =~ /Mesa/; $glx_status->{context}{SoftwareRasterizer} = $system_glx_info->{strings}{OpenGL_renderer} =~ /Software Rasterizer/; $glx_status->{context}{MesaDRI} = $system_glx_info->{strings}{OpenGL_renderer} =~ /Mesa DRI/; $glx_status->{context}{Xmetisse} = is_in_metisse(); $glx_status->{capabilities}{direct_rendering} = ($system_glx_info->{capabilities}{direct_rendering} && !$glx_status->{context}{SoftwareRasterizer}) || $glx_status->{context}{Xmetisse}; $glx_status->{capabilities}{native} = $glx_status->{capabilities}{direct_rendering} && member('GLX_EXT_texture_from_pixmap', @{$system_glx_info->{extensions}{client_glx}}) && member('GLX_EXT_texture_from_pixmap', @{$system_glx_info->{extensions}{server_glx}}); $glx_status->{capabilities}{Xmetisse} = $glx_status->{capabilities}{direct_rendering}; #- no support in configuration tools yet # $glx_status->{capabilities}{'3d-desktop'} = $glx_status->{capabilities}{direct_rendering}; $glx_status; } sub detect() { my $compositing_server = +{ getVarsFromSh($::prefix . $compositing_server_config) }; my $compositing_wm = +{ getVarsFromSh($::prefix . $compositing_wm_config) }; my $glx = { capabilities => get_glx_status()->{capabilities} }; $glx->{supported} = $glx->{capabilities}{direct_rendering}; $glx->{compositing} = $compositing_wm->{COMPOSITING_WM_START} eq 'yes' || $compositing_wm->{COMPOSITING_WM_START} eq 'auto' && $glx->{supported}; $glx->{wm} = $compositing_wm->{COMPOSITING_WM}; $glx->{method} = $glx->{compositing} ? ( $glx->{capabilities}{native} && member($compositing_server->{COMPOSITING_SERVER_START}, qw(auto no)) && !$compositing_server->{COMPOSITING_SERVER} ? 'native' : $glx->{capabilities}{Xmetisse} && member($compositing_server->{COMPOSITING_SERVER_START}, qw(auto yes)) && $compositing_server->{COMPOSITING_SERVER} eq 'Xmetisse' ? 'Xmetisse' : '' ) : ''; $glx; } sub detect_may_install { my ($do_pkgs) = @_; $do_pkgs->ensure_is_installed('glxinfo', '/usr/bin/glxinfo') or return; Xconfig::glx::detect(); } sub detect_types { my ($glx) = @_; my @available_types = ( grep { !$_->{methods} || any { $glx->{capabilities}{$_} } @{$_->{methods}}; } @gl_compositing_types ); my $type = find { member($glx->{method}, @{$_->{methods}}) } @available_types; \@available_types, $type; } sub filter_installed_types { my ($types) = @_; grep { !$_->{wms} || -e '/usr/bin/' . first(@{$_->{wms}}) } @$types; } sub choose_interactive { my ($in, $glx, $o_installed_only) = @_; my ($available, $type) = detect_types($glx); @$available = filter_installed_types($available) if $o_installed_only; $in->ask_from_({ title => N("3D Desktop effects") }, [ { label => N("3D Desktop effects"), title => 1 }, if_(!$glx->{supported}, { label => N("Your system does not support 3D desktop effects.") }), { type => 'list', val => \$type, allow_empty_list => 1, list => $available, format => sub { translate($_[0]{name}) } }, ]) or return; $glx->{method} = find { $glx->{capabilities}{$_} } @{$type->{methods}}; $glx->{wm} = first(@{$type->{wms}}); 1; } sub install { my ($do_pkgs, $glx) = @_; my $server = find { $_->{method} eq $glx->{method} } @gl_compositing_servers; my $wm = find { $_->{wm} eq $glx->{wm} } @gl_compositing_wms; my @sessions = any::sessions(); my @packages = map { my $entry = $_; @{$entry->{packages}}, map { @{$entry->{desktop_packages}{$_} || []} } @sessions; } grep { $_ } $server, $wm; $do_pkgs->ensure_are_installed(\@packages); } #- FIXME: move in common.pm and factorize with network::network::proxy_configure_gnome sub _gconf_set { my ($key, $type, $value) = @_; -d "$::prefix/etc/gconf/2/" or return; my $defaults_dir = "/etc/gconf/gconf.xml.local-defaults"; my $p_defaults_dir = "$::prefix$defaults_dir"; run_program::rooted($::prefix, 'gconftool-2', '>', '/dev/null', "--config-source=xml::$p_defaults_dir", "--direct", "--set", "--type=$type", if_($type eq "list", '--list-type', 'string'), $key, $value); } sub write { my ($glx) = @_; my $server_start = member($glx->{method}, 'Xmetisse'); my $wm_start = member($glx->{method}, qw(native Xmetisse)); addVarsInSh($::prefix . $compositing_server_config, { COMPOSITING_SERVER_START => bool2yesno($server_start), COMPOSITING_SERVER => $server_start && $glx->{method}, }); addVarsInSh($::prefix . $compositing_wm_config, { COMPOSITING_WM_START => bool2yesno($wm_start), COMPOSITING_WM => $glx->{wm}, }); _gconf_set("/system/gstreamer/0.10/default/videosink", "string", $wm_start ? "ximagesink" : "autovideosink"); } 1;