Omapi-perl

[James J J Hooper]

--On Monday, July 17, 2006 11:54:12 +0000 James J J Hooper 
<jjj.hooper at bristol.ac.uk> wrote:

>
> Hi,
>   I know this isn't an ISC thing but I'm hoping someone on this list
> knows  where I'm going wrong!
>
> I'm trying to get perl to interface with dhcpd via omapi.
>
> Running 'make test' of Omapi-perl (
> <http://nickg.home.cern.ch/nickg/dhcpd/omapiperl.html> ) with dhcpd 3.0.3
> and I get the following error:
>
> make test
> PERL_DL_NONLAZY=1 /usr/bin/perl "-Iblib/lib" "-Iblib/arch" test.pl
> 1..10
># Running under perl version 5.008005 for linux
># Current time local: Fri Jul 14 17:00:51 2006
># Current time GMT:   Fri Jul 14 16:00:51 2006
># Using Test.pm version 1.25
> Loading OMAPI-perl libs....     ok 1
> Connection test....             ok 2
> Unable to issue a wait (68)
> Create_host() test....          not ok 3
># Failed test 3 in test.pl
>
>
> I think this is due to my key being setup incorrectly. In dhcpd.conf I
> have:
>
>
> key fred {
>   algorithm hmac-md5.sig-alg.reg.int;
>   secret
> "7hl6k1YmcznLsVo7LmPM7i2wH1tb2B1zbb7jV+hy5FioQU15pYo9kXqNdbbVq8EQG5Op2IpV
> l9f+2l/lJz+0ZQ=="; }
> omapi-port 6666;
> omapi-key fred;
> subnet 192.168.223.0 netmask 255.255.255.0 {
> omapi-key fred;
> }
>
> In test.pl of Omapi-perl I have:
>
># don't forget to set these variables
> $key =
> decode_base64('7hl6k1YmcznLsVo7LmPM7i2wH1tb2B1zbb7jV+hy5FioQU15pYo9kXqN
> dbbVq8EQG5Op2IpVl9f+2l/lJz+0ZQ==');
> $loginkey = 'fred:'.$key;
> $servername = '127.0.0.1';
> $port = 6666;

As always, start simple then make it complicated ... replacing the enormous 
secret I had in the above example with 'hellohellohello' on both seems to 
make it work.

-James

--
James J J Hooper,
Information Services
University of Bristol
--