Support xdsh api interface

git-svn-id: https://svn.code.sf.net/p/xcat/code/xcat-core/trunk@163 8638fb3e-16cb-4fca-ae20-7b5d299a9bcd

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;