100 |
my $s = strftime("%Y-%m-%d %H:%M:%S", localtime()); |
my $s = strftime("%Y-%m-%d %H:%M:%S", localtime()); |
101 |
|
|
102 |
if ( $i % $acpi_every == 0 ) { |
if ( $i % $acpi_every == 0 ) { |
103 |
if ( $proc_acpi_battery ) { |
if ( -e $sys_fs ) { |
104 |
|
|
105 |
|
my $full = read_file( "$sys_fs/charge_full" ); |
106 |
|
my $now = read_file( "$sys_fs/charge_now" ); |
107 |
|
$bat = sprintf("%2d%% | ", $now * 100 / $full ); |
108 |
|
|
109 |
|
} elsif ( $proc_acpi_battery ) { |
110 |
|
|
111 |
my $state = proc2hash( "$proc_acpi_battery/state" ); |
my $state = proc2hash( "$proc_acpi_battery/state" ); |
112 |
|
|
130 |
$state->{'present rate'} / 1000 |
$state->{'present rate'} / 1000 |
131 |
); |
); |
132 |
} |
} |
|
} elsif ( -e $sys_fs ) { |
|
|
my $full = read_file( "$sys_fs/charge_full" ); |
|
|
my $now = read_file( "$sys_fs/charge_now" ); |
|
|
$bat = sprintf("%2d%% | ", $now * 100 / $full ); |
|
133 |
} |
} |
134 |
} else { |
} else { |
135 |
$bat =~ s/!(\|\s)$/ $1/; |
$bat =~ s/!(\|\s)$/ $1/; |