hmw3
/
Tips_and_Hacks
1
0
Fork 1
Files Issues Pull Requests Releases Wiki Activity See in Reader

Adapt tool for windows

This commit is contained in:
Henry Whitney 2019-04-13 17:35:01 -04:00
parent c2dadad533
commit c771271a6e
2 changed files with 6 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
MAST_tW_PDF_Updater/FilesForUpdates/Mine.URL.Strong.Verse.OT.2.pl
View File

@ -11,7 +11,6 @@ use File::Find ;
use FindBin '$Bin';
use Cwd ;
my ($pwd, $d, $textEditor, $repoPath, $browser) = ($Bin, "\\");
if ($^O eq "darwin" || $^O eq "linux") {$d = "/"}
@ -23,6 +22,8 @@ elsif ($^O eq "darwin") {$udf = "User_defaults.mac.txt"}
chdir $Bin;
$pwd = cwd(); say "\$pwd: $pwd"; die;
open (my $defaults, "<:utf8", "User${d}$udf") or die "User${d}$udf:\n$!";
GetUserDefaults();
@ -279,8 +280,11 @@ sub Finish {
system `$textEditor $excFile &`;}
if ($^O eq "MSWin32" || $^O eq "MSWin64" ) {
system `START "" $browser https://www.blueletterbible.org/lang/lexicon/lexicon.cfm?strongs=$strong`;
say "\$outputFiles: $outputFiles";
system `START "" $textEditor $outputFiles`;
say "\$excFile: $excFile";
system `START "" $textEditor $excFile`;
say "\$displayFile $displayFile";
system `START "" $browser $displayFile`;}
# if ($^O eq "linux") {system `$browser $displayFile`};
}

2
MAST_tW_PDF_Updater/FilesForUpdates/Temp/temp.tmp
View File

@ -1 +1 @@
Zechariah 7:14 3045
Ezra 6:1 1240