From 33f297c92b917e9ffff0f18cbee5b0f2e5bd34cd Mon Sep 17 00:00:00 2001 From: Alexander Marx Date: Thu, 9 Jan 2014 10:02:13 +0100 Subject: [PATCH 1/1] fix ccd files for openvpn 2.3 update (core75) --- tools/convert-ovpn | 51 ++++++++++++++++++++++++++++++++++++++++++++++ 1 file changed, 51 insertions(+) create mode 100755 tools/convert-ovpn diff --git a/tools/convert-ovpn b/tools/convert-ovpn new file mode 100755 index 000000000..1e99bce5f --- /dev/null +++ b/tools/convert-ovpn @@ -0,0 +1,51 @@ +#!/usr/bin/perl + +############################################################################### +# # +# IPFire.org - A linux based firewall # +# Copyright (C) 2013 Alexander Marx # +# # +# This program is free software: you can redistribute it and/or modify # +# it under the terms of the GNU General Public License as published by # +# the Free Software Foundation, either version 3 of the License, or # +# (at your option) any later version. # +# # +# This program is distributed in the hope that it will be useful, # +# but WITHOUT ANY WARRANTY; without even the implied warranty of # +# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the # +# GNU General Public License for more details. # +# # +# You should have received a copy of the GNU General Public License # +# along with this program. If not, see . # +# # +############################################################################### +# # +# This script converts old openvpn ccd files with underscore # +# to files with spaces to make them working with openvpn 2.3 again # +# STEP1: read ovpnconfig and verify cert names # +# STEP2: if neccessary convert ccd file # +# # +############################################################################### + +my %configovpn=(); +my $ccdpath="/var/ipfire/ovpn/ccd/"; +my $ovpnconfig="/var/ipfire/ovpn/ovpnconfig"; +require '/var/ipfire/general-functions.pl'; + +&General::readhasharray ($ovpnconfig,\%configovpn); + +&check_config; + + +sub check_config +{ + print "\n"; + foreach my $key (sort keys %configovpn){ + if ($configovpn{$key}[3] eq 'host' && $configovpn{$key}[2]=~" "){ + my $ccdname=$configovpn{$key}[2]; + $ccdname =~ tr/ /_/; + chdir($ccdpath); + rename($ccdname,$configovpn{$key}[2]); + } + } +} -- 2.39.2