diff options
| author | ryker <> | 1998-10-05 20:13:15 +0000 |
|---|---|---|
| committer | ryker <> | 1998-10-05 20:13:15 +0000 |
| commit | 536c76cbb863bab152f19842ab88772c01e922c7 (patch) | |
| tree | dfecec371a097b73d605aae665887946d9982219 /src/lib/libcrypto/util/perlpath.pl | |
| download | openbsd-536c76cbb863bab152f19842ab88772c01e922c7.tar.gz openbsd-536c76cbb863bab152f19842ab88772c01e922c7.tar.bz2 openbsd-536c76cbb863bab152f19842ab88772c01e922c7.zip | |
Import of SSLeay-0.9.0b with RSA and IDEA stubbed + OpenBSD build
functionality for shared libs.
Note that routines such as sslv2_init and friends that use RSA will
not work due to lack of RSA in this library.
Needs documentation and help from ports for easy upgrade to full
functionality where legally possible.
Diffstat (limited to '')
| -rw-r--r-- | src/lib/libcrypto/util/perlpath.pl | 30 |
1 files changed, 30 insertions, 0 deletions
diff --git a/src/lib/libcrypto/util/perlpath.pl b/src/lib/libcrypto/util/perlpath.pl new file mode 100644 index 0000000000..9e57e10ad4 --- /dev/null +++ b/src/lib/libcrypto/util/perlpath.pl | |||
| @@ -0,0 +1,30 @@ | |||
| 1 | #!/usr/bin/perl | ||
| 2 | # | ||
| 3 | # modify the '#!/usr/local/bin/perl' | ||
| 4 | # line in all scripts that rely on perl. | ||
| 5 | # | ||
| 6 | |||
| 7 | require "find.pl"; | ||
| 8 | |||
| 9 | $#ARGV == 0 || print STDERR "usage: perlpath newpath (eg /usr/bin)\n"; | ||
| 10 | &find("."); | ||
| 11 | |||
| 12 | sub wanted | ||
| 13 | { | ||
| 14 | return unless /\.pl$/ || /^[Cc]onfigur/; | ||
| 15 | |||
| 16 | open(IN,"<$_") || die "unable to open $dir/$_:$!\n"; | ||
| 17 | @a=<IN>; | ||
| 18 | close(IN); | ||
| 19 | |||
| 20 | $a[0]="#!$ARGV[0]/perl\n"; | ||
| 21 | |||
| 22 | # Playing it safe... | ||
| 23 | $new="$_.new"; | ||
| 24 | open(OUT,">$new") || die "unable to open $dir/$new:$!\n"; | ||
| 25 | print OUT @a; | ||
| 26 | close(OUT); | ||
| 27 | |||
| 28 | rename($new,$_) || die "unable to rename $dir/$new:$!\n"; | ||
| 29 | chmod(0755,$_) || die "unable to chmod $dir/$new:$!\n"; | ||
| 30 | } | ||
