Hi,
Since 2 days I'm trying to find a bug in mksimachine -D oscarnode2
(systeminstaller-oscar-2.4.6-1)
Unfortunately, I don't know how to program in perl, and my perl knowledge is
limited to what I've learned those last 48 hours.
I think that the bug is here:
/usr/bin/mksimachine:195
my @keys = map{$_->{primkey}} @machinelist;
Indeed,
p Dumper @machinelist gives:
$VAR1 = {
'imagename' => 'oscarimage',
'name' => 'oscarnode2',
'hostname' => 'node2'
};
and after running the line "my @keys = map{$_->{primkey}} @machinelist;"
@keys seems empty (no refs to oscarnode2 for example)
As I'm more that a newbee in perl, I don't understand the primkey. I doesn't
look like a predefined variable name, although, some libs seems to use it as
such...
p Dumper @keys gives nothing
p scalar @keys gives 0
p Dumper @machinelist[0]
$VAR1 = {
'imagename' => 'oscarimage',
'name' => 'oscarnode2',
'hostname' => 'node2'
};
p Dumper @machinelist[1]
$VAR1 = undef;
Thus, in /usr/lib/systeminstaller/SIS/NewDB.pm:354, the line below gives
erroneous result
my @where = map { "$_='".$args{$_}."'" } keys(%args);
p @where
Nodes.=''
# instead of
# Nodes.name='oscarnode2'
p keys(%args)
Nodes.
So now, I'm stuck :'-(
The oscar database Nodes table contains:
mysql> select * from Nodes;
+------------+---------+-----------+--------------+------+---------------+-----------------------+----+----------+-----------+--------------+------+------+-------+---------+
| cluster_id | cpu_num | cpu_speed | dns_domain | fqdn | group_name |
hostname | id | image_id | installer | name | ram | swap
| units | virtual |
+------------+---------+-----------+--------------+------+---------------+-----------------------+----+----------+-----------+--------------+------+------+-------+---------+
| 1 | NULL | NULL | intra.cea.fr | NULL | oscar_server |
is005760.intra.cea.fr | 1 | 0 | NULL | oscar_server | NULL | NULL
| NULL | NULL |
| 1 | NULL | NULL | NULL | NULL | oscar_clients |
node2 | 5 | 6 | sis | oscarnode2 | NULL | NULL
| NULL | NULL |
| 1 | NULL | NULL | NULL | NULL | oscar_clients |
node1 | 6 | 6 | sis | oscarnode1 | NULL | NULL
| NULL | NULL |
+------------+---------+-----------+--------------+------+---------------+-----------------------+----+----------+-----------+--------------+------+------+-------+---------+
3 rows in set (0.00 sec)
If a knowledged perl developper could help me on that point I would appreciate
a lot.
Best regards.
Olivier.
--
Olivier LAHAYE
CEA Saclay
DRT-LIST-DETECS-SSTM
------------------------------------------------------------------------------
Let Crystal Reports handle the reporting - Free Crystal Reports 2008 30-Day
trial. Simplify your report design, integration and deployment - and focus on
what you do best, core application coding. Discover what's new with
Crystal Reports now. http://p.sf.net/sfu/bobj-july
_______________________________________________
Oscar-devel mailing list
[email protected]
https://lists.sourceforge.net/lists/listinfo/oscar-devel
