#!/usr/bin/perl
#require "conf/config";
#require "conf/config_i";
require "config";
require "config_i";

print "Content-type: text/html\n\n";
&post_form_data;

$l = $field{'l'};
$u = $field{'u'};
$no = $field{'no'};

#&get_form_data;
#$url = $ENV{'QUERY_STRING'};

 if ($l eq ""){&ulaz}
 elsif ($l eq "s"){&srpski}
 elsif ($l eq "l"){&latinica}
 elsif ($l eq "e"){&engleski}
 else {&greska} ;


sub ulaz {
open (TXTFILE, "index.pod");
@index = <TXTFILE>;
close(TXTFILE);
print @index ;

}


sub srpski {

$iz_brojm = $no  ;

if ($no eq "") {
open (TXTFILE, $nostr{'svi_brojevi'});
@index = <TXTFILE>;
close(TXTFILE);
print @index ;
}
 elsif ($no eq "instrukcije") {
 &instrukcije ;
 }
else {
require "$iz_brojm/config";
  &brojevi_srpski;
}


}

sub instrukcije {
open (TXTFILE, $nostr{'instrukcije'});
@index = <TXTFILE>;
close(TXTFILE);
print @index ;
}





sub brojevi_srpski {

if ($u eq $s_url{'0'}){
open (TXTFILE, $s_str{'0'});
@index = <TXTFILE>;
close(TXTFILE);
print @index ;
}
elsif ($u eq $s_url{'1'}){
open (TXTFILE, $s_str{'1'});
@index = <TXTFILE>;
close(TXTFILE);
print @index ;
}
elsif ($u eq $s_url{'2'}){
open (TXTFILE, $s_str{'2'});
@index = <TXTFILE>;
close(TXTFILE);
print @index ;
}
elsif ($u eq $s_url{'3'}){
open (TXTFILE, $s_str{'3'});
@index = <TXTFILE>;
close(TXTFILE);
print @index ;
}
elsif ($u eq $s_url{'4'}){
open (TXTFILE, $s_str{'4'});
@index = <TXTFILE>;
close(TXTFILE);
print @index ;
}
elsif ($u eq $s_url{'5'}){
open (TXTFILE, $s_str {'5'});
@index = <TXTFILE>;
close(TXTFILE);
print @index ;
}
elsif ($u eq  $s_url{'6'}){
open (TXTFILE, $s_str{'6'});
@index = <TXTFILE>;
close(TXTFILE);
print @index ;
}
elsif ($u eq $s_url{'7'}){
open (TXTFILE, $s_str{'7'});
@index = <TXTFILE>;
close(TXTFILE);
print @index ;
}
elsif ($u eq $s_url{'8'}){
open (TXTFILE, $s_str{'8'});
@index = <TXTFILE>;
close(TXTFILE);
print @index ;
}
elsif ($u eq $s_url{'9'}){
open (TXTFILE, $s_str{'9'});
@index = <TXTFILE>;
close(TXTFILE);
print @index ;
}
elsif ($u eq $s_url{'10'}){
open (TXTFILE, $s_str {'10'});
@index = <TXTFILE>;
close(TXTFILE);
print @index ;
}
elsif ($u eq $s_url{'11'}){
open (TXTFILE, $s_str{'11'});
@index = <TXTFILE>;
close(TXTFILE);
print @index ;
}
elsif ($u eq $s_url{'12'}){
open (TXTFILE, $s_str{'12'});
@index = <TXTFILE>;
close(TXTFILE);
print @index ;
}
elsif ($u eq $s_url{'instrukcije'}){
open (TXTFILE, "instrukcije.pod");
@index = <TXTFILE>;
close(TXTFILE);
print @index ;

}
 return (1);
}




########### L  A  T  I N  I  C  A  ###################

sub latinica {

$iz_brojm = $no  ;

if ($no eq "") {
open (TXTFILE, $nostr{'svi_brojevi_l'});
@index = <TXTFILE>;
close(TXTFILE);
foreach $file (@index) {
# &konvertuj_u_latinicu ;
 }
print @index ;
}
 elsif ($no eq "instrukcije") {
 &instrukcije_l ;
 }
else {
require "$iz_brojm/config";
  &brojevi_latinica;
}

}


sub instrukcije_l {
open (TXTFILE, $nostr{'instrukcije'});
@index = <TXTFILE>;
close(TXTFILE);
foreach $file (@index) {
 &konvertuj_u_latinicu ;
 }
print @index ;
}



sub brojevi_latinica {

if ($u eq $s_url{'0'}){
open (TXTFILE, $s_str{'0'});
@index = <TXTFILE>;
close(TXTFILE);
foreach $file (@index) {
# &konvertuj_u_latinicu ;
 }
print @index ;
}
elsif ($u eq $s_url{'1'}){
open (TXTFILE, $s_str{'1'});
@index = <TXTFILE>;
close(TXTFILE);
foreach $file (@index) {
# &konvertuj_u_latinicu ;
 }
print @index ;
}
elsif ($u eq $s_url{'2'}){
open (TXTFILE, $s_str{'2'});
@index = <TXTFILE>;
close(TXTFILE);
foreach $file (@index) {
# &konvertuj_u_latinicu ;
 }
print @index ;
}
elsif ($u eq $s_url{'3'}){
open (TXTFILE, $s_str{'3'});
@index = <TXTFILE>;
close(TXTFILE);
foreach $file (@index) {
# &konvertuj_u_latinicu ;
 }
print @index ;
}
elsif ($u eq $s_url{'4'}){
open (TXTFILE, $s_str{'4'});
@index = <TXTFILE>;
close(TXTFILE);
foreach $file (@index) {
# &konvertuj_u_latinicu ;
 }
print @index ;
}
elsif ($u eq $s_url{'5'}){
open (TXTFILE, $s_str{'5'});
@index = <TXTFILE>;
close(TXTFILE);
foreach $file (@index) {
# &konvertuj_u_latinicu ;
 }
print @index ;
}
elsif ($u eq  $s_url{'6'}){
open (TXTFILE, $s_str{'6'});
@index = <TXTFILE>;
close(TXTFILE);
foreach $file (@index) {
# &konvertuj_u_latinicu ;
 }
print @index ;
}
elsif ($u eq $s_url{'7'}){
open (TXTFILE, $s_str{'7'});
@index = <TXTFILE>;
close(TXTFILE);
foreach $file (@index) {
# &konvertuj_u_latinicu ;
 }
print @index ;
}
elsif ($u eq $s_url{'8'}){
open (TXTFILE, $s_str{'8'});
@index = <TXTFILE>;
close(TXTFILE);
foreach $file (@index) {
# &konvertuj_u_latinicu ;
 }
print @index ;
}
elsif ($u eq $s_url{'9'}){
open (TXTFILE, $s_str{'9'});
@index = <TXTFILE>;
close(TXTFILE);
foreach $file (@index) {
# &konvertuj_u_latinicu ;
 }
print @index ;
}
elsif ($u eq $s_url{'10'}){
open (TXTFILE, $s_str {'10'});
@index = <TXTFILE>;
close(TXTFILE);
foreach $file (@index) {
# &konvertuj_u_latinicu ;
 }
print @index ;
}
elsif ($u eq $s_url{'11'}){
open (TXTFILE, $s_str{'11'});
@index = <TXTFILE>;
close(TXTFILE);
foreach $file (@index) {
# &konvertuj_u_latinicu ;
 }
print @index ;
}
elsif ($u eq $s_url{'12'}){
open (TXTFILE, $s_str{'12'});
@index = <TXTFILE>;
close(TXTFILE);
foreach $file (@index) {
# &konvertuj_u_latinicu ;
 }
print @index ;
}
elsif ($u eq $s_url{'instrukcije'}){
open (TXTFILE, "instrukcije_l.pod");
@index = <TXTFILE>;
close(TXTFILE);
foreach $file (@index) {
# &konvertuj_u_latinicu ;
 }
print @index ;

}
 return (1);
}





############          ENGLESKI                 #########

sub engleski {

$iz_brojm = $no  ;

if ($no eq "") {
open (TXTFILE, $nostr{'all_issues'});
@index = <TXTFILE>;
close(TXTFILE);
print @index ;
}
 elsif ($no eq "instructions") {
 &instructions ;
 }
else {
require "$iz_brojm/config";
  &brojevi_engleski;
}
}

sub instructions {
open (TXTFILE, $nostr{'instructions'});
@index = <TXTFILE>;
close(TXTFILE);
print @index ;
}

sub brojevi_engleski {

if ($u eq $e_url{'0'}){
open (TXTFILE, $e_str{'0'});
@index = <TXTFILE>;
close(TXTFILE);
print @index ;
}
elsif ($u eq $e_url{'1'}){
open (TXTFILE, $e_str{'1'});
@index = <TXTFILE>;
close(TXTFILE);
print @index ;
}
elsif ($u eq $e_url{'2'}){
open (TXTFILE, $e_str{'2'});
@index = <TXTFILE>;
close(TXTFILE);
print @index ;
}
elsif ($u eq $e_url{'3'}){
open (TXTFILE, $e_str{'3'});
@index = <TXTFILE>;
close(TXTFILE);
print @index ;
}
elsif ($u eq $e_url{'4'}){
open (TXTFILE, $e_str{'4'});
@index = <TXTFILE>;
close(TXTFILE);
print @index ;
}
elsif ($u eq $e_url{'5'}){
open (TXTFILE, $e_str {'5'});
@index = <TXTFILE>;
close(TXTFILE);
print @index ;
}
elsif ($u eq  $e_url{'6'}){
open (TXTFILE, $e_str{'6'});
@index = <TXTFILE>;
close(TXTFILE);
print @index ;
}
elsif ($u eq $e_url{'7'}){
open (TXTFILE, $e_str{'7'});
@index = <TXTFILE>;
close(TXTFILE);
print @index ;
}
elsif ($u eq $e_url{'8'}){
open (TXTFILE, $e_str{'8'});
@index = <TXTFILE>;
close(TXTFILE);
print @index ;
}
elsif ($u eq $e_url{'9'}){
open (TXTFILE, $e_str{'9'});
@index = <TXTFILE>;
close(TXTFILE);
print @index ;
}
elsif ($u eq $e_url{'10'}){
open (TXTFILE, $e_str {'10'});
@index = <TXTFILE>;
close(TXTFILE);
print @index ;
}
elsif ($u eq $e_url{'11'}){
open (TXTFILE, $e_str{'11'});
@index = <TXTFILE>;
close(TXTFILE);
print @index ;
}
elsif ($u eq $e_url{'12'}){
open (TXTFILE, $e_str{'12'});
@index = <TXTFILE>;
close(TXTFILE);
print @index ;
}
elsif ($u eq $e_url{'instructions'}){
open (TXTFILE, "instructions.pod");
@index = <TXTFILE>;
close(TXTFILE);
print @index ;

}
 return (1);
}


sub greska
{
# print "<meta http-equiv=\"Refresh\" content=\"0;URL=medicus.journal\">\n";
print "ovo je greska" ;

}