Anonymous

public text v1 · immutable

#250365

·published 2006-11-16 22:06 UTC

#!/usr/bin/perl
use strict;
my $i = 0;
my $file = "extensions";
open(EXTEN, $file) || die("Couldn't open $file");
my @myexten=<EXTEN>;
close(EXTEN);

foreach (@myexten) {

  print qq!($i,'$_','','','','\"Irene Cohen\" <$_>','yes','ny-internal','','','','','dynamic','','','7001',NULL,'',NULL,NULL,NULL,NULL,'',NULL,NULL,NULL,NULL,NULL,'friend','','all','ulaw',NULL,0,'','','yes')!
  $i++;
}