Re^4: How to set $ENV{'DISPLAY'} variable programatically?

[nysus]

Sorry, here is the script that I use to create an EventRepository object which extends my FFMech class (see OP for that code).

#!/usr/bin/perl
package Mech;
$ENV{'DISPLAY'} = ':3.0';
use Modern::Perl;
use EventRepository2;

my $er = EventRepository2->new(display => 0, fast_mode => 1, launch =>
+ ['firefox', '-P', "CCAgenda", '-rep', '4244'], repl => 'localhost:42
+44');
$er->get ('http://slashdot.org');
$er->mySendKeys("^(l)slashdottiejksdjf");

When I run this code, I get the error noted in my last post.

[Anonymous Monk]

BEGIN{ $ENV{'DISPLAY'} = ':3.0' }

[nysus]

Yes, that worked! I also had to change require back to use for loading EventRepository2 class.

.

This will probably work good enough, but the holy grail would be able to do something as illustrated with the code below. The code doesn't work but you get the idea of what I'm trying to do. I'd like each object to be able to set which display it's on:

#!/usr/bin/perl
package Mech;
BEGIN { $ENV{'DISPLAY'} = ':3.0'; unshift @INC, "/home/perl/perl-lib";
+ }
use Modern::Perl;
use EventRepository2;

my $er = EventRepository2->new(display => 0, fast_mode => 1, launch =>
+ ['firefox', '-P', "Profile1", '-rep', '4244'], repl => 'localhost:42
+44');
$er->get ('http://slashdot.org');
$er->mySendKeys("^(l)slashdottiejksdjf");

$ENV{'DISPLAY'} = ':2.0';

my $er = EventRepository2->new(fast_mode => 1, launch => ['firefox', '
+-P', "Profile2", '-rep', '4242'], repl => 'localhost:4242');
$er->get ('http://nyt.com');
$er->mySendKeys("^(l)calendarie");

$ENV{'DISPLAY'} = ':1.0';

my $er = EventRepository2->new(fast_mode => 1, launch => ['firefox', '
+-P', "Profile3", '-rep', '4243'], repl => 'localhost:4243');
$er->get ('http://digg.com');
$er->mySendKeys("^(l)diggie");

[Anonymous Monk]

Try  require EventRepository2;

[nysus]

Thanks. The program at least runs now but I'm getting a Too late to run INIT block at /usr/lib/x86_64-linux-gnu/perl5/5.2/X11/GUITest.pm So I'm guessing X11::GUITest isn't getting loaded now.