arif/xcat-core
1
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

Just made 3 functions i moved here before check for the package name in the first argument and shift past it, if so

Browse Source 
git-svn-id: https://svn.code.sf.net/p/xcat/code/xcat-core/trunk@6334 8638fb3e-16cb-4fca-ae20-7b5d299a9bcd
This commit is contained in:
cjhardee 2010-06-03 13:34:54 +00:00
parent acaaf09f7a
commit 7c107b4503
1 changed files with 17 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

20
xCAT-server/lib/perl/xCAT/SvrUtils.pm
View File

@ -915,8 +915,12 @@ sub get_nodename_from_request()
# we do this sparingly... We don't like tons of hits
# to the database.
sub subVars {
shift; #toss the class name
my $dir = shift;
my $dir = shift;
if (($dir) && ($dir =~ /xCAT::SvrUtils/))
{
$dir = shift;
}
my $node = shift;
my $type = shift;
my $callback = shift;
@ -1007,7 +1011,12 @@ sub subVars {
}
sub setupNFSTree {
my $node = shift;
my $node = shift;
if (($node) && ($node =~ /xCAT::SvrUtils/))
{
$node = shift;
}
my $sip = shift;
my $callback = shift;
@ -1056,6 +1065,11 @@ sub setupNFSTree {
sub setupStatemnt {
my $sip = shift;
if (($sip) && ($sip=~ /xCAT::SvrUtils/))
{
$sip = shift;
}
my $statemnt = shift;
my $callback = shift;