RPP
/
Tips_and_Hacks
forked from hmw3/Tips_and_Hacks
7
0
Fork 0
Files Issues Pull Requests Releases Wiki Activity See in Reader

Another try at Linux

This commit is contained in:
Henry Whitney 2019-05-02 10:33:33 -04:00
parent 02980d1798
commit 2c5eebb7c8
2 changed files with 14 additions and 11 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
MAST_tW_PDF_Updater/FilesForUpdates/Exceptions/Exceptions_tWs_from_OSHB.txt
View File

@ -4128,7 +4128,7 @@ Daniel 11:1 2388 ||
Daniel 11:2 5046 ||
Daniel 11:2 5750 ||
Daniel 11:2 1419 ||
Daniel 11:3 4910
Daniel 11:3 4910 ruler
Daniel 11:3 7227 ||
Daniel 11:3 6213 ||
Daniel 11:3 7522 ||

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

@ -38,7 +38,7 @@ open (my $defaults, "<:utf8", "User${d}$udf") or die "User${d}$udf:\n$!";
GetUserDefaults();
my ($excFile, $topDir, $txtFile, $dataFile, $displayFile, $filePattern, $sn, $xfAbr, $thisULB) = (
my ($exceptions_file, $topDir, $txtFile, $dataFile, $displayFile, $filePattern, $sn, $xfAbr, $thisULB) = (
"$Bin${d}Exceptions${d}Exceptions_tWs_from_OSHB.txt",
"$repoPath${d}en_tw/bible",
"$Bin${d}Temp${d}ULB_NASB_Strongs.txt",
@ -115,7 +115,7 @@ sub ParseLine {
if ($missingLine =~ /^(([^:]*) (\d+):(\d+))\t(\d+)/) {
($ref, $bk, $ch, $vs, $sn, $xfAbr) = ($1, $2, $3, $4, $5, $bkAbr{$1});
($sch, $svs) = ($ch, $vs);
if ($^O eq "MSWin32") {
if ($^O eq "MSWin32" || $^O eq "linux") {
my $bbkk = $bk;
$bbkk =~ s/ /_/g;
$bbkk = lc $bbkk;
@ -229,10 +229,11 @@ sub FindVerse {
system `$browser https://www.blueletterbible.org/lang/lexicon/lexicon.cfm?strongs=H$strong`;
}
if ($^O eq "linux") {
system `xdg-open https://www.blueletterbible.org/lang/lexicon/lexicon.cfm?strongs=H$strong &`;
#system "chromium https://www.blueletterbible.org/lang/lexicon/lexicon.cfm?strongs=H$strong &";
system "xdg-open https://www.blueletterbible.org/lang/lexicon/lexicon.cfm?strongs=H$strong &";
}
if ($^O eq "MSWin32" || $^O eq "MSWin64" ) {
system `START "" https://www.blueletterbible.org/lang/lexicon/lexicon.cfm?strongs=H$strong`;
system "START \"\" https://www.blueletterbible.org/lang/lexicon/lexicon.cfm?strongs=H$strong";
}
die
}
@ -305,21 +306,23 @@ sub Finish {
if ($^O eq "darwin") {
system `$browser https://www.blueletterbible.org/lang/lexicon/lexicon.cfm?strongs=$strong`;
system `$textEditor $tW_files`;
system `$textEditor $excFile`;}
system `$textEditor $exceptions_file`;}
if ($^O eq "linux") {
say "Opening https://www.blueletterbible.org/lang/lexicon/lexicon.cfm?strongs=$strong &";
system "xdg-open https://www.blueletterbible.org/lang/lexicon/lexicon.cfm?strongs=$strong &";
#system "xdg-open https://www.blueletterbible.org/lang/lexicon/lexicon.cfm?strongs=$strong &";
system "chromium https://www.blueletterbible.org/lang/lexicon/lexicon.cfm?strongs=$strong &";
say "Opening $blbRef &";
system "xdg-open $blbRef &";
#system "xdg-open $blbRef &";
system "chromium $blbRef &";
my @tWs = split / /,$tW_files;
foreach (@tWs) {
say "Opening $_";
system "xdg-open $_ &"
}
say "Opening $excFile";
system "xdg-open $excFile &";
say "Opening $exceptions_file";
system "xdg-open $exceptions_file &";
say "Opening $displayFile";
system "xdg-open $displayFile &";
system "chromium $displayFile &";
}
if ($^O eq "MSWin32" || $^O eq "MSWin64" ) {
say "Opening $blbRef";