sub device_add {
###########################################

  my ( $self, $name, $mac_address, $ip_adr ) = @_;

  my $ip_id;
  if($ip_change) {
    $ip_id = WatchLAN::ip_addresses( $ip_change );
  }   
  my $device = WatchLAN::Device->new( mac_address => $mac_address );
  $device->load( speculative => 1 );
  $device->name($name);
  $device->ip_static_id($ip_id);
  $device->save();
}