--- trunk/dwm-status.pl	2007/10/02 16:10:08	55
+++ trunk/dwm-status.pl	2008/01/10 20:11:42	57
@@ -8,9 +8,7 @@
 use POSIX qw/strftime/;
 use File::Slurp;
 use Time::HiRes;
-eval {
-	use Data::Dump qw/dump/;
-};
+eval "use Data::Dump qw/dump/;";
 
 my $dt = 3;
 my $acpi_every = 10;
@@ -19,6 +17,8 @@
 
 my $debug = shift @ARGV;
 
+my $awesome = 0;
+
 $|=1;
 
 sub proc2hash {
@@ -58,7 +58,7 @@
 
 find_proc_acpi('battery', sub {
 	my $bat = shift;
-	return unless $bat =~ /BAT/;
+	return unless $bat =~ /\w+/;
 
 	warn "# testing battery $bat\n" if ( $debug );
 
@@ -96,6 +96,11 @@
 
 my $i = 0;
 
+if ( $awesome ) {
+	undef $awesome;
+	open( $awesome, '|-', 'awesome-client' ) || die "can't open awesome-client: $!";
+}
+
 while ( 1 ) {
 	my $s = strftime("%Y-%m-%d %H:%M:%S", localtime());
 
@@ -179,7 +184,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 ),
@@ -187,6 +192,12 @@
 		$bat, $temp,
 	);
 
+	if ( $awesome ) {
+		print $awesome "0 statusbar_set_text $out";
+	} else {
+		print $out;
+	}
+
 	sleep $dt;
 }