20 lines
900 B
Perl
20 lines
900 B
Perl
#!/usr/bin/perl
|
|
use strict;
|
|
use warnings;
|
|
use esmith::ConfigDB;
|
|
|
|
my $db = esmith::ConfigDB->open_ro;
|
|
|
|
if (( ! -f '/home/e-smith/files/radicale/radicale.cert' ) && ( ! -f '/home/e-smith/files/radicale/radicale.key'))
|
|
{
|
|
my $rad_name = $db->get_value('SystemName') || "server";
|
|
my $rad_domain = $db->get_value('DomainName') || 'myexample.com';
|
|
|
|
system ("openssl req -new -sha256 -newkey rsa:4096 -days 3650 -nodes -x509 -subj /O=Radicale/CN=$rad_name.$rad_domain -keyout /home/e-smith/files/radicale/radicale.key -out /home/e-smith/files/radicale/radicale.crt") == 0
|
|
|| die "impossible to create the ssl certificate";
|
|
system ('chown radicale:radicale /home/e-smith/files/radicale/radicale.*');
|
|
system ('chmod 400 /home/e-smith/files/radicale/radicale.*');
|
|
}
|
|
|
|
system ('/usr/bin/pip3.6 install --upgrade pip radicale==1.1.7');
|