xcat-core/perl-xCAT-2.0/xCAT/DSHContext.pm
lissav 20c837d94f Support xdsh api interface
git-svn-id: https://svn.code.sf.net/p/xcat/code/xcat-core/trunk@163 8638fb3e-16cb-4fca-ae20-7b5d299a9bcd
2007-12-12 13:39:25 +00:00

72 lines
934 B
Perl

#!/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;