my $ms = <STDIN>;
chomp($ms);
$setup = $modes[$ms];
-print "Mode selected:".$modes[$ms]."!\n";
+
+#print "Mode selected:".$modes[$ms]."!\n";
my @tags = split("\n",$strtags);
my @tex = grep(/^refs\/tags\/$tag$/,@tags);
#if ($showtags == 1) {
foreach my $t (reverse(@tags)){
+ $t =~ s/refs\/tags\///;
print $t."\n";
}
# exit(0);
#}
+print "Select tag:\nTag:";
$tag = <STDIN>;
chomp($tag);
-print "Compiling Creorga".$setup." version ".$tag."\n";
-
-exit(0);
+print "Compiling Creorga ".$setup." version ".$tag."\n";
+
remove_tree("C:\\Users\\ksaff\\Release",{keep_root => 1});
if (scalar(@tex) > 0) {
print "Tag $tag exists!\n";
make_path("C:\\Users\\ksaff\\Release\\dist\\Tools");
copy("C:\\Debug\\Creorga\\Tools\\pdftotext.exe","C:\\Users\\ksaff\\Release\\dist\\Tools\\pdftotext.exe");
#chdir("C:\\Users\\ksaff\\Release\\tag\\tools\\perl");
- chdir("C:\\Users\\ksaff\\Release\\tag\\app\\Tools");
- unlink("C:\\Users\\ksaff\\Release\\tag\\app\\Tools\\vpnclose.sh");
- unlink("C:\\Users\\ksaff\\Release\\tag\\app\\Tools\\vpnconnect.sh");
- unlink("C:\\Users\\ksaff\\Release\\tag\\app\\Tools\\vpncfg.txt");
+ chdir("C:\\Users\\ksaff\\Release\\tag\\app_v3\\Tools");
+ unlink("C:\\Users\\ksaff\\Release\\tag\\app_v3\\Tools\\vpnclose.sh");
+ unlink("C:\\Users\\ksaff\\Release\\tag\\app_v3\\Tools\\vpnconnect.sh");
+ unlink("C:\\Users\\ksaff\\Release\\tag\\app_v3\\Tools\\vpncfg.txt");
#compile executeables
system('"C:\\Strawberry\\perl\\site\\bin\\pp" -o "C:\\Users\\ksaff\\Release\\dist\\Tools\\creorgadb.exe" -g creorgadb.pl');
system('"C:\\Strawberry\\perl\\site\\bin\\pp" -o "C:\\Users\\ksaff\\Release\\dist\\Tools\\pdfextract.exe" pdfextract.pl');
open(CHKS,">C:\\Users\\ksaff\\Release\\dist\\checkschema.txt");
close(CHKS);
make_path("C:\\Users\\ksaff\\Release\\dist\\Tools");
- chdir("C:\\Users\\ksaff\\Release\\tag\\app\\Tools");
- unlink("C:\\Users\\ksaff\\Release\\tag\\app\\Tools\\vpnclose.sh");
- unlink("C:\\Users\\ksaff\\Release\\tag\\app\\Tools\\vpnconnect.sh");
- unlink("C:\\Users\\ksaff\\Release\\tag\\app\\Tools\\vpncfg.txt");
+ chdir("C:\\Users\\ksaff\\Release\\tag\\app_v3\\Tools");
+ unlink("C:\\Users\\ksaff\\Release\\tag\\app_v3\\Tools\\vpnclose.sh");
+ unlink("C:\\Users\\ksaff\\Release\\tag\\app_v3\\Tools\\vpnconnect.sh");
+ unlink("C:\\Users\\ksaff\\Release\\tag\\app_v3\\Tools\\vpncfg.txt");
system('"C:\\Strawberry\\perl\\site\\bin\\pp" -o "C:\\Users\\ksaff\\Release\\dist\\Tools\\creorgadb.exe" -g creorgadb.pl');
#system('"C:\\Program Files (x86)\\ActiveState Perl Dev Kit 9.5.1\\bin\\perlapp.exe" --norunlib --clean --gui --force --info "CompanyName=DKS sarl;FileDescription=Schema Creorga DB Schema;FileVersion=1.0;InternalName=creorgadb.exe;LegalCopyright=2017 DKS sarl;OriginalFilename=creorgadb.exe;ProductName=creorgadb;ProductVersion=1.0" --exe "C:\\Users\\ksaff\\Release\\dist\\Tools\\creorgadb.exe" --perl "C:\\perl\\bin\\perl.exe" "C:\\Users\\ksaff\\Release\\tag\\app\\Tools\\creorgadb.pl"');
}