Parent Directory | Revision Log
one line less ;-)
1 | #!/usr/bin/perl |
2 | use warnings; |
3 | use strict; |
4 | |
5 | use IO::Socket; |
6 | |
7 | my $d = $ENV{DISPLAY}; |
8 | $d =~ s/^:(\d+).*$/$1/; |
9 | 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 | my $msg = '0 widget_tell dwm-status foobar'; |
16 | |
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); |
Name | Value |
---|---|
svn:executable | * |
ViewVC Help | |
Powered by ViewVC 1.1.26 |