expectperl-discuss Mailing List for Expect.pm

I have a small problem with expect.pm. I am using expect module to create pgp 
keys with my pgp program. The problem is since expect just enters the data with 
constant time, pgp cannot doesn't collect enough random data and that's why 
cannot create the keys instantly and requires user to enter some random data 
from the keyboard. I tried to print some long random text but pgp doesn't get 
any of it. I think it requires the random data to be inputted from the 
keyboard. Is there any way to do that? Any help would be appreciated. Thanks in 
advance. 

note to the admin: you can discard my previous email from 
ai...@lu.... Thank you. 

here is my code: 

#!/usr/bin/perl 
# deneme.pl -- my first perl script! 



use Expect; 

#optional debugging 
$Expect::Debug=1; 
$Expect::Exp_Internal=1; 
$Expect::Log_Stdout=0; #on by default 


$keytype = 2; 
$keysize = 1; 
$expire = 0; 
$name = 'aziz'; 
$email = 'chi...@ho...'; 
$passphrase = 'vasdfasdfi;iejfaekajsdcm,.xzmnaijd;fkdfadjf;kfjajf'; 
$defaultsignkey = 'n '; 
$randomtext = 
';asf;j9u9243rk;nfmnamsfdoiajh;dfadjfkadj;fiwu4riow34234lkjaljdfkajdf;23j;rkjakjfkadj;flajj;akdjf;ei'; 

($pgp = Expect->spawn("pgp -kg")) || die "Couldn't spawn pgp, $!"; 

unless ($pgp->expect(10,"Choose 1 or 2: ")) { 
    die "never got algorithm prompt ".$pgp->exp_error()."\n"; 
} 

print $pgp "$keytype\r"; 

unless ($pgp->expect(10,"Choose 1, 2, or enter desired number of bits: ")) { 
    die "never got keysize prompt ".$pgp->exp_error()."\n"; 
} 

print $pgp "$keysize\r"; 

unless ($pgp->expect(10,"Enter a user ID for your public key: ")) { 
    die "never got user ID prompt ".$pgp->exp_error()."\n"; 
} 

print $pgp "$name <$email>\r"; 

unless ($pgp->expect(2," (the default is 0): ")) { 
    die "never got validity period prompt ".$pgp->exp_error()."\n"; 
} 

print $pgp "$expire\r"; 

unless ($pgp->expect(2,"Enter pass phrase: ")) { 
    die "never got pass phrase prompt ".$pgp->exp_error()."\n"; 
} 

print $pgp "$passphrase\r"; 

unless ($pgp->expect(2," pass phrase again:")) { 
    die "never got second  pass phrase prompt ".$pgp->exp_error()."\n"; 
} 

print $pgp "$passphrase\r"; 

if ($pgp->expect(10," required data ")) { 
    print $pgp "$randomtext"; 
    print $pgp "$randomtext"; 
} 


unless ($pgp->expect(2," (Y/n) ")) { 
    die "never got the default signing key prompt".$pgp->exp_error()."\n"; 
} 

print $pgp "$defaultsignkey\r"; 

Simon Taylor wrote:
> 
> Bryan,
> 
> > I've been banging my head off the wall trying to figure out why interact
> > doesn't recognize the escape sequence on Linux.  Thus far, the only
> > results are holes in both my head and the wall, so I'd appreciate any
> > insight into the issue.
> 
> I tried your test code and got the same results. I also tried a few changes
> but to no avail. See this email in the Expectperl-discuss archives archives:
> 
>     http://www.geocrawler.com/archives/3/4369/2001/4/0/5491735/
> 
> as I think the problem you're having with interact() is the same as the one I
> encountered.

Yes, there is a bug with the interact escape sequence which is solved by
the patch mentioned in that message.  It will be fixed in the next
release,
which is overdue, but I still have to find a free day to do it. :-(

> P.S. Anyone associated with Expectperl going to the Perl 5 conference?
> If so, why don't we set up a BOF session?

Sorry, definitely not me, but if you manage to get a discussion with
some BOFs going, I'd be very interested in criticism, enhancement
suggestions and the lot.  Up to now, my only feedback has been
some bug reports and FAQs...

Cheers!

Roland
--
RGi...@cp...

Bryan,

> I've been banging my head off the wall trying to figure out why interact
> doesn't recognize the escape sequence on Linux.  Thus far, the only
> results are holes in both my head and the wall, so I'd appreciate any
> insight into the issue.

I tried your test code and got the same results. I also tried a few changes 
but to no avail. See this email in the Expectperl-discuss archives archives:

    http://www.geocrawler.com/archives/3/4369/2001/4/0/5491735/

as I think the problem you're having with interact() is the same as the one I
encountered.

Regards,

Simon Taylor

P.S. Anyone associated with Expectperl going to the Perl 5 conference?
If so, why don't we set up a BOF session? 

I've been banging my head off the wall trying to figure out why interact 
doesn't recognize the escape sequence on Linux.  Thus far, the only 
results are holes in both my head and the wall, so I'd appreciate any 
insight into the issue.

Thanks in advance.

Bryan

Source script:
#!/usr/bin/perl

use Expect;

my $exp = Expect->spawn("/usr/bin/bc");

print "Version = ", Expect::version(), "\n";

$Expect::Debug = 1;
$exp->debug(3);
$exp->interact(\*STDIN, "\027");

print "Interact exited\n";

Output from script:
Version = 1.11
Initialized STDIN.'
Initialized handle id(6).'
Escape seq. 'v' function for STDIN set to 'CODE(0x836f070)()'
Read handles:
         Read handle: 'spawn id(3)'
                 Listen Handles: 'handle id(6)'.
         Read handle: 'STDIN'
                 Listen Handles: 'spawn id(3)'.
Setting STDIN to tty mode '-g'
Setting tty for STDIN to 'raw -echo'.
Setting STDIN to tty mode 'raw -echo'
Attempting interconnection
interconnect: read 169 byte(s) from spawn id(3).
bc 1.05
Copyright 1991, 1992, 1993, 1994, 1997, 1998 Free Software Foundation, Inc.
This is free software with ABSOLUTELY NO WARRANTY.
For details type `warranty'.
Printed '\027' to spawn id(3) from STDIN.
interconnect: read 1 byte(s) from spawn id(3).
Printed 'q' to spawn id(3) from STDIN.
interconnect: read 1 byte(s) from spawn id(3).
qPrinted 'u' to spawn id(3) from STDIN.
interconnect: read 1 byte(s) from spawn id(3).
uPrinted 'i' to spawn id(3) from STDIN.
interconnect: read 1 byte(s) from spawn id(3).
iPrinted 't' to spawn id(3) from STDIN.
interconnect: read 1 byte(s) from spawn id(3).
tPrinted '\r' to spawn id(3) from STDIN.
interconnect: read 2 byte(s) from spawn id(3).

interconnect: read 1 byte(s) from spawn id(3).
Got EOF (spawn id(3) died) reading spawn id(3)
Setting STDIN to tty mode 
'189:1280:13:35387:5:13:3:28:127:21:4:0:1:17:19:26:0'
Interact exited
Closing handle id(6).
         Expect::soft_close('Expect=GLOB(0x8101ab0)') called at 
/home/systest/lib/perl5/site_perl/5.6.0/Expect.pm line 1458
         Expect::DESTROY('Expect=GLOB(0x8101ab0)') called at 
/home/bryan/t.pl line 0
         require 0 called at /home/bryan/t.pl line 

I've been banging my head off the wall trying to figure out why interact 
doesn't recognize the escape sequence on Linux.  Thus far, the only 
results are holes in both my head and the wall, so I'd appreciate any 
insight into the issue.

Thanks in advance.

Bryan

Source script:
#!/usr/bin/perl

use Expect;

my $exp = Expect->spawn("/usr/bin/bc");

print "Version = ", Expect::version(), "\n";

$Expect::Debug = 1;
$exp->debug(3);
$exp->interact(\*STDIN, "\027");

print "Interact exited\n";

Output from script:
Version = 1.11
Initialized STDIN.'
Initialized handle id(6).'
Escape seq. 'v' function for STDIN set to 'CODE(0x836f070)()'
Read handles:
         Read handle: 'spawn id(3)'
                 Listen Handles: 'handle id(6)'.
         Read handle: 'STDIN'
                 Listen Handles: 'spawn id(3)'.
Setting STDIN to tty mode '-g'
Setting tty for STDIN to 'raw -echo'.
Setting STDIN to tty mode 'raw -echo'
Attempting interconnection
interconnect: read 169 byte(s) from spawn id(3).
bc 1.05
Copyright 1991, 1992, 1993, 1994, 1997, 1998 Free Software Foundation, Inc.
This is free software with ABSOLUTELY NO WARRANTY.
For details type `warranty'.
Printed '\027' to spawn id(3) from STDIN.
interconnect: read 1 byte(s) from spawn id(3).
Printed 'q' to spawn id(3) from STDIN.
interconnect: read 1 byte(s) from spawn id(3).
qPrinted 'u' to spawn id(3) from STDIN.
interconnect: read 1 byte(s) from spawn id(3).
uPrinted 'i' to spawn id(3) from STDIN.
interconnect: read 1 byte(s) from spawn id(3).
iPrinted 't' to spawn id(3) from STDIN.
interconnect: read 1 byte(s) from spawn id(3).
tPrinted '\r' to spawn id(3) from STDIN.
interconnect: read 2 byte(s) from spawn id(3).

interconnect: read 1 byte(s) from spawn id(3).
Got EOF (spawn id(3) died) reading spawn id(3)
Setting STDIN to tty mode 
'189:1280:13:35387:5:13:3:28:127:21:4:0:1:17:19:26:0'
Interact exited
Closing handle id(6).
         Expect::soft_close('Expect=GLOB(0x8101ab0)') called at 
/home/systest/lib/perl5/site_perl/5.6.0/Expect.pm line 1458
         Expect::DESTROY('Expect=GLOB(0x8101ab0)') called at 
/home/bryan/t.pl line 0
         require 0 called at /home/bryan/t.pl line 0