sub erzeuge_rss_feed {

### ggf. Beschreibung anpassen ###
        if ($board_id || $thread_id) {
                my $sql; 
                if ($thread_id) { $sql = "SELECT title FROM $PBoard::Config::DbTables{threads} WHERE id = '$thread_id' LIMIT 1"; } # if
                if ($board_id)  { $sql = "SELECT name FROM $PBoard::Config::DbTables{boards} WHERE id = '$board_id' LIMIT 1"; } # if

                my $storage = PBoard::Storage->new( { dbh => undef } );
                my $poard = PBoard->new( { cgi => $cgi, storage => $storage } );
                my $dbh = PBoard::DB::ConnectToDB( $poard );
                $storage->set_dbh( $dbh );
                my $sth = &PBoard::DB::FireSql( $poard, $sql );
                (my $titel) = $sth->fetchrow_array();
                $rss_board_titel .= ' :: '.$titel;
                } # if

### SQL ###
        my $sql = "SELECT boards.id as board_id, threads.id as thread_id, messages.position as position, boards.name as board_name, threads.title as thread_title, messages.message_raw as message_raw";
        $sql .=   " FROM $PBoard::Config::DbTables{boards} AS boards,";
        $sql .=   " $PBoard::Config::DbTables{threads} as threads,";
        $sql .=   " $PBoard::Config::DbTables{messages} as messages";
        $sql .=   " WHERE messages.thread = threads.id AND threads.boardID = boards.id";        
        $sql .=   " AND messages.status != 'deleted' AND threads.status != 'onhold' AND threads.status != 'deleted'";
        $sql .=   " AND boards.id = $board_id" if $board_id;
        $sql .=   " AND threads.id = $thread_id" if $thread_id;
        $sql .=   " AND messages.authorId = $user_id" if $user_id;
        $sql .=   " AND ((UNIX_TIMESTAMP(NOW()) - UNIX_TIMESTAMP(messages.posttime)) <= ($last_entries * 24 * 60 * 60))" if lc($action) eq lc('lastMessagesDays');
        $sql .=   " AND messages.position = '1'" if lc($filter) eq 'no_replies';
        $sql .=   " ORDER BY messages.posttime DESC";
        if (lc($action) eq lc('lastMessagesDays'))        { $sql .= " LIMIT $max_entries"; } # if
        elsif (lc($action) eq lc('lastMessagesNumbers'))  { $sql .= " LIMIT $last_entries"; } # if
        else                                              { $sql .= " LIMIT $max_entries"; } # ifelse

        print "\n\n$sql\n\n" if $debug;

### DB ###
        my $storage = PBoard::Storage->new( { dbh => undef } );
        my $poard = PBoard->new( { cgi => $cgi, storage => $storage } );
        my $dbh = PBoard::DB::ConnectToDB( $poard );
        $storage->set_dbh( $dbh );
        my $sth = &PBoard::DB::FireSql( $poard, $sql );

### Feed erzeugen ###
        my $rss = new XML::RSS (version => '2.0');
        $rss->channel(title          => $rss_board_titel,
                      link           => $rss_board_link,
                      language       => $rss_language,
                      description    => $rss_description,
                      copyright      => $rss_copyright,
                      docs           => $rss_docs,
                      managingEditor => $rss_managingEditor,
                      webMaster      => $rss_webMaster,
                      );

        my %hash_ref;
        while(my $hash_ref = $sth->fetchrow_hashref) {
                my $link = $rss_board_link.'/thread/'.${$hash_ref}{'thread_id'}.'/startWithMessage='.(int(${$hash_ref}{'position'}/10)*10).'/#MSG'.${$hash_ref}{'position'};
                $rss->add_item(
                        title => ${$hash_ref}{'thread_title'},
                        link  => $link,
                        description => ${$hash_ref}{'message_raw'},
                        );
                } # while
        $sth->finish;

        return $rss->as_string;
        } # sub erzeuge_rss_feed