asterisk users - Feb 2004 - Playing GSM files(s)

I know this is not a perl user list but it has to do with something I'm
trying to get working with Asterisk. I'm trying to create an AGI script
that can play all files in a directory. Hopefully get it to the point
where the user can hit '2' to continue and 'anyotherkey' to
exit.
This is what I have so far.... Any ideas?

#!/usr/bin/perl

use Asterisk::AGI;

$AGI = new Asterisk::AGI;

my %input = $AGI->ReadParse();
my $directory = '/var/lib/asterisk/test';
my $file =0;

{
opendir(DIR, $directory) || die "can't opendir $directory: $!";
foreach grep {/^msg} readdir(DIR) $file="$message";

close DIR;
}
print "STREAM FILE $message";


I know it's sloppy I need serious perl lessons, can anyone give some
advice?

Try this Perl subroutine to get an alphabetic list of all files, excluding
the "dot" files, and excluding sub-directories:

use DirHandle;

sub justthefiles {
   my $dir = shift;
   my $dh = DirHandle->new($dir)   or die "can't opendir $dir:
$!";
   return sort                     # sort pathnames
          grep {    -f     }       # choose only "plain" files
          map  { "$dir/$_" }       # create full paths
          grep {  !/^\./   }       # filter out dot files
          $dh->read();             # read all entries
}

---------------------------

Call it like:

# get the list of files to be processed:
my @dirlist = justthefiles($directoryname);   # reads into an array

---------------------------
Use like this:

for each $file (@dirlist) {
	blah blah;
}

Hope this helps!
Scott


Scott M. Stingel 
Emerging Voice Technology Inc.

Email:          scott@evtmedia.com <mailto:scott@evtmedia.com>   
URL:            www.evtmedia.com <http://www.evtmedia.com>   



-----Original Message-----
From: asterisk-users-admin@lists.digium.com
[mailto:asterisk-users-admin@lists.digium.com] On Behalf Of Juan Cardenas
Sent: Thursday, February 12, 2004 3:54 PM
To: Asterisk-Users@lists.digium.com
Subject: [Asterisk-Users] Playing GSM files(s)


I know this is not a perl user list but it has to do with something I'm
trying to get working with Asterisk. I'm trying to create an AGI script
that can play all files in a directory. Hopefully get it to the point
where the user can hit '2' to continue and 'anyotherkey' to
exit.
This is what I have so far.... Any ideas?

#!/usr/bin/perl

use Asterisk::AGI;

$AGI = new Asterisk::AGI;

my %input = $AGI->ReadParse();
my $directory = '/var/lib/asterisk/test';
my $file =0;

{
opendir(DIR, $directory) || die "can't opendir $directory: $!";
foreach grep {/^msg} readdir(DIR) $file="$message";

close DIR;
}
print "STREAM FILE $message";


I know it's sloppy I need serious perl lessons, can anyone give some
advice?


_______________________________________________
Asterisk-Users mailing list
Asterisk-Users@lists.digium.com
http://lists.digium.com/mailman/listinfo/asterisk-users
To UNSUBSCRIBE or update options visit:
   http://lists.digium.com/mailman/listinfo/asterisk-users