ovpn changes

diff --git a/Tools/ovpn.pl b/Tools/ovpn.pl
index bc85414..50ce6f8 100644 (file)
--- a/Tools/ovpn.pl
+++ b/Tools/ovpn.pl
@@ -4,6 +4,9 @@ use strict;
 use Getopt::Long;\r
 use File::Find::Rule;\r
 use File::Basename;\r
+use Win32::HideConsole;\r
+\r
+hide_console;\r
 my $connect =0;\r
 my $disconnect=0;\r
 GetOptions("connect" => \$connect,"disconnect" => \$disconnect);\r
@@ -45,7 +48,9 @@ if ($connect == $disconnect){
        } else {\r
                &vpndisconnect();\r
        }\r
-}      \r
+}\r
+print "Normal End!\n";\r
+exit(0); \r
 \r
 sub vpnconnect(){\r
        \r

diff --git a/install/create_setup_windows.pl b/install/create_setup_windows.pl
index 8f06f3c..0ed04f4 100644 (file)
--- 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);