/[scripts]/trunk/awesome-client.pl
This is repository of my old source code which isn't updated any more. Go to git.rot13.org for current projects!
ViewVC logotype

Diff of /trunk/awesome-client.pl

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 68 by dpavlin, Mon Feb 18 16:22:13 2008 UTC revision 72 by dpavlin, Mon Mar 24 13:16:57 2008 UTC
# Line 5  use strict; Line 5  use strict;
5  use IO::Socket;  use IO::Socket;
6    
7  my $d = $ENV{DISPLAY};  my $d = $ENV{DISPLAY};
8  $d =~ s/^://;  $d =~ s/^:(\d+).*$/$1/;
 $d =~ s/^(\d+)\..*/$1/;  
9  my $path = "$ENV{HOME}/.awesome_ctl.$d";  my $path = "$ENV{HOME}/.awesome_ctl.$d";
10    
11  die "$path doesn't exist!\n" unless -e $path;  die "$path doesn't exist!\n" unless -e $path;
12    
13  warn "# using sock $path\n";  warn "# using sock $path\n";
14    
15  my $msg = '0 widget_tell dwm-status foobar';  my $msg = '0 widget_tell dwm-status text foobar';
16    
17  my $sock = IO::Socket::UNIX->new(  my $sock = IO::Socket::UNIX->new(
18          Type  => SOCK_DGRAM,          Type  => SOCK_DGRAM,
Legend:
Removed from v.68  
changed lines
  Added in v.72
  ViewVC Help
Powered by ViewVC 1.1.26