#--------#
sub identifylinks {
  #
  # Erkennt und markiert Hyperlinks in einem Text
  #
  # Aufruf:
  # =======
  # my $testtext = 'test: http://www.test.de';
  # identifylinks (\$testtext,'<a href="%s" target="_blank">%s</a>','<a href="mailto:%s">%s</a>');
  # print $testtext;
  #
  my $text = $_[0];
  my $link = $_[1];
  my $email_link = (defined $_[2] ? $_[2] : '');

  my $modul = 1;
  eval "use URI::Find; 1;" or $modul = 0;
  if ($modul) {
    my $finder = URI::Find -> new ( sub
      {
        $_[0]=~s/\@/\0---at---\0/g;
        $_[0]=~s/\@/\0---at---\0/g;
        return sprintf ($link,@_);
      }
    );
    $finder -> find ($text);
  }

  if ($email_link ne '') {                                          # E-Mail auch erwünscht?
    eval "use Email::Find; 1;" or $modul = 0;
    if ($modul) {
      my $finder = Email::Find -> new (
        sub { return sprintf ($email_link,$_[0]->format,$_[1]); }
      );
      $finder -> find ($text);
    }
  }

  $$text=~s/\0---at---\0/\@/g;
}
#--------#