#!/usr/local/bin/perl
# A script for converting bible verses to references to
# the bible server.  It reads stdin and writes stdout.
#
$on=1;
while(<>) {
        chop;
        $x = $_;
        $onsav = $on;
        &doline;
        until($x eq $nx) {
                $x = $nx;
                $on = $onsav;
                &doline;
        }
        print $nx,"\n";
}
sub doline {
        @a = split(/<(\/?)[aA][^>]*>/,$x);
        $nx=$x;
        for($i=0;$i<=$#a;$i++) {
                if($a[$i] eq "") {
                        $on = 0;
                }
                if($on == 1) {
                        if($a[$i] =~ /([1-2] ?)?([A-Z][a-z]+ ?[0-9]+:[0-9]+)(-[0-9]+)?/) {
                                $v="${1}${2}${3}";
                                &prvr;
                                $nx =~ s/$sv/$nv/;
                        }
                }
                if($a[$i] eq "/") {
                        $on = 1;
                }
        }
}

sub prvr {
        $sv=$v;
        $v =~ s/ /+/g;
        $nv="<a href=\"http://www.gospelcom.net/cgi-bin/bible?language=English&version=RSV&search=&passage=$v\">$sv</a>";
}