1 |
dpavlin |
68 |
#!/usr/bin/perl |
2 |
|
|
use warnings; |
3 |
|
|
use strict; |
4 |
|
|
|
5 |
|
|
use IO::Socket; |
6 |
|
|
|
7 |
|
|
my $d = $ENV{DISPLAY}; |
8 |
dpavlin |
69 |
$d =~ s/^:(\d+).*$/$1/; |
9 |
dpavlin |
68 |
my $path = "$ENV{HOME}/.awesome_ctl.$d"; |
10 |
|
|
|
11 |
|
|
die "$path doesn't exist!\n" unless -e $path; |
12 |
|
|
|
13 |
|
|
warn "# using sock $path\n"; |
14 |
|
|
|
15 |
dpavlin |
72 |
my $msg = '0 widget_tell dwm-status text foobar'; |
16 |
dpavlin |
68 |
|
17 |
|
|
my $sock = IO::Socket::UNIX->new( |
18 |
|
|
Type => SOCK_DGRAM, |
19 |
|
|
Peer => $path, |
20 |
|
|
) or die "Socket: $!"; |
21 |
|
|
|
22 |
|
|
my $peer = sockaddr_un($path); |
23 |
|
|
|
24 |
|
|
$msg .= "\n" . 0x00; |
25 |
|
|
|
26 |
|
|
send($sock, $msg,0,$peer) or die "Couldn't send(): $!"; |
27 |
|
|
|
28 |
|
|
close($sock); |