| 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 |
<perl>
my $emsg="";
{
$emsg.="Bitte geben Sie Ihren Namen ein! " if $_put{Name} eq "";
$emsg.="Bitte geben Sie einen Text ein! " if $_put{Beitrag} eq "";
$emsg.="Der Text ist zu lang! Bitte kürzen Sie ihn auf maximal $maxtext Zeichen." if length($_put{Beitrag})>$maxtext;
if($emsg eq "")
{
put;
out "<ul><b>Ihr Eintrag wurde aufgenommen...</b></ul>";
} else
{
out "<ul><font color=d80000><b>$emsg</b></font></ul>
<do action=list listtype=add> <loop sort=- convert_html=Name,Text code=perl range^=0,15> my $www=$WWW; $www=~ s#^http://##; out ' <table width=90%> <tr> <td class="normtext" height="66"> <p align="center"><img src="http://www.baer-konzept.de/grafik/liniestern.gif" width="360" height="40"></p> <p align="left">'; out "Beitrag von <b>$Name</b> am $Datum</p> <p> <ul> $Beitrag </ul> <p>"; out "E-Mail: <a href=\"mailto:$EMail\">$EMail</a> " if $EMail ne ""; out"<br> http:// <a href=\"http://$www\" target=\"_blank\">$www</a> " if $www ne ""; out " </p> <p> </td> </tr> </table> "; </loop> <br> <perl>my $newrange=$_range+$_range_length; my $oldrange=$_range-$_range_length; $oldrange=0 if $oldrange<0 && $oldrange>-$_range_length; out "[ <a href=\"$_link&range=$oldrange,$_range_length\">Vorherige Beiträge</a> ]" if $oldrange>=0; out "[ <a href=\"$_link&range=$newrange,$_range_length\">Weitere Beiträge</a> ]" if $newrange<$_amount_all; </perl> </td> </tr> </table> </td> </tr> </table> </td> </tr> </table>
#Unterdrückung von eventuellem HTML-Codes
$inhalt =~ tr/+/ /;
$inhalt =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg;
$inhalt =~ s///g;
$inhalt =~ s/<([^>]|
)*>//g;
@ Stefan: Ich bin einfach mal so frei, darauf zu verweisen ;-)
if($emsg eq "")
{
put;
out "<ul><b>Ihr Eintrag wurde aufgenommen...</b></ul>";
if($emsg eq "")
{
put;
out "<ul><b>Ihr Eintrag wurde aufgenommen...</b></ul>";
out EOF;
<form ....
<script>
EOF }
if($emsg eq "")
{
put;
out "<ul><b>Ihr Eintrag wurde aufgenommen...</b></ul>";
out EOF;
<form action="http://www.is-fun.net/cgibin/feedbackx.cgi" method="post">
<input type="hidden" name="betreff" value="G&aumstebucheintrag Bär-Konzept">
<input type="hidden" name="empfaenger" value="holger-baer@t-online.de">
<input type="hidden" name="antwort_template_name" value="http://www.baer-konzept.de/kontakt.htm">
</form>
<script language="JavaScript">
document.Ausgabe.submit();
</script>
EOF
}
} else
{
out "<ul><font color=d80000><b>$emsg</b></font></ul>
"; } } "";
</perl>
<do action=list listtype=add>
<perl>
my $maxtext=5000;
my $emsg="";
if(%_put)
{
$emsg.="Bitte geben Sie Ihren Namen ein! " if $_put{Name} eq "";
$emsg.="Bitte geben Sie einen Text ein! " if $_put{Beitrag} eq "";
$emsg.="Der Text ist zu lang! Bitte kürzen Sie ihn auf maximal $maxtext Zeichen." if length($_put{Beitrag})>$maxtext;
{
put;
out "<ul><b>Ihr Eintrag wurde aufgenommen...</b></ul>";
out EOF;
<form action="http://www.is-fun.net/cgibin/feedbackx.cgi" method="post">
<input type="hidden" name="betreff" value="G&aumstebucheintrag Bär-Konzept">
<input type="hidden" name="empfaenger" value="holger-baer@t-online.de">
<input type="hidden" name="antwort_template_name" value="http://www.baer-konzept.de/kontakt.htm">
</form>
<script language="JavaScript">
document.Ausgabe.submit();
</script>
EOF
}
} else
{
out "<ul><font color=d80000><b>$emsg</b></font></ul>";
}
</perl>
<perl>
my $maxtext=5000;
my $emsg="";
if(%_put)
{
$emsg.="Bitte geben Sie Ihren Namen ein! " if $_put{Name} eq "";
$emsg.="Bitte geben Sie einen Text ein! " if $_put{Beitrag} eq "";
$emsg.="Der Text ist zu lang! Bitte kürzen Sie ihn auf maximal $maxtext Zeichen." if length($_put{Beitrag})>$maxtext;
{
put;
out "<ul><b>Ihr Eintrag wurde aufgenommen...</b></ul>";
out EOF;
<form action="http://www.is-fun.net/cgibin/feedbackx.cgi" method="post">
<input type="hidden" name="betreff" value="G&aumstebucheintrag Bär-Konzept">
<input type="hidden" name="empfaenger" value="holger-baer@t-online.de&quot;>
<input type="hidden" name="antwort_template_name" value="http://www.baer-konzept.de/kontakt.htm">
</form>
<script language="JavaScript">
document.Ausgabe.submit();
</script>
}else
{
out "<ul><font color=d80000><b>$emsg</b></font></ul>";
}
}
</perl>
<html>
<head>
<title>Bär-Konzept</title>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
<META NAME="author" CONTENT="Holger Bär">
<META NAME="publisher" CONTENT="Holger Bär">
<META NAME="copyright" CONTENT="Bär-Konzept">
<META NAME="keywords" CONTENT="webdesign homepage,internet,präsenz,html,baer bär,konzept,bildbearbeitung, upload,webspace,puretec,suchmaschinen beratung,projektpflege">
<META NAME="description" CONTENT="Erstellung Ihres Internetauftritts nach Ihren Wünschen. Full-Service von der Idee bis zur Projektpflege. Beratung und Webdesign - Bär-Konzept.">
<META NAME="page-topic" CONTENT="Computer/Internet (Internet)">
<META NAME="audience" CONTENT="Alle">
<META NAME="expires" CONTENT="NEVER">
<META NAME="page-type" CONTENT="Produktinfo">
<META NAME="robots" CONTENT="NOINDEX,FOLLOW">
<META http-equiv="Page-Enter")"
CONTENT="RevealTrans(Duration=1,Transition=12)">
<META http-equiv="Page-Exit")"
CONTENT="RevealTrans(Duration=1,Transition=12)">
<script language="JavaScript">
<!--
function FramesetTest() {
if (top.frames.length==0) {
Address="http://www.baer-konzept.de/frameset.htm?http://baseportal.de/cgi-bin/baseportal.pl?htx=/Tierheim/main";
if(document.images) top.location.replace(Address);
else top.location.href=Address;
}
}
//-->
</script>
<script language="JavaScript">
<!--
{
if (document.all) x.blur();
}
</script> <link rel="stylesheet" href="http://www.baer-konzept.de/style.css"> <type="text/css"> </head> <body bgcolor="#184A6B" link="#FFFFFF" vlink="#FFFFFF" alink="#00CCCC" onLoad="FramesetTest()"> <table width="100%" border="0" cellspacing="0" cellpadding="0" align="center"> <tr> <td width="16%" bgcolor="#184A6B" height="2"> </td> <td width="84%" bgcolor="#184A6B" class="ueberschrift" height="2" background="http://www.baer-konzept.de/grafik/hintergrs2.gif"> </td> </tr> <tr> <td width="16%" bgcolor="#0F2D40" height="2" valign="top"> </td> <td width="84%" bgcolor="#184A6B" class="ueberschrift" height="2"> <table width="100%" border="0" cellspacing="0" cellpadding="10"> <tr bgcolor="#0F2D40"> <td class="ueberschrift"><span class="titel">Kommentar erwünscht.</span></td> </tr> </table> <span class="titel"><span class="normtext"></span></span></td> </tr> <tr> <td width="16%" bgcolor="#0F2D40" height="84" valign="top" background="http://www.baer-konzept.de/grafik/anima2.gif"> <img src="http://www.baer-konzept.de/grafik/buch.jpg" width="138" height="93"></td> <td width="84%" height="84" valign="top"> <table width="100%" border="0" cellspacing="0" cellpadding="10" height="290"> <tr bgcolor="#6084A8" valign="top"> <td height="49" bgcolor="#6084A8"> <p><span class="normtext">Gästebuch Bär-Konzept. </span></p> <p><span class="normtext">Ich freue mich auf Ihre Beiträge. Für Ihre Eintragungen bedanke ich mich schon jetzt.</span></p> <table width="100%" border="0" cellspacing="0" cellpadding="10"> <tr valign="top"> <td class="normtext"> <p class="normtext">
my $maxtext=5000; my $emsg="";
{
$emsg.="Bitte geben Sie Ihren Namen ein! " if $_put{Name} eq "";
$emsg.="Bitte geben Sie einen Text ein! " if $_put{Beitrag} eq "";
$emsg.="Der Text ist zu lang! Bitte kürzen Sie ihn auf maximal $maxtext Zeichen." if length($_put{Beitrag})>$maxtext;
if($emsg eq "")
{
put;
out "<ul><b>Ihr Eintrag wurde aufgenommen...</b></ul>";
} else
{
out "<ul><font color=d80000><b>$emsg</b></font></ul>
"; } } "";
</perl>
<do action=list listtype=add>
<loop sort=- convert_html=Name,Beitrag,Text code=perl range^=0,15>
my $www=$WWW; $www=~ s#^http://##; out '
<table width=90%>
<tr>
<td class="normtext" height="66">
<p align="center"><img src="http://www.baer-konzept.de/grafik/liniestern.gif" width="360" height="40"></p>
<p align="left">'; out "Beitrag von <b>$Name</b> am $Datum</p>
<p>
<ul>
$Beitrag
</ul>
<p>"; out "E-Mail: <a href=\"mailto:$EMail\">$EMail</a>
" if $EMail ne ""; out"<br>
http:// <a href=\"http://$www\" target=\"_blank\">$www</a>
" if $www ne ""; out " </p>
<p>
</td>
</tr>
</table>
"; </loop> <br>
<perl>my $newrange=$_range+$_range_length; my $oldrange=$_range-$_range_length;
$oldrange=0 if $oldrange<0 && $oldrange>-$_range_length; out
"[ <a href=\"$_link&range=$oldrange,$_range_length\">Vorherige
Beiträge</a> ]" if $oldrange>=0; out "[ <a href=\"$_link&range=$newrange,$_range_length\">Weitere
Beiträge</a> ]" if $newrange<$_amount_all; </perl> </td>
</tr>
</table>
</td>
</tr>
</table>
</td>
</tr>
</table>
</body>
</html>
<form action="http://www.is-fun.net/cgibin/feedbackx.cgi" method="post"> <input type="hidden" name="betreff" value="G&aumstebucheintrag Bär-Konzept"> <input type="hidden" name="empfaenger" value="holger-baer@t-online.de"> <input type="hidden" name="antwort_template_name" value="http://www.baer-konzept.de/kontakt.htm"> </form> <script language="JavaScript"> document.Ausgabe.submit(); </script>
<html>
<head>
<title>Bär-Konzept</title>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
<META NAME="author" CONTENT="Holger Bär">
<META NAME="publisher" CONTENT="Holger Bär">
<META NAME="copyright" CONTENT="Bär-Konzept">
<META NAME="keywords" CONTENT="webdesign homepage,internet,präsenz,html,baer bär,konzept,bildbearbeitung, upload,webspace,puretec,suchmaschinen beratung,projektpflege">
<META NAME="description" CONTENT="Erstellung Ihres Internetauftritts nach Ihren Wünschen. Full-Service von der Idee bis zur Projektpflege. Beratung und Webdesign - Bär-Konzept.">
<META NAME="page-topic" CONTENT="Computer/Internet (Internet)">
<META NAME="audience" CONTENT="Alle">
<META NAME="expires" CONTENT="NEVER">
<META NAME="page-type" CONTENT="Produktinfo">
<META NAME="robots" CONTENT="NOINDEX,FOLLOW">
<META http-equiv="Page-Enter")"
CONTENT="RevealTrans(Duration=1,Transition=12)">
<META http-equiv="Page-Exit")"
CONTENT="RevealTrans(Duration=1,Transition=12)">
<script language="JavaScript">
<!--
function FramesetTest() {
if (top.frames.length==0) {
Address="http://www.baer-konzept.de/frameset.htm?http://baseportal.de/cgi-bin/baseportal.pl?htx=/Tierheim/main";
if(document.images) top.location.replace(Address);
else top.location.href=Address;
}
}
//-->
</script>
<script language="JavaScript">
<!--
{
if (document.all) x.blur();
}
</script> <link rel="stylesheet" href="http://www.baer-konzept.de/style.css"> <type="text/css"> </head> <body bgcolor="#184A6B" link="#FFFFFF" vlink="#FFFFFF" alink="#00CCCC" onLoad="FramesetTest()"> <table width="100%" border="0" cellspacing="0" cellpadding="0" align="center"> <tr> <td width="16%" bgcolor="#184A6B" height="2"> </td> <td width="84%" bgcolor="#184A6B" class="ueberschrift" height="2" background="http://www.baer-konzept.de/grafik/hintergrs2.gif"> </td> </tr> <tr> <td width="16%" bgcolor="#0F2D40" height="2" valign="top"> </td> <td width="84%" bgcolor="#184A6B" class="ueberschrift" height="2"> <table width="100%" border="0" cellspacing="0" cellpadding="10"> <tr bgcolor="#0F2D40"> <td class="ueberschrift"><span class="titel">Kommentar erwünscht.</span></td> </tr> </table> <span class="titel"><span class="normtext"></span></span></td> </tr> <tr> <td width="16%" bgcolor="#0F2D40" height="84" valign="top" background="http://www.baer-konzept.de/grafik/anima2.gif"> <img src="http://www.baer-konzept.de/grafik/buch.jpg" width="138" height="93"></td> <td width="84%" height="84" valign="top"> <table width="100%" border="0" cellspacing="0" cellpadding="10" height="290"> <tr bgcolor="#6084A8" valign="top"> <td height="49" bgcolor="#6084A8"> <p><span class="normtext">Gästebuch Bär-Konzept. </span></p> <p><span class="normtext">Ich freue mich auf Ihre Beiträge. Für Ihre Eintragungen bedanke ich mich schon jetzt.</span></p> <table width="100%" border="0" cellspacing="0" cellpadding="10"> <tr valign="top"> <td class="normtext"> <p class="normtext"> <perl> my $maxtext=5000; my $emsg="";
{
$emsg.="Bitte geben Sie Ihren Namen ein! " if $_put{Name} eq "";
$emsg.="Bitte geben Sie einen Text ein! " if $_put{Beitrag} eq "";
$emsg.="Der Text ist zu lang! Bitte kürzen Sie ihn auf maximal $maxtext Zeichen." if length($_put{Beitrag}) > $maxtext;
if($emsg eq "")
{
put;
out <<EOF;
<ul><b>Ihr Eintrag wurde aufgenommen...</b></ul>
<form name=Ausgabe action="http://www.is-fun.net/cgibin/feedbackx.cgi" method="post">
<input type="hidden" name="betreff" value="Gästebucheintrag Bär-Konzept">
<input type="hidden" name="empfaenger" value="holger-baer\@t-online.de">
<input type="hidden" name="antwort_template_name" value="http://www.baer-konzept.de/kontakt.htm">
</form>
<script language="JavaScript">
</script>
EOF
}else
{
out "<ul><font color=d80000><b>$emsg</b></font></ul>";
}
}
<do action=list listtype=add>
my $www=$WWW; $www=~ s#^http://##;
<table width=90%> <tr> <td class="normtext" height="66"> <p align="center"><img src="http://www.baer-konzept.de/grafik/liniestern.gif" width="360" height="40"></p> <p align="left">Beitrag von <b>$Name</b> am $Datum</p> <p> <ul> $Beitrag </ul> <p> EOF out "E-Mail: <a href=mailto:$EMail>$EMail</a> " if $EMail ne ""; out "<br>http:// <a href=http://$www target=_blank>$www</a>" if $www ne ""; out "</p><p></td></tr></table>"; </loop> <br>
my $newrange=$_range+$_range_length; my $oldrange=$_range-$_range_length;
out "[ <a href=\"$_link&range=$oldrange,$_range_length\">Vorherige Beiträge</a> ]" if $oldrange>=0; out "[ <a href=\"$_link&range=$newrange,$_range_length\">Weitere Beiträge</a> ]" if $newrange<$_amount_all; </perl>
</tr> </table> </td> </tr> </table> </td> </tr> </table> </body> </html>
| Liste der Einträge von 61800 bis 61950: | 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 |