Page MenuHomeClusterLabs Projects
Files F2822483

decipher_lockstate_dump
No OneTemporary
Actions

decipher_lockstate_dump
View Options

#!/usr/bin/perl
###############################################################################
###############################################################################
##
## Copyright (C) Sistina Software, Inc. 1997-2003 All rights reserved.
## Copyright (C) 2004 Red Hat, Inc. All rights reserved.
##
## This copyrighted material is made available to anyone wishing to use,
## modify, copy, or redistribute it subject to the terms and conditions
## of the GNU General Public License v.2.
##
###############################################################################
###############################################################################
foreach $arg (@ARGV)
{
if ($arg eq '-nosort')
{
$nosort = 1;
}
else
{
push(@files, $arg);
}
}
foreach $file (@files)
{
open(FILE, "< $file") || die "decipher_lockstate_dump: can't open file %s: $!\n";
while ($line = <FILE>)
{
$line =~ s/\n/ \n/;
if ($line =~ /^Glock/)
{
$locks[$ln++] .= "\n" if (!$nosort && $notfirst++);
$line =~ s/\((0),/\(reserved[$1],/;
$line =~ s/\((1),/\(nondisk[$1],/;
$line =~ s/\((2),/\(inode[$1],/;
$line =~ s/\((3),/\(rgrp[$1],/;
$line =~ s/\((4),/\(meta[$1],/;
$line =~ s/\((5),/\(iopen[$1],/;
$line =~ s/\((6),/\(flock[$1],/;
$line =~ s/\((7),/\(jid[$1],/;
$line =~ s/\((8),/\(quota[$1],/;
$line =~ s/\(nondisk(\S+), (0)\)/\(nondisk$1, mount[$2]\)/;
$line =~ s/\(nondisk(\S+), (1)\)/\(nondisk$1, live[$2]\)/;
$line =~ s/\(nondisk(\S+), (2)\)/\(nondisk$1, trans[$2]\)/;
$line =~ s/\(nondisk(\S+), (3)\)/\(nondisk$1, rename[$2]\)/;
$line =~ s/\(meta(\S+), (0)\)/\(meta$1, super[$2]\)/;
$line =~ s/\(meta(\S+), (1)\)/\(meta$1, crap[$2]\)/;
if ($line =~ /\(quota\S+, (\d+)\)/)
{
$qid = (($1 % 2) ? "Group" : "User") . int($1 / 2) . "[$1]";
$line =~ s/\(quota(\S+), \d+\)/\(quota$1, $qid\)/;
}
}
if ($line =~ /gl_flags/)
{
$line =~ s/ (0) / plug[$1] /;
$line =~ s/ (1) / lock[$1] /;
$line =~ s/ (2) / sticky[$1] /;
$line =~ s/ (3) / prefetch[$1]/;
$line =~ s/ (4) / sync[$1] /;
$line =~ s/ (5) / dirty[$1] /;
$line =~ s/ (6) / skip_waiters2[$1] /;
$line =~ s/ (7) / greedy[$1] /;
}
if ($line =~ /state/)
{
$line =~ s/(0)/unlocked[$1]/;
$line =~ s/(1)/exclusive[$1]/;
$line =~ s/(2)/deferred[$1]/;
$line =~ s/(3)/shared[$1]/;
}
if ($line =~ /gh_flags/)
{
$line =~ s/ (0) / try[$1] /;
$line =~ s/ (1) / try_1cb[$1] /;
$line =~ s/ (2) / noexp[$1] /;
$line =~ s/ (3) / any[$1] /;
$line =~ s/ (4) / priority[$1] /;
$line =~ s/ (5) / local_excl[$1] /;
$line =~ s/ (6) / async[$1] /;
$line =~ s/ (7) / exact[$1] /;
$line =~ s/ (8) / skip[$1] /;
$line =~ s/ (9) / atime[$1] /;
$line =~ s/ (10) / nocache[$1] /;
$line =~ s/ (11) / sync[$1] /;
$line =~ s/ (12) / nocancel[$1] /;
}
if ($line =~ /gh_iflags/)
{
$line =~ s/ (0) / mutex[$1] /;
$line =~ s/ (1) / promote[$1] /;
$line =~ s/ (2) / demote[$1] /;
$line =~ s/ (3) / greedy[$1] /;
$line =~ s/ (4) / alloced[$1] /;
$line =~ s/ (5) / dealloc[$1] /;
$line =~ s/ (6) / holder[$1] /;
$line =~ s/ (7) / first[$1] /;
$line =~ s/ (8) / recurse[$1] /;
$line =~ s/ (9) / aborted[$1] /;
}
if ($line =~ /owner/)
{
$line =~ s/(-1)/none[$1]/;
}
if ($line =~ /type/)
{
$line =~ s/(0)/none[$1]/;
$line =~ s/(1)/regular[$1]/;
$line =~ s/(2)/directory[$1]/;
$line =~ s/(5)/symbolic link[$1]/;
$line =~ s/(7)/block device[$1]/;
$line =~ s/(8)/character device[$1]/;
$line =~ s/(101)/fifo[$1]/;
$line =~ s/(102)/socket[$1]/;
}
if ($line =~ /i_flags/)
{
$line =~ s/ (0) / qd_locked[$1] /;
$line =~ s/ (1) / paged[$1] /;
$line =~ s/ (2) / sw_paged[$1] /;
}
$locks[$ln] .= $line;
$ln++ if ($nosort);
}
close(FILE);
}
@locks = sort funky @locks unless ($nosort);
foreach $lock (@locks)
{
print $lock;
}
sub funky
{
my($a_iopen, $b_iopen) = (0, 0);
my($a_locked, $b_locked) = (0, 0);
my($a_queued, $b_queued) = (0, 0);
my($a_unlocked, $b_unlocked) = (0, 0);
$a_iopen = 1 if ($a =~ /iopen/);
$b_iopen = 1 if ($b =~ /iopen/);
$a_locked = 1 if ($a =~ /gl_flags.*lock.*\n/);
$b_locked = 1 if ($b =~ /gl_flags.*lock.*\n/);
$a_queued = 1 if ($a =~ /Request/ ||
$a =~ /Holder/ ||
$a =~ /Waiter/);
$b_queued = 1 if ($b =~ /Request/ ||
$b =~ /Holder/ ||
$b =~ /Waiter/);
$a_unlocked = 1 if ($a =~ /gl_state.*unlocked.*\n/);
$b_unlocked = 1 if ($b =~ /gl_state.*unlocked.*\n/);
return ($a_iopen <=> $b_iopen) if ($a_iopen != $b_iopen);
return -($a_locked <=> $b_locked) if ($a_locked != $b_locked);
return -($a_queued <=> $b_queued) if ($a_queued != $b_queued);
return ($a_unlocked <=> $b_unlocked) if ($a_unlocked != $b_unlocked);
return 0;
}

File Metadata

Mime Type
text/x-perl
Expires
Sat, Jan 25, 5:52 AM (20 h, 1 m)
Storage Engine
blob
Storage Format
Raw Data
Storage Handle
1321448
Default Alt Text
decipher_lockstate_dump (4 KB)

Event Timeline