Modem::Vgetty problem

Moe Pitman (mpitman@uni-market.com)
Tue, 17 Aug 1999 19:39:43 GMT


Does anyone on the list use the Perl module Modem::Vgetty with a US
Robotics modem?  I keep getting a "Use of uninitialized value" error,
and I don't know how to to trace it out.  After that, the modem stops
responding.  I've created the simplest script I can, and still get the
error.

TIA for any help or direction you can give; here's the data:

Slackware 4.0, kernel 2.2.10
mgetty 1.1.21

call_program:
------------------------------------------
#!/usr/bin/perl -w
use Modem::Vgetty;
my $v = new Modem::Vgetty;
$v->play('/var/spool/voice/messages/welcome');
$v->waitfor('READY');
$v->shutdown;
------------------------------------------

vm.log shows NOTHING for this call.

vgetty log: (Follows RING, read config)
------------------------------------------
08/17 14:12:01 yS0   vgetty: entering voice mode
08/17 14:12:01 yS0   vgetty: Installing signal handlers
08/17 14:12:01 yS0   voice command: 'AT#CLS?' -> ''
08/17 14:12:01 yS0    vgetty: AT#CLS?
08/17 14:12:01 yS0    US Robotics: AT#CLS?
08/17 14:12:01 yS0    US Robotics: 2.0
08/17 14:12:01 yS0   voice command: '' -> 'OK'
08/17 14:12:01 yS0    US Robotics: OK
08/17 14:12:01 yS0   voice command: 'AT#CLS=8' -> 'OK'
08/17 14:12:01 yS0    vgetty: AT#CLS=8
08/17 14:12:01 yS0    US Robotics: AT#CLS=8
08/17 14:12:01 yS0    US Robotics: OK
08/17 14:12:01 yS0   voice command: 'AT' -> 'OK'
08/17 14:12:01 yS0    vgetty: AT
08/17 14:12:01 yS0    US Robotics: AT
08/17 14:12:01 yS0    US Robotics: OK
08/17 14:12:01 yS0   voice command:
'AT#VTD=3F,3F,3F#VSD=1#VSS=1#VSP=40#VRA=70#VRN=100' -> 'OK'
08/17 14:12:02 yS0    vgetty:
AT#VTD=3F,3F,3F#VSD=1#VSS=1#VSP=40#VRA=70#VRN=100
08/17 14:12:02 yS0    US Robotics:
AT#VTD=3F,3F,3F#VSD=1#VSS=1#VSP=40#VRA=70#VRN=100
08/17 14:12:02 yS0    US Robotics: OK
08/17 14:12:02 yS0   voice command: 'AT#VLS=0A' -> 'VCON'
08/17 14:12:02 yS0    vgetty: AT#VLS=0A
08/17 14:12:02 yS0    US Robotics: AT#VLS=0A
08/17 14:12:02 yS0    US Robotics: VCON
08/17 14:12:02 yS0    vgetty: queued event RESET_WATCHDOG at position
0001
08/17 14:12:02 yS0   voice command: 'AT#VLS=0' -> 'OK|VCON'
08/17 14:12:02 yS0    vgetty: AT#VLS=0
08/17 14:12:02 yS0    vgetty: unqueued event RESET_WATCHDOG at position
0001
08/17 14:12:02 yS0    vgetty: voice_handle_event got event
RESET_WATCHDOG with data <_>
08/17 14:12:02 yS0    US Robotics: AT#VLS=0
08/17 14:12:02 yS0    US Robotics: OK
08/17 14:12:02 yS0  vgetty: Executing shell script
/usr/local/vgetty/quick.pl with shell /usr/bin/perl
08/17 14:12:02 yS0    vgetty: opening pipes
08/17 14:12:02 yS0    vgetty: forking shell
08/17 14:12:02 yS0   vgetty(0): HELLO SHELL
08/17 14:12:03 yS0    vgetty: Got pipe signal
08/17 14:12:03 yS0    vgetty: queued event SIGNAL_SIGPIPE at position
0002
08/17 14:12:03 yS0    vgetty: unqueued event SIGNAL_SIGPIPE at position
0002
08/17 14:12:03 yS0    vgetty: voice_handle_event got event
SIGNAL_SIGPIPE with data <_>
08/17 14:12:03 yS0    vgetty: Got pipe signal
08/17 14:12:03 yS0    vgetty: queued event SIGNAL_SIGPIPE at position
0003
08/17 14:12:03 yS0   shell(1): HELLO VOICE PROGRAM
08/17 14:12:03 yS0   vgetty(1): READY
08/17 14:12:03 yS0   vgetty: initialized communication
08/17 14:12:03 yS0    vgetty: unqueued event SIGNAL_SIGPIPE at position
0003
08/17 14:12:03 yS0    vgetty: voice_handle_event got event
SIGNAL_SIGPIPE with data <_>
08/17 14:12:03 yS0   shell(1): PLAY /var/spool/voice/messages/welcome
08/17 14:12:03 yS0   vgetty(1): PLAYING
08/17 14:12:03 yS0  playing voice file /var/spool/voice/messages/welcome

08/17 14:12:03 yS0   vgetty: raw modem data header found
08/17 14:12:03 yS0   vgetty: modem type US Robotics found
08/17 14:12:03 yS0   vgetty: compression method 0x0001, speed 8000, bits
8
08/17 14:12:03 yS0    vgetty: queued event RESET_WATCHDOG at position
0004
08/17 14:12:03 yS0    vgetty: unqueued event RESET_WATCHDOG at position
0004
08/17 14:12:03 yS0    vgetty: voice_handle_event got event
RESET_WATCHDOG with data <_>
08/17 14:12:03 yS0   voice command: 'AT' -> 'OK'
08/17 14:12:03 yS0    vgetty: AT
08/17 14:12:03 yS0    US Robotics: Use of uninitialized value at
/usr/lib/perl5/site_perl/Modem/Vgetty.pm line 113, <GEN0> chunk 3.
08/17 14:12:03 yS0  vgetty: Modem did not echo the command
08/17 14:12:03 yS0    US Robotics: AT
08/17 14:12:04 yS0    US Robotics: OK
08/17 14:12:04 yS0  vgetty: start_play_file command failed
08/17 14:12:04 yS0   vgetty(1): ERROR
08/17 14:12:04 yS0   vgetty(1): READY
08/17 14:12:04 yS0    vgetty: Got pipe signal
08/17 14:12:04 yS0    vgetty: queued event SIGNAL_SIGPIPE at position
0005
08/17 14:12:04 yS0    vgetty: unqueued event SIGNAL_SIGPIPE at position
0005
08/17 14:12:04 yS0    vgetty: voice_handle_event got event
SIGNAL_SIGPIPE with data <_>
08/17 14:12:04 yS0   shell(1): GOODBYE
08/17 14:12:04 yS0   vgetty(1): GOODBYE SHELL
08/17 14:12:04 yS0    vgetty: Got pipe signal
08/17 14:12:04 yS0    vgetty: queued event SIGNAL_SIGPIPE at position
0006
08/17 14:12:04 yS0    vgetty: unqueued event SIGNAL_SIGPIPE at position
0006
08/17 14:12:04 yS0    vgetty: voice_handle_event got event
SIGNAL_SIGPIPE with data <_>
08/17 14:12:04 yS0   shell(1):
08/17 14:12:04 yS0  could not read from shell
08/17 14:12:04 yS0  vgetty: Could not handle event, something failed
--
---------------------------------------------------------------



--
--Moe Pitman
Three-Sixteen Technical Services, Inc.
Linux Training in Austin, Texas!
http://training.three-sixteen.com/