| baseportal | |||
| English - Deutsch | "Es gibt keine dummen Fragen - jeder hat einmal angefangen" | ||
|
| baseportal | |||
| English - Deutsch | "Es gibt keine dummen Fragen - jeder hat einmal angefangen" | ||
|
| Ausgewählter Eintrag: | Zur Liste |
|
| Alle Einträge zum Thema: | Zur Liste |
do_all "db=adressen headbold=1 cmd=$cmd Workshop-Nummer==!$namerein sort=-Kurztitel listfields=-Aktion,Id,Abgabetermin,Eingabedatum,Verfassererklärung,Nutzungsbedingungen,Freigabe,Büroname,Verfassername,Strasse,PLZ,Ort,Telefon,Fax,Handy,EMail,Homepage,Büroprofil/Planerprofil,testlink,öffentliche_Dokumentation formfields=-Aktion,Workshop-Nummer searchfields=-Aktion,Id,Workshop-Nummer,Kurztitel,Workshopbeitrag,Abgabetermin,Eingabedatum,Verfassererklärung,Nutzungsbedingungen,Freigabe,Büroname,Verfassername,Strasse,PLZ,Ort,Telefon,Fax,Handy,EMail,Homepage,Büroprofil/Planerprofil,testlink,öffentliche_Dokumentation allfields=-Aktion,Feld1,Feld2,Feld3 border=0 spacing=2 padding=4 gridcolor=FFFFFF dataface=Arial datasize=2 datacolor=000063 databack=F0F0F0 databack2=FFFFFF dataalign=left headface=Arial headsize=2 headcolor=000063 headback=FF6600 headalign=left textface=Arial textsize=2 textcolor=000063 listtype=list input=no ", "namerein", "usid=$usid";
<style>
</style>
<perl> #---hier wird die session-id generiert-----#
$usid_aktuell = (1000000*$year)+(10000*$mon)+(100*$mday)+(4*$hour)+$min ; #------hier wird beim logout die aktuelle session-id gelöscht------#
{
mod "Workshop-Nummer==$login_name", ["nutzer_usid", ""], "nutzer";
#----Überprüfung des Passwortes--------#
if($namerein ne "" && pwrein ne "" && $usid eq "") { get "Workshop-Nummer==!$namerein","nutzer"; if($nutzer_passwort ne "" && $nutzer_passwort eq $pwrein) { mod "Workshop-Nummer==$namerein", ["nutzer_usid", "$usid_aktuell"], "nutzer"; $usid="$usid_aktuell"; }else { out "<b>Anmeldung fehlgeschlagen!</b>"; $namerein=""; $login_name=""; } } if($namerein ne "" && $usid ne "") { out "<!-- test, ob aktuelle session-id noch gültig ist -->"; get "Workshop-Nummer==$namerein", "nutzer"; ### hier stellt man die Zeit ein, ab wann der Zugang bei Untätigkeit des jeweiligen users gesperrt wird (in diesem Fall 2 Minuten) $usid_max = $usid+10; if($usid eq $nutzer_usid && $usid_aktuell <= $usid_max) { out "<!-- session-id ist gültig - session-id wird aktualisiert -->"; mod "Workshop-Nummer==$namerein", ["nutzer_usid", $usid_aktuell], "nutzer"; $usid=$usid_aktuell;
#----NEU!!!Überprüfung, ob der angemeldete Nutzer die Berechtigung für den ausgewählten Datensatz hat----#
{
if ($namerein ne $Workshop-Nummer)
$cmd=""; out "Sie haben keine Berechtigung für diese Aktion!!!";
} # ----Mit der folgenden Abfrage/Anweisung kann man das Löschen des Datensatzes unterbinden---
{
$cmd="";
out "Diese Aktion ist nicht verfügbar";
#--------dadurch ist nur das Bearbeiten möglich # --Mit der folgenden Abfrage/Anweisung kann man das Hinzufügen eines neuen Datensatzes unterbinden---
{
$cmd="";
out "Diese Aktion ist nicht verfügbar";
#--------hier ist der Link für den "LOGOUT"-------
#out"<a href=http://baseportal.de/cgi-bin/baseportal.pl?htx=/Juergens/adressen2&namerein=$namerein&usid=$usid>nächste Datei</a>";
do_all "db=adressen headbold=1 cmd=$cmd Workshop-Nummer==!$namerein sort=-Kurztitel listfields=-Aktion,Id,Eingabedatum,Verfassererklärung,Nutzungsbedingungen,Freigabe,Büroname,Verfassername,Strasse,PLZ,Ort,Telefon,Fax,Handy,EMail,Homepage,Büroprofil/Planerprofil,testlink,öffentliche_Dokumentation formfields=-Aktion,Workshop-Nummer searchfields=-Aktion,Id,Workshop-Nummer,Kurztitel,Workshopbeitrag,Abgabetermin,Eingabedatum,Verfassererklärung,Nutzungsbedingungen,Freigabe,Büroname,Verfassername,Strasse,PLZ,Ort,Telefon,Fax,Handy,EMail,Homepage,Büroprofil/Planerprofil,testlink,öffentliche_Dokumentation allfields=-Aktion,Feld1,Feld2,Feld3 border=0 spacing=2 padding=4 gridcolor=FFFFFF dataface=Arial datasize=2 datacolor=000063 databack=F0F0F0 databack2=FFFFFF dataalign=left headface=Arial headsize=2 headcolor=000063 headback=FF6600 headalign=left textface=Arial textsize=2 textcolor=000063 listtype=list input=no ", "namerein", "usid=$usid";
} else
{
out "<b>Anmeldung fehlgeschlagen!</b>";
$namerein="";
$login_name="";
mod "Workshop-Nummer==$login_name", ["nutzer_usid", ""], "nutzer";
}
if($namerein eq "")
{
<center> <table border="0" width="730" height="1"> <tr> <td width="765" align="left" height="13"><font face="Arial" size="2" color="#000066"><b>Hinweis: </b>Als Veranstalter können Sie die Verfasserdaten für Ihren Workshop einsehen. Bitte melden Sie sich mit Ihre Workshop-Nummer und dem dazugehörigem Passwort an. Alle Verfasserdaten sind 1 Tag nach dem Abgabetermin sichtbar.</font></td> </tr> </table> <form action="http://baseportal.de/cgi-bin/baseportal.pl?htx=/workshop/adressen" method="post" enctype="multipart/form-data"> <input type=hidden name="htx=" value="/workshop/adressen"> <table width="300"> <tr><td width="125"><font face="Arial" size="2" color="#000066"><b>Workshop-Nummer:</b></font></td><td width="161"><font face="Arial" size="2" color="#000066"><input type="text" name="namerein="></font></td></tr> </center> <tr><td width="125"> <p align="left"><font face="Arial" size="2" color="#000066"><b>Passwort:</b></font></p> </td>
<td width="161"><font face="Arial" size="2" color="#000066"><input type="password" name="pwrein="></font></td></tr>
</table></form> EOF } </perl> </html>
Wenn Du damit nicht zurecht kommst, solltest Du vielleicht mal übelegen/schreiben, ob und in welcher preislichen Höhe Du bereit bist, Dir das programmieren zu lassen...
do_all "db=adressen headbold=1 cmd=$cmd Workshop-Nummer==!$namerein Abgabetermin<-0 sort=-Kurztitel listfields=-Aktion,Id,Eingabedatum,Verfassererklärung,Nutzungsbedingungen,Freigabe,Büroname,Verfassername,Strasse,PLZ,Ort,Telefon,Fax,Handy,EMail,Homepage,Büroprofil/Planerprofil,testlink,öffentliche_Dokumentation formfields=-Aktion,Workshop-Nummer searchfields=-Aktion,Id,Workshop-Nummer,Kurztitel,Workshopbeitrag,Abgabetermin,Eingabedatum,Verfassererklärung,Nutzungsbedingungen,Freigabe,Büroname,Verfassername,Strasse,PLZ,Ort,Telefon,Fax,Handy,EMail,Homepage,Büroprofil/Planerprofil,testlink,öffentliche_Dokumentation allfields=-Aktion,Feld1,Feld2,Feld3 border=0 spacing=2 padding=4 gridcolor=FFFFFF dataface=Arial datasize=2 datacolor=000063 databack=F0F0F0 databack2=FFFFFF dataalign=left headface=Arial headsize=2 headcolor=000063 headback=FF6600 headalign=left textface=Arial textsize=2 textcolor=000063 listtype=list input=no ", "namerein", "usid=$usid";
if($Abgabetermin ge&== $Eingabedatum) { ... }
<loop code=perl>
if ($_raw{Eingabedatum} ge $_raw{Abgabetermin}) {
out "$Verfasser-Nummer -- $Eingabedatum -- $Abgabetermin<br>";
}
</loop>
<perl>
get;
while (get_next) {
if ($Eingabedatum ge $Abgabetermin) {
out "$Verfasser-Nummer -- $Eingabedatum -- $Abgabetermin<br>";
}
}
</perl>
<loop db=adressen code=perl>
if ($_raw{Eingabedatum} ge $_raw{Abgabetermin}) {
out "$Verfasser-Nummer -- $Eingabedatum -- $Abgabetermin<br>";
}
</loop>
<loop db=adressen code=perl>
if ($_raw{Eingabedatum} ge $_raw{Abgabetermin}) {
out "$Verfasser-Nummer -- $Eingabedatum -- $Abgabetermin<br>";
}
</loop>
$Verfasser-Nummer ist kein gültiger perl Variablenname benutze stattdessen $_loop{"Verfasser-Nummer"}
$Verfasser-Nummer ist kein gültiger perl Variablenname benutze stattdessen $_loop{"Verfasser-Nummer"}
<perl>
get "adressen";
while (get_next) {
if ($Eingabedatum ge $Abgabetermin) {
out "$Verfasser-Nummer -- $Eingabedatum -- $Abgabetermin<br>";
}
}
</perl>
<do localparams=+ headbold=1 action=all Abgabetermin<-0 db=adressen range^=0,50 sort=-Id searchfields=Workshop-Nummer,Verfasser-Nummer listfields=Verfasser-Nummer,Workshop-Nummer,Kurztitel,Workshopbeitrag,Bewertung,Abgabetermin,Eingabedatum allfields=Workshop-Nummer,Kurztitel,Verfasser-Nummer,Ort formfields=Workshop-Nummer,Kurztitel,Verfasser-Nummer,Workshopbeitrag,Bewertung,Abgabetermin,Eingabedatum showamount=all,sel selectbrowse=top buttonbrowse=no pagebrowse=top,bottom indexbrowse=top,bottom border=0 spacing=2 padding=4 gridcolor=FFFFFF dataface=Arial datasize=2 datacolor=000063 databack=F0F0F0 databack2=FFFFFF dataalign=left headface=Arial headsize=2 headcolor=000063 headback=FF6600 headalign=left textface=Arial textsize=2 textcolor=000063 listtype=list language=de detail=no search=link input=link>
$Verfasser-Nummer --> $_loop{"Verfasser-Nummer"}
<perl>
get "adressen";
while (get_next) {
if ($Eingabedatum ge $Abgabetermin) {
out "$_loop{"Verfasser-Nummer"} -- $Eingabedatum -- $Abgabetermin<br>";
}
}
</perl>
<do localparams=+ headbold=1 action=all Abgabetermin<-0 db=adressen range^=0,50 sort=-Id searchfields=Workshop-Nummer,Verfasser-Nummer listfields=Verfasser-Nummer,Workshop-Nummer,Kurztitel,Workshopbeitrag,Bewertung,Abgabetermin,Eingabedatum allfields=Workshop-Nummer,Kurztitel,Verfasser-Nummer,Ort formfields=Workshop-Nummer,Kurztitel,Verfasser-Nummer,Workshopbeitrag,Bewertung,Abgabetermin,Eingabedatum showamount=all,sel selectbrowse=top buttonbrowse=no pagebrowse=top,bottom indexbrowse=top,bottom border=0 spacing=2 padding=4 gridcolor=FFFFFF dataface=Arial datasize=2 datacolor=000063 databack=F0F0F0 databack2=FFFFFF dataalign=left headface=Arial headsize=2 headcolor=000063 headback=FF6600 headalign=left textface=Arial textsize=2 textcolor=000063 listtype=list language=de detail=no search=link input=link>
out $_loop{"Verfasser-Nummer"}." -- $Eingabedatum -- $Abgabetermin<br>";
out "$_loop{\"Verfasser-Nummer\"} -- $Eingabedatum -- $Abgabetermin<br>";
out "$_loop{'Verfasser-Nummer'} -- $Eingabedatum -- $Abgabetermin<br>";
if ($cmd eq "add" or $cmd eq "mod")
{
if(datum("jetzt", "intern") ge datum("$_put{(Abgabetermin}", "intern"))
{
undef %_put;
}
}
<perl>
get "adressen";
while (get_next) {
if ($Eingabedatum ge $Abgabetermin) {
out "$Verfasser-Nummer -- $Eingabedatum -- $Abgabetermin<br>";
}
}
</perl>
<do localparams=+ headbold=1 action=all Abgabetermin<-0 db=adressen range^=0,50 sort=-Id searchfields=Workshop-Nummer,Verfasser-Nummer listfields=Verfasser-Nummer,Workshop-Nummer,Kurztitel,Workshopbeitrag,Bewertung,Abgabetermin,Eingabedatum allfields=Workshop-Nummer,Kurztitel,Verfasser-Nummer,Ort formfields=Workshop-Nummer,Kurztitel,Verfasser-Nummer,Workshopbeitrag,Bewertung,Abgabetermin,Eingabedatum showamount=all,sel selectbrowse=top buttonbrowse=no pagebrowse=top,bottom indexbrowse=top,bottom border=0 spacing=2 padding=4 gridcolor=FFFFFF dataface=Arial datasize=2 datacolor=000063 databack=F0F0F0 databack2=FFFFFF dataalign=left headface=Arial headsize=2 headcolor=000063 headback=FF6600 headalign=left textface=Arial textsize=2 textcolor=000063 listtype=list language=de detail=no search=link input=link>
get "adressen";
<perl>
if ($cmd eq "add" or $cmd eq "mod")
{
if(datum("jetzt", "intern") ge datum("$_put{(Abgabetermin}", "intern"))
{
undef %_put;
}
}
</perl>
if(datum("jetzt", "intern") ge datum($_put{"Abgabetermin"}, "intern"))
>nicht getestet...
>Version 3 ist nahezu 100% aufwärtskompatibel zu Version 2.
if(datum("jetzt", "intern") ge datum("$_put{(Abgabetermin}", "intern"))
>besser nicht, wenn man geld will muss man seine Fehler selbst debuggen
my 2 Cents...;)
>Das bezog sich in erster Linie auf Pouragas Kommentar:
>Erstaunlicherweise war es Dir in diesem Fall ebenfalls nicht bekannt
>Weil du dabei schreibt "ungetestet" darf ich deine Fehler nicht korregieren oder wie?
%_put="";
undef %_put;
undef %_put; # %_put="";
> undef %_put;
<style>
body { font-family:Arial,Helvetica,sans-serif; font-size:20px; background-color:#FFFFFF; color:#000000; background-image:-; }
.Titel { font-size:14px; font-weight:bold; color:#000000; }
.Text { font-family:Arial,Helvetica,sans-serif; font-size:14px; color:#000000; }
.Einleitung { font-family:Arial,Helvetica,sans-serif; font-size:18px; color:#000000; }
.headback { background-color:#A0A0A0; }
.databack { background-color:#FFFFFF; }
.textback { background-color:#C0C0C0; }
a:link { color:#000063; }
a:visited { color:#000063; }
a:hover { color:#000063; }
a:active { color:#000063; }
</head>
<span class="Bild"></span> <p align=center><span class="Titel"></span></p> <ul><span class="Einleitung"></span></ul>
<perl>
if ($cmd eq "add" or $cmd eq "mod")
{
if(datum("jetzt", "intern") ge datum($_put{"Abgabetermin"}, "intern"))
{
} } </perl> <do localparams=+ headbold=1 action=all db=adressen range^=0,50 sort=-Id searchfields=Workshop-Nummer,Verfasser-Nummer listfields=Verfasser-Nummer,Workshop-Nummer,Kurztitel,Workshopbeitrag,Bewertung,Abgabetermin,Eingabedatum allfields=Workshop-Nummer,Kurztitel,Verfasser-Nummer,Ort formfields=Workshop-Nummer,Kurztitel,Verfasser-Nummer,Workshopbeitrag,Bewertung,Abgabetermin,Eingabedatum showamount=all,sel selectbrowse=top buttonbrowse=no pagebrowse=top,bottom indexbrowse=top,bottom border=0 spacing=2 padding=4 gridcolor=FFFFFF dataface=Arial datasize=2 datacolor=000063 databack=F0F0F0 databack2=FFFFFF dataalign=left headface=Arial headsize=2 headcolor=000063 headback=FF6600 headalign=left textface=Arial textsize=2 textcolor=000063 listtype=list language=de detail=no search=link input=link> </center><p> <ul><span class="Text"></span></ul> <center><span class="Text" name="EMail"></span></center> <p> </body></html>
| Liste der Einträge von 8550 bis 8625: | Einklappen | Zur Eingabe |
| Neueste Einträge << 10 | 9 | 8 | 7 | 6 | 5 | 4 | 3 | 2 | Neuere Einträge < | Zur Eingabe | > Ältere Einträge | 2 | 3 | 4 | 5 | 6 | 7 | 8 | 9 | 10 >> Älteste Einträge |
| © baseportal.de. Alle Rechte vorbehalten. Nutzungsbedingungen |