--- trunk/dwm-status.pl	2008/01/10 20:11:42	57
+++ trunk/dwm-status.pl	2008/03/24 13:26:30	73
@@ -8,7 +8,7 @@
 use POSIX qw/strftime/;
 use File::Slurp;
 use Time::HiRes;
-eval "use Data::Dump qw/dump/;";
+use Data::Dump qw/dump/;
 
 my $dt = 3;
 my $acpi_every = 10;
@@ -16,8 +16,7 @@
 my $disk_blk_size = 512;
 
 my $debug = shift @ARGV;
-
-my $awesome = 0;
+my $awesome = 1;
 
 $|=1;
 
@@ -96,10 +95,6 @@
 
 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());
@@ -192,10 +187,11 @@
 		$bat, $temp,
 	);
 
+	print $out;
 	if ( $awesome ) {
-		print $awesome "0 statusbar_set_text $out";
-	} else {
-		print $out;
+		open(my $fh, '|-', 'awesome-client') || die "can't pipe to awesome-client: $!";
+		print $fh "0 widget_tell dwm-status text $out\n";
+		close($fh);
 	}
 
 	sleep $dt;