Guestbook Probleme, verlinken nach Programmablauf? - #2601 (Perl/CGI)

renee

2004-05-26 13:28

User since
2003-08-04
14371 Artikel
ModeratorIn

Code: (dl )

1
2

$gaestebuchvirtual = '../index.html'; 
print "Location: $gaestebuchvirtual\n\n";

Hier sagst Du, dass es auf die index-Seite gehen soll. Hier einfach $gaestebuchvirtual auf die GB-Index-Seite setzen...

Code: (dl )

if($ENV{'REQUEST_METHOD'} eq 'GET')
 { $eingabe = $ENV{'QUERY_STRING'}; }
else
 { read(STDIN, $eingabe, $ENV{'CONTENT_LENGTH'}); }
@paare = split(/&/, $eingabe);
foreach $paar (@paare)
{
  ($schluessel, $wert) = split(/=/, $paar);
  $wert =~ tr/+/ /;
  $wert =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C",    hex($1))/eg;
  $wert =~ s/<([^>]|\n)*>//g;
  $FORM{$schluessel} = $wert;
}

würde ich ersetzen durch:

Code: (dl )

1
2
3

use CGI;
my $cgi = CGI->new();
my %FORM = $cgi->Vars();

Code: (dl )

 if($FORM{'ort'})
 {
   print DATEI "$FORM{'ort'} ";
 }

würde ich so schreiben:

Code: (dl )

    print DATEI "$FORM{'ort'} " if($FORM{'ort'});

Dadurch wird der Code übersichtlicher...\n\n

OTRS-Erweiterungen (http://feature-addons.de/)
Frankfurt Perlmongers (http://frankfurt.pm/)
--

Unterlagen OTRS-Workshop 2012: http://otrs.perl-services.de/workshop.html
Perl-Entwicklung: http://perl-services.de/