/[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 69 by dpavlin, Mon Feb 18 21:33:37 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;

Legend:
Removed from v.68  
changed lines
  Added in v.69

  ViewVC Help
Powered by ViewVC 1.1.26