From de8f24ea083384bb66b32ec105dc4743c5663cdf Mon Sep 17 00:00:00 2001 From: beck <> Date: Wed, 29 Sep 1999 04:37:45 +0000 Subject: OpenSSL 0.9.4 merge --- src/lib/libcrypto/util/ssldir.pl | 52 ---------------------------------------- 1 file changed, 52 deletions(-) delete mode 100644 src/lib/libcrypto/util/ssldir.pl (limited to 'src/lib/libcrypto/util/ssldir.pl') diff --git a/src/lib/libcrypto/util/ssldir.pl b/src/lib/libcrypto/util/ssldir.pl deleted file mode 100644 index 10584686da..0000000000 --- a/src/lib/libcrypto/util/ssldir.pl +++ /dev/null @@ -1,52 +0,0 @@ -#!/usr/bin/perl - -$#ARGV == 0 || die "usage: ssldir.pl /new/path\n"; -@files=('crypto/cryptlib.h', - 'Makefile.ssl', - 'tools/c_rehash', - 'util/mk1mf.pl', - ); - -%cryptlib=( - '\sX509_CERT_AREA\s',"#define X509_CERT_AREA\t\t".'"%s"', - '\sX509_CERT_DIR\s', "#define X509_CERT_DIR\t\t".'"%s/certs"', - '\sX509_CERT_FILE\s', "#define X509_CERT_FILE\t\t".'"%s/cert.pem"', - '\sX509_PRIVATE_DIR\s',"#define X509_PRIVATE_DIR\t".'"%s/private"', - ); - -%Makefile_ssl=( - '^INSTALLTOP=','INSTALLTOP=%s', - ); - -%c_rehash=( - '^DIR=', 'DIR=%s', - ); - -%mk1mf=( - '^$INSTALLTOP=','$INSTALLTOP="%s";', - ); - -&dofile("crypto/cryptlib.h",$ARGV[0],%cryptlib); -&dofile("Makefile.ssl",$ARGV[0],%Makefile_ssl); -&dofile("tools/c_rehash",$ARGV[0],%c_rehash); -&dofile("util/mk1mf.pl",$ARGV[0],%mk1mf); - -sub dofile - { - ($f,$p,%m)=@_; - - open(IN,"<$f") || die "unable to open $f:$!\n"; - @a=; - close(IN); - foreach $k (keys %m) - { - grep(/$k/ && ($_=sprintf($m{$k}."\n",$p)),@a); - } - ($ff=$f) =~ s/\..*$//; - open(OUT,">$ff.new") || die "unable to open $f:$!\n"; - print OUT @a; - close(OUT); - rename($f,"$ff.old") || die "unable to rename $f\n"; - rename("$ff.new",$f) || die "unable to rename $ff.new\n"; - } - -- cgit v1.2.3-55-g6feb