aboutsummaryrefslogtreecommitdiffstats
path: root/phpBB/phpbb/db/migration/data/v310/alpha3.php
blob: bb0f904fd4e453dd57bbea0c7a5d0dfedae0f3af (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
<?php
/**
*
* This file is part of the phpBB Forum Software package.
*
* @copyright (c) phpBB Limited <https://www.phpbb.com>
* @license GNU General Public License, version 2 (GPL-2.0)
*
* For full copyright and license information, please see
* the docs/CREDITS.txt file.
*
*/

namespace phpbb\db\migration\data\v310;

class alpha3 extends \phpbb\db\migration\migration
{
	public function effectively_installed()
	{
		return phpbb_version_compare($this->config['version'], '3.1.0-a3', '>=');
	}

	static public function depends_on()
	{
		return array(
			'\phpbb\db\migration\data\v310\alpha2',
			'\phpbb\db\migration\data\v310\avatar_types',
			'\phpbb\db\migration\data\v310\passwords',
			'\phpbb\db\migration\data\v310\profilefield_types',
		);
	}

	public function update_data()
	{
		return array(
			array('config.update', array('version', '3.1.0-a3')),
		);
	}
}
8da31157f0e234ece0a1f3f41'>646cb1d7c756ac18da31157f0e234ece0a1f3f41 (diff)downloaddrakx-3fe3248881feee76de20a2e8ecd4d6e0aa8efd5b.tar
drakx-3fe3248881feee76de20a2e8ecd4d6e0aa8efd5b.tar.gz
drakx-3fe3248881feee76de20a2e8ecd4d6e0aa8efd5b.tar.bz2
drakx-3fe3248881feee76de20a2e8ecd4d6e0aa8efd5b.tar.xz
drakx-3fe3248881feee76de20a2e8ecd4d6e0aa8efd5b.zip
add helpers to remove unused localization and hardware packages
(remove-unselected-locales, remove-unused-hardware-packages)
Diffstat (limited to 'perl-install/standalone')
-rw-r--r--perl-install/standalone/remove-unselected-locales40
-rw-r--r--perl-install/standalone/remove-unused-hardware-packages34
2 files changed, 74 insertions, 0 deletions
diff --git a/perl-install/standalone/remove-unselected-locales b/perl-install/standalone/remove-unselected-locales
new file mode 100644
index 000000000..f25628fd5
--- /dev/null
+++ b/perl-install/standalone/remove-unselected-locales
@@ -0,0 +1,40 @@
+#!/usr/bin/perl
+
+use lib qw(/usr/lib/libDrakX);
+use common;
+use lang;
+use interactive;
+use do_pkgs;
+use run_program;
+use standalone;
+
+my $locales_prefix = 'locales-';
+
+my $in = interactive->vnew;
+
+my $wait = $in->wait_message(N("Localization packages removal"),
+ N("Finding unused localization packages..."));
+
+my $do_pkgs = do_pkgs->do_pkgs($in);
+my $locale = lang::read();
+my $selected_locale = $locales_prefix. $locale->{lang};
+my @available_locales = $do_pkgs->are_installed($locales_prefix . '*');
+
+my @unselected_locales;
+@unselected_locales = difference2(\@available_locales, [ $selected_locale ])
+ if member($selected_locale, @available_locales);
+
+undef $wait;
+
+#- we should have some gurpme
+if (@unselected_locales &&
+ $in->ask_yesorno(
+ N("Localization packages removal"),
+ N("The following localization packages do not seem to be useful for your system:") . "\n" .
+ join("\n", map { " " . $_ } sort(@unselected_locales)) . "\n" .
+ N("Do you want to remove these packages?"))) {
+ my $_wait = $in->wait_message(N("Please wait"), N("Removing packages..."));
+ run_program::run('urpme', '--auto', @unselected_locales);
+}
+
+# use script from One to list language files (/usr/share/locale mainly) and remove them?
diff --git a/perl-install/standalone/remove-unused-hardware-packages b/perl-install/standalone/remove-unused-hardware-packages
new file mode 100644
index 000000000..c1fdf0747
--- /dev/null
+++ b/perl-install/standalone/remove-unused-hardware-packages
@@ -0,0 +1,34 @@
+#!/usr/bin/perl
+
+use lib qw(/usr/lib/libDrakX);
+use common;
+use pkgs;
+use interactive;
+use do_pkgs;
+use run_program;
+use standalone;
+
+my $in = interactive->vnew;
+
+my $wait = $in->wait_message(N("Hardware packages removal"),
+ N("Finding unused hardware packages..."));
+
+my $do_pkgs = do_pkgs->do_pkgs($in);
+
+my @all_hardware_packages = (pkgs::detect_hardware_packages($do_pkgs, 'match_all_hardware'));
+my @used_hardware_packages = (pkgs::detect_hardware_packages($do_pkgs));
+my @unneeded_hardware_packages = difference2(\@all_hardware_packages, \@used_hardware_packages);
+my @unused_hardware_packages = $do_pkgs->are_installed(@unneeded_hardware_packages);
+
+undef $wait;
+
+#- we should have some gurpme
+if (@unused_hardware_packages &&
+ $in->ask_yesorno(
+ N("Hardware packages removal"),
+ N("The following hardware packages do not seem to be useful for your system:") . "\n" .
+ join("\n", map { " " . $_ } sort(@unused_hardware_packages)) . "\n" .
+ N("Do you want to remove these packages?"))) {
+ my $_wait = $in->wait_message(N("Please wait"), N("Removing packages..."));
+ run_program::run('urpme', '--auto', @unused_hardware_packages);
+}