Révision 17f78427
Whitespace cleanup
- remove trailing whitespace
- remove empty lines at the end of files
| plugins/swap/swapspace-info | ||
|---|---|---|
| 44 | 44 |
|
| 45 | 45 |
=head1 LICENSE |
| 46 | 46 |
|
| 47 |
GPL 2.
|
|
| 47 |
GPL 2. |
|
| 48 | 48 |
|
| 49 | 49 |
=cut |
| 50 | 50 |
|
| ... | ... | |
| 87 | 87 |
my %VMinfo; |
| 88 | 88 |
|
| 89 | 89 |
# --- Fetch VM info --- |
| 90 |
foreach my $count (0..12)
|
|
| 90 |
foreach my $count (0..12) |
|
| 91 | 91 |
{
|
| 92 | 92 |
# |
| 93 | 93 |
# The values are counters that increment each second, here we |
| ... | ... | |
| 97 | 97 |
foreach my $var ("swap_avail","swap_alloc","swap_free")
|
| 98 | 98 |
{
|
| 99 | 99 |
$VMnow{$var} = $Kstat->{unix}->{0}->{vminfo}->{$var};
|
| 100 |
unless ($count)
|
|
| 100 |
unless ($count) |
|
| 101 | 101 |
{
|
| 102 | 102 |
$VMold{$var} = $VMnow{$var};
|
| 103 | 103 |
next; |
| 104 | 104 |
} |
| 105 |
if (($VMnow{$var} != $VMold{$var}) && (! $VMinfo{$var}))
|
|
| 105 |
if (($VMnow{$var} != $VMold{$var}) && (! $VMinfo{$var}))
|
|
| 106 | 106 |
{
|
| 107 | 107 |
$VMinfo{$var} = $VMnow{$var} - $VMold{$var};
|
| 108 | 108 |
} |
| 109 |
}
|
|
| 109 |
} |
|
| 110 | 110 |
select(undef, undef, undef, 0.1); |
| 111 | 111 |
$Kstat->update(); |
| 112 | 112 |
} |
| ... | ... | |
| 152 | 152 |
"Unalloc ", |
| 153 | 153 |
"Avail ", |
| 154 | 154 |
"\n"; |
| 155 |
|
|
| 155 |
|
|
| 156 | 156 |
print "Alloc.label Alloc \n"; |
| 157 | 157 |
print "Alloc.draw \n"; |
| 158 | 158 |
print "Alloc.info Swap used.\n"; |
Formats disponibles : Unified diff