diff -Nur e-smith-base-5.6.0/root/etc/cron.daily/conf-mod_ssl e-smith-base-5.6.0_bz2257/root/etc/cron.daily/conf-mod_ssl --- e-smith-base-5.6.0/root/etc/cron.daily/conf-mod_ssl 2006-02-17 04:41:50.000000000 +0100 +++ e-smith-base-5.6.0_bz2257/root/etc/cron.daily/conf-mod_ssl 2016-01-17 22:22:57.519463001 +0100 @@ -1,3 +1,28 @@ -#! /bin/sh +#!/usr/bin/perl -w -exec /sbin/e-smith/expand-template /home/e-smith/ssl.pem/pem +use strict; +use esmith::ConfigDB; +use esmith::templates; +use esmith::event; +use Digest::file qw(digest_file_hex); + +my $c = esmith::ConfigDB->open_ro; +my $s = $c->get('SystemName')->value; +my $d = $c->get('DomainName')->value; +my $pem = "/home/e-smith/ssl.pem/$s.$d.pem"; + +if (!-e $pem){ + die "$pem doesn't exist. This shouldn't happen. Please report a bug\n"; +} + +my $old_hash = digest_file_hex( $pem, 'SHA-1' ); + +esmith::templates::processTemplate({ + TEMPLATE_PATH => '/home/e-smith/ssl.pem/pem', +}); + +my $new_hash = digest_file_hex( $pem, 'SHA-1' ); + +if ($old_hash ne $new_hash){ + event_signal("ssl-update"); +}