Help with perl

@ngelot · 10-27-2004, 03:38 AM

Hi!

I'm a newbie with perl, and I need help to get started....

I'm trying to make a redirect.cgi.

When somebody click on any of my links, they will be redirected to another page.

Ex.

<a href="xxxx://www.mydomain.org/redirect.cgi?201>Start here!</a>

and a redirect.cgi perl-script that link 201 to mydomain.org/start.html

I've tried some myself, and I understand I need to use if/else in some way.

This is what I have tried, with no luck:

#!/usr/bin/perl

if ( 201 )
then url = "xxxx://www.mydomain.org/start.html"

if ( 202 )
then url = "xxxx://www.mydomain.org/login.html"

exit

:-) I know it's way out, but I think I on th

Cedrik · 10-27-2004, 04:09 AM

try :

for the link add a named variable, say 'id'
<a href="xxxx://www.mydomain.org/redirect.cgi?id=201>Start here!</a>

Code:

#/usr/bin/perl

$id=$ENV{"QUERY_STRING"};
($key, $val) = split(/=/,$id);

if($val == 201) {
    print "Location: http://www.mydomain.org/start.html\n\n";
} elsif ($val == 202) {
    print "Location: http://www.mydomain.org/login.html\n\n";
}

@ngelot · 10-27-2004, 05:39 AM

I followed your example....

Called your code redirect.cgi and put it in /var/www/cgi-bin/ and /usr/lib/cgi-bin/

Then I tried it on my web-page with the link:

<a href="xxxx://www.mydomain.org/cgi-bin/redirect.cgi?id=201>Start here!</a>

but the server just returned the cgi-script - eg. the code - not the right page....

I belive I have to do some typing in httpd.conf?

It's already loading cgi_module:

LoadModule cgi_module /usr/lib/apache/1.3/mod_cgi.so

I've also installed (with apt) libapache-asp-perl and typed in httpd.conf:

LoadModule perl_module /usr/lib/apache/1.3/mod_perl.so

and I got no errormessage in return...

What am I doing wrong?

@ngelot

@ngelot · 10-27-2004, 05:53 AM

is that when I click on a invalide link I get a 500 Internal Server Error, and the information returned are wrong.

In httpd.conf I've spesified my webmaster-email and my domain, but the returned error-message say "webmaster@debian" and "Apache/1.3.26 Server at 127.0.0.1 Port 80". It's using the default domain-name....

After editing httpd.conf I run:

apache -f /etc/apache/httpd.conf

and (to be sure):
apache restart

But when entering the site it seems not to use my edited httpd.conf.....

What am I doing wrong?

@ngelot

neilman · 10-27-2004, 07:49 AM

You need to configure Apache like this:

Code:

AddHandler cgi-script .cgi

And after the <Directory "/svr/www/htdocs"> (or whever your main htdocs is located), make sure your Options contains ExecCGI.

Here's an example of one I have on an old server of mine -- I have the main htdocs setup to allow for CGIs to be executed, as well as a virtual host:

Code:

<Directory "/usr/local/apache_1.3.26/htdocs">
    Options Indexes FollowSymLinks MultiViews ExecCGI
    AllowOverride None
    Order allow,deny
    Allow from all
</Directory>
    
<VirtualHost 10.100.1.1>
    ServerAdmin neil@foo.com
    DocumentRoot /home/neil/htdocs
    ServerName neil.foo.com
    ScriptAlias /cgi-bin/ /home/neil/cgi-bin/
    <Location />
        Options ExecCGI
    </Location>
</VirtualHost>

If this still doesn't work for you, just send me a private message with your httpd.conf attached, and I'll make the necessary changes for you and send it back.

Also don't forget to test the syntax of your perl script from your shell prompt. A simple perl -c redirect.cgi should do the trick. If you see syntax OK, your script is good. Just make sure that's good first.