Menu
▾
▴
Re: [Expectperl-discuss] Strange problem when using "Expect::interconnect"
|
From: David B. <dav...@at...> - 2003-03-18 00:01:51
|
It's difficult to be absolute given the possibilities. I noticed your forcing sane mode . . But that might not be it since you only see it when you toggle logging. . . hmm..You might want to test the possibility that your fork code is involved. Might be causing unexpected behaviour. Should be an easy test. I'd try $telnet->log_file() or just use perl to open without forking and see if the behaviour remains. Might simplify the code. Also you could try examining running processes to see if something unusual is appearing when you notice the echoing. On Mon, 2003-03-17 at 16:40, db...@CT... wrote: > ----- Forwarded by David Basham/ctcnet on 03/17/2003 04:50 PM ----- > > "Kemp, Donald" <dk...@em...> > Sent by: To: > exp...@li...urc "'exp...@li...'" > eforge.net <exp...@li...> > cc: > Subject: [Expectperl-discuss] Strange problem > 03/13/2003 08:43 AM when using "Expect::interconnect" > > > > > > > Hi, > I have a problem I do not understand ..... I am using Expect to interact > between a Router and a user. This router is accessed by telnetting to one > router and then using this router to Dial the second Router. Having connect > to the second router I then "interact" with it using the code below > (interact_code). One of the things that you can do when in this mode is to > "enable" a logging facility (ctlr-x l). If "logging" in NOT enabled, then > you see only one copy of what you type, i.e. if you typed "show" you see > "show". However if "logging" IS enabled then you see 2 copies of everything > you type, i.e. if you typed "show" you see "sshhooww". What I do not > understand is why? > > Sub-Routine Interact > sub interact { > my $telnet = shift; > my $fh; > my $ec; > > $fh=IO::File->new; > $fh->fdopen(fileno(STDIN),"r"); > > my $outfile = new IO::File; > $outfile->IO::File::fdopen(STDOUT,'w'); > > while (1) { > my $in_object = Expect-> exp_init($fh); > my $out_object = Expect-> exp_init($outfile); > $out_object-> manual_stty(1); > if ($_logfile) { > $telnet-> set_group($out_object,$_logfile); > } > else { > $telnet-> set_group($out_object); > } > $in_object-> set_group($telnet); > $in_object-> set_seq > ($ConfigData::escape_character,undef); > $telnet-> manual_stty(1); > Expect::interconnect($telnet,$in_object); > $in_object -> set_group(undef); > > print $telnet " \010"; # make the next test > work... > # if there is something > waiting in > # the handle after we > are writing > # some nonsense to it, > # it is not closed. :-) > if (Expect::test_handles(0,$telnet)) { > #print STDERR "\n*** CONNECTION CLOSED > ***\n"; > last; # connection is > closed, exit > # HEY, THIS REALLY > WORKS!!! > } > > system "stty", '-icanon', 'eol', "\001"; > $char = getc; > system "stty", 'icanon', 'eol', '^@'; # ASCII > null > print "\010 \010"; > if ($char eq '?' || $char eq 'h') { > &hotkey_help($telnet); > } > elsif ($char eq 'l') { > &logging($telnet); > } > elsif ($char eq 'q') { > last; > } > } > system "stty", 'sane'; # clean up; this can > not hurt > } > > Sub-Routine Logging > sub logging { > my $telnet = shift; > my $logfilename = shift; > > if ($_logfilehandle) { > $telnet-> set_group(undef); > close $_logfilehandle; > print STDERR "\n*** Logging to $_logfilename disabled. > ***\n"; > undef($_logfile); > undef($_logfilename); > undef($_logfilehandle); > print $telnet "\r"; > return; > } > > if (!$logfilename) { > $_logfilename = sprintf > "/tmp/log-%s-%s-%s",$routername, > &Perm::get_user_name, > &POSIX::strftime > ("%Y%m%d-%H:%M:%S",localtime(time)); > > # if it was defined but empty, use the default and > don't > ask. > if (!defined($logfilename)) { > print STDERR "\n*** Log to which file? > ". > "Enter file name or hit > Enter to > accept". > "\n*** the default file > name: > $_logfilename\n"; > my $input = <STDIN>; > chomp($input); > if ($input) { > $input =~ /^(.*?)$/; > $_logfilename = $1; > } > } > } > else { > $_logfilename = $logfilename; > } > > my $pid = fork(); > if ($pid > 0) { > waitpid(0,$pid); > select(undef, undef, undef, 0.25); # sleep > for 1/4 > second > } > elsif ($pid == 0) { # create the log file > as the real > user... > $EFFECTIVE_USER_ID = $REAL_USER_ID; > local (*F); > open F,">$_logfilename"; > close F; > chmod 0660,$_logfilename; > exit 1; > } > $_logfilehandle = new IO::File $_logfilename, > O_WRONLY|O_APPEND|O_CREAT; > > if (!$_logfilehandle) { > print STDERR "*** Can not log to $_logfilename,\n*** > $!\n"; > return; > } > print STDERR "*** Logging to $_logfilename\n"; > $_logfile = Expect-> exp_init($_logfilehandle); > $_logfile-> manual_stty(1); > $telnet-> set_group($_logfilehandle); > $telnet-> log_group(1); > print $telnet "\r"; > } > > > A second query I have is when I terminate the connection to the second > router (issue "exit") the modem gives me "NO CARRIER", is it possible to > detect this in the "interact" sub-routine?? > > > Best Regards, > Donald.E.S.Kemp > AT&T Labs > Network Management Solutions, > Building 6000, Langstone Technology Park, > Langstone Road, Havant, Hampshire, > United Kingdom, > PO9 1SA > Phone: +44(0)23 9222 8424 > email: dk...@em... > > This message and any attachments to it contain confidential business > information exclusively intended for the recipients. Please do not forward > or distribute it to anyone else. If you have received this e-mail in error, > please call [+44 (0)23 92228424] to report the error and then delete this > message from your system. > > > > > > > > ------------------------------------------------------- > This SF.net email is sponsored by:Crypto Challenge is now open! > Get cracking and register here for some mind boggling fun and > the chance of winning an Apple iPod: > http://ads.sourceforge.net/cgi-bin/redirect.pl?thaw0031en > _______________________________________________ > Expectperl-discuss mailing list > Exp...@li... > https://lists.sourceforge.net/lists/listinfo/expectperl-discuss > > > |
