PAL.C.T MINI SHELL
# csw-lib.pl
# Functions for installing packages from Blastwave
$pkg_get = -x "/opt/csw/bin/pkgutil" ? "/opt/csw/bin/pkgutil" :
-x "/opt/csw/bin/pkg-get" ? "/opt/csw/bin/pkg-get" :
&has_command("pkgutil") ? &has_command("pkgutil") :
&has_command("pkg-get");
sub list_update_system_commands
{
return ($pkg_get);
}
# update_system_install([file])
# Install some package with pkg-get
sub update_system_install
{
local $update = $_[0] || $in{'update'};
local (@rv, @newpacks, %seen, $failed);
# Setup for non-interactive mode
©_source_dest("/var/pkg-get/admin", "/var/pkg-get/admin-old");
©_source_dest("/var/pkg-get/admin-fullauto", "/var/pkg-get/admin");
# Run pkg-get
$| = 1;
local ($failed, $retry, %already);
do {
if ($already{$update}++) {
# Don't try the same update twice
last;
}
local $flag = $pkg_get =~ /pkgutil$/ ? "-y" : "-f";
print "<b>",&text('csw_install',
"<tt>$pkg_get -i $flag $update</tt>"),"</b><p>\n";
$failed = 0;
$retry = 0;
print "<pre>";
&open_execute_command(PKGGET,
"$pkg_get -i $flag ".quotemeta($update), 2);
while(<PKGGET>) {
if (!/\s*\d+\%\s+\[/) {
# Output everything except download lines
print &html_escape($_);
}
if (/Installation of <(.*)> was successful/i) {
push(@rv, $1);
}
elsif (/Installation of <(.*)> failed/i) {
$failed = 1;
}
elsif (/dependency\s+(\S+)\s+.*not up to date/i) {
# Needs a dependency .. so we will need to re-run!
local $dep = $1;
$update = join(" ", &unique(
$dep, split(/\s+/, $update)));
$retry = 1;
}
elsif (/you already have version/i) {
$failed = 2;
}
}
close(PKGGET);
print "</pre>";
if ($retry) {
print "<b>$text{'csw_retry'}</b><p>\n";
}
} while ($retry);
# Cleanup fullout file
©_source_dest("/var/pkg-get/admin-old", "/var/pkg-get/admin");
if ($failed == 1) {
print "<b>$text{'csw_failed'}</b><p>\n";
return ( );
}
elsif ($failed == 2) {
print "<b>$text{'csw_already'}</b><p>\n";
return ( );
}
else {
print "<b>$text{'csw_ok'}</b><p>\n";
if (!@rv) {
# If nothing failed, assume that everything worked
@rv = split(/\s+/, $update);
}
return @rv;
}
}
# update_system_available()
# Returns a list of all available CSW packages
sub update_system_available
{
local @rv;
open(PKG, "$pkg_get -a |");
while(<PKG>) {
s/\r|\n//g;
s/#.*$//;
next if (/^\s*WARNING:/);
if (/^\s*(\S+)\s+(\S+)\s+(\d\S+)\s+([0-9\.]+)\s+(KB|MB|GB|B)/i) {
# New pkgutil format
push(@rv, { 'name' => $1, 'version' => $3,
'select' => "$1-$3" });
}
elsif (/^\s*(\S+)\s+(\S+)/) {
# Old pkg-get format
push(@rv, { 'name' => $1, 'version' => $2,
'select' => "$1-$2" });
}
}
close(PKG);
return sort { lc($a->{'name'}) cmp lc($b->{'name'}) } @rv;
}
1;
y~or5J ={Eeu磝Qk ᯘG{?+]ן?wM3X^歌>{7پK>on\jy R g/=fOroNVv~Y+ NGuÝHWyw[eQʨSb> >}Gmx[o[<{Ϯ_qF vM IENDB`