[Feature]Upload Modem source code
Change-Id: Id4294f30faced84d3e6fd6d5e61e1111bf287a37
diff --git a/mcu/tools/init/copy_attrib.pl b/mcu/tools/init/copy_attrib.pl
new file mode 100644
index 0000000..ceef109
--- /dev/null
+++ b/mcu/tools/init/copy_attrib.pl
@@ -0,0 +1,33 @@
+use strict;
+use Time::HiRes qw(stat);
+
+my $input = $ARGV[0];
+my $output = $ARGV[1];
+
+if (! -e $input)
+{
+ die "Fail to find input: $input";
+}
+elsif(! -e $output)
+{
+ die "Fail to find output: $output";
+}
+
+my @st_in = stat($input);
+if (@st_in)
+{
+ my $permit = $st_in[2] & 07777;
+ my $atime = int($st_in[8]);
+ if ($st_in[8] > $atime)
+ {
+ $atime += 1;
+ }
+ my $mtime = int($st_in[9]);
+ if ($st_in[9] > $mtime)
+ {
+ $mtime += 1;
+ }
+ chmod($permit, $output);
+ utime($atime, $mtime, $output);
+}
+