#!/usr/bin/perl -w
#anfang use (was er noch benutzen soll!)
use strict;
use DBI;
use warnings;
use HTML::Parser;

#ende use
our $file;
my @links;


# Datenbank
my $datenbank = "db_rpt";
# Datenbankhost
my $datenbankhost = "localhost";
# Datenbankusername
my $datenbankuser = "XXXXXX";
# Datenbankpasswort
my $datenbankpw = "XXXXXX";

my $p = HTML::Parser->new();
$p->handler(start => \&start_handler,"tagname,attr,self");


my $dbh = DBI->connect("DBI:mysql:$datenbank:$datenbankhost","$datenbankuser","$datenbankpw") || scripterror ("Fehler bei der Datenbankverbindung aufgetreten."); 
my $sth = $dbh->prepare("SELECT datei FROM index_seiten");
$sth->execute or die DBI->errstr;
#@inhalt = $sth->fetchrow_array();
while (my($datei) = $sth->fetchrow_array()) 
  {
print "$datei \n";
    open (DAT, '<', $datei) || die "Kann die Datei $datei nicht laden!";
    my $tmp_var;
    my $secln=0;
    foreach (<DAT>)
    {
    next unless (/STYLE/);
    $p->parse($_);
      
    }
}        
foreach my $link(@links){
print "Linktext: ",$link->[1],"\tURL: ",$link->[0],"\n";
}

$sth->finish;
$dbh->disconnect;

sub start_handler{
return if(shift ne 'a');
my ($class) = shift->{href};
my $self = shift;
my $text;
$self->handler(text => sub{$text = shift;},"dtext");
$self->handler(end => sub{push(@links,[$class,$text]) if(shift eq 'a')},"tagname");
}