<?
/* (C) 2004 by Folke Ashberg www.ashberg.de / folke@ashberg.de */

// ob_start('ob_b') to translate the php-output on the fly

function strtobsprache($in){
    // alleinstehende konsonanten 'aussprechen'
    $x="[[:space:]!?:\"'/.,_-]";
    $in=preg_replace("#(^|$x)([bcdgpwt])($x|$)#", "\\1\\2e\\3", $in);
    $in=preg_replace("#(^|$x)([frslnm])($x|$)#", "\\1e\\2\\3", $in);
    $in=preg_replace("#(^|$x)([kh])($x|$)#", "\\1\\2a\\3", $in);
    $in=preg_replace("#(^|$x)([q])($x|$)#", "\\1\\2u\\3", $in);
    $in=preg_replace("#(^|$x)([j])($x|$)#", "\\1\\2ott\\3", $in);
    $in=preg_replace("#(^|$x)([v])($x|$)#", "\\1\\2au\\3", $in);
    $in=preg_replace("#(^|$x)([x])($x|$)#", "\\1i\\2\\3", $in);
    $in=preg_replace("#(^|$x)([y])($x|$)#", "\\1\\2psilon\\3", $in);
    $in=preg_replace("#(^|$x)([z])($x|$)#", "\\1\\2ett\\3", $in);
    $in=preg_replace("#(^|$x)([BCDGPWT])($x|$)#", "\\1\\2E\\3", $in);
    $in=preg_replace("#(^|$x)([FRSLNM])($x|$)#", "\\1E\\2\\3", $in);
    $in=preg_replace("#(^|$x)([KH])($x|$)#", "\\1\\2A\\3", $in);
    $in=preg_replace("#(^|$x)([Q])($x|$)#", "\\1\\2U\\3", $in);
    $in=preg_replace("#(^|$x)([J])($x|$)#", "\\1\\2OTT\\3", $in);
    $in=preg_replace("#(^|$x)([V])($x|$)#", "\\1\\2AU\\3", $in);
    $in=preg_replace("#(^|$x)([X])($x|$)#", "\\1I\\2\\3", $in);
    $in=preg_replace("#(^|$x)([Y])($x|$)#", "\\1\\2PSILON\\3", $in);
    $in=preg_replace("#(^|$x)([Z])($x|$)#", "\\1\\2ETT\\3", $in);

    $in=str_replace("&Auml;", "Ä", $in);
    $in=str_replace("&Ouml;", "Ö", $in);
    $in=str_replace("&Uuml;", "Ü", $in);
    $in=str_replace("&auml;", "ä", $in);
    $in=str_replace("&ouml;", "ö", $in);
    $in=str_replace("&uuml;", "ü", $in);

    $len=strlen($in);
    $in.=" X";
    $out="";
    for ($a=0;$a<$len;$a++){
	$c=$in[$a];
	if ($c=="&"){
	    for ($b=$a+1;$b<$a+8;$b++){
		if (!eregi("[a-z]", $in[$b])) break;
	    }
	    if ($in[$b]==";"){
		for (;$a<=$b;$a++) $out.=$in[$a];
		$a--;
	    } else $out.=$c;
	} else {
	    if (eregi("[aeiouäöüy]", $c)){
		$next=$in[$a+1];
		if (eregi("[aoeiouöüüy]", $next)) $nexton=true;
		else $nexton=false;
		$both=strtolower($c.($nexton?$next:""));
		if (strtoupper($c.$next)==$c.$next){
		    $uppers=true;
		} else {
		    $uppers=false;
		}
		if ($both=="au" || $both=="ei" || $str=="eu" || $both=="äu"
	    || $both=="öu"){
		    $out.="a";
		} else {
		    if ($c=="y") $out.="i";
		    else if ($c=="Y") $out.="Y";
		    else $out.=$c;
		    if ($nexton){
			if ($both!="ie") $out.=$next;
		    }
		}
		if ($uppers){
		    $out.="B";
		} else {
		    $out.="b";
		    $c=strtolower($c);
		    $next=strtolower($next);
		}
		$out.=$c;
		if ($nexton) $out.=$next;
		if ($nexton) $a++;
	    }else $out.=$c;
	} 
    }
    return $out;
}

function strtobsprachehtml($in, $newurl="", $bbase=""){ 
    setlocale(LC_ALL, "de_DE");
    $len=strlen($in);
    $html=false;
    $quoted=false;
    $string=false;
    $s="";
    $out="";
    for ($a=0;$a<$len;$a++){
	$hon=false; $hoff=false;
	if (!$quoted){
	    if ($html && $in[$a]=="\"") $string=!$string;
	    else if (!$string && $in[$a]=="<") { $html=true; $hon=true; } 
	    else if (!$string && $in[$a]==">") { $html=false; $hoff=true; }
	    else if ($string && $in[$a]=="\\") $quoted=true;
	    else $quoted=false;
	} else {
	    $quoted=false;
	}
	if ($hon){
	    if ($tagoff) $out.=$s;
	    else $out.=strtobsprache($s);
	    $s="<";
	} else if ($hoff) {
            if ($tagoff){
                if (eregi("</".$tagoff."([[:space:]>]|$)", $s, &$erg)){
                    $tagoff="";
                }
            }
            if (!$tagoff && eregi("<(textarea|script|style)([[:space:]>]|$)", $s, &$erg)){
                $tagoff=$erg[1];
            } else if (eregi("<input.*[[:space:]]type=\"?submit\"?", $s)){
                if (preg_match("#\s(value=)\"(.*[^\\\\])\"#Ui", $s, &$erg)){
                    $s=str_replace($erg[1]."\"".$erg[2]."\"", $erg[1]."\"".strtobsprache($erg[2])."\"", $s);
                } else if (preg_match("\s(value=)([^\s>]*)#Ui", $s, &$erg)){
                    $s=str_replace($erg[1].$erg[2], $erg[1].strtobsprache($erg[2]), $s);
                }
            } else if (eregi("<img[[:space:]]", $s)){
                if (preg_match("#\s(alt=)\"(.*[^\\\\])\"#Ui", $s, &$erg)){
                    $s=str_replace($erg[1]."\"".$erg[2]."\"", $erg[1]."\"".strtobsprache($erg[2])."\"", $s);
                } else if (preg_match("#\s(alt=)([^\s>]*)#Ui", $s, &$erg)){
                    $s=str_replace($erg[1].$erg[2], $erg[1].strtobsprache($erg[2]), $s);
                }
            } else if ($newurl){
                if (eregi("<a[[:space:]].*href=", $s)){
                    if (preg_match("#\s(href=)\"(.*[^\\\\])\"#Ui", $s, &$erg)){
                        $s=str_replace($erg[1]."\"".$erg[2]."\"", $erg[1]."\"$newurl?bsite=".urlencode($erg[2])."&bbase=".urlencode($bbase)."\"", $s);
                    } else if (preg_match("#\s(href=)([^\s>]*)#i", $s, &$erg)){
                        $s=str_replace($erg[1].$erg[2], $erg[1]."\"$newurl?bsite=".urlencode($erg[2])."&bbase=".urlencode($bbase)."\"",$s);
                    }
                } else if (eregi("<frame[[:space:]].*src=", $s)){
                    if (preg_match("#\s(src=)\"(.*[^\\\\])\"#Ui", $s, &$erg)){
                        $s=str_replace($erg[1]."\"".$erg[2]."\"", $erg[1]."\"$newurl?bsite=".urlencode($erg[2])."&bbase=".urlencode($bbase)."\"", $s);
                    } else if (preg_match("#\s(src=)([^\s>]*)#i", $s, &$erg)){
                        $s=str_replace($erg[1].$erg[2], $erg[1]."\"$newurl?bsite=".urlencode($erg[2])."&bbase=".urlencode($bbase)."\"",$s);
                    }
                } else if (eregi("<form[[:space:]].*action=", $s)){
                    if (preg_match("#\s(action=)\"(.*[^\\\\])\"#Ui", $s, &$erg)){
                        $s=str_replace($erg[1]."\"".$erg[2]."\"", $erg[1]."\"$newurl\"", $s);
                        $s.=">"."<input type=hidden name=bsite value=\"".$erg[2]."\">";
                        $s.="<input type=hidden name=bbase value=\"$bbase\"";
                    } else if (preg_match("#\s(action=)([^\s>]*)#Ui", $s, &$erg)){
                        $s=str_replace($erg[1].$erg[2], $erg[1]."\"$newurl\"", $s);
                        $s.=">"."<input type=hidden name=bsite value=\"".$erg[2]."\">";
                        $s.="<input type=hidden name=bbase value=\"$bbase\"";
                    }
                }
            }
	    $out.=$s;
	    $s=">";
	} else {
	    $s.=$in[$a];
	}
    }
    if (strlen($s)>0){
	if (!$html) $out.=strtobsprache($s);
	else $out.=$s;
    }
    return $out;
}

function ob_b($in){ // Special for ob_start('ob_b') */
    return strtobsprachehtml($in);
}
?>