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