10 if (exists $ENV{"HTTP_ACCEPT"}) {
17 print "Content-Type: text/html
\r\n\n" unless($tofile);
19 my $path=$ENV{"PATH_TRANSLATED"};
23 my @locale=`locale -a`;
27 push @{$lang{$`}}, $';
30 my $str_env=$ENV{"HTTP_ACCEPT_LANGUAGE"};
32 my @lang=split/,/,$str_env;
35 foreach my $locale(@lang){
36 goto find_locale if ($locale eq 'en');
37 foreach my $lg(@{$lang{$locale}}){
38 setlocale(LC_MESSAGES,$locale."_".$lg);
39 my $tmp = gettext($locale);
49 setlocale(LC_MESSAGES,$lang);
60 $plik="koha.gettext.c";
68 my (%dgettxt, %dane, %dane2, @dane2);
71 $dgettxt{'iso-8859-1'}=1;
76 <META http-equiv=Content-Type content="text/thml;
77 charset=${\(gettext('iso-8859-1'))}">
88 unless ($_=~/(\.html|\.inc)$/i) {
93 print "$kat$_" if ($tofile);
108 $dane=~s/<html>/$txt/i;
110 $dane=~s/%/&zamien/ges; # change % (specjal symbol)
111 $dane=~s/\\\'/&zamien/ges; # change \'
112 $dane=~s/\\\"/&zamien/ges; # change \"
115 $dane=~s/[\"\']\/?([\w-\/\.]*?\.gif)[\"\']/&zamien($1)/ges;
117 # $dane=~s/messenger\s*\((.*?)\)\s*[\}\{;]/&zamien($1)/ges;
118 # $dane=~s/\.write(ln)?\s*\((.*?)\)\s*[\};]/&zamien($2)/ges;
120 # take out string in field alt
121 $dane=~s/alt\s*=\s*[\"]([^\"]*)[\"]/&zamien($1)/iges;
122 $dane=~s/alt\s*=\s*[\']([^\']*)[\']/&zamien($1)/iges;
124 $dane=~s/<!--.*?-->/&zamien/ges;
125 $dane=~s/<script.*?<\/script>/&zamien/iges;
127 $dane=~s/<[\w\/]\w*\s*((\w*\s*=\s*(\'[^\']*\'|\"[^\"]*\"|[\w-\/?&,\.=%#]*)|[%\d*%]|\w)\s*)*>/&zamien/ges;
128 $dane=~s/<!\[.*?\]>/&zamien/ges;
129 $dane=~s/<![^>]*>/&zamien/ges;
130 $dane=~s/<#.*?#>/&zamien/ges;
133 $dane2=~s/(\s*%\d+%\s*)+/%/gs;
136 foreach my $tmp(split/%/,$dane2){
139 next unless ($tmp_ok=~/\w+/);
140 $dgettxt{$tmp_ok}++ unless $dgettxt{$tmp_ok};
141 $tmp=~s/([\)\(])/\\$1/g;
142 $dane=~s/$tmp/gettext($tmp_ok)/es;
145 while($dane=~/%\d+%/){
146 $dane=~s/%(\d+)%/$dane2{$1}/g;
155 foreach my $tmp(sort keys %dgettxt){
157 print PK "gettext(\"$tmp\");\n";
164 ###########################################################
168 unless ($dgettxt{$_[0]}) {
171 $tmp=~s/$_[0]/gettext($&)/es;
172 unless ($dane{$tmp}) {
177 return "%${\($dane{$tmp})}%";