lib/PXElator/x11.pm

package x11;

use warnings;
use strict;

use log;
use File::Slurp;

my @cols;

my $last_col = '';
open(my $rgb, '<', '/etc/X11/rgb.txt');
while(<$rgb>) {
        chomp;
        my $col = $1 if m{(\S+)\s*$};
        next unless $col =~ m{Light};
        push @cols, $col if $last_col ne $col;
        $last_col = $col;
}
close($rgb);

sub xterm {
        my ( $name, $cmd ) = @_;

        my $screenrc = "/tmp/$name.screenrc";

        my ($autodetach,$detach) = $ENV{DISPLAY} ? ('off','') : ( 'on', 'detach' );

        write_file $screenrc, qq|

autodetach $autodetach
altscreen off
defscrollback 10000
startup_message off

sessionname $name

screen -t $name $cmd
logfile $log::dir/$name.log
log on

$detach

|;

        my $screen = "screen -R $name -c $screenrc";
        my $exec;

        if ( $ENV{DISPLAY} ) {
                my $hash;
                $hash += ord($_) foreach ( split //, $name );
                my $fg = $cols[ $hash % $#cols ];
                $exec = "xterm -fg $fg -T '$name' -n '$name' -e '$screen'";
warn "XXXX $exec";
        } else {
                warn "system $screen";
                system $screen;
                return;
        }

        warn "exec $exec";
        exec $exec;
}

1;
1	package x11;
2
3	use warnings;
4	use strict;
5
6	use log;
7	use File::Slurp;
8
9	my @cols;
10
11	my $last_col = '';
12	open(my $rgb, '<', '/etc/X11/rgb.txt');
13	while(<$rgb>) {
14	chomp;
15	my $col = $1 if m{(\S+)\s*$};
16	next unless $col =~ m{Light};
17	push @cols, $col if $last_col ne $col;
18	$last_col = $col;
19	}
20	close($rgb);
21
22	sub xterm {
23	my ( $name, $cmd ) = @_;
24
25	my $screenrc = "/tmp/$name.screenrc";
26
27	my ($autodetach,$detach) = $ENV{DISPLAY} ? ('off','') : ( 'on', 'detach' );
28
29	write_file $screenrc, qq\|
30
31	autodetach $autodetach
32	altscreen off
33	defscrollback 10000
34	startup_message off
35
36	sessionname $name
37
38	screen -t $name $cmd
39	logfile $log::dir/$name.log
40	log on
41
42	$detach
43
44	\|;
45
46	my $screen = "screen -R $name -c $screenrc";
47	my $exec;
48
49	if ( $ENV{DISPLAY} ) {
50	my $hash;
51	$hash += ord($_) foreach ( split //, $name );
52	my $fg = $cols[ $hash % $#cols ];
53	$exec = "xterm -fg $fg -T '$name' -n '$name' -e '$screen'";
54	warn "XXXX $exec";
55	} else {
56	warn "system $screen";
57	system $screen;
58	return;
59	}
60
61	warn "exec $exec";
62	exec $exec;
63	}
64
65	1;