<!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/ä/ä/g;
$_um =~ s/ö/ö/g;
$_um =~ s/ü/ü/g;
$_um =~ s/Ä/Ä/g;
$_um =~ s/Ö/Ö/g;
$_um =~ s/Ü/Ü/g;
$_um =~ s/ß/ß/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ürlich baseportal's Mö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ä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>💂‍♀️</b> : <i>🎃 keine AHnung, was das spoll</i></font> <!Eingaben>
<font color=#000000>1.11.21, 16:12 <b>💂‍♀️ Harald</b> : <i>🎃 keine AHnung, was das spoll</i></font> <!Eingaben>
<font color=#000000>1.11.21, 16:13 <b>💂‍♀️ Harald</b> : <i>Die Sache ist doch gang einfach</i></font> <!Eingaben>
<font color=#000000>1.11.21, 16:14 <b>💂‍♀️ Harald</b> : <i>🚒 Ihre Lieferung istb unterwegs seite 100 Minuten</i></font> <!Eingaben>
<font color=#000000>1.11.21, 16:14 <b>💂‍♀️ Harald</b> : <i>was spll das Ich habe keine AHnung</i></font> <!Eingaben>
<font color=#000000>1.11.21, 16:15 <b>💂‍♀️ Harald</b> : <i>wier wär es mit Mö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 ></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 <AJAX></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 <AJAX></i></font> <dfn style='background:#e0e0e0;color:blue;font-weight:bold'>(ajax)</dfn><!Eingaben>
<font color=#000000>1.11.21, 16:19 <b>💂‍♀️ Harald</b> : <i>wier wär es🍫 mit Möbeln| anderen Sachen Time$id <AJAX></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>💂‍♀️ Harald</b> : <i>🎃 keine AHnung, was das spoll</i></font> <!Eingaben>
<font color=#000000>1.11.21, 16:20 <b>💂‍♀️ Harald</b> : <i>🚒 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>💂‍♀️ Harald</b> : <i>🚒 Ihre Lieferung istb unterwegs seite 100 Minuten</i></font> <!Eingaben>