[EMAIL PROTECTED] wrote:
>
> I am experience a problem with the following code when I
> try to run it on a Linux server. The script runs fine in
> the Windows environment. On Linux is gives me a message:
> "The server encountered an internal error or
> misconfiguration and was unable to complete your
> request."
> I have worked with the ISP (there server appears
> configured correctly). I changed all permissions to 777,
> still get same error. I have other cgi scripts on this
> server that use sendmail and they work fine. Any
> Ideas???
1) Start with using 'use strict;' at the top (uncomment first print also).
2) Check the error log to see what the error is that you are getting.
3) Run it from the command line if possible (may need to fake a few things).
> #!/usr/bin/perl
> #print "Content-type:text/html\n\n";
>
> #Parse the form data
> read(STDIN, $buffer, $ENV{'CONTENT_LENGTH'});
> @pairs = split(/&/,$buffer);
> foreach $pair (@pairs){
> ($name, $value) = split(/=/, $pair);
> $value =~ tr/+/ /;
> $value =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack
> ("C",hex($1))/eg;
> $value =~ s/\n/ /g;
> $value =~ s/\r/ /g;
> $value =~ s/\cM/ /g;
> $name =~ tr/+/ /;
> $name =~ tr/_/ /;
> $FORM{$name} = $value;
> }
> $name1 = ($FORM{$name});
>
> use lib "home/sites/site3/web/lib";
> use MIME::Lite;
> use strict;
>
> # for Win32 use SMTP (default is /usr/bin/sendmail)
>
> my $server = #Server path
> #my $server2 = 'ns.Zexas.com';
> if ($^O =~ /win32/i) {
> MIME::Lite->send('smtp', $server, Timeout => 90);
> } else {
> MIME::Lite->send('sendmail', "/usr/sbin/sendmail -t -oi -
> oem");
> }
>
> form_select ($name1);
>
> sub form_select {
> my ($name1) =@_;
> if ($name1 eq "visit") {
> $subject1 = 'Club Visit Report';
> $info1 = 'Attached is the Club Visitation
> Report you requested';
> $path1
> = 'home/sites/site3/web/reports/visitation.txt';
> $file1 = 'visitation.txt';
> mail_it ($subject1, $info1, $path1, $file1);
> } else {
> $subject1 = 'Project Time Report';
> $info1 = 'Attached is the Project Time Report
> you requested';
> $path1
> = 'home/sites/site3/web/reports/timereport.txt';
> $file1 = 'timereport.txt';
> mail_it ($subject1, $info1, $path1, $file1);
> }
> }
>
> sub mail_it {
> my ($subject1, $info1, $path1, $file1) = @_;
>
> # create a message and send file attachment
>
> # Message body
> my $me = #my email address
> my $subject = "$subject1";
> my $msg = MIME::Lite->new(To => $me, From => $me,
> Subject => $subject, Type => 'multipart/mixed',);
>
> my $info ="$info1";
> $msg->attach(Type => 'text/plain', Data => $info);
>
> # Create attachment
>
> $msg->attach(Type => "TEXT",
> Disposition => 'attachment',
> Path => "$path1",
> Filename => "$file1"
> );
>
> $msg->send;
> }
>
> #Acknowledge receiving form
>
> print <<EndHTML;
> <html><head><title>Requested Reports</title></head>
> <body>
> <h2>Thank You!!</h2>
> The report you requested is being sent as a e-mail
> attachment to you.<p>
> Please select one of the options below.
> <a href="../members/options.html">Return to options menu!
> </a><p>
> or
> <a href="../members/reports.html">Return to select
> additional reports</a><p>
> or
> <a href="../index.html">Return to home page</a><p>
> </body></html>
>
> EndHTML
>
> #The dienice subroutine after this
--
,-/- __ _ _ $Bill Luebkert ICQ=14439852
(_/ / ) // // DBE Collectibles Mailto:[EMAIL PROTECTED]
/ ) /--< o // // http://dbecoll.tripod.com/ (Free site for Perl)
-/-' /___/_<_</_</_ Castle of Medieval Myth & Magic http://www.todbe.com/
_______________________________________________
Perl-Win32-Web mailing list
[EMAIL PROTECTED]
http://listserv.ActiveState.com/mailman/listinfo/perl-win32-web
