Current Dir: /snap/core22/2955/usr/bin/
[FILE] aa-enabled [ edit | delete | rename ]
[FILE] aa-exec [ edit | delete | rename ]
[FILE] aa-features-abi [ edit | delete | rename ]
[FILE] addpart [ edit | delete | rename ]
[FILE] arch [ edit | delete | rename ]
[FILE] awk [ edit | delete | rename ]
[FILE] b2sum [ edit | delete | rename ]
[FILE] base32 [ edit | delete | rename ]
[FILE] base64 [ edit | delete | rename ]
[FILE] basename [ edit | delete | rename ]
[FILE] basenc [ edit | delete | rename ]
[FILE] bash [ edit | delete | rename ]
[FILE] bashbug [ edit | delete | rename ]
[FILE] bootctl [ edit | delete | rename ]
[FILE] bunzip2 [ edit | delete | rename ]
[FILE] busctl [ edit | delete | rename ]
[FILE] bzcat [ edit | delete | rename ]
[FILE] bzcmp [ edit | delete | rename ]
[FILE] bzdiff [ edit | delete | rename ]
[FILE] bzegrep [ edit | delete | rename ]
[FILE] bzexe [ edit | delete | rename ]
[FILE] bzfgrep [ edit | delete | rename ]
[FILE] bzgrep [ edit | delete | rename ]
[FILE] bzip2 [ edit | delete | rename ]
[FILE] bzip2recover [ edit | delete | rename ]
[FILE] bzless [ edit | delete | rename ]
[FILE] bzmore [ edit | delete | rename ]
[FILE] captoinfo [ edit | delete | rename ]
[FILE] cat [ edit | delete | rename ]
[FILE] chage [ edit | delete | rename ]
[FILE] chardet [ edit | delete | rename ]
[FILE] chardetect [ edit | delete | rename ]
[FILE] chattr [ edit | delete | rename ]
[FILE] chcon [ edit | delete | rename ]
[FILE] chfn [ edit | delete | rename ]
[FILE] chgrp [ edit | delete | rename ]
[FILE] chmod [ edit | delete | rename ]
[FILE] choom [ edit | delete | rename ]
[FILE] chown [ edit | delete | rename ]
[FILE] chrt [ edit | delete | rename ]
[FILE] chsh [ edit | delete | rename ]
[FILE] cksum [ edit | delete | rename ]
[FILE] clear [ edit | delete | rename ]
[FILE] clear_console [ edit | delete | rename ]
[FILE] cloud-id [ edit | delete | rename ]
[FILE] cloud-init [ edit | delete | rename ]
[FILE] cloud-init-per [ edit | delete | rename ]
[FILE] cmp [ edit | delete | rename ]
[FILE] comm [ edit | delete | rename ]
[FILE] console-conf [ edit | delete | rename ]
[FILE] core-sshd-host-keygen [ edit | delete | rename ]
[FILE] cp [ edit | delete | rename ]
[FILE] csplit [ edit | delete | rename ]
[FILE] ctstat [ edit | delete | rename ]
[FILE] cut [ edit | delete | rename ]
[FILE] cvtsudoers [ edit | delete | rename ]
[FILE] c_rehash [ edit | delete | rename ]
[FILE] dash [ edit | delete | rename ]
[FILE] date [ edit | delete | rename ]
[FILE] dbus-cleanup-sockets [ edit | delete | rename ]
[FILE] dbus-daemon [ edit | delete | rename ]
[FILE] dbus-monitor [ edit | delete | rename ]
[FILE] dbus-run-session [ edit | delete | rename ]
[FILE] dbus-send [ edit | delete | rename ]
[FILE] dbus-update-activation-environment [ edit | delete | rename ]
[FILE] dbus-uuidgen [ edit | delete | rename ]
[FILE] dd [ edit | delete | rename ]
[FILE] delpart [ edit | delete | rename ]
[FILE] df [ edit | delete | rename ]
[FILE] dh_bash-completion [ edit | delete | rename ]
[FILE] diff [ edit | delete | rename ]
[FILE] diff3 [ edit | delete | rename ]
[FILE] dir [ edit | delete | rename ]
[FILE] dircolors [ edit | delete | rename ]
[FILE] dirname [ edit | delete | rename ]
[FILE] dmesg [ edit | delete | rename ]
[FILE] dnsdomainname [ edit | delete | rename ]
[FILE] domainname [ edit | delete | rename ]
[FILE] dpkg-deb [ edit | delete | rename ]
[FILE] dpkg-realpath [ edit | delete | rename ]
[FILE] du [ edit | delete | rename ]
[FILE] ec2metadata [ edit | delete | rename ]
[FILE] echo [ edit | delete | rename ]
[FILE] editor [ edit | delete | rename ]
[FILE] egrep [ edit | delete | rename ]
[FILE] env [ edit | delete | rename ]
[FILE] ex [ edit | delete | rename ]
[FILE] expand [ edit | delete | rename ]
[FILE] expiry [ edit | delete | rename ]
[FILE] expr [ edit | delete | rename ]
[FILE] factor [ edit | delete | rename ]
[FILE] faillog [ edit | delete | rename ]
[FILE] fallocate [ edit | delete | rename ]
[FILE] false [ edit | delete | rename ]
[FILE] fgrep [ edit | delete | rename ]
[FILE] finalrd [ edit | delete | rename ]
[FILE] fincore [ edit | delete | rename ]
[FILE] find [ edit | delete | rename ]
[FILE] findmnt [ edit | delete | rename ]
[FILE] flock [ edit | delete | rename ]
[FILE] fmt [ edit | delete | rename ]
[FILE] fold [ edit | delete | rename ]
[FILE] free [ edit | delete | rename ]
[FILE] gdbserver [ edit | delete | rename ]
[FILE] getconf [ edit | delete | rename ]
[FILE] getent [ edit | delete | rename ]
[FILE] getopt [ edit | delete | rename ]
[FILE] gpasswd [ edit | delete | rename ]
[FILE] gpgv [ edit | delete | rename ]
[FILE] grep [ edit | delete | rename ]
[FILE] groups [ edit | delete | rename ]
[FILE] growpart [ edit | delete | rename ]
[FILE] gunzip [ edit | delete | rename ]
[FILE] gzexe [ edit | delete | rename ]
[FILE] gzip [ edit | delete | rename ]
[FILE] hardlink [ edit | delete | rename ]
[FILE] head [ edit | delete | rename ]
[FILE] helpztags [ edit | delete | rename ]
[FILE] hostid [ edit | delete | rename ]
[FILE] hostname [ edit | delete | rename ]
[FILE] hostnamectl [ edit | delete | rename ]
[FILE] i386 [ edit | delete | rename ]
[FILE] iconv [ edit | delete | rename ]
[FILE] id [ edit | delete | rename ]
[FILE] infocmp [ edit | delete | rename ]
[FILE] infotocap [ edit | delete | rename ]
[FILE] install [ edit | delete | rename ]
[FILE] ionice [ edit | delete | rename ]
[FILE] ip [ edit | delete | rename ]
[FILE] ipcmk [ edit | delete | rename ]
[FILE] ipcrm [ edit | delete | rename ]
[FILE] ipcs [ edit | delete | rename ]
[FILE] iptables-xml [ edit | delete | rename ]
[FILE] ischroot [ edit | delete | rename ]
[FILE] join [ edit | delete | rename ]
[FILE] journalctl [ edit | delete | rename ]
[FILE] json-patch-jsondiff [ edit | delete | rename ]
[FILE] jsondiff [ edit | delete | rename ]
[FILE] jsonpatch [ edit | delete | rename ]
[FILE] jsonpointer [ edit | delete | rename ]
[FILE] jsonschema [ edit | delete | rename ]
[FILE] kernel-install [ edit | delete | rename ]
[FILE] kill [ edit | delete | rename ]
[FILE] kmod [ edit | delete | rename ]
[FILE] kmodsign [ edit | delete | rename ]
[FILE] last [ edit | delete | rename ]
[FILE] lastb [ edit | delete | rename ]
[FILE] lastlog [ edit | delete | rename ]
[FILE] lcf [ edit | delete | rename ]
[FILE] ldd [ edit | delete | rename ]
[FILE] less [ edit | delete | rename ]
[FILE] lessecho [ edit | delete | rename ]
[FILE] lessfile [ edit | delete | rename ]
[FILE] lesskey [ edit | delete | rename ]
[FILE] lesspipe [ edit | delete | rename ]
[FILE] link [ edit | delete | rename ]
[FILE] linux32 [ edit | delete | rename ]
[FILE] linux64 [ edit | delete | rename ]
[FILE] ln [ edit | delete | rename ]
[FILE] lnstat [ edit | delete | rename ]
[FILE] locale [ edit | delete | rename ]
[FILE] locale-check [ edit | delete | rename ]
[FILE] localectl [ edit | delete | rename ]
[FILE] localedef [ edit | delete | rename ]
[FILE] logger [ edit | delete | rename ]
[FILE] login [ edit | delete | rename ]
[FILE] loginctl [ edit | delete | rename ]
[FILE] logname [ edit | delete | rename ]
[FILE] ls [ edit | delete | rename ]
[FILE] lsattr [ edit | delete | rename ]
[FILE] lsblk [ edit | delete | rename ]
[FILE] lscpu [ edit | delete | rename ]
[FILE] lsipc [ edit | delete | rename ]
[FILE] lslocks [ edit | delete | rename ]
[FILE] lslogins [ edit | delete | rename ]
[FILE] lsmem [ edit | delete | rename ]
[FILE] lsmod [ edit | delete | rename ]
[FILE] lsns [ edit | delete | rename ]
[FILE] man [ edit | delete | rename ]
[FILE] mawk [ edit | delete | rename ]
[FILE] mcookie [ edit | delete | rename ]
[FILE] md5sum [ edit | delete | rename ]
[FILE] md5sum.textutils [ edit | delete | rename ]
[FILE] mesg [ edit | delete | rename ]
[FILE] mkdir [ edit | delete | rename ]
[FILE] mkfifo [ edit | delete | rename ]
[FILE] mknod [ edit | delete | rename ]
[FILE] mksquashfs [ edit | delete | rename ]
[FILE] mkswapfile [ edit | delete | rename ]
[FILE] mktemp [ edit | delete | rename ]
[FILE] more [ edit | delete | rename ]
[FILE] mount [ edit | delete | rename ]
[FILE] mountpoint [ edit | delete | rename ]
[FILE] mv [ edit | delete | rename ]
[FILE] namei [ edit | delete | rename ]
[FILE] nawk [ edit | delete | rename ]
[FILE] nc [ edit | delete | rename ]
[FILE] nc.openbsd [ edit | delete | rename ]
[FILE] netcat [ edit | delete | rename ]
[FILE] networkctl [ edit | delete | rename ]
[FILE] newgrp [ edit | delete | rename ]
[FILE] nice [ edit | delete | rename ]
[FILE] nisdomainname [ edit | delete | rename ]
[FILE] nl [ edit | delete | rename ]
[FILE] nohup [ edit | delete | rename ]
[FILE] nproc [ edit | delete | rename ]
[FILE] nsenter [ edit | delete | rename ]
[FILE] nstat [ edit | delete | rename ]
[FILE] numfmt [ edit | delete | rename ]
[FILE] od [ edit | delete | rename ]
[FILE] openssl [ edit | delete | rename ]
[FILE] p11-kit [ edit | delete | rename ]
[FILE] p11tool [ edit | delete | rename ]
[FILE] pager [ edit | delete | rename ]
[FILE] partx [ edit | delete | rename ]
[FILE] passwd [ edit | delete | rename ]
[FILE] paste [ edit | delete | rename ]
[FILE] pathchk [ edit | delete | rename ]
[FILE] pdb3 [ edit | delete | rename ]
[FILE] pdb3.10 [ edit | delete | rename ]
[FILE] perl [ edit | delete | rename ]
[FILE] perl5.34.0 [ edit | delete | rename ]
[FILE] pgrep [ edit | delete | rename ]
[FILE] pidof [ edit | delete | rename ]
[FILE] pidwait [ edit | delete | rename ]
[FILE] ping [ edit | delete | rename ]
[FILE] ping4 [ edit | delete | rename ]
[FILE] ping6 [ edit | delete | rename ]
[FILE] pinky [ edit | delete | rename ]
[FILE] pkaction [ edit | delete | rename ]
[FILE] pkcheck [ edit | delete | rename ]
[FILE] pkcs11-tool [ edit | delete | rename ]
[FILE] pkill [ edit | delete | rename ]
[FILE] pkttyagent [ edit | delete | rename ]
[FILE] pldd [ edit | delete | rename ]
[FILE] plymouth [ edit | delete | rename ]
[FILE] pmap [ edit | delete | rename ]
[FILE] pr [ edit | delete | rename ]
[FILE] printenv [ edit | delete | rename ]
[FILE] printf [ edit | delete | rename ]
[FILE] prlimit [ edit | delete | rename ]
[FILE] ps [ edit | delete | rename ]
[FILE] ptx [ edit | delete | rename ]
[FILE] pwd [ edit | delete | rename ]
[FILE] pwdx [ edit | delete | rename ]
[FILE] py3clean [ edit | delete | rename ]
[FILE] py3compile [ edit | delete | rename ]
[FILE] py3versions [ edit | delete | rename ]
[FILE] pybabel [ edit | delete | rename ]
[FILE] pybabel-python3 [ edit | delete | rename ]
[FILE] pydoc3 [ edit | delete | rename ]
[FILE] pydoc3.10 [ edit | delete | rename ]
[FILE] pygettext3 [ edit | delete | rename ]
[FILE] pygettext3.10 [ edit | delete | rename ]
[FILE] pyserial-miniterm [ edit | delete | rename ]
[FILE] pyserial-ports [ edit | delete | rename ]
[FILE] python3 [ edit | delete | rename ]
[FILE] python3.10 [ edit | delete | rename ]
[FILE] rbash [ edit | delete | rename ]
[FILE] rcp [ edit | delete | rename ]
[FILE] rdma [ edit | delete | rename ]
[FILE] readlink [ edit | delete | rename ]
[FILE] realpath [ edit | delete | rename ]
[FILE] renice [ edit | delete | rename ]
[FILE] reset [ edit | delete | rename ]
[FILE] resizepart [ edit | delete | rename ]
[FILE] resolvectl [ edit | delete | rename ]
[FILE] rev [ edit | delete | rename ]
[FILE] rgrep [ edit | delete | rename ]
[FILE] rlogin [ edit | delete | rename ]
[FILE] rm [ edit | delete | rename ]
[FILE] rmdir [ edit | delete | rename ]
[FILE] routef [ edit | delete | rename ]
[FILE] routel [ edit | delete | rename ]
[FILE] rsh [ edit | delete | rename ]
[FILE] rtstat [ edit | delete | rename ]
[FILE] run-parts [ edit | delete | rename ]
[FILE] runcon [ edit | delete | rename ]
[FILE] rview [ edit | delete | rename ]
[FILE] savelog [ edit | delete | rename ]
[FILE] sbattach [ edit | delete | rename ]
[FILE] sbkeysync [ edit | delete | rename ]
[FILE] sbsiglist [ edit | delete | rename ]
[FILE] sbsign [ edit | delete | rename ]
[FILE] sbvarsign [ edit | delete | rename ]
[FILE] sbverify [ edit | delete | rename ]
[FILE] scp [ edit | delete | rename ]
[FILE] script [ edit | delete | rename ]
[FILE] scriptlive [ edit | delete | rename ]
[FILE] scriptreplay [ edit | delete | rename ]
[FILE] sdiff [ edit | delete | rename ]
[FILE] sed [ edit | delete | rename ]
[FILE] select-editor [ edit | delete | rename ]
[FILE] sensible-browser [ edit | delete | rename ]
[FILE] sensible-editor [ edit | delete | rename ]
[FILE] sensible-pager [ edit | delete | rename ]
[FILE] seq [ edit | delete | rename ]
[FILE] setarch [ edit | delete | rename ]
[FILE] setpriv [ edit | delete | rename ]
[FILE] setsid [ edit | delete | rename ]
[FILE] setterm [ edit | delete | rename ]
[FILE] sftp [ edit | delete | rename ]
[FILE] sg [ edit | delete | rename ]
[FILE] sh [ edit | delete | rename ]
[FILE] sha1sum [ edit | delete | rename ]
[FILE] sha224sum [ edit | delete | rename ]
[FILE] sha256sum [ edit | delete | rename ]
[FILE] sha384sum [ edit | delete | rename ]
[FILE] sha512sum [ edit | delete | rename ]
[FILE] shred [ edit | delete | rename ]
[FILE] shuf [ edit | delete | rename ]
[FILE] skill [ edit | delete | rename ]
[FILE] slabtop [ edit | delete | rename ]
[FILE] sleep [ edit | delete | rename ]
[FILE] slogin [ edit | delete | rename ]
[FILE] snap [ edit | delete | rename ]
[FILE] snapctl [ edit | delete | rename ]
[FILE] snice [ edit | delete | rename ]
[FILE] sort [ edit | delete | rename ]
[FILE] splash-client [ edit | delete | rename ]
[FILE] split [ edit | delete | rename ]
[FILE] sqfscat [ edit | delete | rename ]
[FILE] sqfstar [ edit | delete | rename ]
[FILE] ss [ edit | delete | rename ]
[FILE] ssh [ edit | delete | rename ]
[FILE] ssh-add [ edit | delete | rename ]
[FILE] ssh-agent [ edit | delete | rename ]
[FILE] ssh-argv0 [ edit | delete | rename ]
[FILE] ssh-copy-id [ edit | delete | rename ]
[FILE] ssh-keygen [ edit | delete | rename ]
[FILE] ssh-keyscan [ edit | delete | rename ]
[FILE] stat [ edit | delete | rename ]
[FILE] stdbuf [ edit | delete | rename ]
[FILE] stty [ edit | delete | rename ]
[FILE] su [ edit | delete | rename ]
[FILE] sudo [ edit | delete | rename ]
[FILE] sudoedit [ edit | delete | rename ]
[FILE] sudoreplay [ edit | delete | rename ]
[FILE] sum [ edit | delete | rename ]
[FILE] sync [ edit | delete | rename ]
[FILE] systemctl [ edit | delete | rename ]
[FILE] systemd [ edit | delete | rename ]
[FILE] systemd-analyze [ edit | delete | rename ]
[FILE] systemd-ask-password [ edit | delete | rename ]
[FILE] systemd-cat [ edit | delete | rename ]
[FILE] systemd-cgls [ edit | delete | rename ]
[FILE] systemd-cgtop [ edit | delete | rename ]
[FILE] systemd-cryptenroll [ edit | delete | rename ]
[FILE] systemd-delta [ edit | delete | rename ]
[FILE] systemd-detect-virt [ edit | delete | rename ]
[FILE] systemd-escape [ edit | delete | rename ]
[FILE] systemd-hwdb [ edit | delete | rename ]
[FILE] systemd-id128 [ edit | delete | rename ]
[FILE] systemd-inhibit [ edit | delete | rename ]
[FILE] systemd-machine-id-setup [ edit | delete | rename ]
[FILE] systemd-mount [ edit | delete | rename ]
[FILE] systemd-notify [ edit | delete | rename ]
[FILE] systemd-path [ edit | delete | rename ]
[FILE] systemd-run [ edit | delete | rename ]
[FILE] systemd-socket-activate [ edit | delete | rename ]
[FILE] systemd-stdio-bridge [ edit | delete | rename ]
[FILE] systemd-sysext [ edit | delete | rename ]
[FILE] systemd-sysusers [ edit | delete | rename ]
[FILE] systemd-tmpfiles [ edit | delete | rename ]
[FILE] systemd-tty-ask-password-agent [ edit | delete | rename ]
[FILE] systemd-umount [ edit | delete | rename ]
[FILE] tabs [ edit | delete | rename ]
[FILE] tac [ edit | delete | rename ]
[FILE] tail [ edit | delete | rename ]
[FILE] tar [ edit | delete | rename ]
[FILE] taskset [ edit | delete | rename ]
[FILE] tee [ edit | delete | rename ]
[FILE] tempfile [ edit | delete | rename ]
[FILE] test [ edit | delete | rename ]
[FILE] tic [ edit | delete | rename ]
[FILE] timedatectl [ edit | delete | rename ]
[FILE] timedatectl.real [ edit | delete | rename ]
[FILE] timeout [ edit | delete | rename ]
[FILE] tload [ edit | delete | rename ]
[FILE] toe [ edit | delete | rename ]
[FILE] top [ edit | delete | rename ]
[FILE] touch [ edit | delete | rename ]
[FILE] tput [ edit | delete | rename ]
[FILE] tr [ edit | delete | rename ]
[FILE] true [ edit | delete | rename ]
[FILE] truncate [ edit | delete | rename ]
[FILE] tset [ edit | delete | rename ]
[FILE] tsort [ edit | delete | rename ]
[FILE] tty [ edit | delete | rename ]
[FILE] tzselect [ edit | delete | rename ]
[FILE] ucf [ edit | delete | rename ]
[FILE] ucfq [ edit | delete | rename ]
[FILE] ucfr [ edit | delete | rename ]
[FILE] uclampset [ edit | delete | rename ]
[FILE] udevadm [ edit | delete | rename ]
[FILE] umount [ edit | delete | rename ]
[FILE] uname [ edit | delete | rename ]
[FILE] uncompress [ edit | delete | rename ]
[FILE] unexpand [ edit | delete | rename ]
[FILE] uniq [ edit | delete | rename ]
[FILE] unlink [ edit | delete | rename ]
[FILE] unshare [ edit | delete | rename ]
[FILE] unsquashfs [ edit | delete | rename ]
[FILE] update-alternatives [ edit | delete | rename ]
[FILE] uptime [ edit | delete | rename ]
[FILE] users [ edit | delete | rename ]
[FILE] utmpdump [ edit | delete | rename ]
[FILE] vcs-run [ edit | delete | rename ]
[FILE] vdir [ edit | delete | rename ]
[FILE] vi [ edit | delete | rename ]
[FILE] view [ edit | delete | rename ]
[FILE] vim.tiny [ edit | delete | rename ]
[FILE] vmstat [ edit | delete | rename ]
[FILE] w [ edit | delete | rename ]
[FILE] wall [ edit | delete | rename ]
[FILE] watch [ edit | delete | rename ]
[FILE] wc [ edit | delete | rename ]
[FILE] wdctl [ edit | delete | rename ]
[FILE] whereis [ edit | delete | rename ]
[FILE] which [ edit | delete | rename ]
[FILE] which.debianutils [ edit | delete | rename ]
[FILE] who [ edit | delete | rename ]
[FILE] whoami [ edit | delete | rename ]
[FILE] wpa_passphrase [ edit | delete | rename ]
[FILE] x86_64 [ edit | delete | rename ]
[FILE] xargs [ edit | delete | rename ]
[FILE] xdg-open [ edit | delete | rename ]
[FILE] xdg-settings [ edit | delete | rename ]
[FILE] xxd [ edit | delete | rename ]
[FILE] yes [ edit | delete | rename ]
[FILE] ypdomainname [ edit | delete | rename ]
[FILE] zcat [ edit | delete | rename ]
[FILE] zcmp [ edit | delete | rename ]
[FILE] zdiff [ edit | delete | rename ]
[FILE] zdump [ edit | delete | rename ]
[FILE] zegrep [ edit | delete | rename ]
[FILE] zfgrep [ edit | delete | rename ]
[FILE] zforce [ edit | delete | rename ]
[FILE] zgrep [ edit | delete | rename ]
[FILE] zless [ edit | delete | rename ]
[FILE] zmore [ edit | delete | rename ]
[FILE] znew [ edit | delete | rename ]
[FILE] [ [ edit | delete | rename ]
Viewing: /snap/core22/2955/usr/bin/c_rehash
#!/usr/bin/perl
# WARNING: do not edit!
# Generated by Makefile from ../tools/c_rehash.in
# Copyright 1999-2021 The OpenSSL Project Authors. All Rights Reserved.
#
# Licensed under the Apache License 2.0 (the "License"). You may not use
# this file except in compliance with the License. You can obtain a copy
# in the file LICENSE in the source distribution or at
# https://www.openssl.org/source/license.html
# Perl c_rehash script, scan all files in a directory
# and add symbolic links to their hash values.
my $dir = "/usr/lib/ssl";
my $prefix = "/usr";
my $errorcount = 0;
my $openssl = $ENV{OPENSSL} || "openssl";
my $pwd;
my $verbose = 0;
my $symlink_exists=eval {symlink("",""); 1};
my $removelinks = 1;
## Parse flags.
while ( $ARGV[0] =~ /^-/ ) {
my $flag = shift @ARGV;
last if ( $flag eq '--');
if ( $flag eq '-h' || $flag eq '-help' ) {
help();
} elsif ( $flag eq '-n' ) {
$removelinks = 0;
} elsif ( $flag eq '-v' ) {
$verbose++;
}
else {
print STDERR "Usage error; try -h.\n";
exit 1;
}
}
sub help {
print "Usage: c_rehash [-old] [-h] [-help] [-v] [dirs...]\n";
print " -old use old-style digest\n";
print " -h or -help print this help text\n";
print " -v print files removed and linked\n";
exit 0;
}
eval "require Cwd";
if (defined(&Cwd::getcwd)) {
$pwd=Cwd::getcwd();
} else {
$pwd=`pwd`;
chomp($pwd);
}
# DOS/Win32 or Unix delimiter? Prefix our installdir, then search.
my $path_delim = ($pwd =~ /^[a-z]\:/i) ? ';' : ':';
$ENV{PATH} = "$prefix/bin" . ($ENV{PATH} ? $path_delim . $ENV{PATH} : "");
if (! -x $openssl) {
my $found = 0;
foreach (split /$path_delim/, $ENV{PATH}) {
if (-x "$_/$openssl") {
$found = 1;
$openssl = "$_/$openssl";
last;
}
}
if ($found == 0) {
print STDERR "c_rehash: rehashing skipped ('openssl' program not available)\n";
exit 0;
}
}
if (@ARGV) {
@dirlist = @ARGV;
} elsif ($ENV{SSL_CERT_DIR}) {
@dirlist = split /$path_delim/, $ENV{SSL_CERT_DIR};
} else {
$dirlist[0] = "$dir/certs";
}
if (-d $dirlist[0]) {
chdir $dirlist[0];
$openssl="$pwd/$openssl" if (!-x $openssl);
chdir $pwd;
}
foreach (@dirlist) {
if (-d $_ ) {
if ( -w $_) {
hash_dir($_);
} else {
print "Skipping $_, can't write\n";
$errorcount++;
}
}
}
exit($errorcount);
sub copy_file {
my ($src_fname, $dst_fname) = @_;
if (open(my $in, "<", $src_fname)) {
if (open(my $out, ">", $dst_fname)) {
print $out $_ while (<$in>);
close $out;
} else {
warn "Cannot open $dst_fname for write, $!";
}
close $in;
} else {
warn "Cannot open $src_fname for read, $!";
}
}
sub hash_dir {
my $dir = shift;
my %hashlist;
print "Doing $dir\n";
if (!chdir $dir) {
print STDERR "WARNING: Cannot chdir to '$dir', $!\n";
return;
}
opendir(DIR, ".") || print STDERR "WARNING: Cannot opendir '.', $!\n";
my @flist = sort readdir(DIR);
closedir DIR;
if ( $removelinks ) {
# Delete any existing symbolic links
foreach (grep {/^[\da-f]+\.r{0,1}\d+$/} @flist) {
if (-l $_) {
print "unlink $_\n" if $verbose;
unlink $_ || warn "Can't unlink $_, $!\n";
}
}
}
FILE: foreach $fname (grep {/\.(pem)|(crt)|(cer)|(crl)$/} @flist) {
# Check to see if certificates and/or CRLs present.
my ($cert, $crl) = check_file($fname);
if (!$cert && !$crl) {
print STDERR "WARNING: $fname does not contain a certificate or CRL: skipping\n";
next;
}
link_hash_cert($fname) if ($cert);
link_hash_cert_old($fname) if ($cert);
link_hash_crl($fname) if ($crl);
link_hash_crl_old($fname) if ($crl);
}
chdir $pwd;
}
sub check_file {
my ($is_cert, $is_crl) = (0,0);
my $fname = $_[0];
open(my $in, "<", $fname);
while(<$in>) {
if (/^-----BEGIN (.*)-----/) {
my $hdr = $1;
if ($hdr =~ /^(X509 |TRUSTED |)CERTIFICATE$/) {
$is_cert = 1;
last if ($is_crl);
} elsif ($hdr eq "X509 CRL") {
$is_crl = 1;
last if ($is_cert);
}
}
}
close $in;
return ($is_cert, $is_crl);
}
sub compute_hash {
my $fh;
if ( $^O eq "VMS" ) {
# VMS uses the open through shell
# The file names are safe there and list form is unsupported
if (!open($fh, "-|", join(' ', @_))) {
print STDERR "Cannot compute hash on '$fname'\n";
return;
}
} else {
if (!open($fh, "-|", @_)) {
print STDERR "Cannot compute hash on '$fname'\n";
return;
}
}
return (<$fh>, <$fh>);
}
# Link a certificate to its subject name hash value, each hash is of
# the form <hash>.<n> where n is an integer. If the hash value already exists
# then we need to up the value of n, unless its a duplicate in which
# case we skip the link. We check for duplicates by comparing the
# certificate fingerprints
sub link_hash_cert {
link_hash($_[0], 'cert', '-subject_hash');
}
# Same as above except for a CRL. CRL links are of the form <hash>.r<n>
sub link_hash_crl {
link_hash($_[0], 'crl', '-hash');
}
sub link_hash_cert_old {
link_hash($_[0], 'cert', '-subject_hash_old');
}
sub link_hash_crl_old {
link_hash($_[0], 'crl', '-hash_old');
}
sub link_hash {
my ($fname, $type, $hash_cmd) = @_;
my $is_cert = $type eq 'cert';
my ($hash, $fprint) = compute_hash($openssl,
$is_cert ? "x509" : "crl",
$hash_cmd,
"-fingerprint", "-noout",
"-in", $fname);
chomp $hash;
$hash =~ s/^.*=// if !$is_cert;
chomp $fprint;
return if !$hash;
$fprint =~ s/^.*=//;
$fprint =~ tr/://d;
my $suffix = 0;
# Search for an unused hash filename
my $crlmark = $is_cert ? "" : "r";
while(exists $hashlist{"$hash.$crlmark$suffix"}) {
# Hash matches: if fingerprint matches its a duplicate cert
if ($hashlist{"$hash.$crlmark$suffix"} eq $fprint) {
my $what = $is_cert ? 'certificate' : 'CRL';
print STDERR "WARNING: Skipping duplicate $what $fname\n";
return;
}
$suffix++;
}
$hash .= ".$crlmark$suffix";
if ($symlink_exists) {
print "link $fname -> $hash\n" if $verbose;
symlink $fname, $hash || warn "Can't symlink, $!";
} else {
print "copy $fname -> $hash\n" if $verbose;
copy_file($fname, $hash);
}
$hashlist{$hash} = $fprint;
}