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.
#######################