summaryrefslogtreecommitdiff
path: root/xpp/utils/zconf/Zaptel/Xpp.pm
diff options
context:
space:
mode:
Diffstat (limited to 'xpp/utils/zconf/Zaptel/Xpp.pm')
-rw-r--r--xpp/utils/zconf/Zaptel/Xpp.pm17
1 files changed, 15 insertions, 2 deletions
diff --git a/xpp/utils/zconf/Zaptel/Xpp.pm b/xpp/utils/zconf/Zaptel/Xpp.pm
index b627438..dd1f34c 100644
--- a/xpp/utils/zconf/Zaptel/Xpp.pm
+++ b/xpp/utils/zconf/Zaptel/Xpp.pm
@@ -5,7 +5,9 @@ package Zaptel::Xpp;
# This program is free software; you can redistribute and/or
# modify it under the same terms as Perl itself.
#
-#use strict;
+# $Id$
+#
+use strict;
use Zaptel::Xpp::Xbus;
my $proc_base = "/proc/xpp";
@@ -33,7 +35,7 @@ sub xbuses {
$name =~ s/://;
$name =~ /XBUS-(\d\d)/ or die "Bad XBUS number: $name";
my $num = $1;
- @attr = map { $_ = uc($_); split(/=/); } @attr;
+ @attr = map { split(/=/); } @attr;
my $xbus = Zaptel::Xpp::Xbus->new(NAME => $name, NUM => $num, @attr);
push(@xbuses, $xbus);
}
@@ -51,6 +53,17 @@ sub xbuses {
return sort $sorter @xbuses;
}
+sub xpd_of_span($) {
+ my $span = shift or die "Missing span parameter";
+ return undef unless defined $span;
+ foreach my $xbus (Zaptel::Xpp::xbuses('SORT_CONNECTOR')) {
+ foreach my $xpd ($xbus->xpds()) {
+ return $xpd if $xpd->fqn eq $span->name;
+ }
+ }
+ return undef;
+}
+
sub sync {
my $newsync = shift;
my $result;