<input type=hidden id='name' value='$User_Id'>
<input type=hidden id='vorname' value='$Vorname'> <b>$Vorname ...</b>
<input type=text id='text'  size=40 value="Was machst Du gerade?" onfocus="this.value='';">
<input type="submit" value="Absenden" onclick="formular('','name='+document.getElementById('name').value+'&'+'vorname='+document.getElementById('vorname').value+'&'+'text='+encodeURIComponent(document.getElementById('text').value))">

<perl script=formular>
$text1 = convert_utf8($text);
get "User_ID==$User_Id Aktiv==!Meldung sort=- range=0,1", "aktiv";
if ($User_ID ne $User_Id)
{
put ["Info","$vorname $text1","User_ID","$User_Id","Aktiv","Meldung"],"aktiv";
}
else
{
mod "Id==$Id",["Info","$vorname $text1","User_ID","$User_Id","Aktiv","Meldung"],"aktiv";
}
</perl>