Please see now our new Bugtracker system: JIRA

Index: openvpn_advanced.cgi
===================================================================
--- openvpn_advanced.cgi	(revision 23370)
+++ openvpn_advanced.cgi	(working copy)
@@ -176,24 +176,8 @@
 	$conf->{OPENVPN_ENABLED} = $par{OPENVPN_ENABLED};
 	$config = $conf;
 
-	open (OUT, ">$conffile");
-	print OUT "PURPLE_IP_BEGIN=$ippool_begin\n";
-	print OUT "PURPLE_IP_END=$ippool_end\n";
-	print OUT "PURPLE_DEVICE=tap1\n";
-	print OUT "PURPLECLIENT_BEGIN_DEVICE=tap2\n";
-	print OUT "OPENVPN_PROTOCOL=$conf->{PROTOCOL}\n";
-	print OUT "OPENVPN_PORT=$conf->{PORT}\n";
-	print OUT "CLIENT_TO_CLIENT=$conf->{CLIENT_TO_CLIENT}\n";
-	print OUT "DROP_DHCP=$conf->{DROP_DHCP}\n";
-	print OUT "AUTH_TYPE=$conf->{AUTH_TYPE}\n";
-	print OUT "PUSH_GLOBAL_NETWORKS=$conf->{PUSH_GLOBAL_NETWORKS}\n";
-	print OUT "GLOBAL_NETWORKS=$conf->{GLOBAL_NETWORKS}\n";
-	print OUT "PUSH_GLOBAL_DNS=$conf->{PUSH_GLOBAL_DNS}\n";
-	print OUT "GLOBAL_DNS=$conf->{GLOBAL_DNS}\n";
-	print OUT "PUSH_DOMAIN=$conf->{'PUSH_DOMAIN'}\n";
-	print OUT "DOMAIN=$conf->{'DOMAIN'}\n";
-	print OUT "OPENVPN_ENABLED=$conf->{'OPENVPN_ENABLED'}\n";
-	close OUT;
+	writehash($conffile, $conf);
+        &log(_('Written down Openvpn configuration'));
     }
 
     ($errcode, $errstr) = import_p12();
Index: openvpn_server.cgi
===================================================================
--- openvpn_server.cgi	(revision 23370)
+++ openvpn_server.cgi	(working copy)
@@ -356,24 +356,8 @@
 	$conf->{OPENVPN_ENABLED} = $par{ENABLE};
 	$config = $conf;
 
-	open (OUT, ">$conffile");
-	print OUT "PURPLE_IP_BEGIN=$ippool_begin\n";
-	print OUT "PURPLE_IP_END=$ippool_end\n";
-	print OUT "PURPLE_DEVICE=tap1\n";
-	print OUT "PURPLECLIENT_BEGIN_DEVICE=tap2\n";
-	print OUT "OPENVPN_PROTOCOL=$conf->{OPENVPN_PROTOCOL}\n";
-	print OUT "OPENVPN_PORT=$conf->{OPENVPN_PORT}\n";
-	print OUT "CLIENT_TO_CLIENT=$conf->{CLIENT_TO_CLIENT}\n";
-	print OUT "DROP_DHCP=$conf->{DROP_DHCP}\n";
-	print OUT "AUTH_TYPE=$conf->{AUTH_TYPE}\n";
-	print OUT "PUSH_GLOBAL_NETWORKS=$conf->{PUSH_GLOBAL_NETWORKS}\n";
-	print OUT "GLOBAL_NETWORKS=$conf->{GLOBAL_NETWORKS}\n";
-	print OUT "PUSH_GLOBAL_DNS=$conf->{PUSH_GLOBAL_DNS}\n";
-	print OUT "GLOBAL_DNS=$conf->{GLOBAL_DNS}\n";
-	print OUT "PUSH_DOMAIN=$conf->{'PUSH_DOMAIN'}\n";
-	print OUT "DOMAIN=$conf->{'DOMAIN'}\n";
-	print OUT "OPENVPN_ENABLED=$conf->{'OPENVPN_ENABLED'}\n";
-	close OUT;
+	writehash($conffile, $conf);
+        &log(_('Written down Openvpn configuration'));
     }
 
     if (!$enabled and $par{ENABLE} eq 'on') {