"trace!" => \$trace,
"silent!" => \$silent,
"rpctrace!" => \$rpctrace,
+ "lmvtrace!" => \$lmvtrace,
"nodlm!" => \$nodlm,
"dlm_ns=s" => \$dlm_ns,
"noclass!" => \$noclass,
"extract_start=s" => \$extract_start,
"extract_end=s" => \$extract_end);
-
-
$subsys->{UNDEFINED} = 1 << 0;
$subsys->{MDC} = 1 << 1;
$subsys->{MDS} = 1 << 2;
$subsys->{PTLROUTER} = 1 << 20;
$subsys->{COBD} = 1 << 21;
$subsys->{IBNAL} = 1 << 22;
+$subsys->{SM} = 1 << 23;
+$subsys->{ASOBD} = 1 << 24;
+$subsys->{LMV} = 1 << 25;
+$subsys->{CMOBD} = 1 << 26;
$masks->{TRACE} = 1 << 0; # /* ENTRY/EXIT markers */
$masks->{ERROR} = 1 << 17; # /* CERROR} = ...) == CDEBUG} = D_ERROR, ...) */
$masks->{EMERG} = 1 << 18; # /* CEMERG} = ...) == CDEBUG} = D_EMERG, ...) */
$masks->{HA} = 1 << 19; # /* recovery and failover */
-$masks->{RPCTRACE} = 1 << 19; # /* recovery and failover */
+$masks->{RPCTRACE} = 1 << 20; # /* recovery and failover */
sub extractpid
{
$line = shift;
# print "$_\n";
- if ($line =~ m/\d+:\d+:\d+:\d+\.\d+:\d+:\d+:*$/) {
+ if ($line =~ m/(\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 =~ m/(\d+):(\d+):(\d+):(\d+\.\d+):(\d+):(\d+):(\d+):.*$/) {
return $7;
}
}
+sub extractsubsys
+{
+ $line = shift;
+# print "$_\n";
+ if ($line =~ m/(\d+):(\d+):(\d+):(\d+\.\d+):(\d+):(\d+):(\d+):.*$/) {
+ return hex($1);
+ }
+}
+
+sub extractmask
+{
+ $line = shift;
+# print "$_\n";
+ if ($line =~ m/(\d+):(\d+):(\d+):(\d+\.\d+):(\d+):(\d+):(\d+):.*$/) {
+ return hex($2);
+ }
+}
sub entering_rpc
{
$width = $ARGV[1];
}
-print "nodlm $nodlm, nonet $nonet, trace $trace\n";
+print "nodlm $nodlm, nonet $nonet, trace $trace lmvtrace $lmvtrace\n";
print "pid: $pid, dlm_ns: $dlm_ns\n";
print "extract_start: $extract_start\n";
print "extract_end: $extract_end\n";
}
$linepid = extractpid($_);
- $linehpid = extracthostpid($_);
- $linemask = getmask($_);
- $linesubsys = getsubsys($_);
-# printf "---> mask %x subsys %x\n", $linemask, $linesubsys;
+ $linehpid = extracthostpid($_);
+ $linesubsys = extractsubsys($_);
+ $linemask = extractmask($_);
if (leaving($_)) {
chop $prefix->{$linepid};
next if ($trace && $linemask != $masks->{TRACE});
next if ($nodlm &&
( $linesubsys == $subsys->{LDLM}));
+ next if ($lmvtrace &&
+ ( $linesubsys != $subsys->{LMV}));
next if ($dlm_ns &&
( $linesubsys != $subsys->{LDLM}));
next if (($found_dlm_ns = index( $_, $dlm_ns, 0)) == -1);