From: Kilian Saffran <ksaffran@dks.lu>
Date: Fri, 27 Apr 2018 11:39:19 +0000 (+0200)
Subject: ovpn changes
X-Git-Tag: 3.19.4
X-Git-Url: http://cloud.dks.lu/git/?a=commitdiff_plain;h=a78d492b8f678436dfaec7fe92d7503d7ea3411b;p=creorga.git

ovpn changes
---

diff --git a/Tools/ovpn.pl b/Tools/ovpn.pl
index bc85414..50ce6f8 100644
--- a/Tools/ovpn.pl
+++ b/Tools/ovpn.pl
@@ -4,6 +4,9 @@ use strict;
 use Getopt::Long;
 use File::Find::Rule;
 use File::Basename;
+use Win32::HideConsole;
+
+hide_console;
 my $connect =0;
 my $disconnect=0;
 GetOptions("connect" => \$connect,"disconnect" => \$disconnect);
@@ -45,7 +48,9 @@ if ($connect == $disconnect){
 	} else {
 		&vpndisconnect();
 	}
-}	
+}
+print "Normal End!\n";
+exit(0); 
 
 sub vpnconnect(){
 	
diff --git a/install/create_setup_windows.pl b/install/create_setup_windows.pl
index 8f06f3c..0ed04f4 100644
--- a/install/create_setup_windows.pl
+++ b/install/create_setup_windows.pl
@@ -180,7 +180,7 @@ close(APP);
 
 make_path("C:\\Users\\ksaff\\Release\\dist\\Tools");
 chdir("C:\\Users\\ksaff\\Release\\tag\\Tools");
-system('"C:\\Strawberry\\perl\\site\\bin\\pp" -g -o "C:\\Users\\ksaff\\Release\\dist\\Tools\\ovpn.exe" ovpn.pl');
+system('"C:\\Strawberry\\perl\\site\\bin\\pp" -o "C:\\Users\\ksaff\\Release\\dist\\Tools\\ovpn.exe" ovpn.pl');
 if (($setup eq "director")){
 #  open(CHKS,">C:\\Users\\ksaff\\Release\\dist\\checkschema.txt");
 #  close(CHKS);