84 $slave = {}; |
84 $slave = {}; |
85 $slave->{'ring_position'} = |
85 $slave->{'ring_position'} = |
86 &read_integer("$slave_dir/ring_position"); |
86 &read_integer("$slave_dir/ring_position"); |
87 $slave->{'coupler_address'} = |
87 $slave->{'coupler_address'} = |
88 &read_string("$slave_dir/coupler_address"); |
88 &read_string("$slave_dir/coupler_address"); |
89 unless ($show_sii_desc) { |
89 unless ($show_sii_naming) { |
90 $slave->{'vendor_name'} = |
90 $slave->{'vendor_name'} = |
91 &read_string("$slave_dir/vendor_name"); |
91 &read_string("$slave_dir/vendor_name"); |
92 $slave->{'product_name'} = |
92 $slave->{'product_name'} = |
93 &read_string("$slave_dir/product_name"); |
93 &read_string("$slave_dir/product_name"); |
94 $slave->{'product_desc'} = |
94 $slave->{'product_desc'} = |
95 &read_string("$slave_dir/product_desc"); |
95 &read_string("$slave_dir/product_desc"); |
96 } |
96 } |
97 else { |
97 else { |
98 $slave->{'sii_desc'} = |
98 $slave->{'sii_name'} = |
99 &read_string("$slave_dir/sii_desc"); |
99 &read_string("$slave_dir/sii_name"); |
100 } |
100 } |
101 $slave->{'type'} = |
101 $slave->{'type'} = |
102 &read_string("$slave_dir/type"); |
102 &read_string("$slave_dir/type"); |
103 |
103 |
104 push @slaves, $slave; |
104 push @slaves, $slave; |
113 print "--------------------------------------------------------\n"; |
113 print "--------------------------------------------------------\n"; |
114 } |
114 } |
115 |
115 |
116 $abs = sprintf "%i", $slave->{'ring_position'}; |
116 $abs = sprintf "%i", $slave->{'ring_position'}; |
117 printf(" %3s %8s ", $abs, $slave->{'coupler_address'}); |
117 printf(" %3s %8s ", $abs, $slave->{'coupler_address'}); |
118 unless ($show_sii_desc) { |
118 unless ($show_sii_naming) { |
119 printf("%-12s %-10s %s\n", $slave->{'vendor_name'}, |
119 printf("%-12s %-10s %s\n", $slave->{'vendor_name'}, |
120 $slave->{'product_name'}, $slave->{'product_desc'}); |
120 $slave->{'product_name'}, $slave->{'product_desc'}); |
121 } |
121 } |
122 else { |
122 else { |
123 printf("%s\n", $slave->{'sii_desc'}); |
123 printf("%s\n", $slave->{'sii_name'}); |
124 } |
124 } |
125 } |
125 } |
126 } |
126 } |
127 |
127 |
128 #------------------------------------------------------------------------------ |
128 #------------------------------------------------------------------------------ |
172 } |
172 } |
173 else { |
173 else { |
174 $master_index = 0; |
174 $master_index = 0; |
175 } |
175 } |
176 |
176 |
177 $show_sii_desc = defined $opt{'s'}; |
177 $show_sii_naming = defined $opt{'s'}; |
178 } |
178 } |
179 |
179 |
180 #------------------------------------------------------------------------------ |
180 #------------------------------------------------------------------------------ |
181 |
181 |
182 sub print_usage |
182 sub print_usage |
183 { |
183 { |
184 print "Usage: ec_list [OPTIONS]\n"; |
184 print "Usage: ec_list [OPTIONS]\n"; |
185 print " -m <IDX> Query master <IDX>.\n"; |
185 print " -m <IDX> Query master <IDX>.\n"; |
186 print " -s Show SII slave description instead of"; |
186 print " -s Show SII naming instead of"; |
187 print " vendor/product/description.\n"; |
187 print " vendor/product/description.\n"; |
188 print " -h Show this help.\n"; |
188 print " -h Show this help.\n"; |
189 exit 0; |
189 exit 0; |
190 } |
190 } |
191 |
191 |