﻿#!/usr/bin/perl -w
use strict;
use warnings;
use utf8;
use open qw(:std :utf8);
use integer;


# Filter_4_07_insert_div.pl
# 2010-03-24
# Wolfgang Schmidle


# text input

my @text;
while(<>) { push @text, $_; }


# go through the text

my $inText = 0;
my $letztesElementWarHead = 0;

foreach (@text) {

	if (/<text /) { 
		$inText = 1; 
		$_ .= '<div type="section" level="0" n="0">';
		next;
	}
	next unless $inText;
	
	next if s!</text>!</div></text>!g;
	
	
	
	if (m!<head!) {
		unless ($letztesElementWarHead) {
		
			$_= '</div>'."\n".'<div type="section" level="0" n="0">'."\n$_";
		}
	}

	$letztesElementWarHead = 0;
	if (m!</head>!) { $letztesElementWarHead = 1; }
}


# geänderten Text ausgeben

print @text;

# TO DO:
# keine <div> einfügen innerhalb von <div index> und <div toc>

# keine <div> einfügen innerhalb von tables

