src/scripts/ovpn-ccd-convert

   1 #!/usr/bin/perl
   2
   3 my %net=();
   4 my %ovpnconfig=();
   5 my @serverconf=();
   6 my $greennet;
   7 my $greensubnet;
   8 my $running='off';
   9 require '/var/ipfire/general-functions.pl';
  10
  11 if ( -e "/var/run/openvpn.pid"){
  12         $running='on';
  13         system('/usr/local/bin/openvpnctrl', '-k');
  14 }
  15
  16 &General::readhash("/var/ipfire/ethernet/settings", \%net);
  17         $greennet=$net{'GREEN_NETADDRESS'};
  18         $greensubnet=$net{'GREEN_NETMASK'};
  19 open(FILE,"/var/ipfire/ovpn/server.conf");
  20                                 while (<FILE>) {
  21                                         $_=~s/\s*$//g;
  22                                         if ($_ ne "route $greennet $greensubnet"){
  23                                                 push (@serverconf,$_."\n");
  24                                         }else{
  25                                                 print"\nFound ROUTE >>route $greennet $greensubnet<< in server.conf.. Deleted!";
  26                                         }
  27                                 }
  28
  29 &General::readhasharray("/var/ipfire/ovpn/ovpnconfig", \%ovpnconfig);
  30 foreach my $key (keys %ovpnconfig){
  31         if($ovpnconfig{$key}[32] eq '' && $ovpnconfig{$key}[3] eq 'host'){
  32                 open ( CCDRWCONF,'>',"/var/ipfire/ovpn/ccd/$ovpnconfig{$key}[2]") or die "Unable to create clientconfigfile $!";
  33                 print CCDRWCONF "# OpenVPN Clientconfig from CCD extension by Copymaster#\n\n";
  34                 print CCDRWCONF "#This client uses the dynamic pool\n\n";
  35                 print CCDRWCONF "\n#Client gets routes to these Networks (behind IPFIRE)\n";
  36                 print CCDRWCONF "push \"route $greennet $greensubnet\"\n";
  37                 close CCDRWCONF;
  38                 print"Client $ovpnconfig{$key}[2] converted! \n";
  39         }else{
  40                 print "Client $ovpnconfig{$key}[2] NOT converted!\n";
  41         }
  42         $ovpnconfig{$key}[32] = 'dynamic';
  43 }
  44 &General::writehasharray("/var/ipfire/ovpn/ovpnconfig", \%ovpnconfig);
  45 if ($running eq 'on')
  46 {
  47         system('/usr/local/bin/openvpnctrl', '-s');
  48 }