aboutsummaryrefslogtreecommitdiffstats
path: root/phpBB/phpbb/install/module/requirements/task
diff options
context:
space:
mode:
authorMarc Alexander <admin@m-a-styles.de>2016-03-07 21:59:40 +0100
committerMarc Alexander <admin@m-a-styles.de>2016-03-07 22:18:26 +0100
commitd461ee4f5ca84471070f2b2a45762a179e26007e (patch)
treee56e8b53d683e2fcb70da0fe95ae774c4f0b13e8 /phpBB/phpbb/install/module/requirements/task
parentf55a61d067fbc6c36348c3203e965d54b02198fd (diff)
downloadforums-d461ee4f5ca84471070f2b2a45762a179e26007e.tar
forums-d461ee4f5ca84471070f2b2a45762a179e26007e.tar.gz
forums-d461ee4f5ca84471070f2b2a45762a179e26007e.tar.bz2
forums-d461ee4f5ca84471070f2b2a45762a179e26007e.tar.xz
forums-d461ee4f5ca84471070f2b2a45762a179e26007e.zip
[ticket/13264] Do not force approved state if post visibility is known
Post visibility is used if it is set to a valid value. PHPBB3-13264
Diffstat (limited to 'phpBB/phpbb/install/module/requirements/task')
0 files changed, 0 insertions, 0 deletions
='n30' href='#n30'>30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57
#!/usr/bin/perl

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

use standalone;     #- warning, standalone must be loaded very first, for 'explanations'

use interactive;
use keyboard;
use Xconfig::xfree;
use common;
use any;
use c;

require_root_capability();
my $in;
my $keyboard = keyboard::read() || keyboard::default();
if (my ($kb) = grep { !/^-/ } @ARGV) {
    keyboard::KEYBOARD2text($kb) or die "bad keyboard $kb\n";
    $keyboard->{KEYBOARD} = $kb;
} else {
    $ugtk2::wm_icon = "/usr/share/mcc/themes/default/keyboard-mdk.png";
    $in = 'interactive'->vnew('su');

    my ($xkb_models, $model2text) = keyboard::xkb_models();
    s/ /|/ foreach values %$model2text;
    $keyboard->{XkbModel} ||= 'pc105';

  choose:
    $in->ask_from(N("Keyboard"),
		  N("Please, choose your keyboard layout."),
		  [ { val => \$keyboard->{KEYBOARD},
		      format => sub { translate(keyboard::KEYBOARD2text($_[0])) },
		      list => [ keyboard::KEYBOARDs() ],
		      type => 'list',
		    },
		    { val => \$keyboard->{XkbModel},
		      format => sub { $model2text->{$_[0]} },
		      separator => '|',
		      list => $xkb_models },
		]) or goto end;

    keyboard::group_toggle_choose($in, $keyboard) or goto choose;

    if ($::expert) {
	my $isNotDelete = !$in->ask_yesorno("BackSpace", N("Do you want the BackSpace to return Delete in console?"), 1);
	$keyboard->{BACKSPACE} = $isNotDelete ? "BackSpace" : "Delete";
    }
}

keyboard::setxkbmap($keyboard);
keyboard::configure_xorg($keyboard);

keyboard::write($keyboard);
system('/etc/init.d/keytable', 'restart');

end:
    $in->exit(0) if $in;