view g23m/system/busyb/tools/save_files.pl @ 9:7ee1a8f57933

RVT changes for AT channel support backported from FreeCalypso GSM fw
author Space Falcon <falcon@ivan.Harhan.ORG>
date Mon, 01 Jun 2015 19:02:17 +0000
parents 509db1a7b7b8
children
line wrap: on
line source

#!perl -w
use strict;
use File::Copy;
use File::Glob ':glob';

# define global variables
my $outCmdFile;
my $inPPFile;
my $cmdFile;
my $outDir;
my @cmdFiles;

# check command line
(@ARGV == 2) || die "To few/much parameters !\n";

$outCmdFile = $ARGV[0]; # a full filename
$inPPFile =  $ARGV[1];  # a full filename

# get the output directory from the first parameter
if ($ARGV[0] =~ /(.*)(\\|\/)/ ) {
  $outDir = $1;
  }
else {
  $outDir = ".";
}

#copy the *.pp file to it's new location
copy($inPPFile,$outDir ) || print "Could not copy $cmdFile to $outCmdFile!\n";

# find the original cmd file
@cmdFiles = bsd_glob("$outDir/*.cmd");
if (@cmdFiles != 1) {
  print "More/less than one cmd file found !\n";
  exit;
}
$cmdFile = $cmdFiles[0];

#copy (and rename) the cmd file to it's new location
copy($cmdFile,$outCmdFile ) || print "Could not copy $cmdFile to $outCmdFile!\n";