Add SSL_SESSION_set1_master_key()
[openssl.git] / util / copy.pl
1 #! /usr/bin/env perl
2 # Copyright 2005-2016 The OpenSSL Project Authors. All Rights Reserved.
3 #
4 # Licensed under the OpenSSL license (the "License").  You may not use
5 # this file except in compliance with the License.  You can obtain a copy
6 # in the file LICENSE in the source distribution or at
7 # https://www.openssl.org/source/license.html
8
9
10 use Fcntl;
11
12
13 # copy.pl
14
15 # Perl script 'copy' comment. On Windows the built in "copy" command also
16 # copies timestamps: this messes up Makefile dependencies.
17
18 my $stripcr = 0;
19
20 my $arg;
21
22 foreach $arg (@ARGV) {
23         if ($arg eq "-stripcr")
24                 {
25                 $stripcr = 1;
26                 next;
27                 }
28         $arg =~ s|\\|/|g;       # compensate for bug/feature in cygwin glob...
29         foreach (glob qq("$arg"))
30                 {
31                 push @filelist, $_;
32                 }
33 }
34
35 $fnum = @filelist;
36
37 if ($fnum <= 1)
38         {
39         die "Need at least two filenames";
40         }
41
42 $dest = pop @filelist;
43
44 if ($fnum > 2 && ! -d $dest)
45         {
46         die "Destination must be a directory";
47         }
48
49 foreach (@filelist)
50         {
51         if (-d $dest)
52                 {
53                 $dfile = $_;
54                 $dfile =~ s|^.*[/\\]([^/\\]*)$|$1|;
55                 $dfile = "$dest/$dfile";
56                 }
57         else
58                 {
59                 $dfile = $dest;
60                 }
61         sysopen(IN, $_, O_RDONLY|O_BINARY) || die "Can't Open $_";
62         sysopen(OUT, $dfile, O_WRONLY|O_CREAT|O_TRUNC|O_BINARY)
63                                         || die "Can't Open $dfile";
64         while (sysread IN, $buf, 10240)
65                 {
66                 if ($stripcr)
67                         {
68                         $buf =~ tr/\015//d;
69                         }
70                 syswrite(OUT, $buf, length($buf));
71                 }
72         close(IN);
73         close(OUT);
74         print "Copying: $_ to $dfile\n";
75         }
76
77