////////////////////////////////////////////////
// feedback script used for gbook and comment //
////////////////////////////////////////////////
var  rx = '',  rrh = '',  rs = 2009;
function xcleanup(ri)
{ rx = ri;  rx = rx.replace(/\"/g, '*');
  rx = rx.replace(/\</g, '\#');  rx = rx.replace(/\>/g, '\#');
  rx = rx.replace(/\[/g, '\#');  rx = rx.replace(/\]/g, '\#');  return(rx);
}  // end xcleanup
//
function xlinebrk(ri)
{ rx = '';
// split into array of lines, clear f
  var fl = ri.split('\n');  var fla = fl.length;  fla--;  rx = '';
  var cc = '',  p = '',  i = 0,  j = 0;
  if  (fl[fla] <= ' ')  { fla--; };  // check for eof without data
// examine line per line: line-length 0 do nothing, 1..60 take over and add cr, else split
  for  (i = 0; i <= fla; i++)
  { var flia = 0,  flix = '',  fliy = '',  fliz = '';  fliz = fl[i];  flia = fliz.length;
    if  ((flia > 0) && (flia <= 60))  { rx = rx.concat(fliz); rx = rx.concat('\n'); };
    if  (flia > 60)
    { for  (j = 0; j < 1000; j++)
      { flix = fliz.slice(0, 60);  fliy = '';  fliy = fliz.slice(60);  // fliz can be re-used
        p = flix.lastIndexOf(' ');  if  (p <= 0)  { p = 60; };
        cc = flix.slice(p);
        flix = flix.slice(0, p);  rx = rx.concat(flix);  rx = rx.concat('\n');
        fliz = cc.concat(fliy);
        if  (fliz.length < 1)   { j = 1000; };  // leave loop
        if  (fliz.length < 61)
        { if  (fliz.indexOf(' ') == 0)  {fliz = fliz.slice(1); };
          rx = rx.concat(fliz);  rx = rx.concat('\n'); j = 1000; };  // leave loop
      };  // end for j
    };  // end if > 60
  };  // end for i
// clear spaces before and after new-line
  rx = rx.replace(/ \n/g, '\n');   rx = rx.replace(/\n /g, '\n');
// clear vars
  fla = '',  flix = '',  fliy = '',  fliz = '';
  return(rx);
}  // end xlinebrk
//
function xchkform()
{ rx = '';  rs = 0;  rrh = document.getElementsByName('sendgb')[0];
  if  (rrh.rbu[0].checked)  { rs = 0; };
  if  (rrh.rbu[1].checked)  { rs = 1; };
  if  (rrh.rbu[2].checked)  { rs = 2; };
  if  ((rs < 1) || (rs > 1))  { rs = 0; }  else  { rs = 1; };
  if ((rrh.city.value > ' ') && (rs == 1) && (rrh.txt.value > ' '))
  { rrh.re.value = '...';
    rx = rrh.city.value;  rx = xcleanup(rx);  rrh.city.value = rx;
    rx = rrh.adr.value;   rx = xcleanup(rx);  rrh.adr.value = rx;
    rx = rrh.sub.value;   rx = xcleanup(rx);  rrh.sub.value = rx;
    rx = rrh.txt.value;   rx = xcleanup(rx);  rx = xlinebrk(rx);    rrh.txt.value = rx;
    rx = '*** ok, wird abgeschickt';  rrh.submit();  rrh.reset(); }
  else
  { rx = '*** Eingabefehler: ';
    if (rrh.city.value.length < 2)  { rx = rx.concat('Name? '); };
    if (rs == 0)                    { rx = rx.concat('Zahl? '); };
    if (rrh.txt.value.length < 4)   { rx = rx.concat('Text?');  };  };  // end if valid
  rrh.re.value = rx;  rx = '';
}  // end xchkform
////////////////////////////////////////////////