FreeBSD::Pkgs::FindUpdates - Finds updates for FreeBSD pkgs by checking the ports index.

    use FreeBSD::Pkgs::FindUpdates;
    #initiates the module
    my $pkgsupdate = FreeBSD::Pkgs::FindUpdates->new();
    #finds changes
    my %changes=$pkgsupdate->find();
    #prints the upgraded stuff
    while(my ($name, $pkg) = each %{$changes{upgrade}}){
        print $name.' updated from "'.
              $pkg->{oldversion}.'" to "'.
              $pkg->{newversion}."\"\n";
    }
    #prints the downgraded stuff
    while(my ($name, $pkg) = each %{$changes{upgrade}}){
        print $name.' updated from "'.
              $pkg->{oldversion}.'" to "'.
              $pkg->{newversion}."\"\n";
    }

    #basic usage...
    my %changes=$pkgsupdate->find;

    #create the INDEXhash and pkgdb and then pass it
    my $pkgdb=FreeBSD::Pkgs->new;
    $pkgdb->parseInstalled({files=>0});
    my %index=INDEXhash();
    my %changes=$pkgsupdate->find(\%index, $pkgdb);

    perldoc FreeBSD::Pkgs::FindUpdates

package FreeBSD::Pkgs::FindUpdates;

use warnings;
use strict;
use FreeBSD::Pkgs;
use FreeBSD::Ports::INDEXhash qw/INDEXhash/;
use Sort::Versions;

our $VERSION = '0.2.1';

sub new {
	my %args;
	if(defined($_[1])){
		%args= %{$_[1]};
	};

	my $self={error=>undef, errorString=>''};
	bless $self;
	return $self;

}

sub find {
	my %index;
	if(defined($_[1])){
		%index= %{$_[1]};
	}else {
		%index=INDEXhash();
	};
	my $pkgdb;
	if (defined($_[2])) {
		$pkgdb=$_[2];
	}else {
		#parse the installed packages
		$pkgdb=FreeBSD::Pkgs->new;
		$pkgdb->parseInstalled({files=>0});
	}

	#a hash of stuff that needes changed
	my %change;
	$change{upgrade}={};
	$change{same}={};
	$change{downgrade}={};
	$change{from}={};
	$change{to}={};

	#process it
	while(my ($pkgname, $pkg) = each %{$pkgdb->{packages}}){
		my $src=$pkg->{contents}{origin};
		my $path=$src;

		#versionless packagename
		my $vpkgname=$pkgname;
		my @vpkgnameSplit=split(/-/, $vpkgname);
		my $int=$#vpkgnameSplit - 1;#just called int as I can't think of a better name
		$vpkgname=join('-', @vpkgnameSplit[0..$int]);

		#get the pkg version
		my $pkgversion=$pkgname;
		$pkgversion=~s/.*-//;

		#if this is not defined, we can't upgrade it... so skip it
		#stuff in stalled via cpan will do this
		if (!defined($src)) {
			if (!$pkgname =~ /^bsdpan-/) {
				warn('FreeBSD-Pkgs-FindUpdates find:1: No origin for "'.$pkgname.'"');
			}
		}else{
			my $portname=$index{soriginsD2N}{$path};

			if (!defined($portname)) {
				warn("No port found for '".$path."'");
				goto versionCompareEnd;
			}

			#versionless portname
			my $vportname=$portname;
			my @vportnameSplit=split(/-/, $vportname);
			$int=$#vportnameSplit - 1;#just called int as I can't think of a better name
			$vportname=join('-', @vportnameSplit[0..$int]);
			
			#get the port version
			my $portversion=$portname;
			$portversion=~s/.*-//;
			
			#if the pkg versionis less than the port version, it needs to be upgraded
			if (versioncmp($pkgversion, $portversion) == -1) {
				$change{upgrade}{$pkgname}={old=>$pkgname, new=>$portname,
											oldversion=>$pkgversion,
											newversion=>$portversion,
											port=>$path,
											};
				$change{from}{$pkgname}=$portname;
				$change{to}{$portname}=$pkgname;
			}
			
			#if the pkg version and the port version are the same it is the same
			if (versioncmp($pkgversion, $portversion) == 0) {
				$change{same}{$pkgname}={old=>$pkgname, new=>$portname,
										 oldversion=>$pkgversion,
										 newversion=>$portversion,
										 port=>$path
										 };
			}
			
			#if the pkg version is greater than the port version, it needs to be downgraded
			if (versioncmp($pkgversion, $portversion) == 1) {
				$change{downgrade}{$pkgname}={old=>$pkgname, new=>$portname,
											  oldversion=>$pkgversion,
											  newversion=>$portversion,
											  port=>$path,
											  };
				$change{to}{$pkgname}=$portname;
				$change{from}{$portname}=$pkgname;
			}

			versionCompareEnd:
		}
	}
	
	return %change;
}

1; # End of FreeBSD::Pkgs::FindUpdates