]>
Commit | Line | Data |
---|---|---|
07cdb8f6 SS |
1 | #!/usr/bin/perl |
2 | ||
3 | my %net=(); | |
4 | my %ovpnconfig=(); | |
5 | my @serverconf=(); | |
6 | my $greennet; | |
7 | my $greensubnet; | |
52d08bcb | 8 | my $running='off'; |
07cdb8f6 SS |
9 | require '/var/ipfire/general-functions.pl'; |
10 | ||
11 | if ( -e "/var/run/openvpn.pid"){ | |
52d08bcb | 12 | $running='on'; |
07cdb8f6 SS |
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){ | |
e81be1e1 | 31 | if($ovpnconfig{$key}[32] eq '' && $ovpnconfig{$key}[3] eq 'host'){ |
07cdb8f6 SS |
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); | |
52d08bcb AM |
45 | if ($running eq 'on') |
46 | { | |
47 | system('/usr/local/bin/openvpnctrl', '-s'); | |
48 | } |