Subversion Repositories sysadmin_scripts

# get list of all crt files (without the extension) into @temp

my @temp;

if ( $certname ) {

   die "Can not find $certname ending in .crt or .key\n" unless -f "$serverCertDir$certname.crt" && -f "$serverCertDir$certname.key";

   push @temp, "$serverCertDir$certname";

} else {

   opendir my $dh, $serverCertDir or die "Can not find cert directory $certDir: $!\n";

   # get all matching cert files

   my @temp = grep { /^$certname.*\.crt/ } readdir( $dh );

   closedir $dh;

   for ( my $i = 0; $i < @temp; $i++ ) {

      $temp[$i] =~ s/crt$//;

   }

}

# make pem, create a list of all files to copy

my $filesToCopy;

foreach my $file ( @temp ) {

   die "Can not find $key file $file\n" unless -e "$file\.key";

   `cat $file.crt $file.key > $file.pem`;

   $filesToCopy .= "$file.crt";

   $filesToCopy .= "$file.key";

   $filesToCopy .= "$file.pem";

}

# ensure target directory exists on $hostname

`ssh $hostname 'mkdir -p /etc/certificates`;

# copy the files

# set permissions and reload services