{ my $AccessType = $DB->get('AccessType'); my $DialupUserAccount = $DB->get('DialupUserAccount'); my $SystemName = $DB->get('SystemName'); return unless ($AccessType && $DialupUserAccount && $SystemName); if ($AccessType->value eq 'dedicated' && $DialupUserAccount->value eq 'useraccount' && $SystemName->value ne 'e-smith') { # Heuristic to migrate DHCP client identifier - we used to use SystemName # and now we use DialupUserAccount # So we migrate SystemName to DialupUserAccount, unless DialupUserAccount # is already set, or the SystemName appears not set (default setting) $DialupUserAccount->merge_props(type => $SystemName->value); } }