Parent Directory | Revision Log | Patch
revision 59 by dpavlin, Fri Jan 18 19:10:10 2008 UTC | revision 67 by dpavlin, Fri Feb 15 22:01:01 2008 UTC | |
---|---|---|
# | Line 16 my $acpi_every = 10; | Line 16 my $acpi_every = 10; |
16 | my $disk_blk_size = 512; | my $disk_blk_size = 512; |
17 | ||
18 | my $debug = shift @ARGV; | my $debug = shift @ARGV; |
19 | my $awesome = 1; | |
20 | ||
21 | $|=1; | $|=1; |
22 | ||
# | Line 187 while ( 1 ) { | Line 188 while ( 1 ) { |
188 | ); | ); |
189 | ||
190 | print $out; | print $out; |
191 | if ( $awesome ) { | |
192 | open(my $fh, '|-', 'awesome-client') || die "can't pipe to awesome-client: $!"; | |
193 | print $fh "0 widget_tell dwm-status $out\n"; | |
194 | close($fh); | |
195 | } | |
196 | ||
197 | sleep $dt; | sleep $dt; |
198 | } | } |
|
ViewVC Help | |
Powered by ViewVC 1.1.26 |