Mailing-List:	contact cygwin-help AT sourceware DOT cygnus DOT com; run by ezmlm
List-Subscribe:	<mailto:cygwin-subscribe AT sources DOT redhat DOT com>
List-Archive:	<http://sources.redhat.com/ml/cygwin/>
List-Post:	<mailto:cygwin AT sources DOT redhat DOT com>
List-Help:	<mailto:cygwin-help AT sources DOT redhat DOT com>, <http://sources.redhat.com/ml/#faqs>
Sender:	cygwin-owner AT sources DOT redhat DOT com
Delivered-To:	mailing list cygwin AT sources DOT redhat DOT com
Message-ID:	<003001c1094e$0aa3f1a0$9c41a9cb@ebizmalay>
From:	"=?iso-8859-1?B?0eN64643OA==?=" <nazar AT ebizmalay DOT com>
To:	"Jorge Goncalvez" <goncal11 AT col DOT bsf DOT alcatel DOT fr>,
	<cygwin AT sources DOT redhat DOT com>
References:	<200107091515 DOT RAA19201 AT cabs40 DOT col DOT bsf DOT alcatel DOT fr>
Subject:	Re: Re:perl and cygwin
Date:	Tue, 10 Jul 2001 22:38:43 +0800
Organization:	eBizMalay.Com (EBMC) @ http://www.ebizmalay.com
MIME-Version:	1.0
X-Priority:	3
X-MSMail-Priority:	Normal
X-Mailer:	Microsoft Outlook Express 5.50.4522.1200
X-MimeOLE:	Produced By Microsoft MimeOLE V5.50.4522.1200

Oit! What happen to your SHEBANG?

Should'nt be "\n#SNIPPET 17:1388".

Try using "#!/usr/bin/perl" instead.

If possible with a clear "\n" line break after SHEBANG cause I don't know
why some versions of perl require this to work, beats me!

Thank you.

Regards,
Ñãzã®78 @ nazar AT ebizmalay DOT com
eBizMalay.Com @ http://www.ebizmalay.com
Bringing To You eBiz Solutions Of Tomorrow

----- Original Message -----
From: "Jorge Goncalvez" <goncal11 AT col DOT bsf DOT alcatel DOT fr>
To: <cygwin AT sources DOT redhat DOT com>
Sent: Monday, July 09, 2001 11:15 PM
Subject: Re:perl and cygwin


> Hi , I have made a perl program but When i start it I have the following
error:
> Can't locate Sys/Syslog.pm in @INC (@INC contains: D:/Perl/li
> .) at renifleur.pl line 7.
> Why, Syslog.pm exits althougt.
>


----------------------------------------------------------------------------
----


>
> #SNIPPET 17:1388
> #!/usr/bin/perl -w
> # renifleur - journalise les tentatives de connexion sur des ports
> #             particuliers
>
> use Sys::Syslog;
> use Socket;
>
> # identifie mon port et mon adresse
> $nom_socket        = getsockname(STDIN)
>                      or die "je n'ai pu m'identifier : $!\n";
> ($port, $adr_ip)   = sockaddr_in($nom_socket);
> $mon_adresse       = inet_ntoa($adr_ip);
>
> # trouve un nom pour le service
> $service = (getservbyport ($port, "tcp"))[0] || $port;
> # et identifie maintenant l'adresse distante
> $nom_socket        = getpeername(STDIN)
>                or die "je n'ai pu identifier l'autre extrémité : $!\n";
> ($port, $adr_ip)   = sockaddr_in($nom_socket);
> $son_adresse       = inet_ntoa($adr_ip);
>
> # et journalise l'information
> openlog("renifleur", "ndelay", "daemon");
> syslog("notice", "Connection from %s to %s:%s\n", $son_adresse,
>         $mon_adresse, $service);
> closelog();
> exit;
>
>


----------------------------------------------------------------------------
----


> --
> Unsubscribe info:      http://cygwin.com/ml/#unsubscribe-simple
> Bug reporting:         http://cygwin.com/bugs.html
> Documentation:         http://cygwin.com/docs.html
> FAQ:                   http://cygwin.com/faq/


--
Unsubscribe info:      http://cygwin.com/ml/#unsubscribe-simple
Bug reporting:         http://cygwin.com/bugs.html
Documentation:         http://cygwin.com/docs.html
FAQ:                   http://cygwin.com/faq/

- Raw text -