#*****************************************************************#
  # ROBOTER:                                                        #
  # Meta-Tags aus Quelltext lesen                                   #
  #*****************************************************************#
  
  use includedatei;
    
  my $metarobot   = includedatei->metarobot($seite);
  my $metakeyword = includedatei->metakeyword($seite);
  my $metadesc    = includedatei->metadesc($seite);

  
  #*****************************************************************#
  # Subroutine                                                      #
  #*****************************************************************#  
  
  # robots

  sub metarobot()
  {
    ($self, $seite) = @_;

    if($seite =~ m/<META\s+name\s*=\s*[\"\']?robots[\"\']?\s+content=[\"\'](.*?)[\"\'][\/\s]*>/is) {
      $robot = $1;
    } elsif($seite =~ m/<META\s+content=[\"\'](.*?)[\"\']\s+name\s*=\s*[\"\']?robots[\"\']?[\/\s]*>/is) {
      $robot = $1;
    } else {
      $robot = '';
    }
    return $robot;
  }

  # keywords

  sub metakeyword()
  {
    ($self, $seite) = @_;

    if($seite =~ m/<META\s+name\s*=\s*[\"\']?keywords[\"\']?\s+content=[\"\'](.*?)[\"\'][\/\s]*>/is) {
      $keyword = $1;
    } elsif ($seite =~ m/<META\s+content=[\"\'](.*?)[\"\']\s+name\s*=\s*[\"\']?keywords[\"\']?[\/\s]*>/is) {
      $keyword = $1;
    } else {
      $keyword = '';
    }
    return $keyword;
  }

  # description

  sub metadesc()
  {
    ($self, $seite) = @_;

    if($seite =~ m/<META\s+name\s*=\s*[\"\']?description[\"\']?\s+content=[\"\'](.*?)[\"\'][\/\s]*>/is) {
      $desc = $1;
    } elsif($seite =~ m/<META\s+content=[\"\'](.*?)[\"\']\s+name\s*=\s*[\"\']?description[\"\']?[\/\s]*>/is) {
      $desc = $1;
    } else {
      $desc = '';
    }
    return $desc;
  }