Something

public text v1 · immutable

#250402

·published 2006-11-16 22:48 UTC

#!/usr/bin/perl
use strict;
my $i = 0;
my $file = "extensions";
open(EXTEN, $file) || die("Couldn't open $file");
chomp(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++;
}