Ich bin noch absoluter Newcomer... Habe mal einfach frei von der Leber weg herumprobiert, um den Passwortschutz für einzelne Einträge in unsere Datenbank zu bekommen. Aber auch nach langem - nervenaufreibendem - Herumprobieren, bekomme ich es nicht hin. Hat jemand vielleicht "österliches Erbarmen" mit mir armem Wicht und kann mir das vielleicht richtigstellen??? Das Design ist vollkommen egal ...
Es folgt die Seite "Eingabe", die unter http://de2.netpure.de/cgi-bin/baseportal.pl?htx=/edorado/aktiv/enga/eingabe aufgerufen wird:
<html><head><title></title>
<style>
body { background-image:-; }
</style>
</head><body>
<br><ul>
<span class="Bild"></span>
<h2><span class="Titel"></span></h2>
<p><span class="Einleitung"></span></p></font>
<do action=all localparams=+ db=verbaende range^=0,1 searchfields=name listfields=logo,name,strasse,PLZ,ort,tel,email,gegruendet,mitgliederzahl,wirkungsbereich,raum,mitarbeit_moeglich,dachverband,ziele,aktivitaeten,aktuelles_projekt,proj_prioritaet,proj_beschreibung,links,spendenkonto,erfasser,passwort allfields=logo,name,strasse,PLZ,ort,tel,email,gegruendet,mitgliederzahl,wirkungsbereich,raum,mitarbeit_moeglich,dachverband,ziele,aktivitaeten,aktuelles_projekt,proj_prioritaet,proj_beschreibung,links,spendenkonto,erfasser,passwort formfields=logo,name,strasse,PLZ,ort,tel,email,gegruendet,mitgliederzahl,wirkungsbereich,raum,mitarbeit_moeglich,dachverband,ziele,aktivitaeten,aktuelles_projekt,proj_prioritaet,proj_beschreibung,links,spendenkonto,erfasser,passwort showamount=no selectbrowse=no buttonbrowse=no pagebrowse=no border=1 spacing=1 padding=1 dataface=Arial datasize=2 dataalign=left headface=Arial headsize=1 textface=Arial listtype=add language=de detail=no search=no input=top>
<include src=ausgabe>
<do action=all>
<perl>
put if %_put;
if($Id ne "")
{
get "Id==$Id";
if($xname)
{
if($passwort eq $xpasswort)
{
mod "Id==$Id", ["name",$xName,"Logo",$xlogo,"Straße",$xstrasse,"PLZ",$xplz,"Ort",$xort,"Telefon",$xtel,"eMail",$xemail,"gegründet",$xgegruendet,"Mitgliederzahl",$xmitgliederzahl,"Wirkungsbereich",$xwirkungsbereich,"Raum",$xraum,"Mitarbeit möglich?",$xmitarbeit_moeglich,"ggf. Dachverband",$xdachverband,"Satzungsziel / Beschreibung",$xziele,"Aktivitäten",$xaktivitaeten,"Aktuelles Projekt",$xaktuelles_projekt,"Priorität",$xproj_prioritaet,"Projekt-Beschreibung",$xproj_beschreibung,"Verknüpfungen",$xlinks,"Spendenkonto",$xspendenkonto,"Erfasser",$xerfasser,"Passwort",$xpasswort];
out "<b>Eintrag geändert...</b>";
} else
{
out "<b>Passwort falsch!</b>";
}
} else
{
out <<EOF;
<h3>Eintrag ändern</h3>
<table>
<form action="/cgi-bin/baseportal.pl?htx=$htx&Id=$Id" method="post" enctype="multipart/form-data">
<input type=hidden name="htx=" value="$htx">
<input type=hidden name="Id=" value="$Id">
<tr><td>Name:</td><td><input type="text" name="xname=" value="$name"></td></tr>
<tr><td>Logo:</td><td><input type="text" name="xlogo=" value="$logo"></td></tr>
<tr><td>Straße:</td><td><input type="text" name="xstrasse=" value="$strasse"></td></tr>
<tr><td>PLZ:</td><td><input type="text" name="xplz=" value="$plz"></td></tr>
<tr><td>Ort:</td><td><input type="text" name="xort=" value="$ort"></td></tr>
<tr><td>Telefon:</td><td><input type="text" name="xtel=" value="$tel"></td></tr>
<tr><td>eMail:</td><td><input type="text" name="xemail=" value="$email"></td></tr>
<tr><td>gegründet:</td><td><input type="text" name="xgegruendet=" value="$gegruendet"></td></tr>
<tr><td>Mitgliederzahl:</td><td><input type="text" name="xmitgliederzahl=" value="$mitgliederzahl"></td></tr>
<tr><td>Wirkungsbereich:</td><td><input type="text" name="xwirkungsbereich=" value="$wirkungsbereich"></td></tr>
<tr><td>Raum:</td><td><input type="text" name="xraum=" value="$raum"></td></tr>
<tr><td>Mitarbeit möglich?:</td><td><input type="text" name="xmitarbeit_moeglich=" value="$mitarbeit_moeglich"></td></tr>
<tr><td>ggf. Dachverband:</td><td><input type="text" name="xdachverband=" value="$dachverband"></td></tr>
<tr><td>Satzungsziel / Beschreibung:</td><td><input type="text" name="xziele=" value="$ziele"></td></tr>
<tr><td>Aktivitäten:</td><td><input type="text" name="xaktivitaeten=" value="$aktivitaeten"></td></tr>
<tr><td>Aktuelles Projekt:</td><td><input type="text" name="xaktuelles_projekt=" value="$aktuelles_projekt"></td></tr>
<tr><td>Priorität:</td><td><input type="text" name="xproj_prioritaet=" value="$proj_prioritaet"></td></tr>
<tr><td>Projekt-Beschreibung:</td><td><input type="text" name="xproj_beschreibung=" value="$proj_beschreibung"></td></tr>
<tr><td>Verknüpfungen:</td><td><input type="text" name="xlinks=" value="$links"></td></tr>
<tr><td>Spendenkonto:</td><td><input type="text" name="xtspendenkonto=" value="$spendenkonto"></td></tr>
<tr><td>Erfasser:</td><td><input type="text" name="xerfasser=" value="$erfasser"></td></tr>
tr><td>Passwort:</td><td><input type="password" name="xpasswort="></td></tr>
<tr><td></td><td><input type=submit value="Abschicken"> </td></tr>
</form></table>
EOF
}
out "<p><a href=\"$_link\">Neuer Eintrag</a>";
} else
{
out "<h3>Neuer Eintrag</h3>";
out "Mit dem Passwort können Sie den Eintrag später bearbeiten.";
init; get;
list "add";
}
get;
out "<h3>Liste aller Einträge</h3>";
out "<table>
<td>Logo</td>
<td>Straße</td>
<td>PLZ</td>
<td>Ort</td>
<td>Telefon</td>
<td>eMail</td>
<td>gegründet</td>
<td>Mitgliederzahl</td>
<td>Wirkungsbereich</td>
<td>Raum</td>
<td>Mitarbeit möglich?</td>
<td>Dachverband</td>
<td>Satzungsziel / Beschreibung</td>
<td>Aktivitäten</td>
<td>Aktuelles Projekt</td>
<td>Priorität</td>
<td>Projekt-Beschreibung</td>
<td>Verknüpfungen</td>
<td>Spendenkonto</td>
<td>Erfasser</td>
</tr>";
while(get_next)
{
out "<tr><td><a href=\"$_link&Id=$_id\">$name</a></td>
<td>$logo</td></tr>";
<td>$strasse</td></tr>";
<td>$plz</td></tr>";
<td>$ort</td></tr>";
<td>$telefon</td></tr>";
<td>$email</td></tr>";
<td>$gegruendet</td></tr>";
<td>$mitgliederzahl</td></tr>";
<td>$wirkungsbereich</td></tr>";
<td>$raum</td></tr>";
<td>$mitarbeit_moeglich</td></tr>";
<td>$dachverband</td></tr>";
<td>$ziele</td></tr>";
<td>$aktivitaeten</td></tr>";
<td>$aktuelles_projekt</td></tr>";
<td>$proj_prioritaet</td></tr>";
<td>$proj_beschreibung</td></tr>";
<td>$links</td></tr>";
<td>$spendenkonto</td></tr>";
<td>$erfasser</td></tr>";
}
out "</table>";
</perl>
<p><span class="Text"></span></p>
<p><span class="Text" name="EMail"></span>
</ul>
</body></html>
_______
Diese Fehler kamen dabei heraus:
[ Fehler: Die angegebene Datenbank ist für den gewünschten Zugriff nicht freigegeben.
Lösung: Gehen Sie in Ihren privaten Bereich (Anmelden), wählen Sie die entsprechende Datenbank aus, klicken Sie auf 'Verwaltung' und ändern Sie die Rechte entsprechend. ]
[ Fehler: Fehlerhafter Perl Code in :
Can't find string terminator " EOF" anywhere before EOF at (eval 70) line 53. ]
_______
Es folgt die Seite "Ausgabe", die unter http://de2.netpure.de/cgi-bin/baseportal.pl?htx=/edorado/aktiv/enga/ausgabe aufgerufen wird:
<do db=verbaende action=all range^=0,5 showamount=all selectbrowse=top buttonbrowse=top pagebrowse=top border=1 spacing=1 padding=1 dataface=Arial datasize=2 dataalign=left headface=Arial headsize=1 headalign=left textface=Arial textsize=1 listtype=add language=de detail=no search=no input=top>
