Perl-CGI zeigt nur Quelltext (solved) (Perl/CGI)

[thread]20178[/thread]

Perl-CGI zeigt nur Quelltext [solved]

Tags: perl5 CGI Similar Threads

Readers: 14

Articles: hide open all | hide show old branches

+4 replies

Tolotos

2016-10-24 12:44

User since
2016-10-24
2 articles
BenutzerIn
[default_avatar]

Hallo Leute,

ich habe ein etwas seltsames Problem: Ich selbst habe keine Ahnung von Perl (d.h. insbesondere der Syntax), kann aber sonst ein wenig Programmieren (vor allem in C).
Zur Optimierung der Prioritäten der Studenten für ihren Übungstermin verwenden wir hier an der Uni ein Perl-Skript, dass mein Vor-Vor-Vorgänger, den ich nichtmal kenne, geschrieben hat. Bisher war das auch kein Problem, man musste nur die entsprechenden Pfade anpassen bzw. neu erstellen (ws1516 zu ws1617 usw.), dann lief alles problemlos.

Leider ist es dieses Jahr aus einem mir unbekannten Grund so, dass in dem Moment, in dem man auf Absenden drückt statt der eigentlich geplanten Rückmeldung an den Benutzer "Herzlichen Glückwunsch, sie haben sich mit folgenden Daten registriert:..." einfach der gesamte Quelltext des Programms erscheint. Abgeschickt werden dabei auch keine Daten.

Ich habe jetzt versucht, was mit den früheren Anmelde-Formularen passiert (die noch online stehen), und der tritt der gleiche Fehler auf (obwohl sie in den entsprechenden Jahren definitiv funktioniert haben).

Hat vielleicht jemand von euch eine Idee, was im folgenden Programm falsch läuft?

Code (perl): (dl )

# !/usr/bin/perl -w
use strict;
use CGI::Carp qw(warningsToBrowser fatalsToBrowser); 


my $path        = '/exports/ag/ag-eschmeier/subscribe/ws1617/files/';
my $trenner     = "#"; 


###########################################################
# Read input
###########################################################
read (STDIN, my $buffer, $ENV{'CONTENT_LENGTH'});
my @pairs = split(/&/,$buffer);
my %FORM;
foreach my $pair (@pairs) {
                my ($name,$value)=split(/=/,$pair);
                $value =~ tr/+/ /;
                $value =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C",hex($1))/eg;
                $value =~ s/~!/ ~!/g;
                $FORM{$name} = $value;
         }


#####################################################################
# Pruefen der uebergeben Parameter
#####################################################################

#if ( $FORM{'lecture'} eq "-" or $FORM{'term'} eq "-" ) {
#        print "Content-type:text/html\n\n";
#        print "Error! You did not choose a lecture and/or term<p>";
#        print "<INPUT TYPE=BUTTON VALUE=\"Back\" onClick=\"history.back()\">";
#        exit 0;
#}

if ( $FORM{'lname'} eq "" or $FORM{'fname'} eq "" ) {
        print "Content-type:text/html\n\n";
        print "Error! Your surname and/or your given name is empty<p>";
        print "<INPUT TYPE=BUTTON VALUE=\"Back\" onClick=\"history.back()\">";
        exit 0;

}
if ( $FORM{'dob'} !~ /(\d\d)\.(\d\d)\.(\d{4})/) {
        print "Content-type:text/html\n\n";
        print "Your birthday is not in the format DD.MM.YYYY<p>";
        print "<INPUT TYPE=BUTTON VALUE=\"Back\" onClick=\"history.back()\">";
        exit 0;
}
if ( $FORM{'matr'} !~ /^[0-9]*$/ or $FORM{'matr'} eq "" ) {
        print "Content-type:text/html\n\n";
        print "Your student id is not valid<p>";
        print "<INPUT TYPE=BUTTON VALUE=\"Back\" onClick=\"history.back()\">";
        exit 0;
}
if ( $FORM{'email'} !~ /^([a-zA-Z0-9][a-zA-Z_0-9-\.]*)(\@)([a-zA-Z0-9][a-zA-Z_0-9-\.]*[a-zA-Z0-9])(\.)([a-zA-Z0-9]*)$/) {
        print "Content-type:text/html\n\n";
        print "Your e-mail-address is not valid<p>";
        print "<INPUT TYPE=BUTTON VALUE=\"Back\" onClick=\"history.back()\">";
        exit 0;
}

#####################################################################
# Bilde anhand des Namens der Vorlesung einen verkuertzten Dateinamen
#####################################################################

my $filename = $path.$FORM{'lecture'}."_".$FORM{'term'}.".dat";

###########################################################
# Read internal registration files
###########################################################

#open(SGI,"<$dat") || print $internal_error_msg ;
#my @studg=<SGI>;
#close SGI;
#
#
#my $oldgroup=-1;
#foreach(@studg)
#  {
#    my @tmp=split(/\#/,$_);
#    if ($tmp[0] == $FORM{'matr'} && $tmp[1] eq $FORM{'dob'})
#      {
#        $oldgroup=$tmp[2];
#      }
#  }




#my $time       =       time;
my($sec,$min,$hour,$mday,$mon,$year,$wday, $yday,$isdst)=localtime(time);
#my $time = sprintf "%02d.%02d.%04d %02d:%02d:%02d", $mday,$mon+1,$year+1900,$hour,$min,$sec;
my $time = sprintf "%04d%02d%02d%02d%02d%02d",$year+1900,$mon+1,$mday,$hour,$min,$sec;





###########################################################
# Log registration data
###########################################################
#open(SI,">>$filename") or die "$! $?\n";;
#close SI;
###print $filename;
open(OUT,">>$filename") or die "$!";
print OUT $time.$trenner.$FORM{'matr'}.$trenner.$FORM{'dob'}.$trenner.$FORM{'fname'}.$trenner
         .$FORM{'lname'}.$trenner.$FORM{'gender'}.$trenner.$FORM{'email'}.$trenner.$FORM{'ziel'}.$trenner.$FORM{'fach'}
         .$trenner.$FORM{'prio1'}.$trenner.$FORM{'prio2'}.$trenner.$FORM{'prio3'}."\n";
close OUT;



###########################################################
# info for user
###########################################################
my $html = qq{Content-Type: text/html

<HTML>
 <HEAD>
 <TITLE>$FORM{'lecture'}</TITLE>
</HEAD>
<BODY>
 <H4>Mathematik f&uuml;r Studierende der Biologie und des Lehramtes Chemie im Wintersemester 2016/17</H4>
 <P>
 <p class=inFormHeaderSmall>Sie haben sich mit folgenden Daten registiert:</p>
 <p class=inFormHeader>Vorname: $FORM{'fname'}</p>
 <p class=inFormHeader>Nachname: $FORM{'lname'}</p>
 <p class=inFormHeader>Geburtsdatum: $FORM{'dob'}</p>
 <p class=inFormHeader>Matrikelnummer: $FORM{'matr'}</p>
 <p class=inFormHeader>Studiengang: $FORM{'ziel'} $FORM{'fach'}</p>
 <p class=inFormHeader>Email: $FORM{'email'}</p>

</BODY>
</HTML>
};

print $html;

Last edited: 2016-10-24 13:38:08 +0200 (CEST)

GwenDragon

2016-10-24 13:43

User since
2005-01-17
14381 articles
Admin1

Ist das Programm in den cgi-bin-Ordner der Website hochgeladen worden?
Ist es in den Dateirechten als ausführbar (0755) gesetzt
Hat es die erforderlichen Gruppenrechte für den User, unter dem der Webserver/die Website läuft?
die Drachin, Gwendolyn

Unterschiedliche Perl-Versionen auf Windows (fast wie perlbrew) • Meine Perl-Artikel
+2 replies
Linuxer

2016-10-24 14:31

User since
2006-01-27
3834 articles
HausmeisterIn

Wenn der gesamte Quellcode des Programms erscheint, dann scheint die Konfiguration des Webservers nicht korrekt zu sein. Das Programm wird als normale Text-Datei erkannt und entsprechend ausgegeben.

Der Webserver muss konfiguriert sein, dass die Datei als CGI-Skript ausgeführt werden kann.

Dazu hat GwenDragon bereits Fragen in die entsprechende Richtung gestellt.
meine Beiträge: I.d.R. alle Angaben ohne Gewähr und auf Linux abgestimmt!
Die Sprache heisst Perl, nicht PERL. - Bitte Crossposts als solche kenntlich machen!
- Tolotos
  
  2016-10-25 14:58
  
  User since
  2016-10-24
  2 articles
  BenutzerIn
  
  Vielen dank für die Hinweise, es lag tatsächlich darum, dass etwas am System geändert wurde, wodurch die Datei nicht als Skript ausgeführt wurde. Danke.

View all threads created 2016-10-24 12:44.