Subject: Re: [LINUX:9972] perl de ip no
From: Murat Kasikcioglu (muratk@innovaconsulting.com)
Date: Mon 01 Nov 1999 - 17:29:02 EET
merhaba,
eskiden bir program yazmisim. burada ip-no gozukuyor. belki yardimi olur.
-----------------------------------------------
#!/usr/local/bin/perl
# list some system information
use lib '..';
use CGI qw(:standard);
use CGI::Carp qw/fatalsToBrowser/;
print header();
print start_html();
print "<table witdh=100%>";
foreach $key (sort keys %ENV) {
print "<tr><td width=50% align=right valign=top><font face=arial
size=2><b>$key</b></font></td><td valign=top><font face=arial
size=2>$ENV{$key}</font></td></tr>\n";
}
print "</table>";
print end_html;
exit 0 ;
------------------------------
Abdullah BAYKAL wrote:
> Selamlar,
> gerci konu ile alakali degil ama, perl le ilgli bir liste bulamdim.
> perl'le hazirladigimiz bir cgi icinden baglanan makinanin ip numarasini
> nasil elde edebiliriz.
> perl de bu $ENV(REMOTEHOST) ile elde edilebiliyor ama, bunu web
> uzerinden cgi olarak calistirinca elde edilemiyor.
> iyi calismalar,
> Abdullah BAYKAL,
> Dicle Univ.
>
>
> Listeden cikmak icin:
> unsub linux
> mesajini listeci@bilkent.edu.tr'a gonderiniz.
> Lutfen Listeci icin MIME / HTML / Turkce Aksan kullanmayin.
> Liste arsivinin adresi: http://listweb.bilkent.edu.tr/
-- Murat Kasikcioglu Innova Consulting Company http://www.innovaconsulting.comListeden cikmak icin: unsub linux mesajini listeci@bilkent.edu.tr'a gonderiniz. Lutfen Listeci icin MIME / HTML / Turkce Aksan kullanmayin. Liste arsivinin adresi: http://listweb.bilkent.edu.tr/