--- trunk/dwm-status.pl	2007/06/14 11:56:26	39
+++ trunk/dwm-status.pl	2008/01/18 19:10:10	59
@@ -56,7 +56,7 @@
 
 find_proc_acpi('battery', sub {
 	my $bat = shift;
-	return unless $bat =~ /BAT/;
+	return unless $bat =~ /\w+/;
 
 	warn "# testing battery $bat\n" if ( $debug );
 
@@ -74,7 +74,7 @@
 	my @units = qw/b k M G/;
 	my $o = 0;
 
-	while ( ( $v / 1024 ) >= 1 ) {
+	while ( ( $v / 10000 ) >= 1 ) {
 		$o++;
 		$v /= 1024;
 	}
@@ -94,6 +94,7 @@
 
 my $i = 0;
 
+
 while ( 1 ) {
 	my $s = strftime("%Y-%m-%d %H:%M:%S", localtime());
 
@@ -177,7 +178,7 @@
 	my $d_write = ( $d_w - $ld_w ) / $dt;
 	( $ld_r, $ld_w ) = ( $d_r, $d_w );
 
-	printf("%s | %s |%5s D %-5s|%5s > %-5s| %s%s\n",
+	my $out = sprintf("%s | %s |%5s D %-5s|%5s > %-5s| %s%s\n",
 		$s,
 		$load,
 		unit( $d_read ), unit( $d_write ),
@@ -185,6 +186,8 @@
 		$bat, $temp,
 	);
 
+	print $out;
+
 	sleep $dt;
 }