# 3. Send the installed version to the Repository for checking.
# I used to only upgrade from the place it came from. Now it will come
# from the current repository.
my $res = $pkg->uptodate($target);
unless ($res->ok) {
return Error("bundled package - no upgrade available")
if $bundled;
return $res;
}
my ($uptodate, $newversion) = $res->result_l;
# 4. Return uptodate(t/f), newversion, oldversion, bundled(t/f):
return List($uptodate, $bundled, $precious, $newversion, $ver_p);
}
# Find the first repository containing the package, and report whether the
# package is up-to-date w.r.t that repository.
sub uptodate {
my $o = shift;
my $target = PPM::UI::get_targ(shift)->result;
my $desc = $o->describe($target);
if ($o->{current_rep} and $desc and $desc->ok) {
my $u2d = $o->{current_rep}->uptodate(
$target,
$o->{id},
$desc->result->version_osd,
);
return $u2d;
}
Error("package $o->{rawname} not found in repositories");
}
####
ppm> describe cgi-enurl
====================
Name: CGI-Enurl
Version: 1.07
Author: Unknown ( )
Title: CGI-Enurl
Abstract: Encode strings, arrays and hashes so that they may be appended to URLs as queries
Location: ActiveState Package Repository
Available Platforms:
1. i686-linux-thread-multi-5.8
====================
ppm>
####
ppm> prop cgi-enurl
====================
Name: CGI-Enurl
Version: 1.07
Author: Jan Krynicky (=Jan Krynicky) (Jenda@Krynicky.cz)
Title: CGI-Enurl
Abstract: Encode strings, arrays and hashes so that they may be appended to URLs as queries
InstDate: 08:17:45 2005
Location: http://ppm.ActiveState.com/cgibin/PPM/ppmserver-5.8-windows.pl?urn:/PPMServer
Available Platforms:
1. MSWin32-x86-multi-thread-5.8
====================
ppm>
####
ppm> describe -dump cgi-enurl
====================
Encode strings, arrays and hashes so that they may be appended to URLs as queries
Jan Krynicky (=Jan Krynicky) (Jenda@Krynicky.cz)
CGI-Enurl
====================
ppm>