Re: [ Fehler: (perl) in /Breitfeld/Redaktion: Unrecognized character \374 at (eval 2 - baseportal Forum - Web-Anwendungen einfach, schnell, leistungsfähig!

Ausgewählter Eintrag:

Beitrag von Sander (8134 Beiträge) am Mittwoch, 11.Juli.2001, 00:35.
Re: [ Fehler: (perl) in /Breitfeld/Redaktion: Unrecognized character \374 at (eval 2

<html>
<body bgcolor=808080 text=000000>
<table width=100% bgcolor=008080>
<tr><td width=130><a href="/cgi-bin/baseportal.pl?htx=/Breitfeld/Start">HOME</a></td><td><h2>REDAKTION</h2></td></tr>
</table>
<perl>
#######Linkliste Seite ################
sub Linkliste
{

$Seite_rechte=$user_recht{$Work}; # Die Rechte Des Nutzers für diese Seite speichern
  if($cmd eq "add"){
    put ["Name", $in_Name, "Beschreibung", $in_Beschreibung, "URL", $in_URL, "Nutzer", $Nr], "$Work";
    out "<table width=100%><tr><td><b>Neuen Eintrag hinzugefügt...</b></td></tr></table>";
    $cmd = "Liste";
  } elsif($cmd eq "mod"){
    get "Id==$id", "$Work";
    &Linkliste_form("<b>Eintrag Ändern.</b>","do_mod","$_id") ;
  } elsif($cmd eq "do_mod"){
    mod "Id==$id", ["Name", $in_Name, "Beschreibung", $in_Beschreibung, "URL", $in_URL], "$Work";
    out "<table width=100%><tr><td><b>Eintrag geändert...</b></td></tr></table>";
    $cmd = "Liste";
    $Name=$Beschreibung=$URL="";
  } elsif($cmd eq "del"){
    del "Id==$id", "$Work";
    out "<table width=100%><tr><td><b>Eintrag gelöscht...</b></td></tr></table>";
    $cmd = "Liste";
     $Name=$Beschreibung=$URL="";
  }
  if($cmd eq "Liste"){
    &Linkliste_form("<b>Neuer Eintrag.</b>","add") ;
    if($Seite_rechte =~ "u"){
      get "Nutzer==$Nr", "$Work";
    } elsif($Seite_rechte =~ "x"){
      get "Id==*", "$Work";
    }

    while (get_next("$Work")){
      $buttons=" <a href='/cgi-bin/baseportal.pl?htx=$htx&Work=$Work&login_name=$login_name&cmd=mod&id=$_id'>Ändern</a>" if $Seite_rechte =~ "m";
      $buttons=$buttons." <a href='/cgi-bin/baseportal.pl?htx=$htx&Work=$Work&login_name=$login_name&cmd=del&id=$_id'>Löschen</a>" if $Seite_rechte =~ "d";
      $Beschreibung=convert_br($Beschreibung);
out <<EOF;
<hr>
<table width=100% bgcolor=ffffff>
<tr><td bgcolor=cfcfcf><b>$Name</b> $buttons</td></tr>
<tr><td><ul>$Beschreibung</ul></td></tr>
<tr><td bgcolor=cfcfcf>$URL</td></tr>
</table>

}
  }
}

sub Linkliste_form
{

if($Seite_rechte =~ "w"){
    if($to_do eq "do_mod"){
      $ds="<input type='hidden' name='id=' value='$id'>";
    } elsif($to_do eq "add"){
      $ds="<input type='hidden' name='in_Nutzer=' value='$Nr'>";
          }
out <<Formular;
<form action="/cgi-bin/baseportal.pl?htx=$htx" method="post" enctype="multipart/form-data">
<input type="hidden" name="htx=" value="$htx">
<input type="hidden" name="Work=" value="$Work">
<input type="hidden" name="login_name=" value="$login_name">
<input type="hidden" name="cmd=" value="$to_do">
$ds
<table width=90% align=center bgcolor=cfcfcf cellpadding=4 cellspacing=0 border=0>
<tr><td colspan=2>$msg</td></tr>
<tr><td>Name:</td><td><input type="Text" name="in_Name=" value="$Name"></td></tr>
<tr><td>Beschreibung:</td><td><textarea name="in_Beschreibung=" cols="50" rows="12">$Beschreibung</textarea></td></tr>
<tr><td>URL:</td><td><INPUT type="text" value=http://        name="URL:=" size="50"></td></tr>
<tr><td> </td><td><input type="Submit" name="" value="Speichern"></td></tr>
</table>
</form>

}
}
####### Presse Seite ################
sub Presse
{

$Seite_rechte=$user_recht{$Work}; # Die Rechte Des Nutzers für diese Seite speichern
  if($cmd eq "add"){
    put ["Zeitung", "$in_Zeitung", "Titel", "$in_Titel", "Text", "$in_Text", "Autor", "$in_Autor", "User", "$in_User", "Nutzer", "$Nr"], "$Work";
    out "<table width=100%><tr><td><b>Neuen Eintrag hinzugefügt...</b></td></tr></table>";
    $cmd = "Liste";
  } elsif($cmd eq "mod"){
    get "Id==$id", "$Work";
    &Presse_form("<b>Eintrag Ändern.</b>","do_mod","$_id") ;
  } elsif($cmd eq "do_mod"){
    mod "Id==$id", ["Zeitung", "$in_Zeitung", "Titel", "$in_Titel", "Text", "$in_Text", "Autor", "$in_Autor", "User", "$in_User"], "$Work";
    out "<table width=100%><tr><td><b>Eintrag geändert...</b></td></tr></table>";
    $cmd = "Liste";
    $Titel=$Text="";
  } elsif($cmd eq "del"){
    del "Id==$id", "$Work";
    out "<table width=100%><tr><td><b>Eintrag gelöscht...</b></td></tr></table>";
    $cmd = "Liste";
    $Titel=$Text="";
  }
  if($cmd eq "Liste"){
    &Presse_form("<b>Neuer Eintrag.</b>","add") ;
    if($Seite_rechte =~ "u"){
      get "Nutzer==$Nr", "$Work";
    } elsif($Seite_rechte =~ "x"){
      get "Id==*", "$Work";
    }

    while (get_next("$Work")){
      $buttons=" <a href='/cgi-bin/baseportal.pl?htx=$htx&Work=$Work&login_name=$login_name&cmd=mod&id=$_id'>Ändern</a>" if $Seite_rechte =~ "m";
      $buttons=$buttons." <a href='/cgi-bin/baseportal.pl?htx=$htx&Work=$Work&login_name=$login_name&cmd=del&id=$_id'>Löschen</a>" if $Seite_rechte =~ "d";
      $Datum = datum($Datum,"Tag0.Monat0.Jahr");
      $Text=convert_br($Text);
out <<EOF;
<hr>
<table width=100% align=center bgcolor=ffffff>
<tr><td bgcolor=cfcfcf>$Datum <b>$Zeitung</b> $buttons</td></tr>
<tr><td><b><u>$Titel</u></b></td></tr>
<tr><td><ul><p align="justify">$Text</p></ul></td></tr>
<tr><td bgcolor=cccccc><font size=1>$Autor gefunden von $User</font></td></tr>
</table>

}
  }
}
#### News Formular #################
sub Presse_form
{

if($Seite_rechte =~ "w"){
    if($to_do eq "do_mod"){
      $ds="<input type='hidden' name='id=' value='$id'>";
    } elsif($to_do eq "add"){
      $ds="<input type='hidden' name='in_Nutzer=' value='$Nr'>";
      $User=$Vorname." ".$Name;
    }
out <<Formular;
<form action="/cgi-bin/baseportal.pl?htx=$htx" method="post" enctype="multipart/form-data">
<input type="hidden" name="htx=" value="$htx">
<input type="hidden" name="Work=" value="$Work">
<input type="hidden" name="login_name=" value="$login_name">
<input type="hidden" name="cmd=" value="$to_do">
$ds
<table width=90% align=center bgcolor=cfcfcf cellpadding=4 cellspacing=0 border=0>
<tr><td colspan=2>$msg</td></tr>
<tr><td>Zeitschrift:</td><td><input type="Text" name="in_Zeitung=" value="$Zeitung"></td></tr>
<tr><td>Titel:</td><td><input type="Text" name="in_Titel=" value="$Titel"></td></tr>
<tr><td>Text:</td><td><textarea name="in_Text=" cols="50" rows="12">$Text</textarea></td></tr>
<tr><td>Autor:</td><td><input type="Text" name="in_Autor=" value="$Autor"></td></tr>
<tr><td>Ihr Name:</td><td><input type="Text" name="in_User=" value="$User"></td></tr>
<tr><td> </td><td><input type="Submit" name="" value="Speichern"></td></tr>
</table>
</form>

}
}
####### Navigation ausgeben #########
sub navigation
{

&get_rechte;
get "Redaktion==* sort=LinkPos","subnavig";

$links=$links."<tr><td><a href='/cgi-bin/baseportal.pl?htx=$htx&login_name=$login_name&Work=$Seite&cmd=Liste'>$LinkTitel</a></td></tr>" if $user_recht{$Seite};
  }
out <<EOF;
<table width=100% height=100%>
<tr><td width=130 height=100% valign=top bgcolor=cfcfcf>
<table width=120>
$links
</table>
</td><td valign=top>
EOF
}
####### Rechte des Nutzers aus der Datenbank auslesen und in Variable speichern.
sub get_rechte
{

</td></tr></table>
</body>
</html>

Antworten

Alle Einträge zum Thema:

Zur Liste

Beitrag von peter (192 Beiträge) am Dienstag, 10.Juli.2001, 19:35.
[ Fehler: (perl) in /Breitfeld/Redaktion: Unrecognized character \374 at (eval 2

http://baseportal.de/cgi-bin/baseportal.pl?htx=/Breitfeld/Redaktion

Antworten

Beitrag von Sander (8134 Beiträge) am Dienstag, 10.Juli.2001, 21:15.
Re: [ Fehler: (perl) in /Breitfeld/Redaktion: Unrecognized character \374 at (eval 2

Antworten

Beitrag von peter (192 Beiträge) am Dienstag, 10.Juli.2001, 23:36.
Re: [ Fehler: (perl) in /Breitfeld/Redaktion: Unrecognized character \374 at (eval 2

<html>
<body bgcolor=808080 text=000000>
<table width=100% bgcolor=008080>
<tr><td width=130><a href="/cgi-bin/baseportal.pl?htx=/Breitfeld/Start">HOME</a></td><td><h2>REDAKTION</h2></td></tr>
</table>
<perl>
#######Linkliste Seite ################
sub Linkliste
{
  &navigation;
  $Seite_rechte=$user_recht{$Work};  # Die Rechte Des Nutzers für diese Seite speichern
  if($cmd eq "add"){
    put ["Name", $"in_Name", "Beschreibung", "in_Beschreibung", "URL", "in_URL", "Nutzer", "$Nr"], "$Work";
    out "<table width=100%><tr><td><b>Neuen Eintrag hinzugefügt...</b></td></tr></table>";
    $cmd = "Liste";
  } elsif($cmd eq "mod"){
    get "Id==$id", "$Work";
    &Linkliste_form("<b>Eintrag Ändern.</b>","do_mod","$_id") ;
  } elsif($cmd eq "do_mod"){
    mod "Id==$id", ["Name", $"in_Name", "Beschreibung", "in_Beschreibung", "URL", "in_URL], "$Work";
    out "<table width=100%><tr><td><b>Eintrag geändert...</b></td></tr></table>";
    $cmd = "Liste";
    $Name=$Beschreibung=$URL="";
  } elsif($cmd eq "del"){
    del "Id==$id", "$Work";
    out "<table width=100%><tr><td><b>Eintrag gelöscht...</b></td></tr></table>";
    $cmd = "Liste";
     $Name=$Beschreibung=$URL="";
  }
  if($cmd eq "Liste"){
    &Linkliste_form("<b>Neuer Eintrag.</b>","add") ;
    if($Seite_rechte =~ "u"){
      get "Nutzer==$Nr", "$Work";
    } elsif($Seite_rechte =~ "x"){
      get "Id==*", "$Work";
    }

    while (get_next("$Work")){
      $buttons=" <a href='/cgi-bin/baseportal.pl?htx=$htx&Work=$Work&login_name=$login_name&cmd=mod&id=$_id'>Ändern</a>" if $Seite_rechte =~ "m";
      $buttons=$buttons." <a href='/cgi-bin/baseportal.pl?htx=$htx&Work=$Work&login_name=$login_name&cmd=del&id=$_id'>Löschen</a>" if $Seite_rechte =~ "d";

      $Beschreibung=convert_br($Beschreibung);
out <<EOF;
<hr>
<table width=100% bgcolor=ffffff>
<tr><td bgcolor=cfcfcf><b>$Name</b> $buttons</td></tr>
<tr><td><ul>$Beschreibung</ul></td></tr>
<tr><td bgcolor=cfcfcf>$URL</td></tr>
</table>
EOF
    }
  }
}

sub Linkliste_form
{
my ($msg,$to_do,$id) = @_;
  if($Seite_rechte =~ "w"){
    if($to_do eq "do_mod"){
      $ds="<input type='hidden' name='id=' value='$id'>";
    } elsif($to_do eq "add"){
      $ds="<input type='hidden' name='in_Nutzer=' value='$Nr'>";
          }
out <<Formular;
<form action="/cgi-bin/baseportal.pl?htx=$htx" method="post" enctype="multipart/form-data">
<input type="hidden" name="htx=" value="$htx">
<input type="hidden" name="Work=" value="$Work">
<input type="hidden" name="login_name=" value="$login_name">
<input type="hidden" name="cmd=" value="$to_do">
$ds
<table width=90% align=center bgcolor=cfcfcf cellpadding=4 cellspacing=0 border=0>
<tr><td colspan=2>$msg</td></tr>
<tr><td>Name:</td><td><input type="Text" name="in_Name=" value="$Name"></td></tr>
<tr><td>Beschreibung:</td><td><textarea name="in_Beschreibung=" cols="50" rows="12">$Beschreibung</textarea></td></tr>
<tr><td>URL:</td><td><INPUT type="text" value=http://
        name="URL:=" size="50"></td></tr>

</table>
</form>
Formular
  }

####### Presse Seite ################
sub Presse
{
  &navigation;
  $Seite_rechte=$user_recht{$Work};  # Die Rechte Des Nutzers für diese Seite speichern
  if($cmd eq "add"){
    put ["Zeitung", "$in_Zeitung", "Titel", "$in_Titel", "Text", "$in_Text", "Autor", "$in_Autor", "User", "$in_User", "Nutzer", "$Nr"], "$Work";
    out "<table width=100%><tr><td><b>Neuen Eintrag hinzugefügt...</b></td></tr></table>";
    $cmd = "Liste";
  } elsif($cmd eq "mod"){
    get "Id==$id", "$Work";
    &Presse_form("<b>Eintrag Ändern.</b>","do_mod","$_id") ;
  } elsif($cmd eq "do_mod"){
    mod "Id==$id", ["Zeitung", "$in_Zeitung", "Titel", "$in_Titel", "Text", "$in_Text", "Autor", "$in_Autor", "User", "$in_User"], "$Work";
    out "<table width=100%><tr><td><b>Eintrag geändert...</b></td></tr></table>";
    $cmd = "Liste";
    $Titel=$Text="";
  } elsif($cmd eq "del"){
    del "Id==$id", "$Work";
    out "<table width=100%><tr><td><b>Eintrag gelöscht...</b></td></tr></table>";
    $cmd = "Liste";
    $Titel=$Text="";
  }
  if($cmd eq "Liste"){
    &Presse_form("<b>Neuer Eintrag.</b>","add") ;
    if($Seite_rechte =~ "u"){
      get "Nutzer==$Nr", "$Work";
    } elsif($Seite_rechte =~ "x"){
      get "Id==*", "$Work";
    }

    while (get_next("$Work")){
      $buttons=" <a href='/cgi-bin/baseportal.pl?htx=$htx&Work=$Work&login_name=$login_name&cmd=mod&id=$_id'>Ändern</a>" if $Seite_rechte =~ "m";
      $buttons=$buttons." <a href='/cgi-bin/baseportal.pl?htx=$htx&Work=$Work&login_name=$login_name&cmd=del&id=$_id'>Löschen</a>" if $Seite_rechte =~ "d";
      $Datum = datum($Datum,"Tag0.Monat0.Jahr");
      $Text=convert_br($Text);

<hr>
<table width=100% align=center bgcolor=ffffff>
<tr><td bgcolor=cfcfcf>$Datum <b>$Zeitung</b> $buttons</td></tr>
<tr><td><b><u>$Titel</u></b></td></tr>
<tr><td><ul><p align="justify">$Text</p></ul></td></tr>
<tr><td bgcolor=cccccc><font size=1>$Autor gefunden von $User</font></td></tr>
</table>
EOF
    }
  }
}

sub Presse_form
{
my ($msg,$to_do,$id) = @_;
  if($Seite_rechte =~ "w"){
    if($to_do eq "do_mod"){
      $ds="<input type='hidden' name='id=' value='$id'>";
    } elsif($to_do eq "add"){
      $ds="<input type='hidden' name='in_Nutzer=' value='$Nr'>";
      $User=$Vorname." ".$Name;
    }
out <<Formular;
<form action="/cgi-bin/baseportal.pl?htx=$htx" method="post" enctype="multipart/form-data">
<input type="hidden" name="htx=" value="$htx">
<input type="hidden" name="Work=" value="$Work">
<input type="hidden" name="login_name=" value="$login_name">
<input type="hidden" name="cmd=" value="$to_do">
$ds
<table width=90% align=center bgcolor=cfcfcf cellpadding=4 cellspacing=0 border=0>
<tr><td colspan=2>$msg</td></tr>
<tr><td>Zeitschrift:</td><td><input type="Text" name="in_Zeitung=" value="$Zeitung"></td></tr>
<tr><td>Titel:</td><td><input type="Text" name="in_Titel=" value="$Titel"></td></tr>
<tr><td>Text:</td><td><textarea name="in_Text=" cols="50" rows="12">$Text</textarea></td></tr>
<tr><td>Autor:</td><td><input type="Text" name="in_Autor=" value="$Autor"></td></tr>
<tr><td>Ihr Name:</td><td><input type="Text" name="in_User=" value="$User"></td></tr>
<tr><td> </td><td><input type="Submit" name="" value="Speichern"></td></tr>
</table>
</form>
Formular
  }

####### Navigation ausgeben #########
sub navigation
{
my $links="";
&get_rechte;
get "Redaktion==* sort=LinkPos","subnavig";
while(get_next("subnavig")){
   $links=$links."<tr><td><a href='/cgi-bin/baseportal.pl?htx=$htx&login_name=$login_name&Work=$Seite&cmd=Liste'>$LinkTitel</a></td></tr>" if $user_recht{$Seite};
  }
out <<EOF;
<table width=100% height=100%>
<tr><td width=130 height=100% valign=top bgcolor=cfcfcf>
<table width=120>
$links
</table>
</td><td valign=top>
EOF
}

sub get_rechte
{
  get "nutzer_name==$login_name", "Nutzer";
  %user_recht=split(/,/,$nutzer_rechte); # in diesem Hashe stehen die rechte des nutzers.
}

</td></tr></table>
</body>
</html>

Antworten

Beitrag von Sander (8134 Beiträge) am Mittwoch, 11.Juli.2001, 00:35.
Re: [ Fehler: (perl) in /Breitfeld/Redaktion: Unrecognized character \374 at (eval 2

<html>
<body bgcolor=808080 text=000000>
<table width=100% bgcolor=008080>
<tr><td width=130><a href="/cgi-bin/baseportal.pl?htx=/Breitfeld/Start">HOME</a></td><td><h2>REDAKTION</h2></td></tr>
</table>
<perl>
#######Linkliste Seite ################
sub Linkliste
{

$Seite_rechte=$user_recht{$Work}; # Die Rechte Des Nutzers für diese Seite speichern
  if($cmd eq "add"){
    put ["Name", $in_Name, "Beschreibung", $in_Beschreibung, "URL", $in_URL, "Nutzer", $Nr], "$Work";
    out "<table width=100%><tr><td><b>Neuen Eintrag hinzugefügt...</b></td></tr></table>";
    $cmd = "Liste";
  } elsif($cmd eq "mod"){
    get "Id==$id", "$Work";
    &Linkliste_form("<b>Eintrag Ändern.</b>","do_mod","$_id") ;
  } elsif($cmd eq "do_mod"){
    mod "Id==$id", ["Name", $in_Name, "Beschreibung", $in_Beschreibung, "URL", $in_URL], "$Work";
    out "<table width=100%><tr><td><b>Eintrag geändert...</b></td></tr></table>";
    $cmd = "Liste";
    $Name=$Beschreibung=$URL="";
  } elsif($cmd eq "del"){
    del "Id==$id", "$Work";
    out "<table width=100%><tr><td><b>Eintrag gelöscht...</b></td></tr></table>";
    $cmd = "Liste";
     $Name=$Beschreibung=$URL="";
  }
  if($cmd eq "Liste"){
    &Linkliste_form("<b>Neuer Eintrag.</b>","add") ;
    if($Seite_rechte =~ "u"){
      get "Nutzer==$Nr", "$Work";
    } elsif($Seite_rechte =~ "x"){
      get "Id==*", "$Work";
    }

    while (get_next("$Work")){
      $buttons=" <a href='/cgi-bin/baseportal.pl?htx=$htx&Work=$Work&login_name=$login_name&cmd=mod&id=$_id'>Ändern</a>" if $Seite_rechte =~ "m";
      $buttons=$buttons." <a href='/cgi-bin/baseportal.pl?htx=$htx&Work=$Work&login_name=$login_name&cmd=del&id=$_id'>Löschen</a>" if $Seite_rechte =~ "d";
      $Beschreibung=convert_br($Beschreibung);
out <<EOF;
<hr>
<table width=100% bgcolor=ffffff>
<tr><td bgcolor=cfcfcf><b>$Name</b> $buttons</td></tr>
<tr><td><ul>$Beschreibung</ul></td></tr>
<tr><td bgcolor=cfcfcf>$URL</td></tr>
</table>

}
  }
}

sub Linkliste_form
{

if($Seite_rechte =~ "w"){
    if($to_do eq "do_mod"){
      $ds="<input type='hidden' name='id=' value='$id'>";
    } elsif($to_do eq "add"){
      $ds="<input type='hidden' name='in_Nutzer=' value='$Nr'>";
          }
out <<Formular;
<form action="/cgi-bin/baseportal.pl?htx=$htx" method="post" enctype="multipart/form-data">
<input type="hidden" name="htx=" value="$htx">
<input type="hidden" name="Work=" value="$Work">
<input type="hidden" name="login_name=" value="$login_name">
<input type="hidden" name="cmd=" value="$to_do">
$ds
<table width=90% align=center bgcolor=cfcfcf cellpadding=4 cellspacing=0 border=0>
<tr><td colspan=2>$msg</td></tr>
<tr><td>Name:</td><td><input type="Text" name="in_Name=" value="$Name"></td></tr>
<tr><td>Beschreibung:</td><td><textarea name="in_Beschreibung=" cols="50" rows="12">$Beschreibung</textarea></td></tr>
<tr><td>URL:</td><td><INPUT type="text" value=http://        name="URL:=" size="50"></td></tr>
<tr><td> </td><td><input type="Submit" name="" value="Speichern"></td></tr>
</table>
</form>

}
}
####### Presse Seite ################
sub Presse
{

$Seite_rechte=$user_recht{$Work}; # Die Rechte Des Nutzers für diese Seite speichern
  if($cmd eq "add"){
    put ["Zeitung", "$in_Zeitung", "Titel", "$in_Titel", "Text", "$in_Text", "Autor", "$in_Autor", "User", "$in_User", "Nutzer", "$Nr"], "$Work";
    out "<table width=100%><tr><td><b>Neuen Eintrag hinzugefügt...</b></td></tr></table>";
    $cmd = "Liste";
  } elsif($cmd eq "mod"){
    get "Id==$id", "$Work";
    &Presse_form("<b>Eintrag Ändern.</b>","do_mod","$_id") ;
  } elsif($cmd eq "do_mod"){
    mod "Id==$id", ["Zeitung", "$in_Zeitung", "Titel", "$in_Titel", "Text", "$in_Text", "Autor", "$in_Autor", "User", "$in_User"], "$Work";
    out "<table width=100%><tr><td><b>Eintrag geändert...</b></td></tr></table>";
    $cmd = "Liste";
    $Titel=$Text="";
  } elsif($cmd eq "del"){
    del "Id==$id", "$Work";
    out "<table width=100%><tr><td><b>Eintrag gelöscht...</b></td></tr></table>";
    $cmd = "Liste";
    $Titel=$Text="";
  }
  if($cmd eq "Liste"){
    &Presse_form("<b>Neuer Eintrag.</b>","add") ;
    if($Seite_rechte =~ "u"){
      get "Nutzer==$Nr", "$Work";
    } elsif($Seite_rechte =~ "x"){
      get "Id==*", "$Work";
    }

    while (get_next("$Work")){
      $buttons=" <a href='/cgi-bin/baseportal.pl?htx=$htx&Work=$Work&login_name=$login_name&cmd=mod&id=$_id'>Ändern</a>" if $Seite_rechte =~ "m";
      $buttons=$buttons." <a href='/cgi-bin/baseportal.pl?htx=$htx&Work=$Work&login_name=$login_name&cmd=del&id=$_id'>Löschen</a>" if $Seite_rechte =~ "d";
      $Datum = datum($Datum,"Tag0.Monat0.Jahr");
      $Text=convert_br($Text);
out <<EOF;
<hr>
<table width=100% align=center bgcolor=ffffff>
<tr><td bgcolor=cfcfcf>$Datum <b>$Zeitung</b> $buttons</td></tr>
<tr><td><b><u>$Titel</u></b></td></tr>
<tr><td><ul><p align="justify">$Text</p></ul></td></tr>
<tr><td bgcolor=cccccc><font size=1>$Autor gefunden von $User</font></td></tr>
</table>

}
  }
}
#### News Formular #################
sub Presse_form
{

if($Seite_rechte =~ "w"){
    if($to_do eq "do_mod"){
      $ds="<input type='hidden' name='id=' value='$id'>";
    } elsif($to_do eq "add"){
      $ds="<input type='hidden' name='in_Nutzer=' value='$Nr'>";
      $User=$Vorname." ".$Name;
    }
out <<Formular;
<form action="/cgi-bin/baseportal.pl?htx=$htx" method="post" enctype="multipart/form-data">
<input type="hidden" name="htx=" value="$htx">
<input type="hidden" name="Work=" value="$Work">
<input type="hidden" name="login_name=" value="$login_name">
<input type="hidden" name="cmd=" value="$to_do">
$ds
<table width=90% align=center bgcolor=cfcfcf cellpadding=4 cellspacing=0 border=0>
<tr><td colspan=2>$msg</td></tr>
<tr><td>Zeitschrift:</td><td><input type="Text" name="in_Zeitung=" value="$Zeitung"></td></tr>
<tr><td>Titel:</td><td><input type="Text" name="in_Titel=" value="$Titel"></td></tr>
<tr><td>Text:</td><td><textarea name="in_Text=" cols="50" rows="12">$Text</textarea></td></tr>
<tr><td>Autor:</td><td><input type="Text" name="in_Autor=" value="$Autor"></td></tr>
<tr><td>Ihr Name:</td><td><input type="Text" name="in_User=" value="$User"></td></tr>
<tr><td> </td><td><input type="Submit" name="" value="Speichern"></td></tr>
</table>
</form>

}
}
####### Navigation ausgeben #########
sub navigation
{

&get_rechte;
get "Redaktion==* sort=LinkPos","subnavig";

$links=$links."<tr><td><a href='/cgi-bin/baseportal.pl?htx=$htx&login_name=$login_name&Work=$Seite&cmd=Liste'>$LinkTitel</a></td></tr>" if $user_recht{$Seite};
  }
out <<EOF;
<table width=100% height=100%>
<tr><td width=130 height=100% valign=top bgcolor=cfcfcf>
<table width=120>
$links
</table>
</td><td valign=top>
EOF
}
####### Rechte des Nutzers aus der Datenbank auslesen und in Variable speichern.
sub get_rechte
{

</td></tr></table>
</body>
</html>

Antworten

Beitrag von Peter (141 Beiträge) am Mittwoch, 11.Juli.2001, 08:44.
Re: [ Fehler: (perl) in /Breitfeld/Redaktion: Unrecognized character \374 at (eval 2

Antworten

Beitrag von Peter (141 Beiträge) am Mittwoch, 11.Juli.2001, 12:08.
Re: [ Fehler: (perl) in /Breitfeld/Redaktion: Unrecognized character \374 at (eval 2

Antworten

Beitrag von Sander (8134 Beiträge) am Mittwoch, 11.Juli.2001, 14:45.
Re: [ Fehler: (perl) in /Breitfeld/Redaktion: Unrecognized character \374 at (eval 2

Antworten

Beitrag von Christoph Bergmann (8110 Beiträge) am Mittwoch, 11.Juli.2001, 00:27.
Re: [ Fehler: (perl) in /Breitfeld/Redaktion: Unrecognized character \374 at (eval 2

Antworten

Beitrag von Grisu (1 Beitrag) am Dienstag, 9.April.2002, 10:18.
Re: [ Fehler: (perl) in /Breitfeld/Redaktion: Unrecognized character \374 at (eval 2

http://engelmann-service.de/baseportal/immobilien/Start

Antworten

Liste der Einträge von 59925 bis 60000:

Einklappen

Zur Eingabe

Fehler: stack overflow in Javascript von Claus S. am 10.7.01, 20:01

Re: Fehler: stack overflow in Javascript von Christoph Bergmann am 11.7.01, 13:23

[ Fehler: (perl) in /Breitfeld/Redaktion: Unrecognized character \374 at (eval 2 von peter am 10.7.01, 19:35

Re: [ Fehler: (perl) in /Breitfeld/Redaktion: Unrecognized character \374 at (eval 2 von Sander am 10.7.01, 21:15

Re: [ Fehler: (perl) in /Breitfeld/Redaktion: Unrecognized character \374 at (eval 2 von peter am 10.7.01, 23:36

Re: [ Fehler: (perl) in /Breitfeld/Redaktion: Unrecognized character \374 at (eval 2 von Sander am 11.7.01, 00:35

Re: [ Fehler: (perl) in /Breitfeld/Redaktion: Unrecognized character \374 at (eval 2 von Peter am 11.7.01, 08:44

Re: [ Fehler: (perl) in /Breitfeld/Redaktion: Unrecognized character \374 at (eval 2 von Peter am 11.7.01, 12:08

Re: [ Fehler: (perl) in /Breitfeld/Redaktion: Unrecognized character \374 at (eval 2 von Sander am 11.7.01, 14:45

Re: [ Fehler: (perl) in /Breitfeld/Redaktion: Unrecognized character \374 at (eval 2 von Christoph Bergmann am 11.7.01, 00:27

Re: [ Fehler: (perl) in /Breitfeld/Redaktion: Unrecognized character \374 at (eval 2 von Grisu am 9.4.02, 10:18

@Sander & Co Sortierung funzt nicht von Jogi am 10.7.01, 19:29

Re: @Sander & Co Sortierung funzt nicht von Sander am 10.7.01, 21:19

Re: @Sander & Co Sortierung funzt nicht von Jogi am 10.7.01, 21:40

Re: @Sander & Co Sortierung funzt nicht von Sander am 10.7.01, 22:17

Re: @Sander & Co Sortierung funzt nicht von Jogi am 10.7.01, 22:29

Re: @Sander & Co Sortierung funzt nicht von Sander am 11.7.01, 02:08

Re: @Sander & Co Sortierung funzt nicht von Jogi am 11.7.01, 12:36

Baseportal und NOF 5.02 von Marc am 10.7.01, 17:23

Re: Baseportal und NOF 5.02 von Micha Jost am 10.7.01, 17:51

$_id -wieso Anfang bei 0 ?? von Michal Mirski am 10.7.01, 14:26

Re: $_id -wieso Anfang bei 0 ?? von Christoph Bergmann am 10.7.01, 14:32

Re: $_id -wieso Anfang bei 0 ?? von Michal Mirski am 10.7.01, 15:06

Re: $_id -wieso Anfang bei 0 ?? von Christoph Bergmann am 10.7.01, 15:20

Re: $_id -wieso Anfang bei 0 ?? -Nachtrag von Michal Mirski am 10.7.01, 15:23

Re: $_id -wieso Anfang bei 0 ?? -Nachtrag von Michal am 10.7.01, 15:27

Re: $_id -wieso Anfang bei 0 ?? -Nachtrag von Michal Mirski am 10.7.01, 15:38

Re: $_id -wieso Anfang bei 0 ?? -Nachtrag von Sander am 10.7.01, 15:27

Re: $_id -wieso Anfang bei 0 ?? -Nachtrag von Christoph Bergmann am 11.7.01, 00:18

Re: $_id -wieso Anfang bei 0 ?? -Nachtrag -doch:-)) von Michal Mirski am 11.7.01, 01:04

Re: $_id -wieso Anfang bei 0 ?? -Nachtrag -doch:-)) von Sander am 11.7.01, 01:42

Re: $_id -wieso Anfang bei 0 ?? -Nachtrag -doch:-)) von Michal Mirski am 11.7.01, 17:48

Ausgabe begrenzen von lothar am 10.7.01, 13:32

Re: Ausgabe begrenzen von Christoph Bergmann am 10.7.01, 14:29

Re: Ausgabe begrenzen von lothar am 10.7.01, 14:50

Re: Ausgabe begrenzen von Christoph Bergmann am 10.7.01, 15:17

Perl-Parameter ? von Claus S. am 10.7.01, 13:25

Re: Perl-Parameter ? von Christoph Bergmann am 10.7.01, 14:34

Re: Perl-Parameter ? - nachtrag von Christoph Bergmann am 10.7.01, 14:36

JS-Formcheck bei select(loop) funzt nicht!?! von Claus S. am 10.7.01, 13:15

Re: JS-Formcheck bei select(loop) funzt nicht!?! von Sander am 10.7.01, 15:24

Re: JS-Formcheck bei select(loop) funzt nicht!?! von Claus S. am 10.7.01, 15:33

Re: JS-Formcheck bei select(loop) funzt nicht!?! von Sander am 10.7.01, 16:28

Re: JS-Formcheck bei select(loop) funzt nicht!?! von Claus S. am 10.7.01, 17:57

Re: JS-Formcheck bei select(loop) funzt nicht!?! von Sander am 10.7.01, 21:56

Re: JS-Formcheck bei select(loop) funzt nicht!?! von Claus S. am 10.7.01, 23:59

Re: JS-Formcheck bei select(loop) funzt nicht!?! von Sander am 11.7.01, 01:40

Re: JS-Formcheck bei select(loop) funzt nicht!?! von Claus S. am 11.7.01, 02:23

@sander: JS-Formcheck funzt jetzt von Claus S. am 11.7.01, 14:54

Re: @sander: JS-Formcheck funzt jetzt von Sander am 11.7.01, 15:07

get/ get_next Abfragen mit Layout von Micha Jost am 10.7.01, 13:09

Re: get/ get_next Abfragen mit Layout von Sander am 10.7.01, 15:20

Fotos innerhalb Baseportal hochladen von Beetle am 10.7.01, 11:56

Re: Fotos innerhalb Baseportal hochladen #Foto2 von Beetle am 10.7.01, 12:39

Re: Fotos innerhalb Baseportal hochladen von Christoph Bergmann am 10.7.01, 13:06

Re: Fotos innerhalb Baseportal hochladen / UFO gesehen !! von Beetle am 10.7.01, 13:19

Re: Fotos innerhalb Baseportal hochladen / UFO gesehen !! von Christoph Bergmann am 10.7.01, 14:00

Wie muß ich hier schreiben? von Holger am 10.7.01, 11:46

Re: Wie muß ich hier schreiben? War zu schnell :-) von Holger am 10.7.01, 11:48

und wie schaffe ich es, das eine 0 ausgegeben wird? von Holger am 10.7.01, 11:50

Re: und wie schaffe ich es, das eine 0 ausgegeben wird? von Sander am 10.7.01, 15:13

Re: und wie schaffe ich es, das eine 0 ausgegeben wird? von Holger am 10.7.01, 16:25

Re: und wie schaffe ich es, das eine 0 ausgegeben wird? von Holger am 10.7.01, 16:36

@Sander - Verknüpfung von Holger am 10.7.01, 17:42

Warum erscheint die 0 nicht :-) ?????? von Holger am 10.7.01, 19:05

Re: Warum erscheint die 0 nicht :-) ?????? von Sander am 10.7.01, 20:41

Re: Warum erscheint die 0 nicht :-) ?????? von Sander am 10.7.01, 20:43

Tz Tz Tz, das dir sowas passieren kann :-))) von Holger am 11.7.01, 01:39

Re: Warum erscheint die 0 nicht :-) ? oder so... @sander ;-) von Christoph Bergmann am 11.7.01, 13:20

syntax von loop und weiteren befehlen von till am 10.7.01, 11:02

Re: syntax von loop und weiteren befehlen von Claus S. am 10.7.01, 11:11

syntax von loop und weiteren befehlen von till am 10.7.01, 09:51

Re: syntax von loop und weiteren befehlen von Marfi am 10.7.01, 10:29

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

Zurück zur Homepage

powered in 0.26s by baseportal.de
Erstellen Sie Ihre eigene Web-Datenbank - kostenlos!