@Ghazascanner
_2019runbot
Ghazascanner File Manager
server :Linux phosweb012 3.10.0-1160.el7.x86_64 #1 SMP Mon Oct 19 16:18:59 UTC 2020 x86_64
Current Path :
/
homepage
/
cgi-bin
/
mailplus
/
lib
/
webliberty
/
Path :
Upload File :
New :
File
Dir
/homepage/cgi-bin/mailplus/lib/webliberty/Host.pm
#webliberty::Host.pm (2006/06/18) #Copyright(C) 2002-2006 Knight, All rights reserved. package webliberty::Host; use strict; ### コンストラクタ sub new { my $class = shift; my $self = { }; bless $self, $class; return $self; } ### ホスト取得 sub get_host { my $self = shift; my $host = $ENV{'REMOTE_HOST'}; my $addr = $ENV{'REMOTE_ADDR'}; if (!$host or $host eq $addr) { $host = gethostbyaddr(pack('C4', split(/\./, $addr)), 2) or $addr; } return $host; } ### IPアドレス取得 sub get_addr { my $self = shift; return $ENV{'REMOTE_ADDR'}; } 1;