<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN">
<html>
<head>
<title>Dateizugriff - Daten zu Datei(htx) hinzufügen - OK</title>
<script type="text/javascript">
function _CT(r){document.getElementById("Screen").innerHTML=r;}
</script>
</head>
<body>

<perl>
#-------------------------------------- Variablen
my $time    = time();
my $file    = "$htx.htx";
#--------------------------------------- Subs ....
&PUTFILE();#---------------------------- put ausführen 
&FORMULAR();#--------------------------- Eingabe-Formular ohne Ajax
($screen_out,$anzE)=&GETFILE();#-------- Seite $htx einlesen
$screen_out=convert_utf8($screen_out);
$screen_out=&um_laut4ajax($screen_out);
$textarea_out=&html2text($screen_out);
#--------------------------------------------------------------------

sub PUTFILE
{##
my $missing = ".... Angaben fehlen ?";
my ($error1,$error2,$anzE)="";
#---------------------------------------------- Eingaben mit Ajax GRÜN
$color=($type eq "ajax" ? "green" : "#000000");
$m_type="";
#----------------------------------------------
if($_get{cmd} eq "write")
{#-----------------
$error1=$Name_   = $_get{Name}||$missing;
$error2=$Eingabe_= $_get{Eingabe}||$missing;
$Name_           = &html2text($Name_);
$Eingabe_        = &html2text($Eingabe_);
$Name_           = &um_laut4ajax($Name_) if($type ne "ajax");
$Eingabe_        = &um_laut4ajax($Eingabe_) if($type ne "ajax");

$m_type="<dfn style='background:#e0e0e0;color:blue;font-weight:bold'>(ajax)</dfn>" if($type eq "ajax");
#------------------------------------------------------------------------------------ error ?
unless($error1 eq $missing || $error2 eq $missing )
{
 $do_write = "<font color=$color>".datum("jetzt","kurz")." <b>$Name_</b> : <i>$Eingabe_</i></font> $m_type<!Eingaben>";
 put $do_write, "$htx.htx"
}
#--------------------------------------------------------------------------------------------
}
return;
}##

sub FORMULAR
{##
#----------------------------------------------------------------------------------- für Ajax-Formular
$ajaxqq=qq("Eingabe="+encodeURIComponent(document.getElementById("Eingabe").value)+"&Name="+encodeURIComponent(document.getElementById("Name").value)+"&type=ajax&cmd=write");
#----------------------------------------------------------------------------------- Formular
out qq(<form  style="float:left" action="baseportal.pl?cmd=write&anz=$anz&htx=$htx" name="Formular" method="post" enctype="multipart/form-data">Eingabe: <input id="Eingabe" type="text" name="Eingabe=" size=50> Name:  <input id="Name" type="text" name="Name=" size=20 value="$_get{Name}"><input type="submit" value="Sende-normal"><input type="reset" value="Felder leeren"></form><input type="submit" value="Sende-Ajax" onclick=(CT($ajaxqq))></form><div style="clear:left"></div> );
}##

sub GETFILE
{##
$GETFILE    = get "$file";
@AUSGABE    = split("<!Ausgabebereich\>",$GETFILE);
@EINGABEN   = reverse(split("<!Eingaben\>",$AUSGABE[1]));
$anzE       = @EINGABEN; 
$screen_out = join("<br>",@EINGABEN);
return($screen_out,$anzE);
}## 

sub AJAX
{##
&PUTFILE()if($type ne "ajax");#--------------------------------# put wird in Ajax ausgeführt
($screen_out,$anzE)=&GETFILE();
#-------------------------------------------# im Screen anzeigen
out "Eingaben:<b>$anzE</b><hr>$screen_out";
}##

sub html2text 
{############  entfernt html-tags und gibt nur Text ohne HTML zurück
my $html=$_[0];
($text = $html) =~ s/<(\/|!)?[-.a-zA-Z0-9]*.*?>//g;
return($text);
}#############

sub um_laut4ajax
{################### Sonderzeichen umwandeln
my $_um=$_[0];
$_um =~ s/ä/&auml;/g;
$_um =~ s/ö/&ouml;/g;
$_um =~ s/ü/&uuml;/g;
$_um =~ s/Ä/&Auml;/g;
$_um =~ s/Ö/&Ouml;/g;
$_um =~ s/Ü/&Uuml;/g;
$_um =~ s/ß/&szlig;/g;
return("$_um");
}##

</perl>


<DIV id='Screen' style='width:100%;height:200px;overflow:auto;border:1px solid red'>Eingaben:<b>$anzE</b>
<hr>$screen_out</DIV>
<textarea style="height:100px;width:100%;color:191970" readonly>$textarea_out</textarea>
Fehler behoben ! (<a href="baseportal.pl?show=$htx" target="_BLANK">siehe Code</a>)
</body></html>

<perl script=CT>&AJAX();</perl>

<!Ausgabebereich>

<font color=#000000>11.1.10, 17:04 <b>H.Fehde</b> : <i>TEST</i></font> <!Eingaben>
<font color=green>11.1.10, 17:04 <b>H.Fehde</b> : <i>TEST </i></font> <dfn style='background:#e0e0e0;color:blue;font-weight:bold'>(ajax)</dfn><!Eingaben>
<font color=green>11.1.10, 17:04 <b>H.Fehde</b> : <i>TEST </i></font> <dfn style='background:#e0e0e0;color:blue;font-weight:bold'>(ajax)</dfn><!Eingaben>
<font color=#000000>11.1.10, 17:04 <b>H.Fehde</b> : <i>TEST </i></font> <!Eingaben>
<font color=#000000>11.1.10, 21:38 <b>H.Fehde</b> : <i>qw</i></font> <!Eingaben>
<font color=green>11.1.10, 21:59 <b>hh</b> : <i>huu</i></font> <dfn style='background:#e0e0e0;color:blue;font-weight:bold'>(ajax)</dfn><!Eingaben>
<font color=green>11.1.10, 21:59 <b>hh</b> : <i>huu</i></font> <dfn style='background:#e0e0e0;color:blue;font-weight:bold'>(ajax)</dfn><!Eingaben>
<font color=green>11.1.10, 23:01 <b>H.Fehde</b> : <i>..</i></font> <dfn style='background:#e0e0e0;color:blue;font-weight:bold'>(ajax)</dfn><!Eingaben>
<font color=green>11.1.10, 23:01 <b>H.Fehde</b> : <i>..</i></font> <dfn style='background:#e0e0e0;color:blue;font-weight:bold'>(ajax)</dfn><!Eingaben>
<font color=#000000>12.1.10, 17:34 <b>H.Fehde</b> : <i>..</i></font> <!Eingaben>
<font color=#000000>13.1.10, 00:03 <b>H.Fehde</b> : <i>1</i></font> <!Eingaben>
<font color=#000000>13.1.10, 09:22 <b>Tester</b> : <i>test</i></font> <!Eingaben>
<font color=green>13.1.10, 09:22 <b>Tester</b> : <i>werwer</i></font> <dfn style='background:#e0e0e0;color:blue;font-weight:bold'>(ajax)</dfn><!Eingaben>
<font color=green>13.1.10, 09:22 <b>Tester</b> : <i>werwer</i></font> <dfn style='background:#e0e0e0;color:blue;font-weight:bold'>(ajax)</dfn><!Eingaben>
<font color=green>13.1.10, 13:55 <b>meiner</b> : <i>joman</i></font> <dfn style='background:#e0e0e0;color:blue;font-weight:bold'>(ajax)</dfn><!Eingaben>
<font color=green>13.1.10, 13:55 <b>meiner</b> : <i>joman</i></font> <dfn style='background:#e0e0e0;color:blue;font-weight:bold'>(ajax)</dfn><!Eingaben>
<font color=green>13.1.10, 14:53 <b>HUHU</b> : <i>jhgj</i></font> <dfn style='background:#e0e0e0;color:blue;font-weight:bold'>(ajax)</dfn><!Eingaben>
<font color=green>13.1.10, 14:53 <b>HUHU</b> : <i>jhgj</i></font> <dfn style='background:#e0e0e0;color:blue;font-weight:bold'>(ajax)</dfn><!Eingaben>
<font color=green>13.1.10, 16:14 <b>H.Fehde</b> : <i>Funktioniert jetzt</i></font> <dfn style='background:#e0e0e0;color:blue;font-weight:bold'>(ajax)</dfn><!Eingaben>
<font color=#000000>13.1.10, 16:14 <b>H.Fehde</b> : <i>Funktioniert jetzt</i></font> <!Eingaben>
<font color=green>13.1.10, 18:35 <b>H.Fehde</b> : <i>keine doppelten Einträge mehr - SANDEr sei Dank</i></font> <dfn style='background:#e0e0e0;color:blue;font-weight:bold'>(ajax)</dfn><!Eingaben>
<font color=#000000>13.1.10, 18:36 <b>H.Fehde</b> : <i>P.S:... und nat&uuml;rlich baseportal's M&ouml;glichkeiten</i></font> <!Eingaben>
<font color=#000000>13.1.10, 22:37 <b>H.Fehde</b> : <i>..</i></font> <!Eingaben>
<font color=#000000>13.1.10, 23:24 <b>H.Fehde</b> : <i>..</i></font> <!Eingaben>
<font color=green>14.1.10, 21:22 <b>H.Fehde</b> : <i>wie spät ist es ?</i></font> <dfn style='background:#e0e0e0;color:blue;font-weight:bold'>(ajax)</dfn><!Eingaben>
<font color=#000000>14.1.10, 21:22 <b>H.Fehde</b> : <i>wie sp&auml;t ist es ?</i></font> <!Eingaben>
<font color=#000000>17.1.10, 17:30 <b>.</b> : <i>.</i></font> <!Eingaben>
<font color=#000000>17.1.10, 17:31 <b>;-)</b> : <i>;-)</i></font> <!Eingaben>
<font color=green>11.5.10, 21:32 <b>LEGO</b> : <i>wie geht das ?</i></font> <dfn style='background:#e0e0e0;color:blue;font-weight:bold'>(ajax)</dfn><!Eingaben>
<font color=green>22.8.10, 10:06 <b>ICH</b> : <i>und nun ?</i></font> <dfn style='background:#e0e0e0;color:blue;font-weight:bold'>(ajax)</dfn><!Eingaben>
<font color=green>22.8.10, 10:09 <b>LEGO</b> : <i>Eine neue Idee</i></font> <dfn style='background:#e0e0e0;color:blue;font-weight:bold'>(ajax)</dfn><!Eingaben>
<font color=#000000>22.8.10, 10:09 <b>LEGO</b> : <i>Eine neue Idee Nr4</i></font> <!Eingaben>
<font color=green>22.8.10, 10:10 <b>LEGO</b> : <i>mal swas anderes</i></font> <dfn style='background:#e0e0e0;color:blue;font-weight:bold'>(ajax)</dfn><!Eingaben>
<font color=green>13.11.10, 12:06 <b>Fehde</b> : <i>mal sehen, was $htx anzeigt</i></font> <dfn style='background:#e0e0e0;color:blue;font-weight:bold'>(ajax)</dfn><!Eingaben>
<font color=green>30.12.10, 12:03 <b>HARALD</b> : <i>W9ie geht das genau ?</i></font> <dfn style='background:#e0e0e0;color:blue;font-weight:bold'>(ajax)</dfn><!Eingaben>
<font color=#000000>30.12.10, 12:04 <b>HARALD</b> : <i>Nochmal was senden</i></font> <!Eingaben>
<font color=green>20.4.11, 10:15 <b>sucher</b> : <i>tester</i></font> <dfn style='background:#e0e0e0;color:blue;font-weight:bold'>(ajax)</dfn><!Eingaben>
<font color=#000000>13.11.11, 09:58 <b>Harald</b> : <i>Ws soll das werden ?</i></font> <!Eingaben>
<font color=green>13.11.11, 09:58 <b>Harald</b> : <i>Nie waes so wertvoll</i></font> <dfn style='background:#e0e0e0;color:blue;font-weight:bold'>(ajax)</dfn><!Eingaben>
<font color=green>13.11.11, 09:59 <b>Harald</b> : <i>Aber immer Öfter</i></font> <dfn style='background:#e0e0e0;color:blue;font-weight:bold'>(ajax)</dfn><!Eingaben>
<font color=green>17.12.11, 15:10 <b>EGO</b> : <i>Was ist mit §118</i></font> <dfn style='background:#e0e0e0;color:blue;font-weight:bold'>(ajax)</dfn><!Eingaben>
<font color=#000000>17.12.11, 15:10 <b>EGO</b> : <i>Was ist mit 118</i></font> <!Eingaben>
<font color=green>5.12.13, 14:57 <b>EGON</b> : <i>erqewreqrv qerq </i></font> <dfn style='background:#e0e0e0;color:blue;font-weight:bold'>(ajax)</dfn><!Eingaben>
<font color=green>5.12.13, 14:57 <b>EGON</b> : <i>was ist mit §118</i></font> <dfn style='background:#e0e0e0;color:blue;font-weight:bold'>(ajax)</dfn><!Eingaben>
<font color=#000000>5.12.13, 14:57 <b>EGON</b> : <i>was ist mit 118</i></font> <!Eingaben>
<font color=green>1.11.21, 16:09 <b>Harald</b> : <i>Was istv das ?</i></font> <dfn style='background:#e0e0e0;color:blue;font-weight:bold'>(ajax)</dfn><!Eingaben>
<font color=#000000>1.11.21, 16:10 <b>Paul</b> : <i>was ist hier anders ?</i></font> <!Eingaben>
<font color=green>1.11.21, 16:10 <b>Paul</b> : <i>🎃 keine AHnung, was das spoll</i></font> <dfn style='background:#e0e0e0;color:blue;font-weight:bold'>(ajax)</dfn><!Eingaben>
<font color=#000000>1.11.21, 16:12 <b>&#128130;&#8205;&#9792;&#65039;</b> : <i>&#127875; keine AHnung, was das spoll</i></font> <!Eingaben>
<font color=#000000>1.11.21, 16:12 <b>&#128130;&#8205;&#9792;&#65039; Harald</b> : <i>&#127875; keine AHnung, was das spoll</i></font> <!Eingaben>
<font color=#000000>1.11.21, 16:13 <b>&#128130;&#8205;&#9792;&#65039; Harald</b> : <i>Die Sache ist doch gang einfach</i></font> <!Eingaben>
<font color=#000000>1.11.21, 16:14 <b>&#128130;&#8205;&#9792;&#65039; Harald</b> : <i>&#128658; Ihre Lieferung istb unterwegs seite 100 Minuten</i></font> <!Eingaben>
<font color=#000000>1.11.21, 16:14 <b>&#128130;&#8205;&#9792;&#65039; Harald</b> : <i>was spll das Ich habe keine AHnung</i></font> <!Eingaben>
<font color=#000000>1.11.21, 16:15 <b>&#128130;&#8205;&#9792;&#65039; Harald</b> : <i>wier w&auml;r es mit M&ouml;beln</i></font> <!Eingaben>
<font color=green>1.11.21, 16:15 <b>💂‍♀️ Harald</b> : <i>wier wär es mit Möbeln</i></font> <dfn style='background:#e0e0e0;color:blue;font-weight:bold'>(ajax)</dfn><!Eingaben>
<font color=green>1.11.21, 16:15 <b>💂‍♀️ Harald</b> : <i>wier wär es mit Möbeln| anderen Sachen</i></font> <dfn style='background:#e0e0e0;color:blue;font-weight:bold'>(ajax)</dfn><!Eingaben>
<font color=green>1.11.21, 16:16 <b>💂‍♀️ Harald</b> : <i>wier wär es mit Möbeln| anderen Sachen §Time</i></font> <dfn style='background:#e0e0e0;color:blue;font-weight:bold'>(ajax)</dfn><!Eingaben>
<font color=green>1.11.21, 16:16 <b>💂‍♀️ Harald</b> : <i>wier wär es mit Möbeln| anderen Sachen §Time$id</i></font> <dfn style='background:#e0e0e0;color:blue;font-weight:bold'>(ajax)</dfn><!Eingaben>
<font color=green>1.11.21, 16:16 <b>💂‍♀️ Harald</b> : <i>wier wär es mit Möbeln| anderen Sachen §Time$id</i></font> <dfn style='background:#e0e0e0;color:blue;font-weight:bold'>(ajax)</dfn><!Eingaben>
<font color=green>1.11.21, 16:16 <b>💂‍♀️ Harald</b> : <i>wier wär es mit Möbeln| anderen Sachen §Time$id gt;</i></font> <dfn style='background:#e0e0e0;color:blue;font-weight:bold'>(ajax)</dfn><!Eingaben>
<font color=green>1.11.21, 16:17 <b>💂‍♀️ Harald</b> : <i>wier wär es mit Möbeln| anderen Sachen §Time$id &gt;</i></font> <dfn style='background:#e0e0e0;color:blue;font-weight:bold'>(ajax)</dfn><!Eingaben>
<font color=green>1.11.21, 16:17 <b>💂‍♀️ Harald</b> : <i>wier wär es mit Möbeln| anderen Sachen §Time$id &lt;AJAX&gt;</i></font> <dfn style='background:#e0e0e0;color:blue;font-weight:bold'>(ajax)</dfn><!Eingaben>
<font color=green>1.11.21, 16:18 <b>💂‍♀️ Harald</b> : <i>wier wär es🍫 mit Möbeln| anderen Sachen §Time$id &lt;AJAX&gt;</i></font> <dfn style='background:#e0e0e0;color:blue;font-weight:bold'>(ajax)</dfn><!Eingaben>
<font color=#000000>1.11.21, 16:19 <b>&#128130;&#8205;&#9792;&#65039; Harald</b> : <i>wier w&auml;r es&#127851; mit M&ouml;beln| anderen Sachen Time$id &lt;AJAX&gt;</i></font> <!Eingaben>
<font color=green>1.11.21, 16:19 <b>💂‍♀️ Harald</b> : <i>🎃 keine AHnung, was das spoll</i></font> <dfn style='background:#e0e0e0;color:blue;font-weight:bold'>(ajax)</dfn><!Eingaben>
<font color=#000000>1.11.21, 16:19 <b>&#128130;&#8205;&#9792;&#65039; Harald</b> : <i>&#127875; keine AHnung, was das spoll</i></font> <!Eingaben>
<font color=#000000>1.11.21, 16:20 <b>&#128130;&#8205;&#9792;&#65039; Harald</b> : <i>&#128658; Ihre Lieferung istb unterwegs seite 100 Minuten</i></font> <!Eingaben>
<font color=green>1.11.21, 16:20 <b>💂‍♀️ Harald</b> : <i>🚒 Ihre Lieferung istb unterwegs seite §100 Minuten</i></font> <dfn style='background:#e0e0e0;color:blue;font-weight:bold'>(ajax)</dfn><!Eingaben>
<font color=green>1.11.21, 16:20 <b>💂‍♀️ Harald</b> : <i>🚒 Ihre Lieferung istb unterwegs seite §100 Minuten</i></font> <dfn style='background:#e0e0e0;color:blue;font-weight:bold'>(ajax)</dfn><!Eingaben>
<font color=#000000>1.11.21, 16:20 <b>&#128130;&#8205;&#9792;&#65039; Harald</b> : <i>&#128658; Ihre Lieferung istb unterwegs seite 100 Minuten</i></font> <!Eingaben>