Dear monks
For a desktop application of mine, I need to read the hostdomain of the net where the application is running. I do this with
use Net::Domain qw(hostdomain hostfqdn);
my $hostfqdn = hostfqdn;
print "FQDN : $hostfqdn \n";
my $hostdomain = hostdomain;
print "DOMAIN: $hostdomain \n";
This works fine for most of my scenarios, but when the user is connected to an (enterprise) VPN. In this base 'hostdomain' returns empty. Is there a way to get a similar response 'as if' the computer was in the physical net? What I am trying to achieve is to determine in which company the tool is run to enable certain functions, and I need to do it so not only when the tool is run in a computer which is physically in the company (working fine), but because of many users working from home nowadays also on a computer connected by VPN to that company.