#!/usr/bin/perl
# DrakxDM -- Display Manager chooser
# Copyright (C) 2003-2006 Mandriva (tvignaud@mandriva.com)
#
# This program is free software; you can redistribute it and/or modify
# it under the terms of the GNU General Public License as published by
# the Free Software Foundation; either version 2, or (at your option)
# any later version.
#
# This program is distributed in the hope that it will be useful,
# but WITHOUT ANY WARRANTY; without even the implied warranty of
# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
# GNU General Public License for more details.
#
# You should have received a copy of the GNU General Public License
# along with this program; if not, write to the Free Software
# Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA.

use strict;
use lib qw(/usr/lib/libDrakX);

use standalone;     #- warning, standalone must be loaded very first, for 'explanations'
use common;
use any;
use interactive;
use services;
use run_program;

$ugtk2::wm_icon = "/usr/share/mcc/themes/default/drakedm-mdk.png";

my $in = 'interactive'->vnew('su');

my $cfg_file = '/etc/sysconfig/desktop';

my @list = map {
    my %l = map { /(\S+)=(.*)/ } cat_($_);
    \%l;
} sort(glob("/etc/X11/dm.d/*.conf"));

my @_DESCRIPTIONS_for_i18n = (
    N("GDM (GNOME Display Manager)"),
    N("KDM (KDE Display Manager)"),
    N("XDM (X Display Manager)"),
);

if (!$::expert) {
    @list = grep { -e $_->{EXEC} } @list;
}

my ($dm_NAME) = cat_($cfg_file) =~ /^DISPLAYMANAGER=(.*)/m;
my $dm = (find { uc($_->{NAME}) eq uc($dm_NAME) } @list) || $list[0];

start:
if ($in->ask_from(N("Choosing a display manager"),
                               formatAlaTeX(N("X11 Display Manager allows you to graphically log
into your system with the X Window System running and supports running
several different X sessions on your local machine at the same time.")),
                               [
                                {
                                 allow_empty_list => 1,
                                 list => \@list,
                                 val => \$dm,
                                 type => 'list',
                                 format => sub { translate($_[0]{DESCRIPTION}) },
                                }
                               ]
                              )
   ) {
    $in->do_pkgs->ensure_is_installed($dm->{PACKAGE}, $dm->{EXEC}) or goto start;
    addVarsInSh($cfg_file, { DISPLAYMANAGER => $dm->{NAME} });
    log::explanations(qq(Switching to "$dm->{NAME}" display manager));
    if (any::running_window_manager()) {
        $in->ask_yesorno('', N("The change is done, do you want to restart the dm service?"), 1) and
				$in->ask_yesorno('', N("You are going to close all running programs and lose your current session. Are you really sure that you want to restart the dm service?"), 1) and
                      run_program::raw({ detach => 1 }, '/etc/rc.d/init.d/dm', '>', '/dev/null', '2>', '/dev/null', 'restart');
    }
}

$in->exit(0);
pic/gdk-pixbuf-0-branch'>topic/gdk-pixbuf-0-branch</option>
<option value='topic/gi-ppc'>topic/gi-ppc</option>
<option value='topic/ia64-8_1'>topic/ia64-8_1</option>
<option value='topic/mandrakesoft'>topic/mandrakesoft</option>
<option value='topic/mlcd4'>topic/mlcd4</option>
<option value='topic/ppp'>topic/ppp</option>
<option value='topic/rp-pppoe'>topic/rp-pppoe</option>
<option value='topic/switching_to_dnf'>topic/switching_to_dnf</option>
<option value='topic/switching_to_urpmi'>topic/switching_to_urpmi</option>
<option value='topic/unlabeled-1.1.1'>topic/unlabeled-1.1.1</option>
<option value='topic/v_webmin_0_87'>topic/v_webmin_0_87</option>
<option value='topic/x86_64-branch'>topic/x86_64-branch</option>
<option value='user/animtim/designWork'>user/animtim/designWork</option>
<option value='user/colin/rescue-systemd'>user/colin/rescue-systemd</option>
<option value='user/ennael/mga6'>user/ennael/mga6</option>
<option value='user/erwan/bug-13680'>user/erwan/bug-13680</option>
<option value='user/jibz/aarch64'>user/jibz/aarch64</option>
<option value='user/martinw/mga6'>user/martinw/mga6</option>
<option value='user/pterjan/arm64'>user/pterjan/arm64</option>
</select> <input type='submit' value='switch'/></form></td></tr>
<tr><td class='sub'>Mageia Installer and base platform for many utilities</td><td class='sub right'>Thierry Vignaud [tv]</td></tr></table>
<table class='tabs'><tr><td>
<a href='/software/drakx/?h=10.30'>summary</a><a href='/software/drakx/refs/?h=10.30&amp;id=f1323d79cc7dd3aa5f4ebde2e2744d7a7ad56180'>refs</a><a href='/software/drakx/log/perl-install/fs/wild_device.pm?h=10.30'>log</a><a href='/software/drakx/tree/perl-install/fs/wild_device.pm?h=10.30&amp;id=f1323d79cc7dd3aa5f4ebde2e2744d7a7ad56180'>tree</a><a class='active' href='/software/drakx/commit/perl-install/fs/wild_device.pm?h=10.30&amp;id=f1323d79cc7dd3aa5f4ebde2e2744d7a7ad56180'>commit</a><a href='/software/drakx/diff/perl-install/fs/wild_device.pm?h=10.30&amp;id=f1323d79cc7dd3aa5f4ebde2e2744d7a7ad56180'>diff</a><a href='/software/drakx/stats/perl-install/fs/wild_device.pm?h=10.30'>stats</a></td><td class='form'><form class='right' method='get' action='/software/drakx/log/perl-install/fs/wild_device.pm'>
<input type='hidden' name='h' value='10.30'/><input type='hidden' name='id' value='f1323d79cc7dd3aa5f4ebde2e2744d7a7ad56180'/><select name='qt'>
<option value='grep'>log msg</option>
<option value='author'>author</option>
<option value='committer'>committer</option>
<option value='range'>range</option>
</select>
<input class='txt' type='search' size='10' name='q' value=''/>
<input type='submit' value='search'/>
</form>
</td></tr></table>
<div class='path'>path: <a href='/software/drakx/commit/?h=10.30&amp;id=f1323d79cc7dd3aa5f4ebde2e2744d7a7ad56180'>root</a>/<a href='/software/drakx/commit/perl-install?h=10.30&amp;id=f1323d79cc7dd3aa5f4ebde2e2744d7a7ad56180'>perl-install</a>/<a href='/software/drakx/commit/perl-install/fs?h=10.30&amp;id=f1323d79cc7dd3aa5f4ebde2e2744d7a7ad56180'>fs</a>/<a href='/software/drakx/commit/perl-install/fs/wild_device.pm?h=10.30&amp;id=f1323d79cc7dd3aa5f4ebde2e2744d7a7ad56180'>wild_device.pm</a></div><div class='content'><div class='cgit-panel'><b>diff options</b><form method='get'><input type='hidden' name='h' value='10.30'/><input type='hidden' name='id' value='f1323d79cc7dd3aa5f4ebde2e2744d7a7ad56180'/><table><tr><td colspan='2'/></tr><tr><td class='label'>context:</td><td class='ctrl'><select name='context' onchange='this.form.submit();'><option value='1'>1</option><option value='2'>2</option><option value='3' selected='selected'>3</option><option value='4'>4</option><option value='5'>5</option><option value='6'>6</option><option value='7'>7</option><option value='8'>8</option><option value='9'>9</option><option value='10'>10</option><option value='15'>15</option><option value='20'>20</option><option value='25'>25</option><option value='30'>30</option><option value='35'>35</option><option value='40'>40</option></select></td></tr><tr><td class='label'>space:</td><td class='ctrl'><select name='ignorews' onchange='this.form.submit();'><option value='0' selected='selected'>include</option><option value='1'>ignore</option></select></td></tr><tr><td class='label'>mode:</td><td class='ctrl'><select name='dt' onchange='this.form.submit();'><option value='0' selected='selected'>unified</option><option value='1'>ssdiff</option><option value='2'>stat only</option></select></td></tr><tr><td/><td class='ctrl'><noscript><input type='submit' value='reload'/></noscript></td></tr></table></form></div><table summary='commit info' class='commit-info'>
<tr><th>author</th><td>Pascal Rigaux &lt;pixel@mandriva.com&gt;</td><td class='right'>2005-06-28 09:12:16 +0000</td></tr>
<tr><th>committer</th><td>Pascal Rigaux &lt;pixel@mandriva.com&gt;</td><td class='right'>2005-06-28 09:12:16 +0000</td></tr>
<tr><th>commit</th><td colspan='2' class='sha1'><a href='/software/drakx/commit/perl-install/fs/wild_device.pm?h=10.30&amp;id=f1323d79cc7dd3aa5f4ebde2e2744d7a7ad56180'>f1323d79cc7dd3aa5f4ebde2e2744d7a7ad56180</a> (<a href='/software/drakx/patch/perl-install/fs/wild_device.pm?id=f1323d79cc7dd3aa5f4ebde2e2744d7a7ad56180'>patch</a>)</td></tr>
<tr><th>tree</th><td colspan='2' class='sha1'><a href='/software/drakx/tree/?h=10.30&amp;id=f1323d79cc7dd3aa5f4ebde2e2744d7a7ad56180'>c6a37cc1eadd4c1af23c7cda7924d1b42f500344</a> /<a href='/software/drakx/tree/perl-install/fs/wild_device.pm?h=10.30&amp;id=f1323d79cc7dd3aa5f4ebde2e2744d7a7ad56180'>perl-install/fs/wild_device.pm</a></td></tr>
<tr><th>parent</th><td colspan='2' class='sha1'><a href='/software/drakx/commit/perl-install/fs/wild_device.pm?h=10.30&amp;id=48dc83bc2acf770ec4be3e4be5f74a9d49120f65'>48dc83bc2acf770ec4be3e4be5f74a9d49120f65</a> (<a href='/software/drakx/diff/perl-install/fs/wild_device.pm?h=10.30&amp;id=f1323d79cc7dd3aa5f4ebde2e2744d7a7ad56180&amp;id2=48dc83bc2acf770ec4be3e4be5f74a9d49120f65'>diff</a>)</td></tr><tr><th>download</th><td colspan='2' class='sha1'><a href='/software/drakx/snapshot/drakx-f1323d79cc7dd3aa5f4ebde2e2744d7a7ad56180.tar'>drakx-f1323d79cc7dd3aa5f4ebde2e2744d7a7ad56180.tar</a><br/><a href='/software/drakx/snapshot/drakx-f1323d79cc7dd3aa5f4ebde2e2744d7a7ad56180.tar.gz'>drakx-f1323d79cc7dd3aa5f4ebde2e2744d7a7ad56180.tar.gz</a><br/><a href='/software/drakx/snapshot/drakx-f1323d79cc7dd3aa5f4ebde2e2744d7a7ad56180.tar.bz2'>drakx-f1323d79cc7dd3aa5f4ebde2e2744d7a7ad56180.tar.bz2</a><br/><a href='/software/drakx/snapshot/drakx-f1323d79cc7dd3aa5f4ebde2e2744d7a7ad56180.tar.xz'>drakx-f1323d79cc7dd3aa5f4ebde2e2744d7a7ad56180.tar.xz</a><br/><a href='/software/drakx/snapshot/drakx-f1323d79cc7dd3aa5f4ebde2e2744d7a7ad56180.zip'>drakx-f1323d79cc7dd3aa5f4ebde2e2744d7a7ad56180.zip</a><br/></td></tr></table>
<div class='commit-subject'>try to cleanup fs.pm</div><div class='commit-msg'>(to have simpler dependencies between modules, esp. have some modules only required by diskdrake):

- move some functions from fs to fs::mount
  (most keep their name, except mount_part and mount_usbfs)
- move formatMount_part and formatMount_all from fs to fs::format

- move some functions from fs to fs::wild_device
  (part2wild_device_name -&gt; fs::wild_device::from_part)
  (subpart_from_wild_device_name -&gt; fs::wild_device::to_subpart)
  (analyze_wild_device_name -&gt; fs::wild_device::analyse)

- formatMount_part(), formatMount_all(), fs::mount::part() don't take a prefix anymore
  the current situation was quite muddy
  we now rely on fs::get::mntpoint_prefixed() which will maybe depend on a field in $part
  for now, we mount every part in chroot, it seems to be what's wanted

- fs::format::part() now expect $all_hds instead of $raids

- fs::type::carryRootLoopback is now fs::get::carry_root_loopback()
- in fs::loopback, most functions don't want a prefix anymore

</div><div class='diffstat-header'><a href='/software/drakx/diff/?h=10.30&amp;id=f1323d79cc7dd3aa5f4ebde2e2744d7a7ad56180'>Diffstat</a> (limited to 'perl-install/fs/wild_device.pm')</div><table summary='diffstat' class='diffstat'>