default.pl

VoiFax is a program that manage voice/data/fax modem in the same manner of vgetty and mgetty.VoiFax

#!/usr/bin/perl
use Modem::Vgetty;

#$Modem::Vgetty::testing = 1;

sub create_temp_char {
	my $char = "";
	$char = rand(62) + 1;
	if ($char < 10) {
		$char = chr($char + ord('0'));
	} elsif (($char >= 10) && ($char < 36)) {
		$char = chr($char - 10 + ord('a'));
	} else {
		$char = chr($char - 36 + ord('A'));
	}
	return $char;
}

sub create_temp_name {
	my $template = shift;
	my $index = 0;
	my $tempfilename = "";
	my $wildcard = "X";

	$tempfilename = $template;
	
	for ($index = 0; $index < length($template); $index++)
	{
		if (substr($template,$index,1) eq $wildcard) {
			substr($tempfilename,$index,1) = create_temp_char(); }
	}

	return $tempfilename;
}

$v = new Modem::Vgetty;

$voice_dir = '/var/spool/voice/';
$incoming_dir = $voice_dir."incoming/";
$message_dir = $voice_dir."messages/";
$flagfile = ".flag";
$file_voicetemplate = 'v-XXXXX-XXXXXXXXXXXXXXXX.rmd';

$v->add_handler('BUSY_TONE', 'busytone', sub { $v->stop; $v->shutdown; exit 0; } );
$v->add_handler('DATA_CALLING_TONE', 'datacall', sub { $v->stop; $v->shutdown; exit 2; } );
$v->add_handler('DATA_OR_FAX_DETECTED', 'dataorfaxcall', sub { $v->stop; $v->shutdown; exit 1; } );
$v->add_handler('FAX_CALLING_TONE', 'faxcall', sub { $v->stop; $v->shutdown; exit 1; } );

$v->enable_events;

$v->play_and_wait($message_dir."standard.rmd");
$v->beep(880, 3);
$v->waitfor('READY');
$tempfilename = create_temp_name($file_voicetemplate);  
$v->record($incoming_dir.$tempfilename);

$v->shutdown();

exit 0;