sub SplitUrlPunct {
  my ($url)=@_;
  my ($punct);

  if($url =~ s/\"\"$//) {
    return ($url,"");
  }
  $punct = "";
  if($url =~ /^news:/) {
     ($punct) = ($url =~ /([^\+a-zA-Z0-9\/\xc0-\xff]+)$/);
     $url =~ s/([^\+a-zA-Z0-9\/\xc0-\xff]+)$//;
  } else {
     ($punct) = ($url =~ /([^a-zA-Z0-9\/\xc0-\xff]+)$/);
     $url =~ s/([^a-zA-Z0-9\/\xc0-\xff]+)$//;
  }
  return ($url, $punct);
}

sub StripUrlPunct {
  my ($url)=@_;
  my ($junk);

  ($url, $junk) = SplitUrlPunct($url);
  return $url;
}

sub GetBracketUrlIndex {
  my ($id)=@_;

  if($SaveUrlNum{$id}>0) {
    return $SaveUrlNum{$id};
  }
  $SaveUrlNumIndex++;  # Start with 1
  $SaveUrlNum{$id} = $SaveUrlNumIndex;
  return $SaveUrlNumIndex;
}

sub StoreBracketInterWikiPage {
  my ($iwp)=@_;
  my ($url,$index,$link);

  $url=InterWikiPageRetUrl($iwp);
  $index=GetBracketUrlIndex($iwp);
  $link=UrlLabelClassTitleTargetRetLink($url,"[$index]",'body');
  return StoreRaw($link);
}

sub PageRetLogoDec {
  my ($id)=@_;
  my ($LogoImage,$header,$action);

  if($LogoUrl ne "") {
    $LogoImage = "img src='$LogoUrl' alt='[Home]' border='0'";
    if(UserHasStatus($NeedStatusAdmin)) {
       $action="edit=" . $id;
    } else {
       $action="action=HomePage";
    }
    $header = ActionLabelClassIdTargetTitleRetLink($action,"<$LogoImage>","");
  }
  return $header;
}

sub WikiRetFormSearchMini {
  my $ret=FormStart("form_search",'');
  $ret.=Lu("Search|Suchbegriff|Cherche|Buscar") . ": " . FormText('search','',20);
  $ret.=" " . Lu("in|gesucht wird|dans|en") . " " . FormCheck('title',1,Lu('title|im Titel|title|título'));
  $ret.=" " . FormCheck("text",1,Lu('text|im Text|text|texto'));
  $ret.=FormEnd();
  return $ret;
}

sub FormCheckHelper {
  my ($p_opt,$p_hid,$ident,$label,$val,$defval)=@_;
  my ($numval);

  if($val eq 'on' || $val eq 'off') {
    $$p_hid .= FormNameValueHidden($ident,$val) . "\n";
  } else {
    if($val eq '') {
      $val=$defval;
    }
    $numval = ($val>0) ? 1 : 0;
    $$p_opt .= ' ' . FormCheck($ident,$numval,$label);
  }
}

sub ParsRetVal {
  my $object=shift;
  my $ret;

  foreach (@_) {
    $ret=RetParam($_);
    if($ret ne '') {
      goto do_ret;
    }
  }
  if($ret eq '') {
    $ret= $object;
  }
do_ret:
  return $ret;
}

sub HvnRetVal {
  my($h_pars,$object,$var1,$var2,$var3,$var4)=@_;
  my $ret=$$h_pars{$var1};
  if($ret eq '') {
    $ret=$$h_pars{$var2};
    if(($ret eq '') && ($var3 ne '')) {
      $ret=$$h_pars{$var3};
      if(($ret eq '') && ($var4 ne '')) {
        $ret=$$h_pars{$var4};
      }
    }
  }
  if($ret eq '') {
    $ret= $object;
  }
  return $ret;
}

sub HvnRetColor { # hash, default, ...
  my $ret=HvnRetVal(@_);
  if(substr($ret,0,1) ne '#') {
    $ret=ColorDefaultRetCode($ret,$_[1]);
  }
  return $ret;
}

sub HvnHeight { return HvnRetVal(@_,"Höhe",Unicode("Höhe"),'height'); }
sub HvnWidth { return HvnRetVal(@_,'Breite','width'); }
sub HvnSize { return HvnRetVal(@_,"Größe",Unicode("Größe"),'size'); }
sub HvnSelect { return HvnRetVal(@_,'','select'); }
sub HvnFilter { return HvnRetVal(@_,'','filter'); }

sub WikiRetFormSearch {
  my ($h_pars)=@_;
  my $prompt=HvnRetVal($h_pars,LuNbsp('Search for:|Suchen nach:|Chercher :|Buscar:'),'Prompt','prompt');
  my $bcol= HvnRetColor($h_pars,'#eeeeee','Hintergrund','background');
  my $tlen=HvnRetVal($h_pars,20,'Feldlänge',Unicode('Feldlänge'),'inputwidth');
  my $title=HvnRetVal($h_pars,'','Titel','title');
  my $text=HvnRetVal($h_pars,'','Text','text');
  my $word=HvnRetVal($h_pars,'','Wort','word');
  my $case=HvnRetVal($h_pars,'','Case','case');
  my $regex=HvnRetVal($h_pars,'','Regex','regex');
  my $button=HvnRetVal($h_pars,'1','Button','button');
  my $val;
  my ($opt,$hid);

  if($tlen<20) {
    $tlen=20;
  }
  FormCheckHelper(\$opt,\$hid,'title',Lu('titles|Titel|titres|títulos'),$title,1);
  FormCheckHelper(\$opt,\$hid,'text' ,Lu('texts|Texte|textes|textos'),$text,1);
  FormCheckHelper(\$opt,\$hid,'word' ,Lu("words-only|Worte|mots-seulement|Palabras"),$word,0);
  FormCheckHelper(\$opt,\$hid,'case' ,Lu('match-case|Groß/klein|respecter-la-casse|considerar-la-caja'),$case,0);
  FormCheckHelper(\$opt,\$hid,'regex',Lu('regex|Regex|expressions-régulières'),$regex,0);

  $button = ($button) ? FormButton('do',Lu('Search|Suchen|Chercher|Buscar')) : $n1;

  my $ret = FormStart("form_search",'');
  $ret .= FormTableStart();
  $ret .= LineRsLsLmCol($prompt,FormText('search','',$tlen),$button,$bcol);
  if($opt) {
    $ret .= LineRsLsLmCol(LuNbsp('Options:|Optionen:|Options :|Opciones:'),$opt,$n1,$bcol);
  }
  $ret .= $hid;
  $ret .= FormTableEnd();
  $ret .= FormEnd();

  return $ret;
}

sub HtmlLuft {
  my ($width,$height)=@_;
  return "<img src='/image/p.gif' border='0' width='$width' height='$height'>";
}

sub ImageRetHtmlBar {
  my ($imnam,$width,$height)=@_;
  return ImageUrlRetHtmlPlus($imnam,'0',$width,$height);
}

sub FormNameValueHidden {
  my ($name,$value)=@_;

  $value =~ s/&/&/g;
  return "<input type='hidden' name='$name' value='$value' />";
}

sub ColorRetCode {
  my ($cnam)=@_;
  my $ret= $ColorTabDe{$cnam};
  if($ret eq '') {
    $ret= $ColorTabEn{$cnam};
  }
  if($ret eq '') {
    $ret= $ColorTabFr{$cnam};
  }
  return $ret;
}

sub ColorDefaultRetCode {
  my ($cnam,$object)=@_;
  my $ret=ColorRetCode($cnam);
  if($ret eq '') {
    $ret=$object;
  }
  return $ret;
}

$CdmlHash{ASIN}=\&CdmlAsin;
$CdmlHash{asin}=\&CdmlAsin;

sub CdmlAsin {
  my($body,$h_pars)=@_;
  HashAddContextDefaultsMissing($h_pars,'cdml.asin.defaults');
  my $image=HvnRetVal($h_pars,"http://images.amazon.com/images/P/\{code\}.01.THUMBZZZ.jpg",'image');
  my $url=HvnRetVal($h_pars,"http://www.amazon.com/exec/obidos/ASIN/\{code\}/\{aid\}",'url');
  my $aid=HvnRetVal($h_pars,'','aid');
  my $title=HvnRetVal($h_pars,'','title');
 my $asin=HvnRetVal($h_pars,$body,'code');
  StrStripBoth($asin);
  $asin=First($asin,'020171499X'); # default "The Wiki Way"

  $url=~ s/\{aid\}/$aid/;
  $url=~ s/\{code\}/$asin/;
  $image=~ s/\{aid\}/$aid/;
  $image=~ s/\{code\}/$asin/;

  $$h_pars{url}=$url;
  $$h_pars{image}=$image;
  return CdmlLink($title,$h_pars);
}

$CdmlHash{Bild}=\&CdmlImage;
$CdmlHash{image}=\&CdmlImage;

sub CdmlImage {
  my($body, $h_pars)=@_;
  HashAddContextDefaultsMissing($h_pars,'cdml.image.defaults');
  my ($ret,$width,$link,$punkt,$imw,$imh,$tablestyle,$scol,$tbcol,$ipad,$istyle);
  my $left_flag=1;
  my $url=HvnRetVal($h_pars,'','URL','url');
  my $text=HvnRetVal($h_pars,'','Text','text');
  my $pos=HvnRetVal($h_pars,'links','Position','align');
  my $pad=HvnRetVal($h_pars,'4','Luft','padding');
  my $art=HvnRetVal($h_pars,'','Art','type');
  my $bcol=HvnRetColor($h_pars,'','Hintergrund','background');
  my $border=HvnRetVal($h_pars,'0','Linienbreite','linewidth');
  my $breite=HvnRetVal($h_pars,'','Breite','width');
  my $abstand=HvnRetVal($h_pars,'','Abstand','distance');
  my $style=HvnRetVal($h_pars,'','Stil','style');
  my $imsize=HvnRetVal($h_pars,'','Bildformat','imagesize');
  my $framecolor=HvnRetColor($h_pars,'','Rahmenfarbe','framecolor');
  my $framewidth=HvnRetVal($h_pars,'','Rahmenbreite','framewidth');
  my $linecolor=HvnRetColor($h_pars,'','Linienfarbe','linecolor');
  my $linewidth=$border; # FIXME ugly
  my $ititle=HvnRetVal($h_pars,'','Bildtitel','imagetitle');
  my $ifont=HvnRetVal($h_pars,'','Bildfont','imagefont');

  if($url ne '' && $text eq '') {
    $text=$body; StrStripBoth($text);
    $body=$url;
  }

  StrStripBoth($body);
  if($body =~ m/$InterWebPattern/) {
    $body=InterWikiPageRetUrl($body);
  }

  if($text eq '') {
    $pos=HvnRetVal($h_pars,'','Ausrichtung','Position','align');
    if($pos =~ m/^r/) {
      $style.=" float: right; "
    } elsif ($pos =~ m/^l/) {
      $style.=" float: left; "
    }
    if($border>0) {
      $style.=" border: solid ${border}px $bcol; background-color:$bcol; "
    }
    ($link,$punkt)=UrlpRetLinkPunct($body,1,$style);
    return $link;
  }

  $text=TextCdmlRetText($text);
  TextMarkupImagesLinksParasLists($text,0,1,1,1);
  if($breite eq "") {
    $width="width='100%'";
  } else {
    $width="width='$breite'";
  }
  if($bcol ne "") {
    $tbcol=" bgcolor='$bcol'";
  }
  if($imsize =~ m/(\d+)x(\d+)/) {
    $imw=$1; $imh=$2;
  }

  my $al="left";
  if($pos =~ /^r/ ) {
    $al="right";
    $left_flag=0;
  }
  if($framecolor ne '') {
    if($framewidth==0) {
      $framewidth=3;
    }
    $style.=" border: solid ${framewidth}px $framecolor; ";
  }
  if($linecolor ne '') {
    if($linewidth==0) {
      $linewidth=1;
    }
    $tablestyle=" border: solid ${linewidth}px $linecolor; ";
    $tablestyle="style='$tablestyle'";
  }
  $ipad=$pad;
  if($ititle ne '') {
    $ipad=''
  }
  my $im=ImageUrlRetHtmlPlus($body,'0',$imw,$imh,$al,$ipad,$style);

  if($ititle ne '') {
    if($ifont ne '') {
      $ititle=TextFontRetHtml($ititle,$ifont);
    }
    $scol=First($framecolor,$bcol);
    if($left_flag) {
      $istyle.=" margin: 0 ${pad}px 0 0; "; #right
    } else {
      $istyle.=" margin: 0 0 0 ${pad}px; "; #left
    }
    $istyle.=" padding: 0 0 ${framewidth}px 0; ";
    $im="<table cellspacing='0' border='0' cellpadding='0' bgcolor='$scol' width='1%' align='$al' style='$istyle' ><tr><td width='1%'>$im</td></tr><tr><td width='1%'><center>$ititle</center></td></tr></table>";
  }
  if(StrEquList($art,'Spalte','column')) {
    if($left_flag) {
      $ret="<table $width cellspacing='0' border='0' $tbcol cellpadding='$pad' $tablestyle><tr><td valign='top'>$im</td><td>$text</td></tr></table>";
    } else {
      $ret="<table $width cellspacing='0' border='0' valign='top' $tbcol cellpadding='$pad' $tablestyle><tr><td>$text</td><td valign='top'>$im</td></tr></table>";
    }
  } else {
    $ret="<table $width border='0' $tbcol cellspacing='0' cellpadding='$pad' $tablestyle><tr><td>$im$text</td></tr></table>";
  }
  if(StrEmpty($abstand)) {
    $ret="<center>$ret</center>";
  } else {
    $ret="<table cellspacing='0' cellpadding='0' border='0'><tr><td>" . HtmlLuft($abstand,1) . "</td><td>$ret</td></tr></table>"
  }
  return $ret;
}

sub WikiRetFormBlog {
  my ($id,$form)=@_;
  my $editRows = RetParam("editrows", $Def_editrows);
  my $editCols = RetParam("editcols", $Def_editcols);
  my ($ret,$h);

  $ret .= FormStart("form_blog",$id);
  $ret .= FormTableStart();
  $ret .= FormNameValueHidden("title",$id) . "\n";
  $ret .= FormNameValueHidden("form",$form) . "\n";

  $h  = Lu('Contribution input form|Eingabeformular für Beiträge|Formulaire de Publication|Formulario de publicación');
  $ret .= HeaderColSpan($h,$FormTitlebackground,1);

  $h = Lu('Heading|Überschrift|En-tête|Título') . ': ' . FormText('summary','',30);
  $ret .= LineLm($h,$n1);

  $FontDecSuppress=1;
  $h = FormTextArea('text','',$editRows,$editCols,1,1);
  $ret .= LineLm($h,$n1);
  $FontDecSuppress=0;

  $h = FormButton('Save',LiSave()) . "$n3(" . LiUser() . ": $UserName)";
  $ret .= LineLm($h,$n1);

  $ret .= FormTableEnd();
  $ret .= FormEnd();

  return $ret;
}

sub WordForm {
  my ($text,@words)=@_;
  $text =~ s/(\%(\d+))/{$words[$2];}/ge;
  return $text;
}

sub TextProcess {
  my ($text,$process)=@_;

  PageContextInit();
  my $rule=$PageContext{rule};
  my (@arr,@arw);

  @arr = split(/[,;]/,$rule);

  $arw[0]=$PageCur;
  $arw[1]=$PageContext{plural};

  $text =~ s/(\$(\d+))/{&WordForm($arr[$2-1],@arw);}/ge;
#  $text =~ s/\$/xxx/g;

  return $text;
}

sub HashAddPageReRange {
  my ($h_pages,$page,$minlevel,$maxlevel)=@_;
  my $pagelevel=StrFindStrRetCount($page,'/');
  my ($key,$keylevel,$push,$re);
  $re=($page ne '') ? "$page/" : $page;

  PageIndexInit();
  foreach $key (keys %PageIndex) {
    if($key =~ m#^$re#) {
      $keylevel=StrFindStrRetCount($key,'/');
      $push=1;
      if($keylevel<$pagelevel+$minlevel) {
        $push=0;
      } elsif($keylevel>$pagelevel+$maxlevel) {
        $push=0;
      }
      if($push) {
        $$h_pages{$key}++;
      }
    }
  }
}

sub ArrayRandomize {
  my ($a_arr)=@_;
  my ($i,$ind,$h);

  for($i=$#$a_arr; $i>0; $i--) {
    $ind=int(rand($i + 1));
    $h=$$a_arr[$i];
    $$a_arr[$i]=$$a_arr[$ind];
    $$a_arr[$ind]=$h;
  }
}

sub HashAddPageTypes {
  my($h_pages,$page,$types)=@_;
  my ($type,$serr);

  PageIndexInit();
  my ($grand,$parent)=PageRetGrandParent($page);
  foreach $type (ListSplit($types)) {
    if(StrEquList($type,'Selbst','self')) {
      $$h_pages{$page}++;
    } elsif(StrEquList($type,'Kinder','children')) {
      HashAddPageReRange($h_pages,$page,1,1);
    } elsif(StrEquList($type,'Enkel','grandchildren')) {
      HashAddPageReRange($h_pages,$page,2,2);
    } elsif(StrEquList($type,'Nachkommen','descendants')) {
      HashAddPageReRange($h_pages,$page,1,1000);
    } elsif(StrEquList($type,'Kleinfamilie','sfamily')) {
      HashAddPageReRange($h_pages,$page,0,1);
    } elsif(StrEquList($type,'Zweig','branch')) {
do_branch:
      HashAddPageReRange($h_pages,$page,0,1000);
    } elsif(StrEquList($type,'Familie','family')) {
      HashAddPageReRange($h_pages,First($parent,$page),0,1000);
    } elsif(StrEquList($type,"Großfamilie",Unicode("Großfamilie"),'xfamily')) {
      HashAddPageReRange($h_pages,First($grand,$parent,$page),0,1000);
    } elsif(StrEquList($type,'*','@')) {
      HashAddHash($h_pages,\%PageIndex);
    } else {
      goto do_branch;
    }
  }
  return $serr;
}

$CdmlHash{Liste}=\&CdmlList;
$CdmlHash{list}=\&CdmlList;

sub CdmlList {
  my($body, $h_pars)=@_;
  HashAddContextDefaultsMissing($h_pars,'cdml.list.defaults');
  my $type=HvnRetVal($h_pars,'children','Typ','type');
  my $vida=HvnRetVal($h_pars,'','Vida','vida');
  my $title=HvnRetVal($h_pars,'','Titel','title');
  my $layout=HvnRetVal($h_pars,'','Layout','layout');
  my $anzahl=HvnRetVal($h_pars,0,'Anzahl','count');
  my $showdate=HvnRetVal($h_pars,'','Datum','date');
  my $publish=HvnRetVal($h_pars,'','Veröffentlichen',Unicode('Veröffentlichen'),'publish');
  my $edit=HvnRetVal($h_pars,'','Bearbeiten',"Ändern",Unicode('Ändern'),'edit');
  my $filter=HvnRetVal($h_pars,'','Filter','filter');
  my $select=HvnRetVal($h_pars,'','Selektion','select');
  my $opt= HvnRetVal($h_pars,'','Optionen','options');
  my $page=HvnRetVal($h_pars,$PageCur,'Seite','page');
  my $varlist=HvnRetVal($h_pars,'','Variablen','Variable','variables','variable');
  my $off=0;
  my ($re,@pageinfo,$self,@vars);

  my (@pages,$ret,%hinfo,%horder,$pagename,$fnam,$ftim,$ftim2,$info,$pp,%phash);

  $body=~s/\s+/ /g;
  StrStripBoth($body);
  if($body ne '') {
    if($varlist eq '') {
      $varlist=$body;
     $vida=1;
      $type=HvnRetVal($h_pars,'*','Typ','type');
    }
  }
  @vars=ListSplit($varlist);

  HashAddPageTypes(\%phash,$page,$type);
  @pages=sort keys %phash;

  if($filter ne '') {
    @pages=ArrayStrFilterRegex(\@pages,$filter,1);
    if($publish ne '') {
      @pages=ArrayStrFilterRegex(\@pages,"/Context",1);
    }
  }
  if($select ne '') {
    @pages=ArrayStrFilterRegex(\@pages,$select,0);
  }
  if($vida) {
    my $sep=" /// ";
    if($VidaCaching) {
      @pageinfo=VidaCacheVarsSepRetArrFilterPages(\@vars,$sep,\@pages);
    } else {
      VidaInitPageArray(\@pages);
      @pageinfo=VidaVarsSepRetArr(\@Vida,\@vars,$sep);
    }
    my %pars=%$h_pars;
    HashAddArray(\%pars,'separator',$sep);
    my $header=join($sep,LiPages(),@vars);
    unshift(@pageinfo,$header);
    return CdmlTable(join("\n",@pageinfo),\%pars);
  }
  if($opt =~ m#r#) {
    ArrayRandomize(\@pages);
  }
  if($publish ne '') {
    $showdate=1;
  }
  if($edit ne '') {
    $showdate=1;
    $hinfo{"column.edit"}=1;
  }
  if($showdate ne '') {
    foreach $pagename (@pages) {
      $horder{$pagename}=$ftim=PageRetTime($pagename);
      $info=TimeRetText($ftim);
      if($edit ne '') {
        $hinfo{"edit.$pagename"}="  ";
      }
      if($publish ne '') {
        $pp=PageRetPublishPage($pagename);
        $ftim2=PageRetTime($pp);
        if($ftim2<$ftim) {
          $info.=" ".NameStyleRetImageGif('newer');
        } else {
          $info.=" up-to-date";
        }
      }
      $hinfo{$pagename}=$info;
    }
    $ret=PageListRetHtml('',$ScriptName,\@pages,\%hinfo,'',1,1,$layout,$anzahl,\%horder,1,0,undef,undef,0);
  } else {
    $ret=PageListRetHtml('',$ScriptName,\@pages,undef,'',1,1,$layout,$anzahl,undef,0,0,undef,undef,0);
  }
do_err:
  return $ret;
}

sub HashRetSize {
  my ($h_hash)=@_;
  return int(keys %$h_hash);
}

sub HashRetMax {
  my ($h_hash)=@_;
  my ($max,$val);

  foreach (keys %$h_hash) {
    $val=$$h_hash{$_};
    if($val>$max) {
      $max=$val;
    }
  }
  return $max;
}

sub ArrayElementRetInd {
  my ($a_ar,$el)=@_;
  my $ind=0;
  foreach (@$a_ar) {
    if($_ eq $el) {
      return $ind;
    }
    $ind++;
  }
  return -1;
}

sub TablePageFieldRetSum {
  my ($id,$field)=@_;
  my $text=PageRetTextFast($id);
  my @lines=split("\n",$text);
  my $fieldline=shift(@lines);
  my @fields=LineRetFields($fieldline);
  my $ind=ArrayElementRetInd(\@fields,$field);
  my $sum;

# MsgPrint("TPFRS id=$id field=$field fieldline=$fieldline ind=$ind");
  if($ind<0) {
    return " error ";
  }
  foreach (@lines) {
    $sum += LineIndRetField($_,$ind);
  }
  return $sum;
}

sub DataRetVal {
  my ($var)=@_;
  my $ret=$var;
  if($var =~ m/vida\.(.*)/) {
    $var=$1;
    $ret=PageVarRetValDefault($PageCur,$var,$n1);
  } elsif($var =~ m#tablesum\.([^.]+)\.([^.]+)# ) {
    $ret=TablePageFieldRetSum($1,$2);
  }
  $ret;
}

$CdmlHash{"Einfügen"}=\&CdmlInsert;
$CdmlHash{Unicode("Einfügen")}=\&CdmlInsert;
$CdmlHash{insert}=\&CdmlInsert;

sub CdmlInsert {
  my($body, $h_pars)=@_;
  my $typ=HvnRetVal($h_pars,'','Typ','type');
  my $id=HvnRetVal($h_pars,'','Seite','page');
  my $process=HvnRetVal($h_pars,'','Prozess','process');
  my $form=HvnRetVal($h_pars,'','Formular','form');
  my $silent=HvnRetVal($h_pars,'','Tolerant','silent');
  my $bcol=HvnRetColor($h_pars,'','Hintergrund','background');
  my $days=HvnRetVal($h_pars,7200,'days');
  my $detail=HvnRetVal($h_pars,0,'detail');
  my $months=($days>90)?1:0;
  my $ret;
  my $es=Lu("Error in insert|Fehler in Einfügung|Erreur en insertion|Error de inserción");
  my $var;

  if($typ eq 'Datum') {
    $ret=TimeRetDay($^T);
  } elsif(StrEquList($typ,'Seitenzahl','pagecount')) {
    PageIndexInit();
    $ret=HashRetSize(\%PageIndex);
  } elsif(StrEquList($typ,'Daten','data')) {
    $var=$body;
    $ret=DataRetVal($var);
  } elsif(StrEquList($typ,'Mediendaten','mediadata')) {
    $ret=StatCreatePlus(0,1,$months,$days,$detail);
  } elsif(StrEquList($typ,"Seitengröße",Unicode("Seitengröße"),"Seitenlänge",Unicode("Seitenlänge"),'pagesize')) {
    $ret=PageRetSize(ValDefault($id,$PageCur));
  } elsif(StrEquList($typ,'Wortanzahl','wordcount')) {
    $ret=PageRetWordCount(ValDefault($id,$PageCur));
  } elsif(StrEquList($typ,'Zeichenanzahl','charactercount')) {
    $ret=PageRetCharCount(ValDefault($id,$PageCur));
  } elsif($typ eq 'ProtId') {
    $ProtId=RandomRetStamp();
    $ProtId=substr($ProtId,0,6);
    $ret=$ProtId;
  } elsif(StrEquList($typ,'WebLog','weblog','Blog','blog')) {
    $ret=WikiRetFormBlog($PageCur,$form);
  } elsif($id ne '') {
    if($id =~ m/\$/) {
      PageContextInit();
      $id =~ s/\$(.*)$/$PageContext{$1}/;
    }
    if(PageExist($id)) {
      $ret=PageRetText($id);
      if($process ne '') {
        $ret=TextProcess($ret,$process);
      }
      $ret=TextWikiRetHtmlBasic($ret);
      if($bcol ne '') {
        $ret="<div style='background:url(/image/bg_pergament1.jpg); padding: 10 10 10 10; margin: 10 10 10 10; border: dotted 3px gray;'>$ret</div>";
#        $ret="<div style='background:$bcol; padding: 10 10 10 10; margin: 10 10 10 10; border: dotted 3px gray;'>$ret</div>";
#        $ret="<table border='0' cellspacing='0' cellpadding='0' width='100%'><tr bgcolor='$bcol'><td>$ret</td></tr></table>";
#        TableCvtLineColorWidth($ret,'#000000','90%');
#        TableCvtAbstandWidth($ret,'','90%');
      }
    } elsif($silent eq '') {
      $lb1=Lu("Page %PAGENAME% doesn't exist.|Seite %PAGENAME% existiert nicht.|page %PAGENAME% n'existe pas.|página %PAGENAME% no existe.");
      MessRepPagename($lb1,$id);
      $ret=$es.LiColon().$lb1;
    }
  } else {
    $lb1=Lu("Type %TYPENAME% unknown.|Typ %TYPENAME% unbekannt.|type %TYPENAME% inconnu.|tipo %TYPENAME% desconocido.");
    MessRepVar($lb1,"%TYPENAME%",$typ);
    $ret=$es.LiColon().$lb1;
  }
  return $ret;
}

$CdmlHash{Schrift}=\&CdmlFont;
$CdmlHash{font}=\&CdmlFont;

sub FontRetFaceSizeColorBoldItalUdl {
  my ($font)=@_;
  my ($face,$size,$col,$bold,$ital,$udl,$fmtcol);

  ($face) = ($font =~ m/^([^@#]*)/ );
  ($col) = ($font =~ m/#([^@#]*)/ );
  ($size) = ($font=~ m/@([^@#]*)/ );
  if($col ne '') {
    $fmtcol=ColorRetCode($col);
    if($fmtcol ne '') {
      $col=$fmtcol;
    } else {
      $col="#$col";
    }
  }
  if($size ne '') {
    $bold = ($size =~ m/[bBfF]/) ? 1 : 0;
    $ital = ($size =~ m/[iIkK]/) ? 1 : 0;
    $udl = ($size =~ m/[uU]/) ? 1 : 0;
    $size = int($size);
    if($size == 0) {
      $size='';
    }
  }

 return ($face,$size,$col,$bold,$ital,$udl);
}

sub TextFaceSizeColorBoldItalUdlRetHtml {
  my ($text,$face,$size,$color,$bold,$ital,$udl)=@_;
  my ($h1,$h2);

  if($face ne '') {
    $face=" face='$face'";
  }
  if($size ne '') {
    $size=" size='$size'";
  }
  if($color ne '') {
    $color=" color='$color'";
  }
  if($bold) {
    $h1.="<b>"; $h2.="</b>";
  }
  if($ital) {
    $h1.="<i>"; $h2="</i>".$h2;
  }
  if($udl) {
    $h1.="<u>"; $h2="</u>".$h2;
  }
  return "<font$face$size$color>" . $h1 . $text . $h2 . '</font>';
}

sub TextFontRetHtml {
  my ($text,$font)=@_;
  my ($face,$size,$col,$bold,$ital,$udl)=FontRetFaceSizeColorBoldItalUdl($font);
  return TextFaceSizeColorBoldItalUdlRetHtml($text,$face,$size,$col,$bold,$ital,$udl);
}

sub CdmlFont {
  my($body, $h_pars)=@_;
  HashAddContextDefaultsMissing($h_pars,'cdml.font.defaults');
  my $face=HvnRetVal($h_pars,'','Art','face');
  my ($size,$col,$bold,$ital,$udl);

  if($face ne '') {
    ($face,$size,$col,$bold,$ital,$udl)=FontRetFaceSizeColorBoldItalUdl($face);
  }
  $size=HvnSize($h_pars,$size);
  $col=HvnRetColor($h_pars,$col,'Farbe','color');
  TextMarkupImagesLinksParasLists($body,0,1,1,1);
  return TextFaceSizeColorBoldItalUdlRetHtml($body,$face,$size,$col,$bold,$ital,$udl);
}

sub PixelRetTwips {
  return 15*$_[0];
}

sub RtfRowsRetTable {
  my ($rows)=@_;
  return "{\\intbl\n" . $rows . "}\n";
}

sub RtfCellsRetRow {
  my ($cells,$abstand,$luft)=@_;
  my $rabstand=PixelRetTwips($abstand);
  my $rluft=PixelRetTwips($luft);
  return "\\trowd\\trleft$rabstand\\li$rluft\\ri$rluft\\sb$rluft\\sa$rluft\n" . $cells . "\\row\n";
}

sub RtfCell {
  my ($body,$fcol,$width,$bcol,$lwidth,$lcol)=@_;
  my $find=RtfColorTabRetInd($fcol);
  my $bind=RtfColorTabRetInd($bcol);
  my $lind=RtfColorTabRetInd($lcol);
  my $lw=PixelRetTwips($lwidth);
  my $cwidth=PixelRetTwips($width);

  my $ret=
   "\\tcelld\n"
  ."\\clbrdrb\\brdrs\\brdrw$lw\\brdrcf$lind\\clbrdrt\\brdrs\\brdrw$lw\\brdrcf$lind\\clbrdrl\\brdrs\\brdrw$lw\\brdrcf$lind\\clbrdrr\\brdrs\\brdrw$lw\\brdrcf$lind\n"
  ."\\clcbpat$bind\\cellx$cwidth\\ql {\\f0\\cf$find $body}\\cell\n";
  return $ret;
}

sub RtfTextColorTableAbstandWidthColorLinewidthColorLuft {
  my ($body,$fcol,$abstand,$width,$bcol,$lwidth,$lcol,$luft)=@_;
  my $cells=RtfCell($body,$fcol,$width,$bcol,$lwidth,$lcol);
  my $rows=RtfCellsRetRow($cells,$abstand,$luft);
  return RtfRowsRetTable($rows);
}

$CdmlHash{Posting}=\&CdmlCode;
$CdmlHash{Code}=\&CdmlCode;
$CdmlHash{posting}=\&CdmlCode;
$CdmlHash{code}=\&CdmlCode;

sub CdmlCode {
  my($body, $h_pars)=@_;
  HashAddContextDefaultsMissing($h_pars,'cdml.code.defaults');
  my $abstand=HvnRetVal($h_pars,50,'Abstand','distance');
  my $w=HvnWidth($h_pars,400);
  my $fcol=HvnRetColor($h_pars,'#000066','Farbe','color');
  my $bcol=HvnRetColor($h_pars,'#e7e7e7','Hintergrund','background');
  my $lcol=HvnRetColor($h_pars,'#cccccc','Linienfarbe','linecolor');
  my $luft=HvnRetVal($h_pars,'8','Luft','padding');
  my $lwidth=HvnRetVal($h_pars,'2','Linienbreite','linewidth');
  my $face=HvnRetVal($h_pars,'mono','Schriftart','face');
  my $lnr=HvnRetVal($h_pars,'','Zeilennummer','linenumber');
  my $lfmt=HvnRetVal($h_pars,'','Zeilennummernformat','linenumberformat');
  my ($b2,$line,$ret);

  $body =~ tr/\r//d;
  StrStripChrBoth($body,"\n");
  $body=TextCdmlRetText($body);
  if($lnr ne '' || $lfmt ne '') {
    $lnr=int($lnr);
    if($lnr==0) {
      $lnr=1;
    }
    if($lfmt eq '') {
      $lfmt='%3d: ';
    } else {
      StrStripBrackets($lfmt,'"','"');
    }
    foreach $line (split(/\n/,$body)) {
      $b2 .= sprintf($lfmt,$lnr++) . $line . "\n";
    }
    $body=$b2;
  }

  if($face ne '') {
    $face=StrDecorate($face," face='\@'");
  }

  if($RtfMode) {
    $body =~ s#\n*<p>\n*#\\line\n#g;
    $body =~ s#\\line\n$##;
    $ret="{\\f2\\fs20 $body}";
    $ret=RtfTextColorTableAbstandWidthColorLinewidthColorLuft($ret,$fcol,$abstand,$w,$bcol,$lwidth,$lcol,$luft);
    return $ret;
  }

  my $text="<td width=$w><pre style='margin:0 0 0 0;'><font color=$fcol$face>".$body."</font></pre></td>";
  my $tb;
  $tb .= "<table border='0' cellspacing=0 cellpadding='0' bgcolor='$lcol'><tr><td>";
  $tb .= "<table border='0' cellspacing=$lwidth cellpadding='$luft'><tr bgcolor=$bcol>";
  $tb .= $text;
  $tb .= "</tr></table>";
  $tb .= "</td></tr></table>";

  $ret="<table cellspacing='0' cellpadding='0' border='0'><tr><td>";
  $ret .= HtmlLuft($abstand,1) . "</td><td>$tb</td></tr></table>";
  return $ret;
}

sub TextMarkWord {
  my($word)=@_;
  my($mean,$word2);

  $mean=$AltWordSet{$word};
  if($mean eq '') {
    my $word2=WordTogCase($word);
    $mean=$AltWordSet{$word2};
    if($mean eq '') {
      return $word;
    }
  }
  return "<a href='$ScriptName?$AltWordSource' title='$mean' onmouseover=\"status='$mean'; return true;\" onmouseout=\"status=''; return true;\"><span style='background-color: $AltWordColor'>$word</span></a>";
}

sub PageRetWordHash {
  my($id)=@_;
  my(@lines,$line,$word,$mean,%hash);
  my $fnam = $PageDir . "/" . PageRetDirectory($id) . "/$id.db";

  if(!(-f $fnam)) {
     return;
  }

  my $text=PageRetText($id);

  if($text =~ m#\[\[Tabelle\](.*)\n\]#s ) {
    @lines=split("\n",$1);
    foreach $line (@lines) {
      ($word,$mean)=split(';',$line);
      $hash{$word}=$mean;
    }
  }
  return %hash;
}

sub Cover {
  my($s,$head,$tail)=@_;
  if($s ne '') {
    return $head.$s.$tail;
  }
  return '';
}

sub TableCvtAbstandWidth {
  # my($table,$abstand,$width)=@_;
  my $abstand=$_[1];
  my $width=$_[2];
  my $twid=Cover($width," width=");
  if($abstand eq '') {
    $_[0]="<center>$_[0]</center>";
  } else {
    $_[0]="<table cellspacing=0 cellpadding='0' border='0' width=100%><tr><td width=1%>" . HtmlLuft($abstand,1) . "</td><td align=left $twid>$_[0]</td></tr></table>";
  }
}

sub AltWordInit {
  my($lang)=@_;
  if($AltWordColor eq '') {
    $AltWordColor="#ffddbb";
    %BaseWordSet= PageRetWordHash("GrundWortschatz".$lang);
    $AltWordSource="ErweiterungsWortschatz".$lang;
    %AltWordSet= PageRetWordHash($AltWordSource);
  }
}

sub ParsRetHash {
  my($pars)=@_;
  my (%hash,@ar,$key,$val);

  ($pars) = ($pars =~ m/^\s*\[(.*)\]\s*$/);
  @ar=split(/\