initial commit of file from CVS for e-smith-base on Thu 26 Oct 11:24:52 BST 2023
This commit is contained in:
@@ -0,0 +1,19 @@
|
||||
{
|
||||
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);
|
||||
}
|
||||
}
|
||||
|
||||
|
Reference in New Issue
Block a user