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 ) { |
my $sysfs_path = glob "$sys_fs/*_full"; |
104 |
|
if ( $sysfs_path ) { |
105 |
|
|
106 |
|
my $full = read_file( $sysfs_path ); |
107 |
|
$sysfs_path =~ s/_full/_now/; |
108 |
|
my $now = read_file( $sysfs_path ); |
109 |
|
$bat = sprintf("%2d%% | ", $now * 100 / $full ); |
110 |
|
|
111 |
|
} elsif ( $proc_acpi_battery ) { |
112 |
|
|
113 |
my $state = proc2hash( "$proc_acpi_battery/state" ); |
my $state = proc2hash( "$proc_acpi_battery/state" ); |
114 |
|
|
132 |
$state->{'present rate'} / 1000 |
$state->{'present rate'} / 1000 |
133 |
); |
); |
134 |
} |
} |
|
} 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 ); |
|
135 |
} |
} |
136 |
} else { |
} else { |
137 |
$bat =~ s/!(\|\s)$/ $1/; |
$bat =~ s/!(\|\s)$/ $1/; |