xCAT/xcat-core
2
0
Fork 0
mirror of https://github.com/xcat2/xcat-core.git synced 2025-10-31 11:22:27 +00:00
Code Issues Releases Wiki Activity

change for new syntax in CNM support to get_filelist

Browse Source 
git-svn-id: https://svn.code.sf.net/p/xcat/code/xcat-core/trunk@7198 8638fb3e-16cb-4fca-ae20-7b5d299a9bcd
This commit is contained in:
lissav
2010-08-24 12:24:45 +00:00
parent 3b1be19697
commit dc27bd58d5
1 changed files with 5 additions and 5 deletions
Download Patch File Download Diff File Expand all files Collapse all files

10
perl-xCAT/xCAT/Table.pm
View File

@@ -3462,9 +3462,9 @@ sub getAutoIncrementColumns {
directory,filelist,type
Returns:
The list of sql files to be processed which consists of all the
files with <name>.sql and <name>.<databasename>.sql
files with <name>.sql and <name>_<databasename>.sql
or
files with <name>.pm and <name>.<databasename>.pm
files with <name>.pm and <name>_<databasename>.pm
Globals:
Error:
@@ -3510,13 +3510,13 @@ sub get_filelist
my @filelist = ();
# my @dblist = glob($directory . "*.$dbname.$ext"); # current database
my @list = glob($directory . "*.$ext"); # all files
foreach my $file (@list)
{
my $filename= basename($file); # strip filename
my($name,$ext1,$ext2) = split '\.', $filename;
if ($ext1 eq $dbname)
my($name,$ext1) = split '\.', $filename;
my($name,$ext2) = split '\_', $name;
if ($ext2 eq $dbname)
{
push @filelist, $file;
}