Unifix knowledge database - The original one

Dashboard - News - Search - List - About - Admin


dhcp reverse lookup

Author:mike - Tue Sep 14 16:56:27 2004

Maskiner som requester dhcp og angiver deres hostadresse kan der laves lookup paa med flg. script. Hvis ikke det virker er det hoejest sandsynligt fordi dit os kalder dhcpd paa en anden maade en min freebsd box goer(std opsat) saa kan du  angive path til dhcpd.leases filen manuelt. Jeg har lagt filen i /bin og kaldt den 'fip' derved:

vbcafe# ssh `fip pc9`
ssh: connect to host 10.10.10.19 port 22: Connection refused

og her var scriptet:

#!/usr/bin/perl

open fil, "ps ax|";
while ( $dat = <fil>)
{
        if ($dat =~ /dhcpd/)
        {
                @dat = split(" ",$dat);
                $path=@dat[8];
        }
}

$saveip="not found\n";

# $path = '-set-to-dhcpd.leases-file-if-dosnt-work';

open fil,$path;
while ($dat=<fil>)
{
        chop(@dat);
        @dat=split(" ",$dat);
        if ( @dat[0] eq "lease") { $ip=@dat[1]; }
        if ( @dat[1] eq '"'.$ARGV[0].'";') { $saveip=$ip; }
}
close(fil);

print $saveip;

if ($saveip eq "not found") {exit -1;}




#######################
Og til sidst 2 blanker linier til ære for Ove Sprogø, den store danske skuespiller som idag desvære ikke er mere. Må fred være med ham.


####################### 
Copyright(c) Unifix.org 2002-2011


Dashboard - News - Search - List - About - Admin
 
Powered by Mikjaer Consulting Solutions - Hosted by Specialhosting.dk