14.1.2007:

	- version 0.3 release
	- added simple stopword list / todo: fill them with content from stopword file
	- added grep to find synonym instead of slow checking all synonyms in older version 0.2
	- added get new random synonym if current synonym matches current wort-to-modify
	- added punctuation marks for closing sentences
	- added ucfirst to words that stand after a closing sentence
	- added fallback to old value in error cases when transforming numbers to words
	- added ucfirst for first word of randomly generated sentence in TextBlowup
	- added statistics
	- added: TypingErrors(): falschschreibung des aktuellen hauptkeywortes
	- version v0.4 released


22.1.2007:

	- spidered different syn databases


23.1.2007:

	- added: ignoring first word of text to modify
	- todo: stopwortliste via datei in hash einlesen
	- todo: es durfen zu ersetzende substantive/verben nur durch die entsprechenden substantive/verben der synonyme ersetzt werden


24.1.2007:
	
	- stringmanipulator: changed random values
	- added recursive function GetMatchingSynonym: provides a synonym to a word: with enable/disabled synonym matching


27.1.2007:

	- release version 0.8
	- code cleanup
	- added GetStandartSentences(): zufällige anzahl sätze laut $HowMuchToGrab aus den standartsätzen herrausholen  
	- added insert standart sentences randomly in the resulting modified text
	- version 0.8 not yet testet
 

28.1.2007:

	- release version 0.86:
		- added amazon description grabbing
		- added amazon description grabbing and including synonym manipulation of grabbed amazon descriptions

16.2.2007:

	- fixed some lil bugs

































































































































































# todo: funktion um array content in datei zu schreiben in unserem db format / um content aus unserem db format in ein array einzulesen
	# danach: zuerst den leipzig word service querys stellen und erst danach auf unsere text datei zurückgreifen


	#	my $random = rand();
	#	if ( $random > 0.975 ) {
	#		
	#		my $old		= $_;
	#		my $result;
	#		eval {
	#			$result	= Lingua::DE::Wortschatz::use_service('T', $_);
	#		};
	#		my @lines	= $result->hashrefs();
	#		my $String	= @lines[ rand(@lines) ] ;
	#		$_			= $String->{Synonym} if ( length($String->{Synonym}) > 1 );		
	#		print "Old: $old --- New: $_\n";
	#
	#	};



	### wörter falsch schreiben 
# use Lingua::DE::TypoGenerator;
# my $ldt = Lingua::DE::TypoGenerator->new();
# my @typos = $ldt->typos("Harry Potter");
# print join " \n", , @typos;