drakx - Mageia Installer and base platform for many utilities

Mageia Installer and base platform for many utilities

Thierry Vignaud [tv]

Mode	Name	Size
-rw-r--r--	.cvsignore	47	log stats plain
-rw-r--r--	Makefile	3365	log stats plain
-rw-r--r--	Makefile.common	1613	log stats plain
-rw-r--r--	Makefile.config	542	log stats plain
-rw-r--r--	advanced.msg.xml	1046	log stats plain
d---------	docs	1052	log stats plain
d---------	globetrotter	378	log stats plain
-rw-r--r--	help.msg.xml	1075	log stats plain
-rw-r--r--	isolinux-graphic-simple.bmp	480566	log stats plain
-rw-r--r--	isolinux-graphic-simple.bmp.parameters	141	log stats plain
-rw-r--r--	isolinux-graphic.bmp	481078	log stats plain
-rw-r--r--	isolinux-graphic.bmp.parameters	141	log stats plain
d---------	kernel	237	log stats plain
-rwxr-xr-x	make_boot_img	24078	log stats plain
d---------	mdk-stage1	2518	log stats plain
d---------	move	667	log stats plain
d---------	perl-install	3054	log stats plain
d---------	rescue	746	log stats plain
d---------	tools	1331	log stats plain

s="hl str">"Telnet server"), pkg => 'telnet-server-krb5', ports => '23/tcp', hide => 1, }, { name => N_("Windows Files Sharing (SMB)"), pkg => 'samba-server', ports => '137/tcp 137/udp 138/tcp 138/udp 139/tcp 139/udp 445/tcp 445/udp 1024:1100/tcp 1024:1100/udp', hide => 1, }, { name => N_("CUPS server"), pkg => 'cups', ports => '631/tcp 631/udp', hide => 1, }, { name => N_("Echo request (ping)"), ports => '8/icmp', force_default_selection => 0, }, { name => N_("BitTorrent"), ports => '6881:6999/tcp', hide => 1, pkg => 'bittorrent bittorrent-shadowsclient', }, ); sub port2server { my ($port) = @_; find { any { $port eq $_ } split(' ', $_->{ports}); } @all_servers; } sub check_ports_syntax { my ($ports) = @_; foreach (split ' ', $ports) { my ($nb, $range, $nb2) = m!^(\d+)(:(\d+))?/(tcp|udp|icmp)$! or return $_; foreach my $port ($nb, if_($range, $nb2)) { 1 <= $port && $port <= 65535 or return $_; } $nb < $nb2 or return $_ if $range; } ''; } sub to_ports { my ($servers, $unlisted) = @_; join(' ', (map { $_->{ports} } @$servers), if_($unlisted, $unlisted)); } sub from_ports { my ($ports) = @_; my @l; my @unlisted; foreach (split ' ', $ports) { if (my $s = port2server($_)) { push @l, $s; } else { push @unlisted, $_; } } [ uniq(@l) ], join(' ', @unlisted); } sub default_from_pkgs { my ($do_pkgs) = @_; my @pkgs = $do_pkgs->are_installed(map { split ' ', $_->{pkg} } @all_servers); [ grep { my $s = $_; exists $s->{force_default_selection} ? $s->{force_default_selection} : any { member($_, @pkgs) } split(' ', $s->{pkg}); } @all_servers ]; } sub default_ports { my ($do_pkgs) = @_; to_ports(default_from_pkgs($do_pkgs), ''); } sub get_ports() { my $shorewall = network::shorewall::read() or return; $shorewall->{ports}; } sub set_ports { my ($do_pkgs, $disabled, $ports, $o_in) = @_; my $shorewall = network::shorewall::read($o_in) or return; if (!$disabled || -x "$::prefix/sbin/shorewall") { $do_pkgs->ensure_binary_is_installed('shorewall', 'shorewall', $::isInstall) or return;