393 lines
10 KiB
Raku
Executable File
393 lines
10 KiB
Raku
Executable File
#! /usr/bin/perl
|
|
#
|
|
# Copyright 1998 Bruce A. Mah
|
|
#
|
|
# All rights reserved.
|
|
#
|
|
# Redistribution and use in source and binary forms, with or without
|
|
# modification, are permitted provided that the following conditions
|
|
# are met:
|
|
# 1. Redistributions of source code must retain the above copyright
|
|
# notice, this list of conditions and the following disclaimer.
|
|
# 2. Redistributions in binary form must reproduce the above copyright
|
|
# notice, this list of conditions and the following disclaimer in the
|
|
# documentation and/or other materials provided with the distribution.
|
|
#
|
|
# THIS SOFTWARE IS PROVIDED BY THE DEVELOPERS ``AS IS'' AND ANY EXPRESS OR
|
|
# IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE IMPLIED WARRANTIES
|
|
# OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE ARE DISCLAIMED.
|
|
# IN NO EVENT SHALL THE DEVELOPERS BE LIABLE FOR ANY DIRECT, INDIRECT,
|
|
# INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING, BUT
|
|
# NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; LOSS OF USE,
|
|
# DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON ANY
|
|
# THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT
|
|
# (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF
|
|
# THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.
|
|
#
|
|
# pkg_version.pl
|
|
#
|
|
# A package version-checking utility for FreeBSD.
|
|
#
|
|
# $FreeBSD$
|
|
#
|
|
|
|
use Getopt::Std;
|
|
|
|
#
|
|
# Configuration global variables
|
|
#
|
|
$Version = '0.1';
|
|
$CurrentPackagesCommand = '/usr/sbin/pkg_info -aI';
|
|
$CatProgram = "cat ";
|
|
$FetchProgram = "fetch -o - ";
|
|
|
|
#$indexFile = "ftp://ftp.freebsd.org/pub/FreeBSD/branches/-current/ports/INDEX";
|
|
$IndexFile = 'file:/usr/ports/INDEX';
|
|
$ShowCommandsFlag = 0;
|
|
$DebugFlag = 0;
|
|
$VerboseFlag = 0;
|
|
$CommentChar = "#";
|
|
$LimitFlag = "";
|
|
|
|
#
|
|
# CompareNumbers
|
|
#
|
|
# Try to figure out the relationship between two program version numbers.
|
|
# Detecting equality is easy, but determining order is a little difficult.
|
|
# This function returns -1, 0, or 1, in the same manner as <=> or cmp.
|
|
#
|
|
sub CompareNumbers {
|
|
local($v1, $v2);
|
|
$v1 = $_[0];
|
|
$v2 = $_[1];
|
|
|
|
# Short-cut in case of equality
|
|
if ($v1 eq $v2) {
|
|
return 0;
|
|
}
|
|
|
|
# Loop over different components (the parts separated by dots).
|
|
# If any component differs, we have the basis for an inequality.
|
|
while (1) {
|
|
($p1, $v1) = split(/\./, $v1, 2);
|
|
($p2, $v2) = split(/\./, $v2, 2);
|
|
|
|
# If we\'re out of components, they\'re equal (this probably won\'t
|
|
# happen, since the short-cut case above should get this).
|
|
if (($p1 eq "") && ($p2 eq "")) {
|
|
return 0;
|
|
}
|
|
# Check for numeric inequality. We assume here that (for example)
|
|
# 3.09 < 3.10.
|
|
elsif ($p1 != $p2) {
|
|
return $p1 <=> $p2;
|
|
}
|
|
# Check for string inequality, given numeric equality. This
|
|
# handles version numbers of the form 3.4j < 3.4k.
|
|
elsif ($p1 ne $p2) {
|
|
return $p1 cmp $p2;
|
|
}
|
|
}
|
|
|
|
}
|
|
|
|
#
|
|
# CompareVersions
|
|
#
|
|
# Try to figure out the relationship between two program "full
|
|
# versions", which is defined as the
|
|
# ${PORTVERSION}[_${PORTREVISION}][,${PORTEPOCH}]
|
|
# part of a package's name.
|
|
#
|
|
# Key points: ${PORTEPOCH} supercedes ${PORTVERSION}
|
|
# supercedes ${PORTREVISION}. See the commit log for revision
|
|
# 1.349 of ports/Mk/bsd.port.mk for more information.
|
|
#
|
|
sub CompareVersions {
|
|
local($fv1, $fv2, $v1, $v2, $v1, $r2, $e1, $e2, $rc);
|
|
|
|
$fv1 = $_[0];
|
|
$fv2 = $_[1];
|
|
|
|
# Shortcut check for equality before invoking the parsing
|
|
# routines.
|
|
if ($fv1 eq $fv2) {
|
|
return 0;
|
|
}
|
|
else {
|
|
($v1, $r1, $e1) = &GetVersionComponents($fv1);
|
|
($v2, $r2, $e2) = &GetVersionComponents($fv2);
|
|
|
|
# Check epoch, port version, and port revision, in that
|
|
# order.
|
|
$rc = &CompareNumbers($e1, $e2);
|
|
if ($rc == 0) {
|
|
$rc = &CompareNumbers($v1, $v2);
|
|
if ($rc == 0) {
|
|
$rc = &CompareNumbers($r1, $r2);
|
|
}
|
|
}
|
|
|
|
return $rc;
|
|
}
|
|
}
|
|
|
|
#
|
|
# GetVersionComponents
|
|
#
|
|
# Parse out the version number, revision number, and epoch number
|
|
# of a port's version string and return them as a three-element array.
|
|
#
|
|
# Syntax is: ${PORTVERSION}[_${PORTREVISION}][,${PORTEPOCH}]
|
|
#
|
|
sub GetVersionComponents {
|
|
local ($fullversion, $version, $revision, $epoch);
|
|
|
|
$fullversion = $_[0];
|
|
|
|
$fullversion =~ /([^_,]+)/;
|
|
$version = $1;
|
|
|
|
if ($fullversion =~ /_([^_,]+)/) {
|
|
$revision = $1;
|
|
}
|
|
|
|
if ($fullversion =~ /,([^_,]+)/) {
|
|
$epoch = $1;
|
|
}
|
|
|
|
return($version, $revision, $epoch);
|
|
}
|
|
|
|
#
|
|
# GetNameAndVersion
|
|
#
|
|
# Get the name and version number of a package. Returns a two element
|
|
# array, first element is name, second element is full version string.,
|
|
#
|
|
sub GetNameAndVersion {
|
|
local($fullname, $name, $fullversion);
|
|
$fullname = $_[0];
|
|
|
|
# If no hyphens then no version numbers
|
|
return ($fullname, "", "", "", "") if $fullname !~ /-/;
|
|
|
|
# Match (and group) everything after hyphen(s). Because the
|
|
# regexp is 'greedy', the first .* will try and match everything up
|
|
# to (but not including) the last hyphen
|
|
$fullname =~ /(.+)-(.+)/;
|
|
$name = $1;
|
|
$fullversion = $2;
|
|
|
|
return ($name, $fullversion);
|
|
}
|
|
|
|
#
|
|
# PrintHelp
|
|
#
|
|
# Print usage information
|
|
#
|
|
sub PrintHelp {
|
|
print <<"EOF"
|
|
pkg_version $Version
|
|
Bruce A. Mah <bmah\@freebsd.org>
|
|
|
|
Usage: pkg_version [-c] [-d debug] [-h] [-v] [index]
|
|
-c Show commands to update installed packages
|
|
-d debug Debugging output (debug controls level of output)
|
|
-h Help (this message)
|
|
-l limchar Limit output
|
|
-v Verbose output
|
|
index URL or filename of index file
|
|
(Default is $IndexFile)
|
|
EOF
|
|
}
|
|
|
|
#
|
|
# Parse command-line arguments, deal with them
|
|
#
|
|
if (!getopts('cdhl:v') || ($opt_h)) {
|
|
&PrintHelp();
|
|
exit;
|
|
}
|
|
if ($opt_c) {
|
|
$ShowCommandsFlag = $opt_c;
|
|
}
|
|
if ($opt_d) {
|
|
$DebugFlag = $opt_d;
|
|
}
|
|
if ($opt_l) {
|
|
$LimitFlag = $opt_l;
|
|
}
|
|
if ($opt_v) {
|
|
$VerboseFlag = 1;
|
|
}
|
|
if ($#ARGV >= 0) {
|
|
$IndexFile = $ARGV[0];
|
|
}
|
|
|
|
# Determine what command to use to retrieve the index file.
|
|
if ($IndexFile =~ m-^((http|ftp)://|file:/)-) {
|
|
$IndexPackagesCommand = $FetchProgram . $IndexFile;
|
|
}
|
|
else {
|
|
$IndexPackagesCommand = $CatProgram . $IndexFile;
|
|
}
|
|
|
|
#
|
|
# Slurp in files
|
|
#
|
|
if ($DebugFlag) {
|
|
print STDERR "$CurrentPackagesCommand\n";
|
|
}
|
|
|
|
open CURRENT, "$CurrentPackagesCommand|";
|
|
while (<CURRENT>) {
|
|
($packageString, $rest) = split;
|
|
|
|
($packageName, $packageFullversion) = &GetNameAndVersion($packageString);
|
|
$currentPackages{$packageName}{'name'} = $packageName;
|
|
if (defined $currentPackages{$packageName}{'fullversion'}) {
|
|
$currentPackages{$packageName}{'fullversion'} .= "|" . $packageFullversion;
|
|
}
|
|
else {
|
|
$currentPackages{$packageName}{'fullversion'} = $packageFullversion;
|
|
}
|
|
$currentPackages{$packageName}{'refcount'}++;
|
|
}
|
|
close CURRENT;
|
|
|
|
if ($DebugFlag) {
|
|
print STDERR "$IndexPackagesCommand\n";
|
|
}
|
|
|
|
open INDEX, "$IndexPackagesCommand|";
|
|
while (<INDEX>) {
|
|
($packageString, $packagePath, $rest) = split(/\|/);
|
|
|
|
($packageName, $packageFullversion) = &GetNameAndVersion($packageString);
|
|
$indexPackages{$packageName}{'name'} = $packageName;
|
|
$indexPackages{$packageName}{'path'} = $packagePath;
|
|
if (defined $indexPackages{$packageName}{'fullversion'}) {
|
|
$indexPackages{$packageName}{'fullversion'} .= "|" . $packageFullversion;
|
|
}
|
|
else {
|
|
$indexPackages{$packageName}{'fullversion'} = $packageFullversion;
|
|
}
|
|
$indexPackages{$packageName}{'refcount'}++;
|
|
}
|
|
close INDEX;
|
|
|
|
#
|
|
# Produce reports
|
|
#
|
|
# Prior versions of pkg_version used commas (",") as delimiters
|
|
# when there were multiple versions of a package installed.
|
|
# The new package version number syntax uses commas as well,
|
|
# so we've used vertical bars ("|") internally, and convert them
|
|
# to commas before we output anything so the reports look the
|
|
# same as they did before.
|
|
#
|
|
foreach $packageName (sort keys %currentPackages) {
|
|
$~ = "STDOUT_VERBOSE" if $VerboseFlag;
|
|
$~ = "STDOUT_COMMANDS" if $ShowCommandsFlag;
|
|
|
|
$packageNameVer = "$packageName-$currentPackages{$packageName}{'fullversion'}";
|
|
$packageNameVer =~ s/\|/,/g;
|
|
|
|
if (defined $indexPackages{$packageName}{'fullversion'}) {
|
|
|
|
$indexVersion = $indexPackages{$packageName}{'fullversion'};
|
|
$currentVersion = $currentPackages{$packageName}{'fullversion'};
|
|
|
|
$indexRefcount = $indexPackages{$packageName}{'refcount'};
|
|
$currentRefcount = $currentPackages{$packageName}{'refcount'};
|
|
|
|
$packagePath = $indexPackages{$packageName}{'path'};
|
|
|
|
if (($indexRefcount > 1) || ($currentRefcount > 1)) {
|
|
$versionCode = "?";
|
|
$Comment = "multiple versions (index has $indexVersion)";
|
|
$Comment =~ s/\|/,/g;
|
|
}
|
|
else {
|
|
|
|
# Do the comparison
|
|
$rc =
|
|
&CompareVersions($currentPackages{$packageName}{'fullversion'},
|
|
$indexPackages{$packageName}{'fullversion'});
|
|
|
|
if ($rc == 0) {
|
|
next if $ShowCommandsFlag;
|
|
$versionCode = "=";
|
|
$Comment = "up-to-date";
|
|
}
|
|
elsif ($rc < 0) {
|
|
$versionCode = "<";
|
|
$Comment = "needs updating (index has $indexVersion)"
|
|
}
|
|
elsif ($rc > 0) {
|
|
next if $ShowCommandsFlag;
|
|
$versionCode = ">";
|
|
$Comment = "succeeds index (index has $indexVersion)";
|
|
}
|
|
else {
|
|
$versionCode = "?";
|
|
$Comment = "Comparison failed";
|
|
}
|
|
}
|
|
}
|
|
else {
|
|
next if $ShowCommandsFlag;
|
|
$versionCode = "?";
|
|
$Comment = "unknown in index";
|
|
}
|
|
|
|
if ($LimitFlag) {
|
|
write if $versionCode =~ m/[$LimitFlag]/o;
|
|
} else {
|
|
write;
|
|
}
|
|
}
|
|
|
|
exit 0;
|
|
|
|
#
|
|
# Formats
|
|
#
|
|
# $CommentChar is in the formats because you can't put a literal '#' in
|
|
# a format specification
|
|
|
|
# General report (no output flags)
|
|
format STDOUT =
|
|
@<<<<<<<<<<<<<<<<<<<<<<<<< @<
|
|
$packageName, $versionCode
|
|
.
|
|
;
|
|
|
|
# Verbose report (-v flag)
|
|
format STDOUT_VERBOSE =
|
|
@<<<<<<<<<<<<<<<<<<<<<<<<< @< @<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
|
|
$packageNameVer, $versionCode, $Comment
|
|
.
|
|
;
|
|
|
|
# Report that includes commands to update program (-c flag)
|
|
format STDOUT_COMMANDS =
|
|
@<
|
|
$CommentChar
|
|
@< @<<<<<<<<<<<<<<<<<<<<<<<<
|
|
$CommentChar, $packageName
|
|
@< @<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
|
|
$CommentChar, $Comment
|
|
@<
|
|
$CommentChar
|
|
cd @<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
|
|
$packagePath
|
|
make && pkg_delete -f @<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
|
|
$packageNameVer
|
|
make install
|
|
|
|
.
|
|
;
|