Gecko [ 122.154.134.11 ]

Name	Size	Permission
help	[ DIR ]	drwxr-xr-x
images	[ DIR ]	drwxr-xr-x
lang	[ DIR ]	drwxr-xr-x
CHANGELOG	2.82 KB	-rw-r--r--
aix-lib.pl	19.2 KB	-rwxr-xr-x
apt-lib.pl	13.32 KB	-rwxr-xr-x
apt_upgrade.cgi	1.97 KB	-rwxr-xr-x
cgi_args.pl	524 B	-rwxr-xr-x
close.cgi	263 B	-rwxr-xr-x
config-aix	30 B	-rw-r--r--
config-cobalt-linux	30 B	-rw-r--r--
config-coherent-linux	30 B	-rw-r--r--
config-corel-linux	33 B	-rw-r--r--
config-cygwin	33 B	-rw-r--r--
config-debian-linux	51 B	-rw-r--r--
config-freebsd	54 B	-rw-r--r--
config-freebsd-8.4-ALL	52 B	-rw-r--r--
config-gentoo-linux	33 B	-rw-r--r--
config-hpux	31 B	-rw-r--r--
config-mandrake-linux	30 B	-rw-r--r--
config-msc-linux	30 B	-rw-r--r--
config-netbsd	34 B	-rw-r--r--
config-open-linux	30 B	-rw-r--r--
config-openbsd	34 B	-rw-r--r--
config-openmamba-linux	48 B	-rw-r--r--
config-openserver	33 B	-rw-r--r--
config-redhat-linux	48 B	-rw-r--r--
config-slackware-linux	36 B	-rw-r--r--
config-solaris	33 B	-rw-r--r--
config-suse-linux	30 B	-rw-r--r--
config-syno-linux	50 B	-rw-r--r--
config-trustix-linux	30 B	-rw-r--r--
config-turbo-linux	30 B	-rw-r--r--
config-united-linux	30 B	-rw-r--r--
config-unixware	33 B	-rw-r--r--
config-windows	30 B	-rw-r--r--
config.info	511 B	-rw-r--r--
config.info.ca	549 B	-rw-r--r--
config.info.ca.UTF-8	554 B	-rw-r--r--
config.info.cz	359 B	-rw-r--r--
config.info.cz.UTF-8	372 B	-rw-r--r--
config.info.de	523 B	-rw-r--r--
config.info.de.UTF-8	523 B	-rw-r--r--
config.info.es	372 B	-rw-r--r--
config.info.es.UTF-8	372 B	-rw-r--r--
config.info.fr	133 B	-rw-r--r--
config.info.fr.UTF-8	135 B	-rw-r--r--
config.info.ja_JP.UTF-8	428 B	-rw-r--r--
config.info.ja_JP.euc	384 B	-rw-r--r--
config.info.ko_KR.UTF-8	409 B	-rw-r--r--
config.info.ko_KR.euc	373 B	-rw-r--r--
config.info.ms	188 B	-rw-r--r--
config.info.ms.UTF-8	188 B	-rw-r--r--
config.info.ms_MY	411 B	-rw-r--r--
config.info.ms_MY.UTF-8	411 B	-rw-r--r--
config.info.nl	415 B	-rw-r--r--
config.info.nl.UTF-8	415 B	-rw-r--r--
config.info.no	424 B	-rw-r--r--
config.info.no.UTF-8	424 B	-rw-r--r--
config.info.pl	391 B	-rw-r--r--
config.info.pl.UTF-8	392 B	-rw-r--r--
config.info.ru.UTF-8	222 B	-rw-r--r--
config.info.ru_RU	179 B	-rw-r--r--
config.info.ru_RU.UTF-8	222 B	-rw-r--r--
config.info.ru_SU	179 B	-rw-r--r--
config.info.sv	224 B	-rw-r--r--
config.info.sv.UTF-8	224 B	-rw-r--r--
config.info.tr	122 B	-rw-r--r--
config.info.uk_UA	181 B	-rw-r--r--
config.info.uk_UA.UTF-8	218 B	-rw-r--r--
config.info.zh_CN	115 B	-rw-r--r--
config.info.zh_CN.UTF-8	122 B	-rw-r--r--
config.info.zh_TW.Big5	117 B	-rw-r--r--
config.info.zh_TW.UTF-8	125 B	-rw-r--r--
csw-lib.pl	2.68 KB	-rwxr-xr-x
cygwin-lib.pl	22.33 KB	-rwxr-xr-x
debian-lib.pl	6.54 KB	-rwxr-xr-x
delete_file.cgi	239 B	-rwxr-xr-x
delete_pack.cgi	1.46 KB	-rwxr-xr-x
delete_packs.cgi	1.85 KB	-rwxr-xr-x
do_install.cgi	2.56 KB	-rwxr-xr-x
edit_pack.cgi	1.13 KB	-rwxr-xr-x
emerge-lib.pl	7.65 KB	-rwxr-xr-x
file_info.cgi	2.09 KB	-rwxr-xr-x
find.cgi	1.63 KB	-rwxr-xr-x
freebsd-lib.pl	7.95 KB	-rwxr-xr-x
hpux-lib.pl	8.01 KB	-rwxr-xr-x
index.cgi	3 KB	-rwxr-xr-x
install_pack.cgi	4.7 KB	-rwxr-xr-x
ipkg-close.cgi	269 B	-rwxr-xr-x
ipkg-edit_pack.cgi	1.45 KB	-rwxr-xr-x
ipkg-lib.pl	7.78 KB	-rwxr-xr-x
ipkg-open.cgi	243 B	-rwxr-xr-x
ipkg-tree.cgi	4 KB	-rwxr-xr-x
ipkg_upgrade.cgi	926 B	-rwxr-xr-x
list_pack.cgi	1.85 KB	-rwxr-xr-x
log_parser.pl	1.34 KB	-rwxr-xr-x
module.info	484 B	-rw-r--r--
module.info.ca	115 B	-rw-r--r--
module.info.ca.UTF-8	128 B	-rw-r--r--
module.info.cz	27 B	-rw-r--r--
module.info.cz.UTF-8	36 B	-rw-r--r--
module.info.de	106 B	-rw-r--r--
module.info.de.UTF-8	118 B	-rw-r--r--
module.info.es	29 B	-rw-r--r--
module.info.es.UTF-8	35 B	-rw-r--r--
module.info.fr	29 B	-rw-r--r--
module.info.fr.UTF-8	35 B	-rw-r--r--
module.info.hu	36 B	-rw-r--r--
module.info.hu.UTF-8	44 B	-rw-r--r--
module.info.ja_JP.UTF-8	52 B	-rw-r--r--
module.info.ja_JP.euc	39 B	-rw-r--r--
module.info.ko_KR.UTF-8	43 B	-rw-r--r--
module.info.ko_KR.euc	33 B	-rw-r--r--
module.info.ms	23 B	-rw-r--r--
module.info.ms.UTF-8	29 B	-rw-r--r--
module.info.ms_MY	110 B	-rw-r--r--
module.info.ms_MY.UTF-8	122 B	-rw-r--r--
module.info.nl	27 B	-rw-r--r--
module.info.nl.UTF-8	33 B	-rw-r--r--
module.info.no	26 B	-rw-r--r--
module.info.no.UTF-8	32 B	-rw-r--r--
module.info.pl	120 B	-rw-r--r--
module.info.pl.UTF-8	133 B	-rw-r--r--
module.info.pt	28 B	-rw-r--r--
module.info.pt.UTF-8	34 B	-rw-r--r--
module.info.ru.UTF-8	36 B	-rw-r--r--
module.info.ru_RU	23 B	-rw-r--r--
module.info.ru_RU.UTF-8	39 B	-rw-r--r--
module.info.ru_SU	23 B	-rw-r--r--
module.info.sv	21 B	-rw-r--r--
module.info.sv.UTF-8	27 B	-rw-r--r--
module.info.tr	26 B	-rw-r--r--
module.info.zh_CN	18 B	-rw-r--r--
module.info.zh_TW.Big5	25 B	-rw-r--r--
msi-lib.pl	8.44 KB	-rwxr-xr-x
open.cgi	238 B	-rwxr-xr-x
openbsd-lib.pl	4.72 KB	-rwxr-xr-x
pkg-lib.pl	2.5 KB	-rw-r--r--
pkgadd-lib.pl	9.97 KB	-rwxr-xr-x
pkgadd-no-ask	164 B	-rw-r--r--
pkgsrc-lib.pl	7.22 KB	-rw-r--r--
ports-lib.pl	3.49 KB	-rw-r--r--
ports_upgrade.cgi	501 B	-rwxr-xr-x
rhn-lib.pl	3.02 KB	-rwxr-xr-x
rhn.cgi	1.3 KB	-rwxr-xr-x
rhn_check.cgi	1.84 KB	-rwxr-xr-x
rpm-lib.pl	11.18 KB	-rwxr-xr-x
rpmfind.cgi	2.11 KB	-rwxr-xr-x
search.cgi	2.27 KB	-rwxr-xr-x
slackware-lib.pl	6.95 KB	-rwxr-xr-x
software-lib.pl	7.56 KB	-rwxr-xr-x
tree.cgi	3.79 KB	-rwxr-xr-x
urpmi-lib.pl	2.14 KB	-rwxr-xr-x
urpmi_upgrade.cgi	839 B	-rwxr-xr-x
view.cgi	899 B	-rwxr-xr-x
yum-lib.pl	12.8 KB	-rwxr-xr-x
yum_upgrade.cgi	908 B	-rwxr-xr-x

Code Editor : apt-lib.pl

# apt-lib.pl
# Functions for installing packages from debian APT

$apt_get_command = $config{'apt_mode'} ? "aptitude" : "apt-get";
$apt_search_command = $config{'apt_mode'} ? "aptitude" : "apt-cache";
$sources_list_file = "/etc/apt/sources.list";
$sources_list_dir = "/etc/apt/sources.list.d";

sub list_update_system_commands
{
return ($apt_get_command, $apt_search_command);
}

# update_system_install([package], [&in], [no-force])
# Install some package with apt
sub update_system_install
{
local $update = $_[0] || $in{'update'};
local $force = !$_[2];
local (@rv, @newpacks);

# Build the command to run
$ENV{'DEBIAN_FRONTEND'} = 'noninteractive';
$update = join(" ", map { quotemeta($_) } split(/\s+/, $update));
$update =~ s/\\(-)|\\(.)/$1$2/g;
local $cmd = "$apt_get_command -y ".($force ? " -f" : "")." install $update";
print "",&text('apt_install', "<tt>$cmd</tt>"),"\n";
print "<pre>";
&additional_log('exec', undef, $cmd);

# Run dpkg --configure -a to clear any un-configured packages
$SIG{'TERM'} = 'ignore';	# This may cause a Webmin re-config!
local $out = &backquote_logged("dpkg --configure -a 2>&1 </dev/null");
print &html_escape($out);

# Create an input file of 'yes'
local $yesfile = &transname();
&open_tempfile(YESFILE, ">$yesfile", 0, 1);
foreach (0..100) {
	&print_tempfile(YESFILE, "Yes\n");
	}
&close_tempfile(YESFILE);

# Run the command
&clean_language();
&open_execute_command(CMD, "$cmd <$yesfile", 2);
while(<CMD>) {
	if (/setting\s+up\s+(\S+)/i && !/as\s+MDA/i) {
		push(@rv, $1);
		}
	elsif (/packages\s+will\s+be\s+upgraded/i ||
	 /new\s+packages\s+will\s+be\s+installed/i) {
		print;
		$line = $_ = <CMD>;
		$line =~ s/^\s+//; $line =~ s/\s+$//;
		push(@newpacks, split(/\s+/, $line));
		}
	print &html_escape("$_");
	}
close(CMD);
&reset_environment();
if (!@rv && $config{'package_system'} ne 'debian' && !$?) {
	# Other systems don't list the packages installed!
	@rv = @newpacks;
	}
print "</pre>\n";
if ($?) { print "$text{'apt_failed'}\n"; }
else { print "$text{'apt_ok'}\n"; }
return @rv;
}

# update_system_operations(packages)
# Given a list of packages, returns a list containing packages that will
# actually get installed, each of which is a hash ref with name and version.
sub update_system_operations
{
my ($packages) = @_;
$ENV{'DEBIAN_FRONTEND'} = 'noninteractive';
my $cmd = "apt-get -s install ".
	 join(" ", map { quotemeta($_) } split(/\s+/, $packages)).
	 " </dev/null 2>&1";
&clean_language();
my $out = &backquote_command($cmd);
&reset_environment();
my @rv;
foreach my $l (split(/\r?\n/, $out)) {
	if ($l =~ /Inst\s+(\S+)\s+\[(\S+)\]\s+$([^ $]+)/ ||
	 $l =~ /Inst\s+(\S+)\s+\[(\S+)\]/) {
		# Format like : Inst telnet [amd64] (5.6.7 Ubuntu)
		my $pkg = { 'name' => $1,
			 'version' => $3 || $2 };
		if ($pkg->{'version'} =~ s/^(\S+)://) {
			$pkg->{'epoch'} = $1;
			}
		push(@rv, $pkg);
		}
	elsif ($l =~ /Inst\s+(\S+)\s+$([^ $]+)/) {
		# Format like : Inst telnet (5.6.7 Ubuntu [amd64])
		my $pkg = { 'name' => $1,
			 'version' => $2 };
		if ($pkg->{'version'} =~ s/^(\S+)://) {
			$pkg->{'epoch'} = $1;
			}
		push(@rv, $pkg);
		}
	}
return @rv;
}

# update_system_form()
# Shows a form for updating all packages on the system
sub update_system_form
{
print &ui_subheading($text{'apt_form'});
print &ui_form_start("apt_upgrade.cgi");
print &ui_table_start($text{'apt_header'}, undef, 2);

print &ui_table_row($text{'apt_update'},
	&ui_yesno_radio("update", 1));

print &ui_table_row($text{'apt_mode'},
	&ui_radio("mode", 0, [ [ 2, $text{'apt_mode2'} ],
			       [ 1, $text{'apt_mode1'} ],
			       [ 0, $text{'apt_mode0'} ] ]));

print &ui_table_row($text{'apt_sim'},
	&ui_yesno_radio("sim", 0));

print &ui_table_end();
print &ui_form_end([ [ undef, $text{'apt_apply'} ] ]);
}

# update_system_resolve(name)
# Converts a standard package name like apache, sendmail or squid into
# the name used by APT.
sub update_system_resolve
{
local ($name) = @_;
return $name eq "dhcpd" && $gconfig{'os_version'} >= 7 ?
		"isc-dhcp-server" :
 $name eq "dhcpd" && $gconfig{'os_version'} < 7 ?
		"dhcp3-server" :
 $name eq "bind" ? "bind9" :
 $name eq "mysql" && $gconfig{'os_version'} >= 10 ?
		"mariadb-client mariadb-server" :
 $name eq "mysql" && $gconfig{'os_version'} >= 7 ?
		"mysql-client mysql-server" :
 $name eq "mysql" && $gconfig{'os_version'} < 7 ?
		"mysql-client mysql-server mysql-admin" :
 $name eq "apache" ? "apache2" :
 $name eq "squid" && $gconfig{'os_version'} >= 8 ?
		"squid3" :
 $name eq "postgresql" ? "postgresql postgresql-client" :
 $name eq "openssh" ? "ssh" :
 $name eq "openldap" ? "slapd" :
 $name eq "ldap" ? "libnss-ldap libpam-ldap" :
 $name eq "dovecot" ? "dovecot-common dovecot-imapd dovecot-pop3d" :
 $name eq "virtualmin-modules" ? "webmin-.*" :
			 $name;
}

# update_system_available()
# Returns a list of package names and versions that are available from APT
sub update_system_available
{
local (@rv, $pkg, %done);

# Use dump to get versions
&execute_command("$apt_get_command update");
&clean_language();
&open_execute_command(DUMP, "apt-cache dump 2>/dev/null", 1, 1);
while(<DUMP>) {
	if (/^\s*Package:\s*(\S+)/) {
		$pkg = { 'name' => $1 };
		push(@rv, $pkg);
		$done{$1} = $pkg;
		}
	elsif (/^\s*Version:\s*(\S+)/ && $pkg && !$pkg->{'version'}) {
		$pkg->{'version'} = $1;
		if ($pkg->{'version'} =~ /^(\d+):(.*)$/) {
			$pkg->{'epoch'} = $1;
			$pkg->{'version'} = $2;
			}
		}
	elsif (/^\s*File:\s*(\S+)/ && $pkg) {
		$pkg->{'file'} ||= $1;
		}
	}
close(DUMP);
&reset_environment();

# Use search to get descriptions
foreach my $s (&update_system_search('.*')) {
	my $pkg = $done{$s->{'name'}};
	if ($pkg) {
		$pkg->{'desc'} = $s->{'desc'};
		}
	}

&set_pinned_versions(\@rv);
return @rv;
}

# update_system_search(text)
# Returns a list of packages matching some search
sub update_system_search
{
local (@rv, $pkg);
&clean_language();
&open_execute_command(DUMP, "$apt_search_command search ".
			 quotemeta($_[0])." 2>/dev/null", 1, 1);
while(<DUMP>) {
	if (/^(\S+)\s*-\s*(.*)/) {
		push(@rv, { 'name' => $1, 'desc' => $2 });
		}
	elsif (/^(\S)\s+(\S+)\s+-\s*(.*)/) {
		push(@rv, { 'name' => $2, 'desc' => $3 });
		}
	}
close(DUMP);
&reset_environment();
return @rv;
}

# update_system_updates()
# Returns a list of available package updates
sub update_system_updates
{
&execute_command("$apt_get_command update");

# Find held packages by dpkg
local %holds;
if ($config{'package_system'} eq 'debian') {
	&clean_language();
	&open_execute_command(HOLDS, "dpkg --get-selections", 1, 1);
	while(<HOLDS>) {
		if (/^(\S+)\s+hold/) {
			$holds{$1}++;
			}
		}
	close(HOLDS);
	&reset_environment();
	}

if (&has_command("apt-show-versions")) {
	# This awesome command can give us all updates in one hit, and takes
	# pinned versions and backports into account
	local @rv;
	&clean_language();
	&execute_command("apt-show-versions -i");
	&open_execute_command(PKGS, "apt-show-versions 2>/dev/null", 1, 1);
	while(<PKGS>) {
		if (/^(\S+)\/(\S+)\s+upgradeable\s+from\s+(\S+)\s+to\s+(\S+)/ &&
		 !$holds{$1}) {
			# Old format
			local $pkg = { 'name' => $1,
				 'source' => $2,
				 'version' => $4 };
			if ($pkg->{'version'} =~ s/^(\S+)://) {
				$pkg->{'epoch'} = $1;
				}
			push(@rv, $pkg);
			}
		elsif (/^(\S+):(\S+)\/(\S+)\s+(\S+)\s+upgradeable\s+to\s+(\S+)/ && !$holds{$1}) {
			# New format, like 
			# libgomp1:i386/unstable 4.8.2-2 upgradeable to 4.8.2-4
			local $pkg = { 'name' => $1,
				 'arch' => $2,
				 'source' => $3,
				 'version' => $5 };
			if ($pkg->{'version'} =~ s/^(\S+)://) {
				$pkg->{'epoch'} = $1;
				}
			push(@rv, $pkg);
			}
		}
	close(PKGS);
	&reset_environment();
	@rv = &filter_held_packages(@rv);
	foreach my $pkg (@rv) {
		$pkg->{'security'} = 1 if ($pkg->{'source'} =~ /security/i);
		}
	return @rv;
	}
else {
	# Need to manually compose by calling dpkg and apt-cache showpkg
	local %packages;
	local $n = &list_packages();
	local %currentmap;
	for(my $i=0; $i<$n; $i++) {
		local $pkg = { 'name' => $packages{$i,'name'},
			 'oldversion' => $packages{$i,'version'},
			 'desc' => $packages{$i,'desc'},
			 'oldepoch' => $packages{$i,'epoch'} };
		$currentmap{$pkg->{'name'}} ||= $pkg;
		}
	local @rv;
	local @names = grep { !$holds{$_} } keys %currentmap;
	while(scalar(@names)) {
		local @somenames;
		if (scalar(@names) > 100) {
			# Do 100 at a time
			@somenames = @names[0..99];
			@names = @names[100..$#names];
			}
		else {
			# Do the rest
			@somenames = @names;
			@names = ( );
			}
		&clean_language();
		&open_execute_command(PKGS, "apt-cache showpkg ".
			join(" ", @somenames)." 2>/dev/null", 1, 1);
		local $pkg = undef;
		while(<PKGS>) {
			s/\r|\n//g;
			if (/^\s*Package:\s*(\S+)/) {
				$pkg = $currentmap{$1};
				}
			elsif (/^Versions:\s*$/ && $pkg && !$pkg->{'version'}) {
				# Newest version is on next line
				local $ver = <PKGS>;
				$ver =~ s/\s.*\r?\n//;
				local $epoch;
				if ($ver =~ s/^(\d+)://) {
					$epoch = $1;
					}
				$pkg->{'version'} = $ver;
				$pkg->{'epoch'} = $epoch;
				local $newer =
				 $pkg->{'epoch'} <=> $pkg->{'oldepoch'} ||
				 &compare_versions($pkg->{'version'},
						 $pkg->{'oldversion'});
				if ($newer > 0) {
					push(@rv, $pkg);
					}
				}
			}
		close(PKGS);
		&reset_environment();
		}
	@rv = &filter_held_packages(@rv);
	&set_pinned_versions(\@rv);
	return @rv;
	}
}

# set_pinned_versions(&package-list)
# Updates the version and epoch fields in a list of available packages based
# on pinning.
sub set_pinned_versions
{
local ($pkgs) = @_;
local %pkgmap = map { $_->{'name'}, $_ } @$pkgs;
&clean_language();
&open_execute_command(PKGS, "apt-cache policy 2>/dev/null", 1, 1);
while(<PKGS>) { 
	s/\r|\n//g;
	if (/\s+(\S+)\s+\-\>\s+(\S+)/) {
		my ($name, $pin) = ($1, $2);
		my $pkg = $pkgmap{$name};
		if ($pkg) {
			$pkg->{'version'} = $pin;
			$pkg->{'epoch'} = undef;
			if ($pkg->{'version'} =~ s/^(\S+)://) {
				$pkg->{'epoch'} = $1;
				}
			}
		}
	}
close(PKGS);
&reset_environment();
}

# filter_held_packages(package, ...)
# Returns a list of package updates, minus those that are held
sub filter_held_packages
{
my @pkgs = @_;
my %hold;

# Get holds from dpkg
&clean_language();
&open_execute_command(PKGS, "dpkg --get-selections 2>/dev/null", 1, 1);
while(<PKGS>) { 
	if (/^(\S+)\s+hold/) {
		$hold{$1} = 1;
		}
	}
close(PKGS);
&reset_environment();

# Get holds from aptitude
if (&has_command("aptitude")) {
	&clean_language();
	&open_execute_command(PKGS, "aptitude search '~ahold' 2>/dev/null", 1, 1);
	while(<PKGS>) { 
		if (/^\.h\s+(\S+)/) {
			$hold{$1} = 1;
			}
		}
	close(PKGS);
	&reset_environment();
	}

# Get holds from apt-mark
if (&has_command("apt-mark")) {
	&clean_language();
	&open_execute_command(PKGS, "apt-mark showhost 2>/dev/null", 1, 1);
	while(<PKGS>) { 
		if (/^([^:\s]+)/) {
			$hold{$1} = 1;
			}
		}
	close(PKGS);
	&reset_environment();
	}

return grep { !$hold{$_->{'name'}} } @pkgs;
}

# list_package_repos()
# Returns a list of configured repositories
sub list_package_repos
{
my @rv;

# Read all repos files
foreach my $f ($sources_list_file, glob("$sources_list_dir/*")) {
	my $lref = &read_file_lines($f, 1);
	my $lnum = 0;
	foreach my $l (@$lref) {
		if ($l =~ /^(#*)\s*deb\s+((http|https)\S+)\s+(\S.*)/) {
			my $repo = { 'file' => $f,
				     'line' => $lnum,
				     'words' => \@w,
				     'url' => $2,
				     'enabled' => !$1 };
			my @w = split(/\s+/, $4);
			$repo->{'name'} = join("/", @w);
			$repo->{'id'} = $repo->{'url'}.$repo->{'name'};
			push(@rv, $repo);
			}
		$lnum++;
		}
	}

return @rv;
}

# create_repo_form()
# Returns HTML for a package repository creation form
sub create_repo_form 
{
my $rv;
$rv .= &ui_table_row($text{'apt_repo_url'},
		     &ui_textbox("url", undef, 40));
$rv .= &ui_table_row($text{'apt_repo_path'},
		     &ui_textbox("path", undef, 40));
return $rv;
}

# create_repo_parse(&in)
# Parses input from create_repo_form, and returns either a new repo object or
# an error string
sub create_repo_parse
{
my ($in) = @_;
my $repo = { 'enabled' => 1 };

# Parse base URL
$in->{'url'} =~ /^(http|https|ftp|file):\S+$/ ||
	return $text{'apt_repo_eurl'};
$repo->{'url'} = $in->{'url'};

# Parse distro components
my @w = split(/\s+|\//, $in->{'path'});
@w || $text{'apt_repo_epath'};
$repo->{'name'} = join("/", @w);
$repo->{'id'} = $repo->{'url'}.$repo->{'name'};

return $repo;
}

# create_package_repo(&repo)
# Creates a new repository from the given hash (returned by create_repo_parse)
sub create_package_repo
{
my ($repo) = @_;
&lock_file($sources_list_file);
my $lref = &read_file_lines($sources_list_file);
push(@$lref, ($repo->{'enabled'} ? "" : "# ").
	     "deb ".
	     $repo->{'url'}." ".
	     join(" ", split(/\//, $repo->{'name'})));
&flush_file_lines($sources_list_file);
&unlock_file($sources_list_file);
return undef;
}

# delete_package_repo(&repo)
# Delete a repo from the sources.list file
sub delete_package_repo
{
my ($repo) = @_;
&lock_file($repo->{'file'});
my $lref = &read_file_lines($repo->{'file'});
splice(@$lref, $repo->{'line'}, 1);
&flush_file_lines($repo->{'file'});
&unlock_file($repo->{'file'});
}

# enable_package_repo(&repo, enable?)
# Enable or disable a repository
sub enable_package_repo
{
my ($repo, $enable) = @_;
&lock_file($repo->{'file'});
my $lref = &read_file_lines($repo->{'file'});
$lref->[$repo->{'line'}] =~ s/^#+\s*//;
if (!$enable) {
	$lref->[$repo->{'line'}] = "# ".$lref->[$repo->{'line'}];
	}
&flush_file_lines($repo->{'file'});
&unlock_file($repo->{'file'});
}

${this.title}

Code Editor : apt-lib.pl