Merge branch 'master' of ssh://git.ipfire.org/pub/git/ipfire-2.x

[people/mfischer/ipfire-2.x.git] / src / scripts / ovpn-ccd-convert

diff --git a/src/scripts/ovpn-ccd-convert b/src/scripts/ovpn-ccd-convert
deleted file mode 100644 (file)
index f496706..0000000
--- a/src/scripts/ovpn-ccd-convert
+++ /dev/null
@@ -1,52 +0,0 @@
-#!/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/*");