<style type="text/css"> 
blockquote {
  font-size: 9pt;
  border: 1px solid #4577AB;
  background: #FDF5E6;
  color: black;
  margin: 8px 20px;
  padding: 0px 10px
}
blockquote .small {
  background:#34669A;
  color: white;
  margin-left:-10px;
  padding:1px 2px
}
blockquote hr {
  visibility:hidden;
  height:1px
}
blockquote br {
  font-size:8px
}
 a:visited {
  text-decoration: none
}
 a:link {
  text-decoration: none
}
 a:hover {
  color: #008000;
  font: italic;
  text-decoration: none
}
 a:active {
  text-decoration: none
}
</style>

[bible]add bible quote[/bible]

[bible=Ephesians 1:16]do not cease ...[/bible]

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]";
}