HTML i perl
Jeg er ved at oprette et bulletin board (skrevet af Matt Wright)Jeg skal have sat nogle HTML koder ind i scripet Men når jeg gør det for jeg en fejlmeddelelse:
Internal Server Error
The server encountered an internal error or misconfiguration and was unable to complete your request.
Så virker det:
#####################
# New File Subroutine
sub new_file {
open(NEWFILE,\">$basedir/$mesgdir/$num\\.$ext\") || die $!;
print NEWFILE \"<html>\\n\";
print NEWFILE \"<head>\\n\";
print NEWFILE \" <title>$subject</title>\\n\";
print NEWFILE \" </head>\\n\";
print NEWFILE \" <body>\\n\";
print NEWFILE \" <center>\\n\";
print NEWFILE \" <h1>$subject</h1>\\n\";
print NEWFILE \" </center>\\n\";
Så virker det ikke:
#####################
# New File Subroutine
sub new_file {
open(NEWFILE,\">$basedir/$mesgdir/$num\\.$ext\") || die $!;
print NEWFILE \"<html>\\n\";
print NEWFILE \"<head>\\n\";
print NEWFILE \"<link rel=\"STYLESHEET\" type=\"text/css\" href=\"style.css\">\\n\";
print NEWFILE \" <title>$subject</title>\\n\";
print NEWFILE \" </head>\\n\";
print NEWFILE \" <body>\\n\";
print NEWFILE \" <center>\\n\";
print NEWFILE \" <h1>$subject</h1>\\n\";
print NEWFILE \" </center>\\n\";
Hvad gør jeg forkert???
Er det informationer nok???
Btw. Jeg må indrømme at jeg ikke er en haj til perl
