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
|
#!/usr/bin/perl
use lib './lib', '../lib';
use Asterisk::Voicemail;
use Data::Dumper;
my $vm = new Asterisk::Voicemail;
$vm->readconfig();
$vm->spooldirectory('/tmp/vm');
print "Spool directory: " . $vm->spooldirectory() . "\n";
#($pass, $fn, $email) = $vm->vmbox('1234');
#print "VM $pass $fn $email\n";
#print Dumper $vm;
$vm->createdefaultmailbox('9999');
$vm->createdefaultmailbox('1234');
print $vm->validmailbox('9999') . "\n";
print $vm->validmailbox('1234') . "\n";
print $vm->validmailbox('5555') . "\n";
print "COUNT: " . $vm->msgcount('1234','INBOX') . "\n";
print $vm->msgcountstr('1234','INBOX') . "\n";
|
