1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
|
diff -ru ./ChangeLog ../../vocp/prog/dependencies//Modem-Vgetty-0.04/ChangeLog
--- ./ChangeLog 1998-09-08 05:22:41.000000000 -0700
+++ ../../vocp/prog/dependencies//Modem-Vgetty-0.04/ChangeLog 2016-02-20 18:42:43.907834512 -0800
@@ -1,7 +1,9 @@
-$Id: ChangeLog,v 1.4 1998/09/08 12:22:41 kas Exp $
+$Id: ChangeLog,v 1.2 2003/02/05 06:29:46 ceezed Exp $
This is a ChangeLog file for the Modem::Vgetty Perl module.
+
+
Tue Sep 8 12:07:03 MET DST 1998 by kas
Added the description of the callme.pl script to the manpage.
diff -ru ./Makefile.PL ../../vocp/prog/dependencies//Modem-Vgetty-0.04/Makefile.PL
--- ./Makefile.PL 1998-07-10 11:41:51.000000000 -0700
+++ ../../vocp/prog/dependencies//Modem-Vgetty-0.04/Makefile.PL 2016-02-20 18:42:43.907834512 -0800
@@ -1,5 +1,5 @@
#
-# $Id: Makefile.PL,v 1.1 1998/07/10 18:41:51 kas Exp $
+# $Id: Makefile.PL,v 1.1 2003/02/03 21:25:43 ceezed Exp $
#
# Copyright (c) 1998 Jan "Yenya" Kasprzak <kas@fi.muni.cz>. All rights
# reserved. This package is free software; you can redistribute it and/or
diff -ru ./README ../../vocp/prog/dependencies//Modem-Vgetty-0.04/README
--- ./README 1998-09-08 05:22:41.000000000 -0700
+++ ../../vocp/prog/dependencies//Modem-Vgetty-0.04/README 2016-02-20 18:42:43.907834512 -0800
@@ -1,4 +1,11 @@
-$Id: README,v 1.4 1998/09/08 12:22:41 kas Exp $
+$Id: README,v 1.2 2003/02/03 21:26:16 ceezed Exp $
+
+This version of Modem::Vgetty has been modified to fix certain issues with
+logging to an unopened filehandle and shutting down needlessly on DESTROY.
+The author has been notified on a few occasions but a response has yet to
+arrive.
+Modifications by Patrick Deegan, Psychogenic.com.
+
The Modem::Vgetty module is a Perl interface to the vgetty program,
which can be used for communication with the voice modems. Vgetty
diff -ru ./Vgetty.pm ../../vocp/prog/dependencies//Modem-Vgetty-0.04/Vgetty.pm
--- ./Vgetty.pm 1998-09-08 05:22:42.000000000 -0700
+++ ../../vocp/prog/dependencies//Modem-Vgetty-0.04/Vgetty.pm 2016-02-21 01:22:41.488108339 -0800
@@ -1,5 +1,5 @@
#
-# $Id: Vgetty.pm,v 1.13 1998/09/08 12:22:42 kas Exp $
+# $Id: Vgetty.pm,v 1.1 2003/02/03 21:25:43 ceezed Exp $
#
# Copyright (c) 1998 Jan "Yenya" Kasprzak <kas@fi.muni.cz>. All rights
# reserved. This package is free software; you can redistribute it and/or
@@ -16,7 +16,7 @@
use vars qw($testing $log_file $VERSION);
-$VERSION='0.03';
+$VERSION='0.04';
$testing = 0;
$log_file = '/var/log/voicelog';
@@ -99,7 +99,7 @@
sub expect {
my $self = shift;
- $self->{LOG}->print("expecting: ", (join '|', @_), "\n");
+ $self->{LOG}->print("expecting: ", (join '|', @_), "\n") if ($testing > 0);
my $received = $self->receive || return undef;
for my $expected (@_) {
return $received if $received eq $expected;
@@ -133,8 +133,7 @@
# Initial chat
sub init {
my $self = shift;
-# $self->chat ('HELLO SHELL', 'HELLO VOICE PROGRAM', 'READY');
- $self->chat ('HELLO SHELL', 'HELLO VOICE PROGRAM');
+ $self->chat ('HELLO SHELL', 'HELLO VOICE PROGRAM', 'READY');
return $self;
}
@@ -151,6 +150,7 @@
sub shutdown {
my $self = shift;
+ $self->{'_shutdownDone'} = 1;
$self->chat ('', 'GOODBYE', 'GOODBYE SHELL');
$self->{IN}->close;
$self->{OUT}->close;
@@ -159,7 +159,7 @@
sub DESTROY {
my $self = shift;
- $self->shutdown;
+ $self->shutdown unless ($self->{'_shutdownDone'});
}
sub enable_events {
@@ -174,8 +174,8 @@
sub beep {
my $self = shift;
- my $freq = shift;
- my $len = shift;
+ my $freq = shift || ''; # optional
+ my $len = shift || ''; # optional
$self->chat ('', "BEEP $freq $len", 'BEEPING');
}
@@ -281,7 +281,7 @@
if ($dtmf eq '#') { # Stop the reading now.
$_readnum_in_timeout = 0;
$self->stop;
- $self->{LOG}->print("_readnum_event(): Got #; stopping\n");
+ $self->{LOG}->print("_readnum_event(): Got #; stopping\n") if $testing;
return;
}
$_readnum_number .= $dtmf;
|