=item $pms->add_uri_detail_list($pms, $uri)

Function to add an uri to the pool of uris that will be checked by other plugins

=cut

sub add_uri_detail_list {

  my ($self, $pms, $uri) = @_;

  my $info;

  push @{$pms->{parsed_uri_list}}, $uri;

  $info->{types}->{parsed} = 1;

  $info->{cleaned} =

    [Mail::SpamAssassin::Util::uri_list_canonify (undef, $uri)];

  foreach (@{$info->{cleaned}}) {

    my ($dom, $host) = $self->{main}->{registryboundaries}->uri_to_domain($_);

    if ($dom && !$info->{domains}->{$dom}) {

      # 3.4 compatibility as per Marc Martinec

      if ($host) {

          $info->{hosts}->{$host} = $dom;

      }

      $info->{domains}->{$dom} = 1;

      $pms->{uri_domain_count}++;

    }

  }

  $pms->{uri_detail_list}->{$uri} = $info;

  dbg ('warn: PMS::get_uri_list() appears to have been harvested'),

    push @{$pms->{uri_list}}, @{$info->{cleaned}}

    if exists $pms->{uri_list};

}

  $self->register_method_priority ("parsed_metadata", -1);

    my $location = '';

      # XXX some pdf have uris but are stored inside binary data

      if ($line =~ /\/S\s?\/URI\s?\/URI\s?\(([^\)\\]+)\)\s?/) {

         $location = $1;

         dbg("pdfinfo: found URI $location in pdf " . ($name ? $name : '')); 

         $pms->add_uri_detail_list($pms, $location);

      }

sub parsed_metadata {

  my ($self, $opts) = @_;

  my $pms = $opts->{permsgstatus};

  dbg ('warn: get_uri_detail_list() has been called already')

    if exists $pms->{uri_detail_list};

  # make sure we have image data read in.

  if (!exists $pms->{'pdfinfo'}) {

    $self->_find_pdf_mime_parts($pms);

  }

}

# ----------------------------------------