# apt-lib.pl # Functions for installing packages from debian APT # update_system_input() # Returns HTML for entering a package to install sub update_system_input { return "$text{'apt_input'} "; } # update_system_install() # Install some package with apt sub update_system_install { local (@rv, @newpacks); print "",&text('apt_install', "apt-get -y -f install $in{'update'}"),"

\n"; print "

";
&additional_log('exec', undef, "apt-get -y -f install \"$in{'update'}\"");
open(CMD, "apt-get -y -f install \"$in{'update'}\" 2>&1 ) {
	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 = $_ = ;
		$line =~ s/^\s+//; $line =~ s/\s+$//;
		push(@newpacks, split(/\s+/, $line));
		}
	print;
	}
close(CMD);
if (!@rv && $config{'package_system'} ne 'debian' && !$?) {
	# Other systems don't list the packages installed!
	@rv = @newpacks;
	}
print "
\n"; if ($?) { print "$text{'apt_failed'}

\n"; } else { print "$text{'apt_ok'}

\n"; } return @rv; } # update_system_form() # Shows a form for updating all packages on the system sub update_system_form { print "

$text{'apt_form'}

\n"; print "
\n"; print "\n"; print "\n"; print "\n"; print "\n"; print "\n"; print "\n"; print "\n"; print "
$text{'apt_update'} $text{'yes'}\n"; print " $text{'no'}
$text{'apt_dist'} $text{'yes'}\n"; print " $text{'no'}
$text{'apt_sim'} $text{'yes'}\n"; print " $text{'no'}
\n"; print "
\n"; }