sexverhalen

Gratis sexverhalen - Eroverhalen.com

iedere dag weer nieuwe geile sexverhalen

Nieuwe Sexverhalen

stuur ons uw zelfgeschreven sexverhaal stuur uw verhaal in

De baron
Lisette was erg nerveus. Dit was haar eerste dag in het landhuis van meneer de baron en ze moest beslist een goede indruk maken, anders kon ze het wel schudden. Lisette was een aardig negerinnetje en had al heel wat van de wereld gezien, al was ze nog maar enkele maanden twintig. Sonia, het eerste kamermeisje kwam haar kamer binnen. "Ben je klaar, Lisette?" "Ja, ik ben klaar." "Mooi, dan gaan we nu naar meneer de baron. Je weet wat er van je wordt verlangd?" Zuchtend zei Lisette: "Wat iedere man altijd van me verlangt." "Kom op, niet zo vervelend doen", zei Sonia berispend. "Het ding van meneer de baron is niet zomaar een ding, meisje." "Nee, een wonderding, een toverstaf", zei Ineke, het tweede kamermeisje, dat net binnenkwam. "Als dat ding in je kutje komt, begin je te trillen en te schokken! O, dat kanon van meneer de baron!" "Nou, je weet niet wat je voelt", vulde Sonia aan. "Ach, een lul is een lul", zei Lisette onverschillig. "Daar kom je wel achter", zei Ineke. "Als je dat ding er eenmaal in hebt gehad, wil je het de rest van je leven ook in hebben. Je kunt er dan niet meer zonder, Lisette." "Op naar de baron", zei Sonia. "En zijn wonderpik!" riep Lisette lachend. Meneer de baron, gewoon Piet voor zijn vrienden en vriendinnen, was deze dag wel bijzonder slecht geluimd.
Geplaatst op 09 Apr 2009 door eroverhalen
Oud dik wijf
Vanaf mijn 12e geil ik altijd al op zeer dikke en oude vrouwen,toen zag ik mijn oma bloot en die was toch dik,met en paar joekels van hangtieten,kont en dikke dijen,met grijs haar er tussen. Toen een paar jaar geleden de tokkies op tv waren,genoot ik geweldig van die vrouw wat een prachtig figuur.
Op mijn 16e had ik een krantenwijk in een achtergestelde buurt,en vooral bij zomerdag genoot ik als ik daar de oudere vrouwen zag lopen in hun jurken. Een vrouw stond mij meestal al op te wachten dat ik de krant bracht,ze was ook moddervet en veel van haar tieten waren zichtbaar als ze eens bij de deur stond,ik geilde geweldig op haar. Het was ontzettend warm die dag en ik bracht zonder t shirt maar in korte broek de krant rond,ze stond weer in de deur maar nu in een rok en blouse die behoorlijk open was. Ik zweette het uit toen ik haar de krant gaf,jongen wat zweet jij toch,wil je wat fris vroeg ze,dat is aardig van u ik heb nog 10 kranten en de mensen wachten ook,dan kom maar als je klaar bent zei ze.
Snel bracht ik de rest ook rond,de deur stond open,wat wil je vroeg ze gelijk,graag iets uit de koelkast,dan krijg je een biertje.
Geplaatst op 02 Apr 2009 door eroverhalen
Achterom
Ik werk als beveiligingsbeambte en kreeg onlangs een alarmmelding door van een woonhuis. Volgens de informatie die ik had, betrof het een woning van een directeur van een groot bedrijf. Met de nodige spoed ging ik naar het desbetreffende adres toe. Het bleek een groot landhuis te zijn in de bossen met een enorme tuin eromheen. Het alarmlicht ging inderdaad af, maar na een inspectie rondom de woning kon ik niets vinden dat op inbraak wees. Toen ik echter mijn sleutelbos pakte en voor een nadere inspectie door de voordeur naar binnen wilde, hoorde ik een heftig gegrom. Meteen daarop trilde de voordeur. Een blaffende hond sprong er van binnenuit met kracht tegenaan. Ik besloot niet naar binnen te gaan en er een collega bij te halen die veel beter met honden overweg kon. Toen ik echter naar mijn auto terugliep, werd ik bijna omver gelopen door een joggende jongedame in trainingspak, die omkijkend een vriendin gedag zei. Ze stamelde een verontschuldiging, stelde zich voor als Mirjam, de dochter des huizes, en vroeg of er misschien iets aan de hand was.
Geplaatst op 27 Mar 2009 door eroverhalen
Après tennis
Het is een warme dag als ik zit te kijken naar het verplichte tennisspel van mijn vrouw. Zij moet immers haar competitiewedstrijd afwerken. Niet dat ik iets om tennissen geef hoor maar ieder zijn sport niet? Zelf maar een vrije dag genomen en of ik nou hier in de zon zit of thuis maakt dan ook niet veel uit zij het dat ik thuis helemaal naakt in de tuin kan liggen en hier dus niet.

Gelukkig is het meer dan rustig op de baan en op de club en heb ik een bank voor me zelf aan de kant waar mijn vrouw speelt. Kun je je voorstellen dat als het warm is, je de sport niet zo bar leuk vind, het sonore geluid van de voorbijsnellende bal na de terugslag en de uiterst monotone opmerkingen van de umpire, allen een waarborg zijn voor het gauw lekker onderuitzakken op de bank? Heerlijk verzonken raken in mijmering?
Geplaatst op 10 Mar 2009 door eroverhalen
Mijn nieuwe slaafje
Vanwege mijn werk moest ik weer verhuizen, nu al weer voor de derde keer binnen een jaar. Het enige voordeel dat ik aan het vele verhuizen heb overgehouden zijn de vele vrienden door het hele land. Ik lag vrij makkelijk contact, en vind het altijd prettig om gezellig mensen in de buurt te hebben, dus zorg ik altijd dat ik zo snel mogelijk mijn nieuwe buren en andere mensen ontmoet. Zo ook op mijn nieuwe adres, maar wat daar gebeurd is had ik van tevoren nooit durven dromen. Ik zal bij het begin beginnen.
Toen alles in huis een beetje op zijn plaats stond, iets waar ik steeds handiger en sneller in geworden ben, werd er al gebeld. Ik deed de deur open en keek recht in het liefste smoeltje dat ik ooit gezien had. In de deuropening stond een meisje van hooguit 18 jaar, leuk gekleed in een zomerjurkje met hakjes eronder. Ze had lang donkerbruin haar en keek me met haar groene ogen diep aan.
Geplaatst op 05 Mar 2009 door eroverhalen
Het examenfeest
Het examenfeest was afgelopen. Dit was de laatste keer dat we de aula van onze ex-school uitliepen. Het feest was leuk geweest, maar eigenlijk veel te vroeg afgelopen. Daarom besloten we om in de stad nog ergens iets te gaan drinken.
Toen we met zijn vieren, Henk, Jan, Kees en ik, naar de nieuwe jeep van Kees liepen zagen we opeens onze ex-lerares engels naar haar auto lopen. 'Kom', zei Jan 'laten we haar vragen om mee te gaan'. Zo gezegd, zo gedaan. We liepen met z'n vieren naar haar toe en vroegen haar om mee te gaan.
In eerste instantie wilde ze niet, maar naar enig aandringen gaf ze tenslotte toe. Ze zou nog een uurtje met ons meegaan. Nou moet je begrijpen dat dit niet zo maar een lerares engels was, maar dat zij een figuurtje had waar je een punt aan kon zuigen.
Geplaatst op 25 Feb 2009 door eroverhalen
Caroline Tensen
Caroline Tensen kwam naar me toe gelopen. Even tevoren had ze me 25000,- overhandigd die ik had gewonnen in de HitBingo. "Hoi, Danny was het he ?" vroeg ze uitbundig. Ze droeg een zwarte trainingsbroek en witte blouse met een vestje. Haar haar zat in een knotje en haar lippen waren glimmend rood.

Ik knikte.
"Weet je al wat je met het geld gaat doen ?" vroeg ze weer.
"Nou," begon ik. "Eigenlijk wilde ik je huren..."
Ze keek me verbaasd aan.
"Huren ? Voor wat ?" vroeg ze.
"Sex," antwoordde ik abrupt.
Haar prachtige ogen werden zo groot als schoteltjes.
"Hoeveel ?" vroeg ze na even nadenken.
"Alles voor alles."
"Wat bedoel je met alles voor alles ?"
Geplaatst op 19 Feb 2009 door eroverhalen
Tante Gerda
Het zal de laatste keer wel worden dat hij bij 'tante' Gerda gaat logeren. Hoewel Gerda een zuster van zijn moeder is en al achterin de dertig hoeft hij haar geen tante meer te noemen. Toen hij afgelopen zomer 16 jaar werd zei Gerda tegen hem Je bent nu een jongeman en mag mij gewoon Gerda noemen. Ze keek hem daarbij een beetje vreemd aan herinnert hij zich nog, maar waarom is hem altijd een raadsel gebleven. Eigenlijk vindt hij het wel jammer dat dit de laatste kerst zal zijn die hij bij Gerda door zal brengen. Hij heeft haar altijd erg aardig gevonden en de laatste paar jaar ook wel aantrekkelijk. Ze kleedt zich altijd erg vrouwelijk en dat vindt Hans (zo heet onze held) best wel mooi en soms wel opwindend.
Geplaatst op 19 Feb 2009 door eroverhalen

Terug 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 Volgende

Content Management Powered by CuteNews

parse( // aanroep om "dailer.template.htm" te parsen # array( # "link" => $templateLink, // in het template bestand word "%[link]% vervangen door de waarde in $templateLink # ) # ); # ###### # Door: Willem de Vries # Date: 9 februari 2005 # Voor: Virtual Pc Services # Versie: 2.2 # ###### # Changelog: # 1.0 (WdV 7-11-2003): statische functie ombouwen naar object # 1.1 (WdV 13-2-2004): parsen moet ook zonder parameters kunnen # 1.2 (JF 15-2-2004): Set functie toegevoegd om variablen aan template toe te voegen, aaroep: set(variablenaam, value) # 1.3 (JF 24-3-2004): Endless loop bug gefixed, bij openen van template kwam hij bij lege file of file zonder # regeleinde niet bij eof bij lezen van filesize. # 1.4 (WdV 04-3-2005): Nieuwe functie om default-waardes uit een HTML-comment veld te halen. # 2.0 (WdV 09-2-2005): grotendeels herschreven refresh() en parse() routine. Nu 50% sneller! # 2.1 (WdV 15-2-2005): Mogelijkheid om een template aan te maken vanuit een string ipv. een file uit te lezen # 2.2 (WdV 28-10-2005): On-the-fly compressie om geheugen te sparen, kleinere array properties # 2.3 (WdV 15-12-2005): Gebruik van de "TEMPLATE_SEARCH" superglobal om een (relatief) zoekpad op te geven waarin # templates gezocht moeten worden. ############################################################### function _slashjoin() { $out = array(); foreach(func_get_args() as $param) { if ($param) $out[] = $param; } return preg_replace('#([/]+)#', '/', join('/', $out)); } function _dirlist($str, $regex = '.*') { $out = array(); $dh = (is_dir($str)) ? @opendir($str) : null; while ($dh and $fil = readdir($dh)) { $out[] = _slashjoin($str, $fil); } if ( !$out) return; list($item) = array_values(preg_grep("|$regex|i", $out)); # error_log(__FUNCTION__ . " Matching items for |$regex|"); # error_log(__FUNCTION__ . " Subdirs in $str: " . join('|', $out)); # error_log(__FUNCTION__ . " Found dir '$item'"); return ($item) ? $item : $str; } class Template { var $fn = null; var $filename = null; var $ch = null; var $error = null; var $searchpath = null; var $searchdir = null; var $inf = null; var $def = null; var $me = 'object'; var $vars = array(); function Template($name) { # Compatibility $this->filename =& $this->fn; $this->me = strtoupper(get_class($this)); $this->searchpath = $GLOBALS[$this->me . "_SEARCH"]; if (defined($this->me . "_COMPRESS")) { foreach(array(array('gzcompress', 'gzuncompress'), array('gzdeflate', 'gzinflate')) as $grp) { if (function_exists($grp[0])) { $this->def = $grp[0]; $this->inf = $grp[1]; break; } } } $this->fn = $name; $this->refresh(); } function set($varname, $value = ''){ $this->vars[$varname] = $value; } function get($varname) { return $this->vars[$varname]; } function refresh() { if (!preg_match('/\.([^\.\/\s]+)$/', $this->fn, $found) ) { $this->cached($this->fn); $this->fn = null; $this->error = null; return; } # Implementatie zoekpad $subdirs = preg_split('/([\s]*;[\s]*)/', $this->searchpath); if (! $subdirs) $subdirs = array(''); list($a, $up, $b, $path) = preg_match('/^(([\.]+\/)*)(.+)/', $this->fn, $found) ? $found : array('', '', '', $found[0]); foreach($subdirs as $subdir) { $sub = _slashjoin($up, $subdir); # Wanneer de basis zoekdirectory niet bestaat, dan controleren we nog even # of deze naam niet partieel voorkomt ergens in de boom. Zie functie _dirlist(). if ($subdir and !is_dir($sub)) { $sub = _dirlist(dirname($sub), preg_replace('/([^0-9a-z]+)$/', '', $subdir) ); } $this->searchdir = _slashjoin($sub, $path); $exists = (file_exists($this->searchdir) and filesize($this->searchdir) > 0); if ($exists) { $this->searchpath = $sub; break; } } $readable = ($exists and is_readable($this->searchdir) ); $soort = ($readable) ? filetype($this->searchdir) : ""; if ($readable and $soort == "file") { $this->cached( join('', file($this->searchdir)) ); $this->error = null; } elseif (!$exists) { $this->error( sprintf("'%s' bestaat niet.", $this->searchdir) ); } elseif (!$readable) { $this->error( sprintf("'%s' kan niet worden gelezen.", $this->searchdir) ); } elseif ($exists && $soort != "file") { $this->error( sprintf("'%s' is geen geldig bestand; %s", $this->searchdir, $soort) ); } return; } function error($str) { $text = sprintf('%s %s [in %s]', $this->me, $str, $_SERVER['SCRIPT_NAME']); $this->error = $text; if ($_SERVER['IS_DEVEL'] and $this->error) error_log($this->error); } function parse($vars = array()) { $vars = $vars + $this->vars; if ($this->searchpath) # Voeg een slash toe aan het einde van het pad - templates verwachten dit! $vars['_searchpath'] = trim(_slashjoin($this->searchpath, ' ')); $match = array(); $repl = array(); foreach(array_keys($vars) as $key){ $match[] = sprintf("/(%%\[%s\]%%)/i", preg_quote($key)); $repl[] = $vars[$key]; } $match[] = '/%\[[^\[\]]+\]%/'; # Catch all $repl[] = ''; return preg_replace($match, $repl, $this->cached()); } function extractData() { $reg = '/<\!--(\s*([^=\s\<\>]+)[\s=]+[\'"]?([^\'"\s\<\>]+))+\s*-->/'; $comment = '/<\!--\s*(.+)\s*-->/'; $fields = '/([^=\s<>]+)[\s=]+([\'\"])?([^\s<>\2]+)/'; if (! preg_match_all($comment, $this->cached(), $found) ) return false; foreach($found[1] as $line) { preg_match_all($fields, $line, $res); for($i=0; $i < sizeof($res[0]); $i++) { $this->vars[$res[1][$i]] = $res[3][$i]; } } return $this->vars; } function cached($str = null) { if (is_null($str)) { #request $do = $this->inf; return ($this->compressed() and $this->ch) ? $do($this->ch) : $this->ch; } $do = $this->def; $this->ch = ($this->compressed()) ? $do($str, 9) : $str; } function compressed() { return ($this->inf || $this->def); } } # EOF ?> parse( // aanroep om "dailer.template.htm" te parsen # array( # "link" => $templateLink, // in het template bestand word "%[link]% vervangen door de waarde in $templateLink # ) # ); # ###### # Door: Willem de Vries # Date: 9 februari 2005 # Voor: Virtual Pc Services # Versie: 2.2 # ###### # Changelog: # 1.0 (WdV 7-11-2003): statische functie ombouwen naar object # 1.1 (WdV 13-2-2004): parsen moet ook zonder parameters kunnen # 1.2 (JF 15-2-2004): Set functie toegevoegd om variablen aan template toe te voegen, aaroep: set(variablenaam, value) # 1.3 (JF 24-3-2004): Endless loop bug gefixed, bij openen van template kwam hij bij lege file of file zonder # regeleinde niet bij eof bij lezen van filesize. # 1.4 (WdV 04-3-2005): Nieuwe functie om default-waardes uit een HTML-comment veld te halen. # 2.0 (WdV 09-2-2005): grotendeels herschreven refresh() en parse() routine. Nu 50% sneller! # 2.1 (WdV 15-2-2005): Mogelijkheid om een template aan te maken vanuit een string ipv. een file uit te lezen # 2.2 (WdV 28-10-2005): On-the-fly compressie om geheugen te sparen, kleinere array properties # 2.3 (WdV 15-12-2005): Gebruik van de "TEMPLATE_SEARCH" superglobal om een (relatief) zoekpad op te geven waarin # templates gezocht moeten worden. ############################################################### function _slashjoin() { $out = array(); foreach(func_get_args() as $param) { if ($param) $out[] = $param; } return preg_replace('#([/]+)#', '/', join('/', $out)); } function _dirlist($str, $regex = '.*') { $out = array(); $dh = (is_dir($str)) ? @opendir($str) : null; while ($dh and $fil = readdir($dh)) { $out[] = _slashjoin($str, $fil); } if ( !$out) return; list($item) = array_values(preg_grep("|$regex|i", $out)); # error_log(__FUNCTION__ . " Matching items for |$regex|"); # error_log(__FUNCTION__ . " Subdirs in $str: " . join('|', $out)); # error_log(__FUNCTION__ . " Found dir '$item'"); return ($item) ? $item : $str; } class Template { var $fn = null; var $filename = null; var $ch = null; var $error = null; var $searchpath = null; var $searchdir = null; var $inf = null; var $def = null; var $me = 'object'; var $vars = array(); function Template($name) { # Compatibility $this->filename =& $this->fn; $this->me = strtoupper(get_class($this)); $this->searchpath = $GLOBALS[$this->me . "_SEARCH"]; if (defined($this->me . "_COMPRESS")) { foreach(array(array('gzcompress', 'gzuncompress'), array('gzdeflate', 'gzinflate')) as $grp) { if (function_exists($grp[0])) { $this->def = $grp[0]; $this->inf = $grp[1]; break; } } } $this->fn = $name; $this->refresh(); } function set($varname, $value = ''){ $this->vars[$varname] = $value; } function get($varname) { return $this->vars[$varname]; } function refresh() { if (!preg_match('/\.([^\.\/\s]+)$/', $this->fn, $found) ) { $this->cached($this->fn); $this->fn = null; $this->error = null; return; } # Implementatie zoekpad $subdirs = preg_split('/([\s]*;[\s]*)/', $this->searchpath); if (! $subdirs) $subdirs = array(''); list($a, $up, $b, $path) = preg_match('/^(([\.]+\/)*)(.+)/', $this->fn, $found) ? $found : array('', '', '', $found[0]); foreach($subdirs as $subdir) { $sub = _slashjoin($up, $subdir); # Wanneer de basis zoekdirectory niet bestaat, dan controleren we nog even # of deze naam niet partieel voorkomt ergens in de boom. Zie functie _dirlist(). if ($subdir and !is_dir($sub)) { $sub = _dirlist(dirname($sub), preg_replace('/([^0-9a-z]+)$/', '', $subdir) ); } $this->searchdir = _slashjoin($sub, $path); $exists = (file_exists($this->searchdir) and filesize($this->searchdir) > 0); if ($exists) { $this->searchpath = $sub; break; } } $readable = ($exists and is_readable($this->searchdir) ); $soort = ($readable) ? filetype($this->searchdir) : ""; if ($readable and $soort == "file") { $this->cached( join('', file($this->searchdir)) ); $this->error = null; } elseif (!$exists) { $this->error( sprintf("'%s' bestaat niet.", $this->searchdir) ); } elseif (!$readable) { $this->error( sprintf("'%s' kan niet worden gelezen.", $this->searchdir) ); } elseif ($exists && $soort != "file") { $this->error( sprintf("'%s' is geen geldig bestand; %s", $this->searchdir, $soort) ); } return; } function error($str) { $text = sprintf('%s %s [in %s]', $this->me, $str, $_SERVER['SCRIPT_NAME']); $this->error = $text; if ($_SERVER['IS_DEVEL'] and $this->error) error_log($this->error); } function parse($vars = array()) { $vars = $vars + $this->vars; if ($this->searchpath) # Voeg een slash toe aan het einde van het pad - templates verwachten dit! $vars['_searchpath'] = trim(_slashjoin($this->searchpath, ' ')); $match = array(); $repl = array(); foreach(array_keys($vars) as $key){ $match[] = sprintf("/(%%\[%s\]%%)/i", preg_quote($key)); $repl[] = $vars[$key]; } $match[] = '/%\[[^\[\]]+\]%/'; # Catch all $repl[] = ''; return preg_replace($match, $repl, $this->cached()); } function extractData() { $reg = '/<\!--(\s*([^=\s\<\>]+)[\s=]+[\'"]?([^\'"\s\<\>]+))+\s*-->/'; $comment = '/<\!--\s*(.+)\s*-->/'; $fields = '/([^=\s<>]+)[\s=]+([\'\"])?([^\s<>\2]+)/'; if (! preg_match_all($comment, $this->cached(), $found) ) return false; foreach($found[1] as $line) { preg_match_all($fields, $line, $res); for($i=0; $i < sizeof($res[0]); $i++) { $this->vars[$res[1][$i]] = $res[3][$i]; } } return $this->vars; } function cached($str = null) { if (is_null($str)) { #request $do = $this->inf; return ($this->compressed() and $this->ch) ? $do($this->ch) : $this->ch; } $do = $this->def; $this->ch = ($this->compressed()) ? $do($str, 9) : $str; } function compressed() { return ($this->inf || $this->def); } } # EOF ?> parse( // aanroep om "dailer.template.htm" te parsen # array( # "link" => $templateLink, // in het template bestand word "%[link]% vervangen door de waarde in $templateLink # ) # ); # ###### # Door: Willem de Vries # Date: 9 februari 2005 # Voor: Virtual Pc Services # Versie: 2.2 # ###### # Changelog: # 1.0 (WdV 7-11-2003): statische functie ombouwen naar object # 1.1 (WdV 13-2-2004): parsen moet ook zonder parameters kunnen # 1.2 (JF 15-2-2004): Set functie toegevoegd om variablen aan template toe te voegen, aaroep: set(variablenaam, value) # 1.3 (JF 24-3-2004): Endless loop bug gefixed, bij openen van template kwam hij bij lege file of file zonder # regeleinde niet bij eof bij lezen van filesize. # 1.4 (WdV 04-3-2005): Nieuwe functie om default-waardes uit een HTML-comment veld te halen. # 2.0 (WdV 09-2-2005): grotendeels herschreven refresh() en parse() routine. Nu 50% sneller! # 2.1 (WdV 15-2-2005): Mogelijkheid om een template aan te maken vanuit een string ipv. een file uit te lezen # 2.2 (WdV 28-10-2005): On-the-fly compressie om geheugen te sparen, kleinere array properties # 2.3 (WdV 15-12-2005): Gebruik van de "TEMPLATE_SEARCH" superglobal om een (relatief) zoekpad op te geven waarin # templates gezocht moeten worden. ############################################################### function _slashjoin() { $out = array(); foreach(func_get_args() as $param) { if ($param) $out[] = $param; } return preg_replace('#([/]+)#', '/', join('/', $out)); } function _dirlist($str, $regex = '.*') { $out = array(); $dh = (is_dir($str)) ? @opendir($str) : null; while ($dh and $fil = readdir($dh)) { $out[] = _slashjoin($str, $fil); } if ( !$out) return; list($item) = array_values(preg_grep("|$regex|i", $out)); # error_log(__FUNCTION__ . " Matching items for |$regex|"); # error_log(__FUNCTION__ . " Subdirs in $str: " . join('|', $out)); # error_log(__FUNCTION__ . " Found dir '$item'"); return ($item) ? $item : $str; } class Template { var $fn = null; var $filename = null; var $ch = null; var $error = null; var $searchpath = null; var $searchdir = null; var $inf = null; var $def = null; var $me = 'object'; var $vars = array(); function Template($name) { # Compatibility $this->filename =& $this->fn; $this->me = strtoupper(get_class($this)); $this->searchpath = $GLOBALS[$this->me . "_SEARCH"]; if (defined($this->me . "_COMPRESS")) { foreach(array(array('gzcompress', 'gzuncompress'), array('gzdeflate', 'gzinflate')) as $grp) { if (function_exists($grp[0])) { $this->def = $grp[0]; $this->inf = $grp[1]; break; } } } $this->fn = $name; $this->refresh(); } function set($varname, $value = ''){ $this->vars[$varname] = $value; } function get($varname) { return $this->vars[$varname]; } function refresh() { if (!preg_match('/\.([^\.\/\s]+)$/', $this->fn, $found) ) { $this->cached($this->fn); $this->fn = null; $this->error = null; return; } # Implementatie zoekpad $subdirs = preg_split('/([\s]*;[\s]*)/', $this->searchpath); if (! $subdirs) $subdirs = array(''); list($a, $up, $b, $path) = preg_match('/^(([\.]+\/)*)(.+)/', $this->fn, $found) ? $found : array('', '', '', $found[0]); foreach($subdirs as $subdir) { $sub = _slashjoin($up, $subdir); # Wanneer de basis zoekdirectory niet bestaat, dan controleren we nog even # of deze naam niet partieel voorkomt ergens in de boom. Zie functie _dirlist(). if ($subdir and !is_dir($sub)) { $sub = _dirlist(dirname($sub), preg_replace('/([^0-9a-z]+)$/', '', $subdir) ); } $this->searchdir = _slashjoin($sub, $path); $exists = (file_exists($this->searchdir) and filesize($this->searchdir) > 0); if ($exists) { $this->searchpath = $sub; break; } } $readable = ($exists and is_readable($this->searchdir) ); $soort = ($readable) ? filetype($this->searchdir) : ""; if ($readable and $soort == "file") { $this->cached( join('', file($this->searchdir)) ); $this->error = null; } elseif (!$exists) { $this->error( sprintf("'%s' bestaat niet.", $this->searchdir) ); } elseif (!$readable) { $this->error( sprintf("'%s' kan niet worden gelezen.", $this->searchdir) ); } elseif ($exists && $soort != "file") { $this->error( sprintf("'%s' is geen geldig bestand; %s", $this->searchdir, $soort) ); } return; } function error($str) { $text = sprintf('%s %s [in %s]', $this->me, $str, $_SERVER['SCRIPT_NAME']); $this->error = $text; if ($_SERVER['IS_DEVEL'] and $this->error) error_log($this->error); } function parse($vars = array()) { $vars = $vars + $this->vars; if ($this->searchpath) # Voeg een slash toe aan het einde van het pad - templates verwachten dit! $vars['_searchpath'] = trim(_slashjoin($this->searchpath, ' ')); $match = array(); $repl = array(); foreach(array_keys($vars) as $key){ $match[] = sprintf("/(%%\[%s\]%%)/i", preg_quote($key)); $repl[] = $vars[$key]; } $match[] = '/%\[[^\[\]]+\]%/'; # Catch all $repl[] = ''; return preg_replace($match, $repl, $this->cached()); } function extractData() { $reg = '/<\!--(\s*([^=\s\<\>]+)[\s=]+[\'"]?([^\'"\s\<\>]+))+\s*-->/'; $comment = '/<\!--\s*(.+)\s*-->/'; $fields = '/([^=\s<>]+)[\s=]+([\'\"])?([^\s<>\2]+)/'; if (! preg_match_all($comment, $this->cached(), $found) ) return false; foreach($found[1] as $line) { preg_match_all($fields, $line, $res); for($i=0; $i < sizeof($res[0]); $i++) { $this->vars[$res[1][$i]] = $res[3][$i]; } } return $this->vars; } function cached($str = null) { if (is_null($str)) { #request $do = $this->inf; return ($this->compressed() and $this->ch) ? $do($this->ch) : $this->ch; } $do = $this->def; $this->ch = ($this->compressed()) ? $do($str, 9) : $str; } function compressed() { return ($this->inf || $this->def); } } # EOF ?>