$subsys->{GMNAL} = 1 << 19;
$subsys->{PTLROUTER} = 1 << 20;
$subsys->{COBD} = 1 << 21;
-$subsys->{IBNAL} = 1 << 22;
+$subsys->{OPENIBNAL} = 1 << 22;
$masks->{TRACE} = 1 << 0; # /* ENTRY/EXIT markers */
{
$line = shift;
# print "$_\n";
- if ($line =~ m/\d+:\d+:\d+:\d+\.\d+:\d+:\d+:*$/) {
+ if ($line =~ /(\d+)\:(\d+)\:(\d+)\:(\d+\.\d+)\:(\d+)\:(\d+)\:.*/) {
return $6;
}
}
{
$line = shift;
# print "$_\n";
- if ($line =~ m/\d+:\d+:\d+:\d+\.\d+:\d+:\d+:\d+:*$/) {
+ if ($line =~ /(\d+)\:(\d+)\:(\d+)\:(\d+\.\d+)\:(\d+)\:(\d+)\:(\d+)\:.*/) {
return $7;
}
}
print "extract_start: $extract_start\n";
print "extract_end: $extract_end\n";
while (<LOG>) {
- if ($extract_start && $extract_start != LLANAYZE_FOUND) {
+ if ($extract_start && $extract_start ne "LLANAYZE_FOUND") {
next if (index($_, $extract_start, 0) == -1);
- $extract_start = LLANAYZE_FOUND;
+ $extract_start = "LLANAYZE_FOUND";
}
if ($extract_end) {
- next if ($extract_end == LLANAYZE_FOUND);
+ next if ($extract_end eq "LLANAYZE_FOUND");
if (index($_, $extract_end, 0) != -1) {
- $extract_end = LLANAYZE_FOUND;
+ $extract_end = "LLANAYZE_FOUND";
}
}
$linesubsys == $subsys->{PORTALS} ||
$linesubsys == $subsys->{SOCKNAL} ||
$linesubsys == $subsys->{QSWNAL} ||
- $linesubsys == $subsys->{IBNAL} ||
+ $linesubsys == $subsys->{OPENIBNAL} ||
$linesubsys == $subsys->{GMNAL}));
if(!$entering_rpc) {entering_rpc($_);}
if(!$leaving_rpc) {leaving_rpc($_);}