How to create a Perl module to be used in a CGI script

[James]

Hi,

I have the following:

filename: Module1.pm

package Module1;

BEGIN {
use Exporter();
@ISA = qw(Exporter);
@EXPORT = qw(&subroutine1);
}

sub subroutine1 {print "Hello!\n";}
return 1;
END { }
---------------------------------------------------
Filename: Trial.cgi running in Tomcat 4.1.27

#!c:\Perl\bin\perl.exe

use CGI
use Module1;

subroutine1();
..
..
..
..


When I run the script from my html page it asks for a file download. What am
I doing wrong?

Thanks, James

 

[David Efflandt]

Hi,

I have the following:

filename: Module1.pm

package Module1;

BEGIN {
use Exporter();
@ISA = qw(Exporter);
@EXPORT = qw(&subroutine1);
}

sub subroutine1 {print "Hello!\n";}
return 1;
END { }
---------------------------------------------------
Filename: Trial.cgi running in Tomcat 4.1.27

#!c:\Perl\bin\perl.exe

use CGI
use Module1;

subroutine1();
.
.
.
.


When I run the script from my html page it asks for a file download. What am
I doing wrong?

Besides forgetting to output a Content-type header followed by a blank
line (unless your server somehow guesses that), I suspect you are using
MSIE, which does not necessarily pay attention to MIME headers anyway.
So it guesses based on its own criteria, which might include filename
extension of the script. If that filename extension is associated with
Perl.exe, it considers that insecure and asks if you want to download or
execute it (not that you would have normally much luck executing CGI
output).

Note that MSIE considers "Content-type: text/plain" to be ambiguous (since
it often a default for unknown filetypes), and would go through its
guessing game for any text/plain content.