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) = @_;
###
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 );