+ my @requested = split(/\s/, $dhcp->getOptionValue(DHO_DHCP_PARAMETER_REQUEST_LIST));
+ warn "options ",dump( $options ), ' requested: ',dump( @requested ) if $debug;
+
+ my @missing;
+ foreach ( @requested ) {
+ if ( defined $options->{$_} ) {
+ $packet->{$_} = $options->{$_};
+ } else {
+ push @missing, $_;
+ }
+ }
+
+ warn "W: options requested but missing: ",dump( @missing ),$/;
+ $audit->{requested} = [ @requested ];
+ $audit->{missing} = [ @missing ];
+
+ foreach my $opt ( 'magic', 'config_file', 'path_prefix', 'reboot_time' ) {
+ my $DH0 = eval 'DHO_PXELINUX_' . uc $opt;
+ warn "DH0: $@" if $@;
+ my $v = eval "\$pxelinux::$opt";
+ warn "v: $@" if $@;
+ next unless defined $v;
+ warn "pxelinux dhcp option $opt = $DH0 = $v\n" if $debug;
+ $packet->{ $DH0 } = $v;
+ }
+