diff --git a/perl-xCAT-2.0/xCAT/DSHContext.pm b/perl-xCAT-2.0/xCAT/DSHContext.pm new file mode 100644 index 000000000..99ffe3f41 --- /dev/null +++ b/perl-xCAT-2.0/xCAT/DSHContext.pm @@ -0,0 +1,71 @@ +#!/usr/bin/env perl +# IBM(c) 2007 EPL license http://www.eclipse.org/legal/epl-v10.html + +package xCAT::DSHContext; + +use locale; + +require xCAT::DSHCore; + +sub valid_context { + return 1; +} + +sub context_defaults { + my %defaults = (); + + $defaults{'NodeRemoteShell'} = '/usr/bin/rsh'; + return \%defaults; +} + +sub context_properties { + return; +} + +sub all_devices { + return undef; +} + +sub all_devicegroups { + return undef; +} + +sub all_nodes { + return undef; +} + +sub all_nodegroups { + return undef; +} + +sub devicegroup_members { + return undef; +} + +sub nodegroup_members { + return undef; +} + +sub resolve_device { + return undef; +} + +sub resolve_node { + return 1; +} + +sub verify_target { + return 127; +} + +sub verify_mode { + return "NOXCAT"; +} + +sub resolve_hostnames { + my ( $class, $resolved_targets, $unresolved_targets, @target_list ) = @_; + xCAT::DSHCore->resolve_hostnames( undef, $resolved_targets, $unresolved_targets, + undef, @target_list ); +} + +1;