Révision 17f78427
Whitespace cleanup
- remove trailing whitespace
- remove empty lines at the end of files
| plugins/battery/batteries | ||
|---|---|---|
| 1 | 1 |
#!/usr/bin/perl -w |
| 2 |
# -*- perl -*-
|
|
| 2 |
# -*- perl -*- |
|
| 3 | 3 |
|
| 4 | 4 |
=head1 NAME |
| 5 | 5 |
|
| ... | ... | |
| 35 | 35 |
#%# family=power |
| 36 | 36 |
#%# capabilities=autoconf |
| 37 | 37 |
|
| 38 |
=head1 VERSION
|
|
| 38 |
=head1 VERSION |
|
| 39 | 39 |
|
| 40 | 40 |
1.0 |
| 41 | 41 |
|
| 42 |
=head1 BUGS
|
|
| 42 |
=head1 BUGS |
|
| 43 | 43 |
|
| 44 | 44 |
None known. |
| 45 | 45 |
|
| ... | ... | |
| 219 | 219 |
} |
| 220 | 220 |
|
| 221 | 221 |
|
| 222 |
my $graphs =
|
|
| 222 |
my $graphs = |
|
| 223 | 223 |
{
|
| 224 | 224 |
'batteryes_capacity' => { 'vlabel' => 'Capacity, Ah', 'title' => '%s capacity', 'args' => '--base 1000',
|
| 225 | 225 |
'fields' => [qw/design_capacity last_full_capacity design_capacity_low design_capacity_warning capacity_granularity_1 capacity_granularity_2 remaining_capacity/] }, |
| ... | ... | |
| 231 | 231 |
'fields' => [qw/present_rate/] } |
| 232 | 232 |
}; |
| 233 | 233 |
|
| 234 |
my $fields =
|
|
| 234 |
my $fields = |
|
| 235 | 235 |
{
|
| 236 | 236 |
'design_capacity' => { 'source' => 'both', 'draw' => 'AREA' , 'label' => 'Design capacity' , 'info' => 'Battery design capacity' },
|
| 237 | 237 |
'last_full_capacity' => { 'source' => 'both', 'draw' => 'AREA' , 'label' => 'Last full capacity' , 'info' => 'Battery full charge capacity' },
|
| ... | ... | |
| 250 | 250 |
|
| 251 | 251 |
# ------------------------------------ start here ----------------------------------- |
| 252 | 252 |
|
| 253 |
if (defined($ARGV[0]) and ($ARGV[0] eq 'autoconf'))
|
|
| 253 |
if (defined($ARGV[0]) and ($ARGV[0] eq 'autoconf')) |
|
| 254 | 254 |
{
|
| 255 | 255 |
printf("%s\n", (-e $proc_path or -e $sys_path) ? "yes" : "no ($proc_path and $sys_path not exists)");
|
| 256 | 256 |
exit (0); |
Formats disponibles : Unified diff