MediaMVP Media Center

The Net::Interface changed its API in the newest version:

----------- cut ----------------
*** mvpboot.pl.orig 2009-06-14 17:07:20.000000000 -0600
--- mvpboot.pl 2009-06-14 17:07:20.000000000 -0600
*************** sub log_die {
*** 88,94 ****
my $if = Net::Interface->new($opts{i}) or die "$!\n";
my $ifaddr = scalar($if->address) or die "No IP address found for ".$opts{i}."\n";
my $local_addr = net2quad($ifaddr);
! my $local_hwaddr = unpack('H*', scalar $if->hwaddress);

daemonise($opts{p});

--- 88,95 ----
my $if = Net::Interface->new($opts{i}) or die "$!\n";
my $ifaddr = scalar($if->address) or die "No IP address found for ".$opts{i}."\n";
my $local_addr = net2quad($ifaddr);
! my $ifinfo = $if->info();
! my $local_hwaddr = unpack('H*', scalar $ifinfo->{mac});

daemonise($opts{p});

*************** my $socket = IO::Socket::INET->new(
*** 98,104 ****
) or log_die "Failed to bind socket: $!\n";

syslog 'info', "MediaMVP UDP listener running on $local_addr:$MVP_PORT
! (".mac_bin2hex(scalar $if->hwaddress).")";

my $data;
while (1) {
--- 99,105 ----
) or log_die "Failed to bind socket: $!\n";

syslog 'info', "MediaMVP UDP listener running on $local_addr:$MVP_PORT
! (".mac_bin2hex(scalar $ifinfo->{mac}).")";

my $data;
while (1) {
----------- cut ----------------

Hope this helps.

JoEC.