sub config_update_sysname
{
   my @domains = config_load_domains ();
   for my $line (adb_result ("mget text * sys SNMPv2-MIB.sysName")) {
      my @arr = split (" ", $line, 5);
      my $devname = $arr[0];
      my $sysname = $arr[4] || "";
      $sysname = config_strip_sysname ($sysname, @domains);
      if ($devname ne $sysname) {
         errlog ($ERR_DEBUG, "rename %s -> %s", $devname, $sysname);
         adb_send (sprintf ("rename device %s %s", $devname, $sysname));
      }
   }
   adb_flush ();
}