Tek-Tips is the largest IT community on the Internet today!

Members share and learn making Tek-Tips Forums the best source of peer-reviewed technical information on the Internet!

Register Log in
  • Congratulations SkipVought on being selected by the Tek-Tips community for having the most helpful posts in the forums last week. Way to Go!

Any idea why this basic perl script isn't working on my site?

Status
Not open for further replies.
Mizugori

Mizugori

Programmer
May 21, 2007
56
0
0
US
Code: 
#! /usr/local/bin/perl
use strict;
use CGI ':standard';

my $c = new CGI;
my $theme = $c->param('choice')

if ($theme)
{
        if ($theme == "opt1")
        {
                print '<body background="name.jpg">'
        }

        else if ($theme == "opt2")
        {
                print '<body bgcolor="#000000">'
        }
        print 'Test!'
}

I'm getting an internal server error 500... can't access the error log either. Any suggestions?? I was trying to use a simple form to set the background based on what they typed into a input text box...
 
Sort by date Sort by votes
You need to print an http header and there are other problems:

Code: 
#!/usr/local/bin/perl
use strict;
use CGI ':standard';

my $c = new CGI;
my $theme = $c->param('choice');

[b]print $c->header[/b];

if ($theme)
{
        if ($theme [b]eq[/b] "opt1")
        {
                print '<body background="name.jpg">';
        }

        [b]elsif[/b] ($theme [b]eq[/b] "opt2")
        {
                print '<body bgcolor="#000000">';
        }
        print 'Test!';
}
print $c->end_html;

------------------------------------------
- Kevin, perl coder unexceptional! [wiggle]
 
Upvote 0 Downvote
#!/usr/local/bin/perl
use strict;
use CGI ':standard';

my $c = new CGI;
my $theme = $c->param('choice');

print "Content-type: text/html\n\n";

print <<"EOL";
<body>

</body>
EOL
exit;

 
Upvote 0 Downvote
Status
Not open for further replies.

Similar threads

rob54321
  • Question
Perl how to read line from file with interpolation 1
Replies
6
Views
180
rob54321
rob54321
eslie
  • Locked
  • Question
Perl script behavior makes no sense!!!
Replies
0
Views
65
eslie
eslie
Anurag Sinha
  • Locked
  • Question
calling perl script on click of the button
Replies
0
Views
71
Anurag Sinha
Anurag Sinha
Ahven
  • Locked
  • Question
Compiling Perl 5.36.0 fails on OS X 10.5.8 PowerPC
Replies
1
Views
66
mikrom
mikrom
Limbomusic
  • Locked
  • Question
Perl files getting accessed directly
Replies
0
Views
71
Limbomusic
Limbomusic

Part and Inventory Search

Sponsor

Back
Top