#!/usr/bin/perl %kirjanimi = ( "1Moos", "Ensimmäinen Mooseksen kirja", "2Moos", "Toinen Mooseksen kirja", "3Moos", "Kolmas Mooseksen kirja", "4Moos", "Neljäs Mooseksen kirja", "5Moos", "Viides Mooseksen kirja", "Joos", "Joosuan kirja", "Tuom", "Tuomarien kirja", "Ruut", "Ruutin kirja", "1Sam", "Ensimmäinen Samuelin kirja", "2Sam", "Toinen Samuelin kirja", "1Kun", "Ensimmäinen kuninkaiden kirja", "2Kun", "Toinen kuninkaiden kirja", "1Aik", "Ensimmäinen aikakirja", "2Aik", "Toinen aikakirja", "Esra", "Esran kirja", "Neh", "Nehemian kirja", "Est", "Esterin kirja", "Job", "Jobin kirja", "Ps", "Psalmien kirja", "Sananl", "Sananlaskujen kirja", "Saarn", "Saarnaajan kirja", "Laull", "Laulujen laulu", "Jes", "Jesajan kirja", "Jer", "Jeremian kirja", "Valit", "Valitusvirret", "Hes", "Hesekielin kirja", "Dan", "Danielin kirja", "Hoos", "Hoosean kirja", "Joel", "Joelin kirja", "Aam", "Aamoksen kirja", "Ob", "Obadjan kirja", "Joona", "Joonan kirja", "Miika", "Miikan kirja", "Nah", "Nahumin kirja", "Hab", "Habakukin kirja", "Sef", "Sefanjan kirja", "Hagg", "Haggain kirja", "Sak", "Sakarjan kirja", "Mal", "Malakian kirja", "Matt", "Evankeliumi Matteuksen mukaan", "Mark", "Evankeliumi Markuksen mukaan", "Luuk", "Evankeliumi Luukkaan mukaan", "Joh", "Evankeliumi Johanneksen mukaan", "Apt", "Apostolien teot", "Room", "Kirje roomalaisille", "1Kor", "Ensimmäinen kirje korinttilaisille", "2Kor", "Toinen kirje korinttilaisille", "Gal", "Kirje galatalaisille", "Ef", "Kirje efesolaisille", "Fil", "Kirje filippiläisille", "Kol", "Kirje kolossalaisille", "1Tess", "Ensimmäinen kirje tessalonikalaisille", "2Tess", "Toinen kirje tessalonikalaisille", "1Tim", "Ensimmäinen kirje Timoteukselle", "2Tim", "Toinen kirje Timoteukselle", "Tit", "Kirje Titukselle", "Filem", "Kirje Filemonille", "Hepr", "Kirje heprealaisille", "Jaak", "Jaakobin kirje", "1Piet", "Ensimmäinen Pietarin kirje", "2Piet", "Toinen Pietarin kirje", "1Joh", "Ensimmäinen Johanneksen kirje", "2Joh", "Toinen Johanneksen kirje", "3Joh", "Kolmas Johanneksen kirje", "Juud", "Juudaksen kirje", "Ilm", "Johanneksen ilmestys" ); @kirjat = ( "1Moos", "2Moos", "3Moos", "4Moos", "5Moos", "Joos", "Tuom", "Ruut", "1Sam", "2Sam", "1Kun", "2Kun", "1Aik", "2Aik", "Esra", "Neh", "Est", "Job", "Ps", "Sananl", "Saarn", "Laull", "Jes", "Jer", "Valit", "Hes", "Dan", "Hoos", "Joel", "Aam", "Ob", "Joona", "Miika", "Nah", "Hab", "Sef", "Hagg", "Sak", "Mal", "Matt", "Mark", "Luuk", "Joh", "Apt", "Room", "1Kor", "2Kor", "Gal", "Ef", "Fil", "Kol", "1Tess", "2Tess", "1Tim", "2Tim", "Tit", "Filem", "Hepr", "Jaak", "1Piet", "2Piet", "1Joh", "2Joh", "3Joh", "Juud", "Ilm"); # standard: &cgi_receive; &cgi_decode; print "Content-type: text/html\n"; print "\n"; if (!defined $FORM{'FORM'} && defined $FORM{"kirja"} && defined $FORM{"luku"} && defined $FORM{"jae"}){ &ok_haku(); } else { if (defined $FORM{'FORM'}) { print "
'; &mk_form; print '
Kommentteja, parannusehdotuksia ja muuta mukavaa voi lähettää osoitteella puhuri@iki.fi.'; print '
Cross Wire Bible Societyn sivuilla on "Raamattutyökalu", jolla voi mm. tutkia useita käännöksiä rinnan.
'; print "\n