#!/usr/bin/perl
########################################################################
#
# $Id: csv24xls,v 1.3 2025/02/01 14:43:09 gosha Exp $
#
########################################################################
use strict;

my $from = $ARGV[0];
my $to = $ARGV[1];

my $tmp_to = $to;
$tmp_to =~ s#.*/([^/]+)$#tmp-$1#;

chdir('/opt/VirtualPBX/tmp');

if (  $to =~ /xls$/  ) {
	system "libreoffice --headless --convert-to xls --infilter='csv:44,34,UTF8' $from --outdir .";
} elsif (  $to =~ /xlsx$/  ) {
	system "libreoffice --headless --convert-to xlsx --infilter='csv:44,34,UTF8' $from --outdir .";
} else {
	system "libreoffice --headless --convert-to 'csv:Text - txt - csv (StarCalc):44,34,76,1,1/1' $from --outdir .";
}

if ( -e $tmp_to ) {
	system("mv $tmp_to $to");
}
