#
# CSV file format:
# devicename,ip4addr,ip6addr,descr,location,contact
#
sub custom_import_ping_devices
{
   my $FILENAME = "/tmp/import.csv";
   my $group = ""; # e.g. Ping-Only

   my $IN;
   my $line;
   my %dev;

   if ($group ne "") {
      adb_send ("add device group $group");
   }

   open ($IN, "<", $FILENAME) or EXIT_FATAL ("Could not open $FILENAME: $!");

   while ($line = <$IN>) {
      chomp $line;
      %dev = ();
      ($dev{device}, $dev{ip4addr}, $dev{ip6addr},
       $dev{descr}, $dev{location}, $dev{contact}) = split (",", $line);

      if (config_add_ping_device (\%dev) == 1) {
         printf "Added %s\n", $dev{device};
         # assign device to a group
         if ($group ne "") {
            adb_send ("assign device $dev{device} = $group");
         }
      }
      else {
         printf "Failed to add %s\n", $dev{device};
      }
   }
   close $IN;
   adb_flush ();
}