-`scripts/mdns_host_seed.pl` ascultă multicast mDNS pe `224.0.0.251:5353`, colectează recorduri `A` pentru nume `*.local` din intervale private/link-local și seeduiește baza de observații mDNS.

-var/mdns-observations.yaml

-Regulă importantă: listenerul mDNS nu modifică registry-ul SQLite, `config/hosts.yaml` sau `config/local-hosts.tsv`. Seed-ul mDNS rămâne observație separată până la review.

-  var/mdns-observations.yaml

-`host-manager-mdns` este un listener separat care observă mDNS și seeduiește `var/mdns-observations.yaml`. Listenerul nu modifică registry-ul SQLite, `config/hosts.yaml` sau `config/local-hosts.tsv`.

-After=network-online.target

-Wants=network-online.target

-ExecStart=/usr/bin/perl /usr/local/xdev-host-manager/scripts/mdns_host_seed.pl --database /usr/local/xdev-host-manager/var/mdns-observations.yaml

-use Fcntl qw(:flock);

-    database => $ENV{HOST_MANAGER_MDNS_DB} || "$project_dir/var/mdns-observations.yaml",

-    'database|db=s' => \$opt{database},

-print "mDNS source database: $opt{database}\n" if $opt{verbose};

-    my $changed = seed_observations(\%opt, \@records, $peer_ip);

-  --database path  mDNS source database. Defaults to var/mdns-observations.yaml.

-Only A records for private/link-local .local names are collected. hosts.yaml is

-not modified here; it remains a generated output fed by source databases.

-    my ($opt, $records, $peer_ip) = @_;

-    my $database = $opt->{database};

-    ensure_parent_dir($database);

-    open my $lock_fh, '+>>', $database or die "Cannot open $database: $!\n";

-    flock($lock_fh, LOCK_EX) or die "Cannot lock $database: $!\n";

-    seek($lock_fh, 0, 0);

-    local $/;

-    my $text = <$lock_fh>;

-    my $db = parse_observations_yaml($text || '');

-        my $change = merge_observation($db, $record, $peer_ip);

-    if (@changes) {

-        if ($opt->{dry_run}) {

-            print change_line($_) . "\n" for @changes;

-        } else {

-            $db->{updated_at} = iso_now();

-            seek($lock_fh, 0, 0);

-            truncate($lock_fh, 0) or die "Cannot truncate $database: $!\n";

-            print {$lock_fh} render_observations_yaml($db);

-            close $lock_fh or die "Cannot close $database: $!\n";

-        }

-    my ($db, $record, $peer_ip) = @_;

-    my $id = id_from_mdns_name($record->{name});

-    my $existing;

-    for my $observation (@{ $db->{observations} || [] }) {

-        if (($observation->{key} || '') eq $key) {

-            $existing = $observation;

-            last;

-        }

-    }

-        push @{ $db->{observations} }, {

-            key => $key,

-            id => $id,

-            name => $record->{name},

-            ip => $record->{ip},

-            first_seen => $now,

-            last_seen => $now,

-            seen_count => 1,

-            last_peer => $peer_ip,

-            ttl => int($record->{ttl} || 0),

-        };

-        return { action => 'created', id => $id, name => $record->{name}, ip => $record->{ip} };

-    }

-

-    $existing->{last_seen} = $now;

-    $existing->{seen_count} = int($existing->{seen_count} || 0) + 1;

-    $existing->{last_peer} = $peer_ip;

-    $existing->{ttl} = int($record->{ttl} || 0);

-    return { action => 'updated', id => $existing->{id}, name => $record->{name}, ip => $record->{ip} };

-}

-

-sub parse_observations_yaml {

-    my ($text) = @_;

-    my %db = (

-        version => 1,

-        updated_at => '',

-        source => 'mdns',

-        observations => [],

-    );

-    my ($section, $current);

-    for my $line (split /\n/, $text) {

-        next if $line =~ /^\s*$/ || $line =~ /^\s*#/;

-        if ($line =~ /^version:\s*(\d+)/) {

-            $db{version} = int($1);

-        } elsif ($line =~ /^updated_at:\s*(.+)$/) {

-            $db{updated_at} = yaml_unquote($1);

-        } elsif ($line =~ /^source:\s*(.+)$/) {

-            $db{source} = yaml_unquote($1);

-        } elsif ($line =~ /^observations:\s*$/) {

-            $section = 'observations';

-        } elsif (($section || '') eq 'observations' && $line =~ /^  - key:\s*(.+)$/) {

-            $current = { key => yaml_unquote($1) };

-            push @{ $db{observations} }, $current;

-        } elsif ($current && $line =~ /^    ([A-Za-z0-9_]+):\s*(.*)$/) {

-            my ($key, $value) = ($1, yaml_unquote($2));

-            $value = int($value || 0) if $key =~ /\A(?:seen_count|ttl)\z/;

-            $current->{$key} = $value;

-    return \%db;

-}

-sub render_observations_yaml {

-    my ($db) = @_;

-    my $out = "version: " . int($db->{version} || 1) . "\n";

-    $out .= "updated_at: " . yq($db->{updated_at} || iso_now()) . "\n";

-    $out .= "source: " . yq($db->{source} || 'mdns') . "\n";

-    $out .= "observations:\n";

-    for my $observation (sort { ($a->{name} || '') cmp ($b->{name} || '') || ($a->{ip} || '') cmp ($b->{ip} || '') } @{ $db->{observations} || [] }) {

-        $out .= "  - key: " . yq($observation->{key}) . "\n";

-        for my $key (qw(id name ip first_seen last_seen seen_count last_peer ttl)) {

-            $out .= "    $key: " . yq($observation->{$key} || '') . "\n";

-        }

-    return $out;

-sub id_from_mdns_name {

-    my ($name) = @_;

-    $name =~ s/\.local\z//;

-    $name =~ s/\([0-9]+\)\z//;

-    $name = lc($name);

-    $name =~ s/[^a-z0-9_.-]+/-/g;

-    $name =~ s/^-+|-+$//g;

-    return $name;

-sub yq {

-    my ($value) = @_;

-    $value = '' unless defined $value;

-    $value =~ s/\\/\\\\/g;

-    $value =~ s/"/\\"/g;

-    return qq("$value");

-}

-

-sub yaml_unquote {

-    my ($value) = @_;

-    $value = '' unless defined $value;

-    $value =~ s/^\s+|\s+$//g;

-    if ($value =~ /^"(.*)"$/) {

-        $value = $1;

-        $value =~ s/\\"/"/g;

-        $value =~ s/\\\\/\\/g;

-    }

-    return $value;

-}

-