From 2e915f90c35f3a2e567dfdcde95569ed9cf934e1 Mon Sep 17 00:00:00 2001 From: Mark Wells Date: Tue, 8 Apr 2014 15:50:41 -0700 Subject: [PATCH] adjust Amcom CDR format, #27946 --- FS/FS/cdr/amcom.pm | 2 +- FS/bin/freeside-cdr-sftp_and_import | 6 +++++- 2 files changed, 6 insertions(+), 2 deletions(-) diff --git a/FS/FS/cdr/amcom.pm b/FS/FS/cdr/amcom.pm index 5967d7b30..774d1e617 100644 --- a/FS/FS/cdr/amcom.pm +++ b/FS/FS/cdr/amcom.pm @@ -30,7 +30,7 @@ my ($tmp_mday, $tmp_mon, $tmp_year); my ($cdr, $date) = @_; $date =~ /^(\d{2})(\d{2})(\d{4})$/ or die "unparseable date: $date"; - ($tmp_mday, $tmp_mon, $tmp_year) = ($1, $2-1, $3); + ($tmp_mday, $tmp_mon, $tmp_year) = ($1, $2, $3); }, sub { # 7. Start Time (HHMMSS) my ($cdr, $time) = @_; diff --git a/FS/bin/freeside-cdr-sftp_and_import b/FS/bin/freeside-cdr-sftp_and_import index aa1b3942c..7208c9752 100755 --- a/FS/bin/freeside-cdr-sftp_and_import +++ b/FS/bin/freeside-cdr-sftp_and_import @@ -161,7 +161,11 @@ foreach my $filename ( @$ls ) { ### sub usage { - "Usage: \n cdr.import user format servername\n"; + "Usage: + cdr.sftp_and_import [ -m method ] [ -p prefix ] [ -e extension ] + [ -r remotefolder ] [ -d donefolder ] [ -v level ] [ -P port ] + [ -a ] [ -g ] [ -s ] [ -c cdrtypenum ] user format [sftpuser@]servername + "; } use vars qw( $sftp $ftp ); -- 2.11.0