Re: Socket problem w/ apache & perl cgi

[Igor Pechtchanski <pechtcha at cs dot nyu dot edu>]

On Fri, 30 Jul 2004, David A. Rogers wrote:

> I have a snippet of perl code that runs fine at the bash prompt but fails
> when run under apache as a cgi app.
>
> =======================================
> #!/usr/bin/perl
>
> use strict;
> use IO::Socket;
>
>
> print "Content-type: text/plain\n\n";
>
> my $socket = IO::Socket::INET->new(PeerAddr => "127.0.0.1",
>                                 PeerPort => 3306,
>                                 PeerProto => "tcp",
>                                 PeerType => SOCK_STREAM);
> my $errno = 0;
> if (!$socket) {
>     $errno += $!;
>     print "Could not connect: $!\n";
>     print "errno = $errno\n";
> } else {
>     print "socket = $socket\n";
> }
> ======================================+
>
>
> Under bash I get this:
>
> =====================
> Content-type: text/plain
>
> socket = IO::Socket::INET=GLOB(0xa1843c4)
> =====================
>
> Under apache/cgi I get this:
> =====================
> Could not connect: Operation not permitted
> errno = 1
> =====================
>
> The standard apache test page comes up fine.
>
> setup is
> - Windows XP
> - cygwin was updated as of yesterday the 29th

...from which mirror?  It does matter.  Short of the "cygcheck -svr"
output, the output of "uname -a" is the best way to show your Cygwin
version.

> - httpd.conf has not been modified
> - passwd and group were generated by the appropriate tools and have not been modified
> - Both perl and apache were downloaded and not built from source.
> - I did install the dbi and dbd_mysql modules from cpan.
>
> apache                  1.3.29-2
> perl                    5.8.2-1
>
> I can send a full cygcheck.out if warrented.
>
> Any help appreciated.
> dar

At a guess, you're getting this because Apache runs as a service (i.e.,
the user, "nobody" by default, may not have enough rights).
	Igor
-- 
				http://cs.nyu.edu/~pechtcha/
      |\      _,,,---,,_		pechtcha@cs.nyu.edu
ZZZzz /,`.-'`'    -.  ;-;;,_		igor@watson.ibm.com
     |,4-  ) )-,_. ,\ (  `'-'		Igor Pechtchanski, Ph.D.
    '---''(_/--'  `-'\_) fL	a.k.a JaguaR-R-R-r-r-r-.-.-.  Meow!

"Happiness lies in being privileged to work hard for long hours in doing
whatever you think is worth doing."  -- Dr. Jubal Harshaw

--
Unsubscribe info:      http://cygwin.com/ml/#unsubscribe-simple
Problem reports:       http://cygwin.com/problems.html
Documentation:         http://cygwin.com/docs.html
FAQ:                   http://cygwin.com/faq/