Files
bpfire/src/scripts/ovpn-ccd-convert
Alexander Marx 1d47c971e6 BUG10834: fixes ovpn-ccd-convert
When restoring an old backup, all OpenVPN RW's get the dynamic network.
2015-05-06 16:18:00 +02:00

53 lines
1.8 KiB
Perl

#!/usr/bin/perl
# Converter script for old openvpn clients
my %net=();
my %ovpnconfig=();
my @serverconf=();
my $greennet;
my $greensubnet;
my $running='off';
require '/var/ipfire/general-functions.pl';
unless (-d "${General::swroot}/ovpn/ccd") { system("mkdir ${General::swroot}/ovpn/ccd"); }
system ("chown nobody.nobody ${General::swroot}/ovpn/ccd");
if ( -e "/var/run/openvpn.pid"){
$running='on';
system('/usr/local/bin/openvpnctrl', '-k');
}
&General::readhash("/var/ipfire/ethernet/settings", \%net);
$greennet=$net{'GREEN_NETADDRESS'};
$greensubnet=$net{'GREEN_NETMASK'};
open(FILE,"/var/ipfire/ovpn/server.conf");
while (<FILE>) {
$_=~s/\s*$//g;
if ($_ ne "route $greennet $greensubnet"){
push (@serverconf,$_."\n");
}else{
print"\nFound ROUTE >>route $greennet $greensubnet<< in server.conf.. Deleted!";
}
}
&General::readhasharray("/var/ipfire/ovpn/ovpnconfig", \%ovpnconfig);
foreach my $key (keys %ovpnconfig){
if($ovpnconfig{$key}[32] eq '' && $ovpnconfig{$key}[3] eq 'host'){
$ovpnconfig{$key}[2] =~ s/ /_/gi;
open ( CCDRWCONF,'>',"/var/ipfire/ovpn/ccd/$ovpnconfig{$key}[2]") or die "Unable to create clientconfigfile $!";
print CCDRWCONF "# OpenVPN Clientconfig from CCD extension by Copymaster#\n\n";
print CCDRWCONF "#This client uses the dynamic pool\n\n";
print CCDRWCONF "\n#Client gets routes to these Networks (behind IPFIRE)\n";
print CCDRWCONF "push \"route $greennet $greensubnet\"\n";
close CCDRWCONF;
print"Client $ovpnconfig{$key}[2] converted! \n";
}else{
print "Client $ovpnconfig{$key}[2] NOT converted!\n";
}
$ovpnconfig{$key}[32] = 'dynamic' if ($ovpnconfig{$key}[32] eq '');
}
&General::writehasharray("/var/ipfire/ovpn/ovpnconfig", \%ovpnconfig);
if ($running eq 'on')
{
system('/usr/local/bin/openvpnctrl', '-s');
}
system ("chown nobody:nobody /var/ipfire/ovpn/ccd/*");