#!/usr/bin/perl -wT #DEFINE EXTERNAL MODULE USES use CGI; use CGI::Carp qw(fatalsToBrowser); use strict; use warnings; use Regexp::Assemble; use Encode; use Encode qw(encode decode); use open qw( :std :encoding(UTF-8) ); print "Content-type: text/html; charset=utf-8\n\n"; #print CGI::header(); binmode STDOUT, ":utf8"; our $booksfile = 'BibleBooks_Abbreviations_PlusApoc_FULL.txt'; # Filename says it all! our $thisprogram = "text-thml.pl"; #MAY NEED TO BE FULLY QUALIFIED URL our $book = ""; # For Bible book names assembled in regex via Regexp::Assemble our $text = ""; # Holds text from HTML form to be processed our %input; # For holding name/value key pairs from HTML form input ###################### ### BEGIN PROGRAM ### &parseinputs; &assemblebooks; &parsetext; &printHTML; exit; ### FINISH PROGRAM ### ###################### sub parseinputs { my $buffer=""; my $pair=""; my @pairs=(); if ($ENV{CONTENT_LENGTH}) { read(STDIN, $buffer, $ENV{CONTENT_LENGTH}); @pairs = split(/&/,$buffer); } else { $buffer = $ENV{QUERY_STRING}; @pairs = split(/\&/,$buffer); } foreach $pair (@pairs) { $pair=~s/`/ /g; #REMOVE BACKTICKS AS A SECURITY AND FUNCTIONALITY MEASURE TO PROTECT REMAINDER OF SCRIPT #$input{translate}=''; my ($name, $value) = split(/=/,$pair); $value =~ tr/+/ /; $name =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C",hex($1))/eg; $value =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C",hex($1))/eg; $name = decode("utf-8", $name); $value = decode("utf-8", $value); $input{$name} = $value; } $text=$input{terms}; } # END SUB sub assemblebooks { my @data = (); # To hold file source data my @books = (); # To hold book tokens for entire file my @temp = (); # To hold single book's tokens (one line in file) my $line = ""; # For each line of the file my $piece = ""; # For each record in line open (DATA, '<:encoding(utf8)', $booksfile) or die "Cannot open the Bible book names file! $!\n"; @data = ; close DATA; foreach $line (@data) { chomp $line; @temp = split/\t|,\s/, $line; foreach $piece (@temp) { push @books, "$piece\n"; } } $book = Regexp::Assemble->new; foreach $line (@books) { chomp $line; $book->add( "$line" ); } } # END SUB sub parsetext { $text =~ s% (?LOOK FOR OPTIONAL VERSION NOTATION=$5 (?:\(\w+\)*) # >MATCH WORD IN PARENTHESES | # > -OR- (?:[, ]+\w+)* # >MATCH COMMA OR SPACE FOLLOWED BY WORD )* # >CLOSE CAPTURE FOR $5 \)* # MATCH OPTIONAL PARENTHESIS ) # CLOSE CAPTURE OF $1 *** (?>!(?:\[TAGGED_END\])) # WE CAN REMOVE THESE TAGS LATER %\[TAGGED_START\]$1\[TAGGED_END\]%gx; #$text =~ s/(<\!--TAGGED_START-->)|(<\!--TAGGED_END-->)//g; } #END SUB parsetext sub printHTML { print < Text/HTML --> ThML Parser

Enter your text in the box below, then submit for ThML.

$text
$book
HTML } # END SUB #### Book Name Abbreviations Genesis Gen, Ge, Gn Exodus Exo, Ex, Exod Leviticus Lev, Le, Lv Numbers Num, Nu, Nm, Nb Deuteronomy Deut, Dt Joshua Josh, Jos, Jsh Judges Judg, Jdg, Jg, Jdgs Ruth Rth, Ru 1 Samuel 1 Sam, 1 Sa, 1Samuel, 1S, I Sa, 1 Sm, 1Sa, I Sam, 1Sam, I Samuel, 1st Samuel, First Samuel 2 Samuel 2 Sam, 2 Sa, 2Samuel, 2S, II Sa, 2 Sm, 2Sa, II Sam, 2Sam, II Samuel, 2Samuel, 2nd Samuel, Second Samuel 1 Kings 1 Kgs, 1 Ki, 1K, I Kgs, 1Kgs, I Ki, 1Ki, I Kings, 1Kings, 1st Kgs, 1st Kings, First Kings, First Kgs, 1Kin 2 Kings 2 Kgs, 2 Ki, 2K, II Kgs, 2Kgs, II Ki, 2Ki, II Kings, 2Kings, 2nd Kgs, 2nd Kings, Second Kings, Second Kgs, 2Kin 1 Chronicles 1 Chron, 1 Ch, I Ch, 1Ch, 1 Chr, I Chr, 1Chr, I Chron, 1Chron, I Chronicles, 1Chronicles, 1st Chronicles, First Chronicles, 3 Kgs, 3 Ki, 3K, III Kgs, 3Kgs, III Ki, 3Ki, III Kings, 3Kings, 3rd Kgs, 3rd Kings, Third Kings, Third Kgs, 3Kin 2 Chronicles 2 Chron, 2 Ch, II Ch, 2Ch, 2 Chr, II Chr, 2Chr, II Chron, 2Chron, II Chronicles, 2Chronicles, 2nd Chronicles, Second Chronicles, 4 Kgs, 4 Ki, 4K, IV Kgs, 4Kgs, IV Ki, 4Ki, IV Kings, 4Kings, 4th Kgs, 4th Kings, Fourth Kings, Fourth Kgs, 4Kin Ezra Ezra, Ezr Nehemiah Neh, Ne Esther Esth, Es Job Job, Job, Jb Psalm Pslm, Ps, Psalms, Psa, Psm, Pss Proverbs Prov, Pr, Prv Ecclesiastes Eccles, Ec, Qoh, Qoheleth Song of Solomon Song, So, Canticle of Canticles, Canticles, Song of Songs, SOS Isaiah Isa, Is Jeremiah Jer, Je, Jr Lamentations Lam, La Ezekiel Ezek, Eze, Ezk Daniel Dan, Da, Dn Hosea Hos, Ho Joel Joel, Joe, Jl Amos Amos, Am Obadiah Obad, Ob Jonah Jnh, Jon Micah Micah, Mic Nahum Nah, Na Habakkuk Hab, Hab Zephaniah Zeph, Zep, Zp Haggai Haggai, Hag, Hg Zechariah Zech, Zec, Zc Malachi Mal, Mal, Ml Tobit Tobit, Tob, Tb Judith Jdth, Jdt, Jth Additions to Esther Add Esth, Add Es, Rest of Esther, The Rest of Esther, AEs, AddEsth Wisdom of Solomon Wisd of Sol, Wis, Ws, Wisdom Sirach Sirach, Sir, Ecclesiasticus, Ecclus Baruch Baruch, Bar Letter of Jeremiah Let Jer, Let Jer, LJe, Ltr Jer Song of Three Youths Song of Three, Song Thr, The Song of Three Youths, Pr Az, Prayer of Azariah, Azariah, The Song of the Three Holy Children, The Song of Three Jews, Song of the Three Holy Children, Song of Thr, Song of Three Children, Song of Three Jews Susanna Susanna, Sus Bel and the Dragon Bel, Bel 1 Maccabees 1 Macc, 1 Mac, 1M, I Ma, 1Ma, I Mac, 1Mac, I Macc, 1Macc, I Maccabees, 1Maccabees, 1st Maccabees, First Maccabees 2 Maccabees 2 Macc, 2 Mac, 2M, II Ma, 2Ma, II Mac, 2Mac, II Macc, 2Macc, II Maccabees, 2Maccabees, 2nd Maccabees, Second Maccabees 1 Esdras 1 Esdr, 1 Esd, I Es, 1Es, I Esd, 1Esd, I Esdr, 1Esdr, I Esdras, 1Esdras, 1st Esdras, First Esdras Prayer of Manasseh Pr of Man, Pr Man, PMa, Prayer of Manasses Additional Psalm Add Psalm, Add Ps 3 Maccabees 3 Macc, 3 Mac, III Ma, 3Ma, III Mac, 3Mac, III Macc, 3Macc, III Maccabees, 3rd Maccabees, Third Maccabees 2 Esdras 2 Esdr, 2 Esd, II Es, 2Es, II Esd, 2Esd, II Esdr, 2Esdr, II Esdras, 2Esdras, 2nd Esdras, Second Esdras 4 Maccabees 4 Macc, 4 Mac, IV Ma, 4Ma, IV Mac, 4Mac, IV Macc, 4Macc, IV Maccabees, IIII Maccabees, 4Maccabees, 4th Maccabees, Fourth Maccabees Ode Ode, Ode Psalms of Solomon Ps Solomon, Ps Sol, Psalms Solomon, PsSol Epistle to the Laodiceans Laodiceans, Laod, Ep Laod, Epist Laodiceans, Epistle Laodiceans, Epistle to Laodiceans 3 Esdras 3 Esd, 3Esd 4 Esdras 4 Esd, 4Esd 5 Esdras 5 Esd, 5Esd Matthew Matt, Mt Mark Mrk, Mk, Mr Luke Luk, Lk John John, Jn, Jhn Acts Acts, Ac Romans Rom, Ro, Rm 1 Corinthians 1 Cor, 1 Co, I Co, 1Co, I Cor, 1Cor, I Corinthians, 1Corinthians, 1st Corinthians, First Corinthians 2 Corinthians 2 Cor, 2 Co, II Co, 2Co, II Cor, 2Cor, II Corinthians, 2Corinthians, 2nd Corinthians, Second Corinthians Galatians Gal, Ga Ephesians Ephes, Eph Philippians Phil, Php Colossians Col, Col 1 Thessalonians 1 Thess, 1 Th, I Th, 1Th, I Thes, 1Thes, I Thess, 1Thess, I Thessalonians, 1Thessalonians, 1st Thessalonians, First Thessalonians 2 Thessalonians 2 Thess, 2 Th, II Th, 2Th, II Thes, 2Thes, II Thess, 2Thess, II Thessalonians, 2Thessalonians, 2nd Thessalonians, Second Thessalonians 1 Timothy 1 Tim, 1 Ti, I Ti, 1Ti, I Tim, 1Tim, I Timothy, 1Timothy, 1st Timothy, First Timothy 2 Timothy 2 Tim, 2 Ti, II Ti, 2Ti, II Tim, 2Tim, II Timothy, 2Timothy, 2nd Timothy, Second Timothy Titus Titus, Tit Philemon Philem, Phm Hebrews Hebrews, Heb James James, Jas, Jm 1 Peter 1 Pet, 1 Pe, I Pe, 1Pe, I Pet, 1Pet, I Pt, 1 Pt, 1Pt, I Peter, 1Peter, 1st Peter, First Peter 2 Peter 2 Pet, 2 Pe, II Pe, 2Pe, II Pet, 2Pet, II Pt, 2 Pt, 2Pt, II Peter, 2Peter, 2nd Peter, Second Peter 1 John 1 John, 1 Jn, I Jn, 1Jn, I Jo, 1Jo, I Joh, 1Joh, I Jhn, 1 Jhn, 1Jhn, I John, 1John, 1st John, First John 2 John 2 John, 2 Jn, II Jn, 2Jn, II Jo, 2Jo, II Joh, 2Joh, II Jhn, 2 Jhn, 2Jhn, II John, 2John, 2nd John, Second John 3 John 3 John, 3 Jn, III Jn, 3Jn, III Jo, 3Jo, III Joh, 3Joh, III Jhn, 3 Jhn, 3Jhn, III John, 3John, 3rd John, Third John Jude Jude, Jud Revelation Rev, Re, The Revelation, Apocalypse, Apoc