#!/usr/bin/perl
#######################################################################################
#
# promatic
#
# (c)2004 by Abacus, info@abacus.hr, dejan@abacus.hr
#
#######################################################################################
  use lib 'tajna';
  use DBI;
  use lib 'Imager';
  use lib 'Image';
  use Image::Size;
  #use Imager;

  require Utility;
  require Utility2;


  $ABSPATH='/var/www/vhosts/abacus7.c-a.com.hr/promatic.hr/';

  $DBH = DBI->connect('DBI:mysql:inova82427:localhost','inova82427','hDvn1s9G');
  $DBH->do("set NAMES 'cp1250'");

  ProcessInput();
  GetCookie();
  DateTime();
  ($IP,$HOSTNAME)=&HostInfo;

  print "Content-type: text/html\n\n";
  $Q{P} ||= 'index';
  $Q{L} ||= 'h';
  JeziciInit();  #visejezicnost
#  OnMouse(PrintHtml("$Q{P}.tl"));
   PrintHtml("$Q{P}.tl");


sub MainLoop {
###############################################################
#
# glavna petlja
#
###############################################################

  my ($rest, $tag) = @_;

  $rest =~ s/\$(\w+){(\w+)}/$1->{$2}/g;

  print $rest;

  if (!$Q{GRUPA} and !$Q{trazi}) { $Q{GRUPA}='G10' }
  if (!$Q{IDP}) { $Q{IDP}='001' }

  if (!$tag) { return }
  elsif ($tag eq 'BODY') {     
     if ($Q{'A'} eq 'UPT') { &Upit }
     elsif ($Q{'A'} eq 'PLF') { &PosaljiLinkForma }
     elsif ($Q{'A'} eq 'HTM') {
       &PrintHtml("$Q{L}$Q{HTM}.html");
     }
     if ($Q{A} eq 'PRO') {
       #if (!$Q{IDP}) { &IspisProizvod }       
       &DetaljProizvod;
     }
     elsif ($Q{A} eq 'PROS') {
       &SearchIspis;
     }
     else {
       if (!$Q{HTM} and (!$Q{'A'})) { &PrintHtml("naslovna.html"); }
     }
  }
  elsif ($tag eq 'SEARCH') {
    my($form);
    {
      local $/;
      open(HTM, "$ABSPATH/forme/search.htm"); $form=<HTM>; close(HTM);
    }

    ParseForm(\$_) for $form;
    print $form;
  }
  elsif ($tag eq 'MENU') {
    if ($Q{A} eq 'PRO') { &IspisMeni; }
    else {
      if ($Q{HTM}) {
        print qq{
        <table class=C0 width=100% height=26><tr>
          <td class=C0 background="mb.gif" width=100% align=center><font class=F8MENU>&nbsp; $J{"$Q{HTM}"} &nbsp;</td>
        </table> 
        };       
        #&RndSlike();
      }
      elsif ($Q{A}) {
        print qq{
        <table class=C0 width=100% height=26><tr>
          <td class=C0 background="mb.gif" width=100% align=center><font class=F8MENU>&nbsp; $J{"$Q{A}"} &nbsp;</td>
        </table> 
        };  
      }
      else {
        print qq{
        <table class=C0 width=100% height=26><tr>
          <td class=C0 background="mb.gif" width=100% align=center><font class=F8MENU>&nbsp; Home &nbsp;</td>
        </table> 
        };
        #&RndSlike();
      }
    }
  }
  elsif ($tag=~/F=(\w+)/) {
    &IspisTemplate($1);
  }
}


sub RndSlike {
###############################################################
#
# ispis random slika
#
###############################################################

  my $CMD="select $Q{L}NASLOV,IDP from PRO_PROIZVODI where STATUS=1 order by rand()";
  my $Q=$DBH->prepare($CMD);
  my $NROWS=$Q->execute;
  my($naslov,$idp) = $Q->fetchrow_array;
  my $slika;
  my $pathslika="slike/$idp-v-1.jpg";
  if (-f "$ABSPATH/$pathslika") {
    my($w,$h)=Image::Size::imgsize("$ABSPATH/$pathslika");
    $w=int($w/2); $h=int($h/2);
    $slika=qq{<a href="?IDP=$idp&GRUPA=G10&L=$Q{L}&A=PRO"><img src="$pathslika" width=$w height=$h border=0 alt="$naslov"></a>};
  }
  else { $slika='' }
  print OnMouse(qq{<br>
    <center>$slika</center>
  });
}


sub SearchIspis {
###############################################################
#
# ispis rezultata pretrazivanja
#
###############################################################
    
  my($form);
  {
    local $/;
    open(HTM, "$ABSPATH/forme/$Q{L}search.htm"); $form=<HTM>; close(HTM);
  }
  ParseForm(\$_) for $form;
  print qq{
    <center>
      $form
    </center>
  };

  if ($Q{trazi}) {
    my @proizvodi=GetProizvod($Q{GRUPA},$Q{trazi});

    #stranice
    $Q{od} ||= 0;
    $Q{perp} = 5;
    $Q{class} = F8;
    $Q{max} = $#proizvodi;
    $Q{strana} = 1 + int $Q{od}/$Q{perp};
    my $stranice = MakePages(od => $Q{od}, max => $Q{max}, class => $Q{class}, perp =>$Q{perp}, param => "trazi=$Q{trazi}&GRUPA=$Q{GRUPA}");

    $Q{do} = $Q{od}+$Q{perp}-1;
    $Q{do} = $Q{max} if $Q{do} > $Q{max};


    for $pro(@proizvodi[ $Q{od}..$Q{do} ]) {
      $pro->{"$Q{L}OPIS"}=~s/\r?\n/<br>/gi;
      $pro->{"$Q{L}OPIS"}=~s/^(.{200,250})\s.*$/$1.../;
      if ($Q{trazi}) {
        for ($pro->{"$Q{L}OPIS"}, $pro->{"$Q{L}NASLOV"}) { s!($regexp)!<font color=red>$1</font>!gi }
      }
      $link=qq{<a class=F8 href="?IDP=$pro->{IDP}&GRUPA=$pro->{IDG}&A=PRO&L=$Q{L}">};

      $ispis.=qq{
        <table class=DOTTED width=100%><tr><td>
          <b class=F8>$pro->{"$Q{L}NASLOV"}</b><br>
          <p align=justify class=F8>
            $pro->{"$Q{L}OPIS"}
          </p>
          <p align=right>
            $link $J{'više'} &gt;&gt;</a>
          </p>
        </td></tr></table><br>
      };
    }

    if (!@proizvodi) { $ispis="<center><b class=F8>$J{'Nije pronađen niti jedan proizvod!'}</center><br>" };

    print qq{
     <table width=100% cellpadding=3 cellspacing=3 border=0><tr><td>
     $ispis
     </td></tr></table>
    };
  }
}


sub IspisTemplate {
###############################################################
#
# ispis
#
###############################################################

  local *DAT;
  my ($tag) = @_;
  my ($red,$pro,$ispis,$tmpPG);
  open(DAT, "$ABSPATH/$Q{L}$tag");
  while ($red=<DAT>) {
    my $replace;
    if ($Q{HTM}) { $replace=$Q{HTM} }
    elsif ($Q{A}){ $replace=$Q{A} }

    if ($red=~/<!--print-->/) {
      my $uri=$ENV{REQUEST_URI};
      if ($uri eq '/') { $uri='?' }
      print OnMouse(qq{
      <td background="razmak.jpg" class=C0><a href="#" onclick="window.open('$uri&P=printw&L=$Q{L}','PRINTW','resizable=no,scrollbars=yes,width=640,height=500');return(false)" onMouseOver="return(S('print'))" onMouseOut="return(S(''))"><img src="print.gif" width=29 height=23 border=0 alt="print"></a></td>
      });
    }
    $red=~s/<!--$replace-->/<b>/gi;
    
    print OnMouse($red);
  }
  close(DAT);

}


sub IspisMeni {
###############################################################
#
# ispis menija
#
###############################################################

  my($pro,$B,$ispis);
  my @grupa=GetProizvod($Q{GRUPA});
  my $gore=qq{<center>
  <table class=C0 width=100% height=26><tr>
    <td class=C0 background="mb.gif" width=100% align=center><font class=F8MENU>&nbsp; $J{'Proizvodi'} &nbsp;</font></td>
  </table>
   
  };
  for $pro(@grupa) {
   if ($pro->{IDP} eq $Q{IDP}) { $B=' bgcolor="#DEAD84"' }
   else { $B='' }
   $ispis.=OnMouse(qq{
     <table width=100% class=C0><tr><td$B class=C0><table><tr><td><a class=F8LINK href="?IDP=$pro->{IDP}&GRUPA=$pro->{IDG}&L=$Q{L}&A=PRO">$pro->{"$Q{L}NASLOV"}</a></td></tr></table></td></tr></table>
     <table class=C0 width=100% bgcolor="#363692"><tr><td class=C0><img src="blank.gif" width=100 height=1></td></tr></table>
     </center>
   })
  }
  print qq{
    $gore
    $ispis
  }
}

sub DetaljProizvod {
###############################################################
#
# ispis detalja proizvoda
#
###############################################################

  my($ispis,$slika,$pakiranje,$pro,$proizvod);
  my @proizvodi=GetProizvod($Q{GRUPA},'',$Q{IDP});
  $uri = SimpleEncode("http://$ENV{SERVER_NAME}$ENV{REQUEST_URI}");
  for $pro(@proizvodi) {
    if (-e "$ABSPATH/slike/$pro->{IDP}-v-1.jpg") {
      my($x,$y)=Image::Size::imgsize("$ABSPATH/slike/$pro->{IDP}-v-1.jpg");
      $slika=qq{<img src="slike/$pro->{IDP}-v-1.jpg" width=$x height=$y border=0>};
    }
    else {
      $slika='<img src="blank.gif" width=200 height=10>';
    }
    $pro->{"$Q{L}OPIS"}=~s/\r?\n/<br>/gi;
    my %cij=('h','kn','e','EUR');
    if ($pro->{"$Q{L}CIJENA"}+0) {
      $pro->{"$Q{L}CIJENA"}=EUR($pro->{"$Q{L}CIJENA"});
      $cijena=qq{<br><b class=F8>$pro->{"$Q{L}CIJENA"} $cij{$Q{L}}</b>};
    }
    $ispis.=qq{
      <table border=0 width=100%><tr valign=top>
        <td align=center>
          $slika$cijena<br><br>
<!--
           <b><a class=F8LINK href="?IDP=$Q{IDP}&A=PLF&GRUPA=$Q{'GRUPA'}&UR=$uri&L=$Q{L}"> $J{'pošalji link'} <font size=+1 face=Tahoma,Verdana>!</font></a></b> |
           <b><a class=F8LINK href="?IDP=$Q{IDP}&GRUPA=$Q{GRUPA}&A=UPT&UR=$uri&L=$Q{L}">$J{'pošalji upit'} <font size=+1 face=Tahoma,Verdana>?</font></a></b><br>
-->
        </td>
        <td>
          <table bgcolor="#B0BED9" width=100% cellpadding=0 cellspacing=0 border=0><tr><td>
            <table class=DOTTED width=100%><tr><td>
              <DIV CLASS="SJENAm">
                $pro->{"$Q{L}NASLOV"}
              </div></td></tr></table>
          </td></tr></table>
          <br>
          <p class=F8>
            $pro->{"$Q{L}OPIS"}
          </p>
        </td>
      </tr></table>
    };    
  }

  my ($ispistehdok,$ispisprog);
  my @tehdok=GetTehDok($Q{IDP});
  for $teh(@tehdok) {
    my $what="$teh->{FILE}";
    if (-e "$ABSPATH/docs/$Q{L}/$what") {
      my $link=qq{<a class=F8 href="docs/$Q{L}/$what" target=$teh->{ID}>};
      my($info) = int((-s "$ABSPATH/docs/$Q{L}/$what")/1024) .'Kb';
      if ($what=~/.pdf/) {
        $ispistehdok.=qq{
        <tr>
          <td class=TEHDOK>$link<img src="pdf.gif" width=32 height=32 border=0></a></td>
          <td class=TEHDOK>$link$teh->{IME} ($info)</a></td>
        </tr>
        };
      }
      else {
        $ispisprog.=qq{
        <tr>
          <td class=TEHDOK>$link<img src="zip.gif" width=32 height=32 border=0></a></td>
          <td class=TEHDOK>$link$teh->{IME} ($info)</a></td>
        </tr>
        };
      }
    }
  }
  if ($ispisprog) {
     $ispisprog=qq{
     <b class=F8>$J{'Pomoćni programi'}</font><br>
     <table border=1 cellpadding=3 cellspacing=2>
       $ispisprog
     </table><br>
     };
  }
  my($grupa);
  my @grupa=GetGrupa($Q{GRUPA});
  for (@grupa) { $grupa=$_->{GRUPA}  }

  print qq{
    <table><tr><td>
      $ispis
    </td></tr></table><br>
  };
  if (-f "$ABSPATH/html/$Q{L}$Q{IDP}.htm") {
    &PrintHtml("html/$Q{L}$Q{IDP}.htm");
    print '<br>';
  }
  print OnMouse(qq{
    <center>
    $ispisprog
     <b class=F8>$J{'Dokumentacija'}</font><br>
     <table border=1 cellpadding=3 cellspacing=2>
       $ispistehdok
     </table>
    </center>
  });
}


sub IspisProizvod {
###############################################################
#
# ispis proizvoda
#
###############################################################

  my($ispis,$slika,$pakiranje,$pro,$link);

  my @proizvodi=GetProizvod($Q{GRUPA},$Q{trazi});

  #stranice
  $Q{od} ||= 0;
  $Q{perp} = 5;
  $Q{class} = F8;
  $Q{max} = $#proizvodi;
  $Q{strana} = 1 + int $Q{od}/$Q{perp};
  my $stranice = MakePages(od => $Q{od}, max => $Q{max}, class => $Q{class}, perp =>$Q{perp}, param => "trazi=$Q{trazi}&GRUPA=$Q{GRUPA}");

  $Q{do} = $Q{od}+$Q{perp}-1;
  $Q{do} = $Q{max} if $Q{do} > $Q{max};

#  for $pro(@proizvodi) {
  for $pro(@proizvodi[ $Q{od}..$Q{do} ]) {
    $pro->{OPIS}=~s/\r?\n/<br>/gi;
    $pro->{OPIS}=~s/^(.{200,250})\s.*$/$1.../;
    if ($Q{trazi}) {
      for ($pro->{"$Q{L}OPIS"}, $pro->{"$Q{L}NASLOV"}) { s!($regexp)!<font color=red>$1</font>!gi }
    }
    $link=qq{<a class=F8 href="?IDP=$pro->{IDP}&GRUPA=$pro->{IDG}">};

    if (-e "$ABSPATH/slike/$pro->{IDP}-m-1.jpg") {
      my($x,$y)=Image::Size::imgsize("$ABSPATH/slike/$pro->{IDP}-m-1.jpg");
      $slika=qq{<td width=155>$link<img src="slike/$pro->{IDP}-m-1.jpg" width=$x height=$y border=0></a></td>};
    }
    else {
      $slika='';
    }

    $ispis.=qq{
      <table border=0 width=570><tr valign=top>
        $slika
        <td width=570>
          <table bgcolor="#B0BED9" width=100% cellpadding=0 cellspacing=0 border=0><tr><td>
            <table class=DOTTED width=100%><tr><td><DIV CLASS="SJENAm">$pro->{PROIZVOD}</div></td></tr></table>
          </td></tr></table>
          <b class=F8>$pro->{NASLOV}</b><br>
          <p align=justify class=F8>
            $pro->{OPIS}
          </p>
          <p align=right>
            $link više &gt;&gt;</a>
          </p>
        </td>
      </tr></table><br>
    };
  }

  if (!@proizvodi) { $ispis="<b class=F8>Nije pronađen niti jedan proizvod!<br>" };

  my($grupa);
  if (!$Q{trazi}) {
    my @grupa=GetGrupa($Q{GRUPA});
    for (@grupa) { $grupa=$_->{GRUPA}  }
  }
  else { $grupa='REZULTATI PRETRAŽIVANJA' }

  print qq{
      <table bgcolor="#D0B8A0" width=100%><tr><td align=center>
        <b class=F10>$grupa</b><br><font class=F8>stranice:</font> $stranice<br>
      </td></tr></table>
      <br>
      $ispis
  };
}


sub PosaljiLinkForma {
#############################################################
#
# forma za "posalji link" i slanje na mail
#
#############################################################

  local *DAT,*SIF;
  $uri = SimpleDecode($Q{UR});
  $REFERER='http://www.promatic.hr/';
  my @proizvodi=GetProizvod($Q{GRUPA},'',$Q{IDP});
  my($pro);
  for $pro(@proizvodi) {
    $OPISi=$pro->{"$Q{L}NASLOV"};
  }

  print "<center><font class=F9>Hostname: <i>$HOSTNAME</i><br>IP: <i>$IP</i></font><br><br>\n";

  if ($ENV{HTTP_REFERER} !~ /^$REFERER/) { return }
#  elsif ($HOSTNAME !~ /hr$/i and $IP !~ /^192.168.0/) {
#    print qq{
#      <b class=TXT>Štovani, dolazite s adrese koja nije registrirana u Hrvatskoj, i na žalost ne možete poslati link.</b><br><br>
#      <a class=TXT href="$uri">Nastavak ..</a>
#    };
#  }
  elsif ($Q{PRIMA}) {
    $uri =~ s/www\.//;
    $uri =~ s/index.cgi//;

    $from = $Q{SALJE};
    $to = $Q{PRIMA};
    #$cc = 'test';
    $bcc = 'zz@abacus.hr';
    $subject = "promatic.hr: Obavijest od $Q{SALJEI}";
    $body = qq{
Ovu poruku Vam je uputio $Q{SALJEI} ($Q{SALJE})

Poruka je poslana s Internet adrese: [$IP] $HOSTNAME

$Q{SALJEI} Vam predlaže da pogledate slijedeću stranicu:

$OPISi
$uri

Pozdrav,

promatic.hr


P.S. U slučaju zloupotrebe molimo Vas da prosljedite ovu E-mail
poruku na adresu abuse\@promatic.hr
    };
    &SendMail($from, $to, $cc, $bcc, $subject, $body);
    print qq{<br><br>
      <b class=F9>Poslali ste obavijest o linku na $Q{PRIMA}</b><br><br>
      <a class=F9 href="$uri">$J{'Nastavak'} ..</a>
    }
  }
  else {
    my $form;
    {
      local $/;
      open(HTM, "$ABSPATH/forme/$Q{L}link.htm"); $form=<HTM>; close(HTM);
    }
    ParseForm(\$_) for $form;

    print qq{<br>
      <b class=F9>$J{'Slanje linka'}: </b><font class=F9>"$OPISi"</font><br>    
      $form
    };
  }
}


sub Upit{
###########################################################################
#
# Forma za upit
#
###########################################################################

  local *DAT,*SIF;
  $uri = SimpleDecode($Q{UR});
  $REFERER='http://www.promatic.hr/';
  my($form);
  my @proizvodi=GetProizvod($Q{GRUPA},'',$Q{IDP});

  for $pro(@proizvodi) {
    $OPISi=$pro->{"$Q{L}NASLOV"};
  }

  if ($Q{UPIT}) {
    if (!$Q{PROHT}) { return }
    elsif (!$Q{IMEP}) { return }
    elsif ($Q{'MAIL'}!~/^[0-9a-zA-Z\.\_\-]+@[0-9a-zA-Z\.\_\-]+\.[0-9a-zA-Z\.\_\-]+$/) { return }
    elsif (!$Q{TEL}) { return }
    elsif (!$Q{ADR}) { return }
    else {
      $from = "$Q{'MAIL'}";
      $to = 'info@promatic.hr';
      #$to = 'zz@abacus.hr';
      #$cc='test';
      $bcc='zz@abacus.hr';
      $subject='promatic.hr upit';
      $body=qq{
Ime        : $Q{IMEP}
E-mail     : $Q{MAIL}
Tel.       : $Q{TEL}
Adresa     : $Q{ADR}
Upit o artiklu $OPISi  $Q{PROHT}
};
    &SendMail($from, $to, $cc, $bcc, $subject, $body);
      print qq{
        <P align=center class=F9>$J{'Hvala što ste poslali upit!'}<br>$J{'Javiti ćemo Vam se u najkraćem mogućem roku!'}<br></P>
        <P align=center class=F9><a class=F9 href="$uri">$J{'Nastavak'} &gt;&gt;</p></P>
      };
      return;
    }
  }

  $ERROR = "<br><font color=red face=verdana,arial><center><b>$ERROR!</b></center></font><br>" if $ERROR;
  {
    local $/;
    open(HTM, "$ABSPATH/forme/$Q{L}upit.htm"); $form=<HTM>; close(HTM);
  }

  $Q{'UPIT'}='Y';
  ParseForm(\$_) for $form;
  print qq{
    <br><center><b class=F9>$J{'Upit'}: "$OPISi"</b><br>
    $ERROR</font>
    </center>
    $form
  };

}


sub GetProizvod {
###############################################################
#
# pokupi odredjene proizvode po grupi
#
###############################################################

  my ($grupa,$search,$idp) = @_;

  my($uvjet);

  my @polja = ('IDP',"$Q{L}OPIS","$Q{L}NASLOV",'IDG',"$Q{L}CIJENA");
  my $polja = join ',', map "$_", @polja;

  if ($search) {
    if ($Q{trazi}) {
      if (length($Q{trazi}) >= 2) {
        ($cond, $regexp) = BuildSearch($Q{trazi}, @polja);
        $uvjet= "$cond " if $cond;
      }
      else { $err = 'Kod pretraživanje morate unjeti najmanje dva slova!' }
    }
  }
  else {
    if ($idp) { $uvjet="IDP='$idp'"  }
    else { $uvjet="IDG='$grupa'" }
  }

  my $CMD="select $polja from PRO_PROIZVODI where $uvjet AND STATUS=1";
  my $Q=$DBH->prepare($CMD);
  my $NROWS=$Q->execute;

  my (%cj, @ret);
  while (@cj{@polja} = $Q->fetchrow_array) {
    push @ret, { %cj };
  }
  return @ret;
}

sub GetGrupa {
###############################################################
#
# vrati ime grupe
#
###############################################################

  my ($grupa) = @_;
  my($uvjet);

  if ($grupa) { $uvjet="where IDG='$grupa'" }
  else { $uvjet=''  }

  my @polja = ('IDG',"$Q{L}GRUPA");
  my $polja = join ',', map "$_", @polja;

  my $CMD="select $polja from PRO_GRUPA $uvjet";
  my $Q=$DBH->prepare($CMD);
  my $NROWS=$Q->execute;

  my (%cj, @ret);
  while (@cj{@polja} = $Q->fetchrow_array) {
    push @ret, { %cj };
  }
  return @ret;
}


sub GetTehDok {
###############################################################
#
# vrati podatke o tehnickoj dokumentaciji (naziv fajla i slicno)
#
###############################################################

  my ($sifra) = @_;
  my($uvjet);

  if ($sifra) { $uvjet="where IDP='$sifra' and LANG='$Q{L}'" }
  else { $uvjet=''  }

  my @polja = ('ID','IDP','LANG','IME','FILE');
  my $polja = join ',', map "$_", @polja;

  my $CMD="select $polja from PRO_TEHDOK $uvjet";
  my $Q=$DBH->prepare($CMD);
  my $NROWS=$Q->execute;

  my (%cj, @ret);
  while (@cj{@polja} = $Q->fetchrow_array) {
    push @ret, { %cj };
  }
  return @ret;
}


sub JeziciInit {
#######################################################
#
# inicijalizacija za visejezicnost
#
#######################################################

  if ($Q{'L'} eq 'h') {
    %J=(
     'Proizvodi', 'Proizvodi',
     'pošalji upit', 'pošalji upit',
     'pošalji link', 'pošalji link',
     'Hvala što ste poslali upit!','Hvala što ste poslali upit!',
     'Javiti ćemo Vam se u najkraćem mogućem roku!','Javiti ćemo Vam se u najkraćem mogućem roku!',
     'Nastavak','Nastavak',
     'Pomoćni programi','Pomoćni programi',
     'Upit','Upit',
     'Slanje linka','Slanje linka',
     'Ime i prezime','Ime i prezime',
     'Šalje','Šalje',
     'Prima','Prima',
     'Pošalji!','Pošalji!',
     'više','više',
     'onama','O nama',
     'PROS','Traži',
     'Nije pronađen niti jedan proizvod!','Nije pronađen niti jedan proizvod!',
     'Dokumentacija','Dokumentacija'
    )    
  }
  else {
    %J=(
     'Proizvodi', 'Products',
     'pošalji upit', 'send query',
     'pošalji link', 'send link',
     'Hvala što ste poslali upit!','Thank You!',
     'Javiti ćemo Vam se u najkraćem mogućem roku!','We will contact you soon as possible!',
     'Nastavak','Continue',
     'Pomoćni programi','Utilities',
     'Upit','Query',
     'Slanje linka','Send link',
     'Ime i prezime','Name',
     'Šalje','From',
     'Prima','To',
     'Pošalji!','Send!',
     'više','more',
     'onama','About Us',
     'PROS','Search',
     'Nije pronađen niti jedan proizvod!','No results!',
     'Dokumentacija','Documentation'
    ) 
  }
}