1 |
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 |
2 |
--- e-smith-base-5.6.0/root/etc/cron.daily/conf-mod_ssl 2006-02-17 04:41:50.000000000 +0100 |
3 |
+++ e-smith-base-5.6.0_bz2257/root/etc/cron.daily/conf-mod_ssl 2016-01-17 22:22:57.519463001 +0100 |
4 |
@@ -1,3 +1,28 @@ |
5 |
-#! /bin/sh |
6 |
+#!/usr/bin/perl -w |
7 |
|
8 |
-exec /sbin/e-smith/expand-template /home/e-smith/ssl.pem/pem |
9 |
+use strict; |
10 |
+use esmith::ConfigDB; |
11 |
+use esmith::templates; |
12 |
+use esmith::event; |
13 |
+use Digest::file qw(digest_file_hex); |
14 |
+ |
15 |
+my $c = esmith::ConfigDB->open_ro; |
16 |
+my $s = $c->get('SystemName')->value; |
17 |
+my $d = $c->get('DomainName')->value; |
18 |
+my $pem = "/home/e-smith/ssl.pem/$s.$d.pem"; |
19 |
+ |
20 |
+if (!-e $pem){ |
21 |
+ die "$pem doesn't exist. This shouldn't happen. Please report a bug\n"; |
22 |
+} |
23 |
+ |
24 |
+my $old_hash = digest_file_hex( $pem, 'SHA-1' ); |
25 |
+ |
26 |
+esmith::templates::processTemplate({ |
27 |
+ TEMPLATE_PATH => '/home/e-smith/ssl.pem/pem', |
28 |
+}); |
29 |
+ |
30 |
+my $new_hash = digest_file_hex( $pem, 'SHA-1' ); |
31 |
+ |
32 |
+if ($old_hash ne $new_hash){ |
33 |
+ event_signal("ssl-update"); |
34 |
+} |