4 1,"CDR import successful',<% $cdr_batch->cdrbatchnum %>,"<% $cdrbatch %>"
9 unless $FS::CurrentUser::CurrentUser->access_right('Import');
16 my $filename = $cgi->param('cdr_file');
17 unless ( $filename ) {
18 $error = "No cdr_file filename";
22 my $fh = $cgi->upload('cdr_file');
23 unless ( defined($fh) ) {
24 $error = 'No cdr_file file';
28 #i should probably be transactionalized.
30 my $csv = new Text::CSV_XS or die Text::CSV->error_diag;
32 my $cdrbatch = time2str('post-%Y/%m/%d-%T'. "-$$-". rand() * 2**32, time);
33 $cdr_batch = new FS::cdr_batch { 'cdrbatch' => $cdrbatch };
34 $error = $cdr_batch->insert and last;
36 chomp(my $hline = scalar(<$fh>));
38 my @header = $csv->fields;
40 #while ( my $row = $csv->getline($fh) ) {
44 my @row = $csv->fields;
46 my $cdr = new FS::cdr { 'cdrbatchnum' => $cdr_batch->cdrbatchnum };
47 $cdr->set( lc($_) => shift(@row) ) foreach @header;
49 $error = $cdr->insert and last;