webadmin/bpfire
1
0
Fork 0
mirror of https://github.com/vincentmli/bpfire.git synced 2026-04-09 18:45:54 +02:00
Code Issues Packages Projects Releases Wiki Activity

OpenVPN converter: Fix coding style and verbose output.

Browse Source
This commit is contained in:
Michael Tremer
2014-01-09 12:43:39 +01:00
parent 59cbe38697
commit 42dbdb2088
1 changed files with 19 additions and 10 deletions
Download Patch File Download Diff File Expand all files Collapse all files

29
src/scripts/convert-ovpn
View File

@@ -27,25 +27,34 @@
# #
###############################################################################
require '/var/ipfire/general-functions.pl';
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;
&check_config();
sub check_config {
print "Converting CCD files...\n";
chdir($ccdpath);
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]);
# Skip everything else but roadwarrior connections.
next if ($configovpn{$key}[3] ne 'host');
# Skip all connections with no space in the CN name.
next if ($configovpn{$key}[2] !~ " ");
my $ccdname = $configovpn{$key}[2];
$ccdname =~ tr/ /_/;
# Rename the CCD file if one with the old format exists.
if (-e "$ccdname") {
print " Renaming $ccdname -> $configovpn{$key}[2]...\n";
rename($ccdname, $configovpn{$key}[2]);
}
}
}