diff options
author | Mark Wells <mark@freeside.biz> | 2013-02-08 11:02:16 -0800 |
---|---|---|
committer | Mark Wells <mark@freeside.biz> | 2013-02-08 11:02:16 -0800 |
commit | 576bec49a5433f1c141caa2f01d82ad239805bff (patch) | |
tree | 71d48fb2ac5033929906a559667816576bbdce57 /FS/bin | |
parent | 6ef0d344462736b9bc1782caccc6305f946632c7 (diff) |
file format quirk, #18333
Diffstat (limited to 'FS/bin')
-rw-r--r-- | FS/bin/freeside-ipifony-download | 11 |
1 files changed, 6 insertions, 5 deletions
diff --git a/FS/bin/freeside-ipifony-download b/FS/bin/freeside-ipifony-download index 837cc33..12c2dc6 100644 --- a/FS/bin/freeside-ipifony-download +++ b/FS/bin/freeside-ipifony-download @@ -9,6 +9,7 @@ use FS::UID qw(adminsuidsetup); use FS::Record qw(qsearch qsearchs); use FS::cust_main; use FS::Conf; +use File::Copy qw(copy); use Text::CSV; my %opt; @@ -159,11 +160,6 @@ FILE: foreach my $filename (@$files) { } open my $fh, "<$tmpdir/$filename"; - my $header = <$fh>; - if ($header !~ /^"cust_id"/) { - warn "warning: $filename has incorrect header row:\n$header\n"; - # but try anyway - } my $csv = Text::CSV->new; # orthodox CSV my %hash; while (my $line = <$fh>) { @@ -172,6 +168,11 @@ FILE: foreach my $filename (@$files) { next FILE; }; @hash{@fields} = $csv->fields(); + if ( $hash{custnum} =~ /^cust/ ) { + # there appears to be a header row + print STDERR "skipping header row\n" if $opt{v}; + next; + } my $cust_main = $cust_main{$hash{custnum}} ||= FS::cust_main->by_key($hash{custnum}); if (!$cust_main) { |