Mehrere Output-Pages bei einer pl Datei?

Hessix

Wie kann ich mehrere output-Texte in eine *.pl Datei einbauen?
(Bezogen auf den Recipient?)

Beatz

Hmmm ... ich verstehe nicht ganz, was Du meinst! pl-Datei = Perl? Mehrere Output-Texte kannst Du ganz einfach machen, indem Du eine Textdatei speicherst, aber ich verstehe den Hintergrund noch nicht ganz!

Hessix

ich will mehrere Feedback-Formulare über ein script laufen lassen, brauche dafür aber verschiedene output-Seiten für den Nutzer, da es verschiedene Bereiche sind

Beatz

Ist doch ganz einfach ... dafür gibt es if, elsif, else. Oder aber Du kannst, wenn Du das Switch-Modul installiert und eingebunden hast, auch damit arbeiten. Wie übermittelst Du dem Perl-Skript denn, welches Formular gesendet wurde. Arbeitest Du mit Templates oder nur mit dem print-Befehl?

Hessix

Wo und wie muß ich if else denn einbauen???

Code

sub success_page {
  my ($self, $date) = @_;


  if ($self->{FormConfig}{'redirect'}) {
    print $self->cgi_object->redirect( $self->{FormConfig}{'redirect'} );
  }
  else {
    $self->output_cgi_html_header;
    $self->success_page_html_preamble($date);
    $self->success_page_fields;
    $self->success_page_footer;
  }
}


=item success_page_html_preamble ( DATE )


Outputs the start of the HTML for the success page, not including the
standard HTML headers dealt with by output_cgi_html_header().


=cut


sub success_page_html_preamble {
  my ($self, $date) = @_;


  my $title = $self->escape_html( $self->{FormConfig}{'title'} || 'Danke' );
  my $torecipient = 'to ' . $self->escape_html($self->{FormConfig}{'recipient'});
  $torecipient = '' if $self->{Hide_Recipient};
  my $attr = $self->body_attributes;


    print <<END;
  <head>
     <title>$title</title>
END


    $self->output_style_element;


    print <<END;
     <style>
       h1.title {
                   text-align : center;
                }
     </style>
  </head>
  <body $attr>
    <h1 class="title">$title</h1>
    <pMein Text</p>



<hr size="1" width="75%" /></p>
END
}


=item success_page_fields ()


Outputs success page HTML output for each input field.


=cut

Alles anzeigen

Tags