Parent Directory | Revision Log
simple awesome-client port to perl
1 | #!/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 |