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
|
#!/usr/bin/perl -w
#
# $Id: callme.pl,v 1.1 1998/08/24 13:54:57 kas Exp $
#
# This script dials a given number and then re-plays the message.
# Use "vm shell -S /usr/bin/perl callme.pl number message.rmd"
# for calling the "number" and playing the "message.rmd".
#
# Copyright (c) 1998 Jan "Yenya" Kasprzak <kas@fi.muni.cz>. All rights
# reserved. This package is free software; you can redistribute it and/or
# modify it under the same terms as Perl itself.
#
use Modem::Vgetty;
my $v = new Modem::Vgetty;
die "Usage: callme.pl number message.rmd" if $#ARGV != 1;
$v->device('DIALUP_LINE')
$v->add_handler('BUSY_TONE', 'finish',
sub { $v->stop; exit 0; });
$v->enable_events;
$v->dial($ARGV[0]);
$v->waitfor('READY');
$v->play_and_wait($ARGV[1]);
1;
|
