Parent Directory | Revision Log
one line less ;-)
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 | 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 |