1 files changed, 155 insertions, 0 deletions

diff --git a/Tools/scripts/chkversion.pl b/Tools/scripts/chkversion.pl
new file mode 100755
index 000000000000..883767d34d80
--- /dev/null
+++ b/Tools/scripts/chkversion.pl
@@ -0,0 +1,155 @@
+#!/usr/bin/perl -w
+#
+# Copyright (c) 2004 Oliver Eikemeier. 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.
+#
+# 3. Neither the name of the author nor the names of its contributors may be
+#    used to endorse or promote products derived from this software without
+#    specific prior written permission.
+#
+# THIS SOFTWARE IS PROVIDED "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
+# COPYRIGHT OWNER OR CONTRIBUTORS 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.
+#
+# $FreeBSD$
+#
+# MAINTAINER=	eik@FreeBSD.org
+#
+# PORTVERSION auditing script
+#
+# For many port tools to work correctly, it is of utmost importance that
+# PORTVERSION/-REVISION/-EPOCH of a port is a monotonic increasing sequence
+# over time. See also
+#   <http://www.freebsd.org/doc/en_US.ISO8859-1/books/porters-handbook/makefile-naming.html>
+# for more information. Tools that won't work include pkg_version, portupgrade
+# and portaudit. One common example is an accidentially deleted PORTEPOCH.
+#
+# This scripts compares version numbers with previously known ones, and is
+# primarily intended to be run from a (non-root) cron job.
+#
+# If you simply call it, it will compare all ports with their INDEX entry
+# and complain if version numbers have gone backwards. You need and old
+# INDEX for this, of course. An up-to-date INDEX will accomplish nothing.
+#
+# To use the script as intended, do the following (assuming you want to
+# run the script as user `ports'):
+# install port sysutils/pkg_install-devel (optional)
+#  mkdir -p /var/db/chkversion
+#  touch /var/db/chkversion/VERSIONS
+#  chown -R ports /var/db/chkversion
+# and enter chkversions.pl into the crontab of ports, or run it by hand
+# if you can spare the time.
+#
+
+use strict;
+use File::Find;
+
+require 5.005;
+use strict;
+
+my $portsdir   = $ENV{PORTSDIR}   ? $ENV{PORTSDIR}   : '/usr/ports';
+
+my $versiondir = $ENV{VERSIONDIR} ? $ENV{VERSIONDIR} : '/var/db/chkversion';
+
+my $pkg_version =
+  -x '/usr/local/sbin/pkg_version'
+   ? '/usr/local/sbin/pkg_version'
+   : '/usr/sbin/pkg_version';
+
+-d "$portsdir" or die "Can't find ports tree at $portsdir.\n";
+
+my $useindex = !-w "$versiondir";
+
+my $versionfile =
+  $useindex
+  ? "$portsdir/`cd $portsdir; make -VINDEXFILE`"
+  : "$versiondir/VERSIONS";
+chomp $versionfile;
+
+my %pkgname;
+
+sub wanted {
+    !-d
+    || (/^CVS$/
+        || $File::Find::name =~
+          m"^$portsdir/(?:Mk|Templates|Tools|distfiles|packages)$"os
+        || $File::Find::name =~ m"^$portsdir/[^/]+/pkg$"os
+    )
+      && ($File::Find::prune = 1)
+    || $File::Find::name =~ m"^$portsdir/([^/]+/[^/]+)$"os
+      && ($File::Find::prune = 1)
+      && (
+        $pkgname{$1} = `cd "$File::Find::name"; make -VPKGNAME 2>/dev/null`,
+        chomp $pkgname{$1}
+      );
+}
+
+find(\&wanted, $portsdir);
+
+my %backwards;
+
+
+open VERSIONS, "<$versionfile";
+
+while (<VERSIONS>) {
+    chomp;
+    next if /^(#|$)/;
+    my ($origin, $version);
+    if ($useindex) {
+        ($version, $origin) = split /\|/;
+        $origin =~ s,^.*/([^/]+/[^/]+)/?$,$1,;
+    }
+    else {
+        ($origin, $version) = split;
+    }
+    if (defined $pkgname{$origin}) {
+        my $newversion = $pkgname{$origin};
+        my $oldversion = $version;
+
+        $newversion =~ s/^.*-//;
+        $oldversion =~ s/^.*-//;
+
+        my $result = `$pkg_version -t '$newversion' '$oldversion'`;
+        chomp $result;
+        if ($result eq '<') {
+            $backwards{$origin} = "$pkgname{$origin} < $version";
+            $pkgname{$origin}   = $version;
+        }
+    }
+    else {
+        $pkgname{$origin} = $version;
+    }
+}
+close VERSIONS;
+
+if (!$useindex) {
+    system "mv -f '$versionfile' '$versionfile.bak'";
+
+    open VERSIONS, ">$versionfile";
+    print VERSIONS join("\n", map("$_\t$pkgname{$_}", sort keys %pkgname)),
+      "\n";
+    close VERSIONS;
+}
+
+print join("\n - ",
+    "Package versions going backwards:",
+    map("$_: $backwards{$_}", sort keys %backwards)),
+  "\n"
+  if %backwards;