add_door.pl

add_door.pl

#!/usr/bin/perl -w
use warnings;
use X11::GUITest qw/:ALL/;

my $doorct = $ARGV[0];
my $doorname = $ARGV[1];
my $doorkey = $ARGV[2];
my $doorcmd = $ARGV[3];
StartApp('dosbox');
my ($win) = WaitWindowViewable('dosbox');
if (!$win) { die; };
my @session = ( "{#}", "m17\n", "c", "i$doorct\n\n", "m$doorct\n1",
"{BAC 20}", "$doorname\n", "2", "{BAC 15}", "{[}$doorkey"."{]} $doorname\n",
"3", "{BAC 3}$doorkey\n", "5DG\n", "6G:\\RG\\DOOR.BAT {%}N {%}O $doorcmd\n",
"q", "q", "q", "q", "q", "\nexit\n" );
my $ct;
foreach my $cmd (@session) {
    if ( $ct == 0 ) {
      WaitSeconds(5);
      } else {
      WaitSeconds(.5);
    }
    SendKeys($cmd);
    $ct++;
};