Try the following sub bible, including the whole Old Testament
sub bible {
my ($orig, $b, $c) = @_;
$a = $orig;
$a =~ s/^(GEN|Genesis)$/GE/i;
$a =~ s/^(Exodus|EXO)$/EX/i;
$a =~ s/^(LEV|Levitcus)$/LE/i;
$a =~ s/^(NUM|Numbers)$/NU/i;
$a =~ s/^(DEU|Deuteronomy)$/DE/i;
$a =~ s/^(JOS|Josh|Joshua)$/JOS/i;
$a =~ s/^(JGS|Judges)$/JUD/i;
$a =~ s/^(RTH|Ruth)$/RU/i;
$a =~ s/^(1SAM|1.*?Samuel)$/1SA/i;
$a =~ s/^(2SAM|2.*?Samuel)$/2SA/i;
$a =~ s/^(1KGS|1.*?Kings)$/1KI/i;
$a =~ s/^(2KGS|2.*?Kings)$/2KI/i;
$a =~ s/^(1CHR|1.*?Chronicles)$/1CH/i;
$a =~ s/^(2CHR|2.*?Chronicles)$/2CH/i;
$a =~ s/^Ezra$/EZR/i;
$a =~ s/^(NEH|Nehemiah)$/NE/i;
$a =~ s/^(EST|Esther)$/ES/i;
$a =~ s/^(PSA|Psalms)$/PS/i;
$a =~ s/^(PRO|Proverbs)$/PR/i;
$a =~ s/^(ECC|Ecclesiastes)$/EC/i;
$a =~ s/^(SOL|Song.*?Solomon|Song.*?Songs)$/SO/i;
$a =~ s/^Isiah$/ISA/i;
$a =~ s/^Jeremiah$/JER/i;
$a =~ s/^(LAM|Lamentations)$/LA/i;
$a =~ s/^Ezekiel$/EZE/i;
$a =~ s/^(DAN|Daniel)$/DA/i;
$a =~ s/^(HOS|Hosea)$/HO/i;
$a =~ s/^Joel$/JOE/i;
$a =~ s/^(AMO|Amos)$/AM/i;
$a =~ s/^(OBA|Obadiah)$/OB/i;
$a =~ s/^Jonah$/JON/i;
$a =~ s/^Micah$/MIC/i;
$a =~ s/^(NAH|Nahum)$/NA/i;
$a =~ s/^Habakuk$/HAB/i;
$a =~ s/^Zephaniah$/ZEP/i;
$a =~ s/^Haggai$/HAG/i;
$a =~ s/^Zechariah$/ZEC/i;
$a =~ s/^Malachi$/MAL/i;
$a =~ s/^(.*?)$/U$1E/;
if (&FileExists("$vars_config{CGIPath}/bible/$a.DBY")) {
my $file = &OpenFileAsString("$vars_config{CGIPath}/bible/$a.DBY");
if ($file =~ m/$b:$c /) {
$file =~ s/(.*?)$b:$c//isg;
$d = $b+1; $e = $c+1;
$file =~ s/$d:1(.*?)$//isg; $file =~ s/$b:$e(.*?)$//isg;
return qq~ </font><blockquote><font size="1" face="$vars_style{FontFace}">bible quote:</font><hr /><font size="$vars_style{TextSize}" face="$vars_style{FontFace}"><b>$orig $b:$c</b>
~.&ConvertReturns($file).qq~</font><hr /></blockquote><font size="$vars_style{TextSize}" face="$vars_style{FontFace}">~;
}
}
return "[BIBLE=$orig] $b:$c [/BIBLE]";
}
Lemme know of any problem..
Edit: there are some bugs, I'll fix them when I get back...