Miscellany

public text v1 · immutable

#250360

·published 2006-11-16 21:58 UTC

#!/usr/bin/perl
use strict;

my $file = "extensions";
open(EXTEN, $file) || die("Couldn't open $file");
my @myexten=<EXTEN>;
close(EXTEN);

foreach (@myexten) {
	print qw!(4,'$_','','','','\"Irene Cohen\" <$_>','yes','ny-internal','','','','','dynamic','','','7001',NULL,'',NULL,NULL,NULL,NULL,'',NULL,NULL,NULL,NULL,NULL,'friend','','all','ulaw',NULL,0,'','','yes')!
}