+
+ # Here the strings containing the sets are converted to arrays
+ # Origin / Forwarded sets
+ undef @sets_to_prov;
+ if (defined($subscriber->[10])) {
+ @sets_to_prov = split(',',$subscriber->[10]);
+ }
+ if (defined($subscriber->[3])) {
+ if (@sets_to_prov) {
+ @sets_to_prov = (@sets_to_prov, split(',',$subscriber->[3]));
+ }
+ else {
+ @sets_to_prov = split(',',$subscriber->[3]);
+ }
+ }
+ if (!defined($subscriber->[10]) && !defined($subscriber->[3])) {
+ @sets_to_prov = (0);
+ }
+
+ # Origin / Subscribed sets.
+ undef @sets_to;
+ if (defined($subscriber->[7])) {
+ @sets_to = split(',',$subscriber->[7]);
+ }
+ if (defined($subscriber->[3])) {
+ if (@sets_to) {
+ @sets_to = (@sets_to, split(',',$subscriber->[3]));
+ }
+ else {
+ @sets_to = split(',',$subscriber->[3]);
+ }
+ }
+ if (!defined($subscriber->[7]) && !defined($subscriber->[3])) {
+ @sets_to = (0);
+ }
+
+ # Sets provided by the failed node.
+ undef @sets_from;
+ if (defined($_->[9])) {
+ @sets_from = split(',',$_->[9]);
+ }
+ else {
+ @sets_from = (0);
+ @sets_to = (0);
+ }
+