Parent Directory | Revision Log | 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; |
|
ViewVC Help | |
Powered by ViewVC 1.1.26 |