xcat-core/perl-xCAT/xCAT/DSHContext.pm
lissav e93617e36f add use strict
git-svn-id: https://svn.code.sf.net/p/xcat/code/xcat-core/trunk@1887 8638fb3e-16cb-4fca-ae20-7b5d299a9bcd
2008-07-18 12:02:22 +00:00

72 lines
945 B
Perl

#!/usr/bin/env perl
# IBM(c) 2007 EPL license http://www.eclipse.org/legal/epl-v10.html
package xCAT::DSHContext;
use locale;
use strict;
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;