# TODO: This had been rewrite from the Linux agent _WITHOUT_ being checked!

  foreach (`equery list -F '\$cp \$version \$repo' '*'`){

  foreach (`equery list -i`){

    /^(\S+) (\S+) (\S+)/;

    if (/^([a-z]\w+-\w+\/\.*)-([0-9]+.*)/) {

    $common->addSoftware({

      $common->addSoftware({

	'NAME'          => $1,

	  'NAME'          => $1,

	'VERSION'       => $2,

	  'VERSION'       => $2,

	'FROM'          => $3

	  });

	});

    }