# 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>