201 |
|
|
202 |
|
|
203 |
if ( $BootOption ) { |
if ( $BootOption ) { |
204 |
warn "invalid BootOptions $BootOption" unless |
warn "W: invalid BootOptions $BootOption" unless |
205 |
( $BootOption & $BootOptionsReservedBits ); |
( $BootOption & $BootOptionsReservedBits ); |
206 |
push @args, SOAP::Data->name( 'BootOptions' => $BootOption ); |
push @args, SOAP::Data->name( 'BootOptions' => $BootOption ); |
207 |
} |
} |
208 |
|
|
209 |
if ( $SpecialCommandParameter ) { |
if ( $SpecialCommandParameter ) { |
210 |
warn "invalid SpecialCommandParameter $SpecialCommandParameter" unless |
warn "W: invalid SpecialCommandParameter $SpecialCommandParameter" unless |
211 |
( $SpecialCommandParameter & $SpecialCommandParametersReservedBits ); |
( $SpecialCommandParameter & $SpecialCommandParametersReservedBits ); |
212 |
push @args, SOAP::Data->name( 'SpecialCommandParameter' => $SpecialCommandParameter ); |
push @args, SOAP::Data->name( 'SpecialCommandParameter' => $SpecialCommandParameter ); |
213 |
} |
} |
215 |
push @args, SOAP::Data->name( 'IanaOemNumber' => $IanaNumbers->{IntelIanaNumber} ); |
push @args, SOAP::Data->name( 'IanaOemNumber' => $IanaNumbers->{IntelIanaNumber} ); |
216 |
warn "args ",dump( @args ); |
warn "args ",dump( @args ); |
217 |
|
|
|
|
|
218 |
_soap( @args ); |
_soap( @args ); |
219 |
|
|
220 |
} |
} |
221 |
|
|
222 |
|
sub boot { |
223 |
|
run qw/Reset/; |
224 |
|
} |
225 |
|
|
226 |
|
sub sol_boot { |
227 |
|
run qw/Reset IntelOemCommand UseSol/; |
228 |
|
} |
229 |
|
|
230 |
|
sub sol_boot_biossetup { |
231 |
|
run qw/Reset IntelOemCommand UseSol BiosSetup/; |
232 |
|
} |
233 |
|
|
234 |
|
sub ider_floppy_boot { |
235 |
|
run qw/Reset IntelOemCommand UseIderFloppy/; |
236 |
|
} |
237 |
|
|
238 |
|
sub ider_cd_boot { |
239 |
|
run qw/Reset IntelOemCommand UseIderCD/ |
240 |
|
} |
241 |
|
|
242 |
|
sub sol_ider_cd_boot { |
243 |
|
run qw/Reset IntelOemCommand UseSol UseIderCD/; |
244 |
|
} |
245 |
|
|
246 |
|
sub sol_ider_floppy_boot { |
247 |
|
run qw/Reset IntelOemCommand UseSol UseIderFloppy/; |
248 |
|
} |
249 |
|
|
250 |
|
sub pxe_boot { |
251 |
|
run qw/SetBootOptions ForcePXEBoot/; |
252 |
|
} |
253 |
|
|
254 |
1; |
1; |