17 |
$mod_time = 10*60; # 10 minuta |
$mod_time = 10*60; # 10 minuta |
18 |
#$mod_time = 24*60*60; # 1 day |
#$mod_time = 24*60*60; # 1 day |
19 |
|
|
20 |
$verbose = 0; |
$verbose = 1; |
21 |
|
|
22 |
#@ignore_dirs=( "/data/web/public/adresar/", "/data/web/public/eng" ); |
#@ignore_dirs=( "/data/web/public/adresar/", "/data/web/public/eng" ); |
23 |
|
|
24 |
|
while (defined($ARGV[0]) && $ARGV[0] eq "-v") { |
25 |
|
$verbose++; |
26 |
|
shift @ARGV; |
27 |
|
} |
28 |
|
print STDERR "verbosity: $verbose\n" if ($verbose); |
29 |
|
|
30 |
if (! defined(@ARGV)) { |
if (! defined(@ARGV)) { |
31 |
@dirs=( "/data/web/public", |
@dirs=( "/data/web/public", |
32 |
"/usr/users/it/dpeterc" ); |
"/usr/users/it/dpeterc" ); |
34 |
@dirs=@ARGV; |
@dirs=@ARGV; |
35 |
} |
} |
36 |
|
|
37 |
|
print STDERR "Scanning dirs: @dirs\n"; |
38 |
|
|
39 |
foreach $dir (@dirs) { |
foreach $dir (@dirs) { |
40 |
opendir(DIR,"$dir") || warn "can't open $dir: $!"; |
opendir(DIR,"$dir") || warn "can't open $dir: $!"; |
41 |
foreach $f (grep { !/^\./ } readdir(DIR)) { |
foreach $f (grep { !/^\./ } readdir(DIR)) { |
50 |
push @files,"$dir/$f"; |
push @files,"$dir/$f"; |
51 |
} |
} |
52 |
else { |
else { |
53 |
print "ovo je staro: $dir/$f\n" if ($verbose); |
print "ovo je staro: $dir/$f\n" if ($verbose > 1); |
54 |
} |
} |
55 |
} |
} |
56 |
elsif ($f =~ /^eng$/ || $f =~ /adresar/ || $f =~ /^eng_/) { |
elsif ($f =~ /^eng$/ || $f =~ /adresar/ || $f =~ /^eng_/) { |
89 |
1; |
1; |
90 |
|
|
91 |
sub replace { |
sub replace { |
92 |
|
do '/root/kvake/zamjene.pl'; |
|
s/ch/č/g; s/CH/Č/g; |
|
|
s/cc/ć/g; s/CC/Ć/g; |
|
|
s/zh/ž/g; s/ZH/Ž/g; |
|
|
s/sh/š/g; s/SH/Š/g; |
|
|
s/dh/đ/g; s/DH/Đ/g; |
|
|
|
|
|
s/ ČN / CHN /g; |
|
|
s/18th IĆ Sto/18th ICC Sto/g; |
|
|
s/aćepted/accepted/g; |
|
|
s/aćount/account/g; |
|
|
s/aćumulated/accumulated/g; |
|
|
s/Aćount/Account/g; |
|
|
s/Aćess/Access/g; |
|
|
s/ačieved/achieved/g; |
|
|
s/ančor/anchor/g; |
|
|
s/ANČOR/ANCHOR/g; |
|
|
s/approačing/approaching/g; |
|
|
s/Batč/Batch/g; |
|
|
s/BATČ/BATCH/g; |
|
|
s/Bayerisče/Bayerische/g; |
|
|
s/Beečam/Beecham/g; |
|
|
s/BEEČAM/BEECHAM/g; |
|
|
s/Bioteč/Biotech/g; |
|
|
s/infoteč/infotech/g; |
|
|
s/Blue čip/Blue chip/g; |
|
|
s/Boćoni/Bocconi/g; |
|
|
s/BRONČITIS/BRONCHITIS/g; |
|
|
s/ČANGE/CHANGE/g; |
|
|
s/čange/change/g; |
|
|
s/čaracteris/characteris/g; |
|
|
s/ČARACTERISTICS/CHARACTERISTICS/g; |
|
|
s/čart /chart /g; |
|
|
s/-čart/-chart/g; |
|
|
s/caš/cash/g; |
|
|
s/cašless/cashless/g; |
|
|
s/čarset/charset/g; |
|
|
s/čeck/check/g; |
|
|
s/Cellteč/Celltech/g; |
|
|
s/čemi/chemi/g; |
|
|
s/ČEMI/CHEMI/g; |
|
|
s/čemotherapy/chemotherapy/g; |
|
|
s/čildbearing/childbearing/g; |
|
|
s/ČILDREN/CHILDREN/g; |
|
|
s/ČIRON/CHIRON/g; |
|
|
s/ČLAMIDIA/CHLAMIDIA/g; |
|
|
s/ČLAMYDIAL/CHLAMYDIAL/g; |
|
|
s/čool/chool/g; |
|
|
s/ČROMOS/CHROMOS/g; |
|
|
s/ČRONIC/CHRONIC/g; |
|
|
s/čronic/chronic/g; |
|
|
s/Daiiči/Daiichi/g; |
|
|
s/Deutsč/Deutsch/g; |
|
|
s/Doxyćline/Doxyccline/g; |
|
|
s/dkatčalkov/dkatchalkov/g; |
|
|
s/ eač / each /g; |
|
|
s/eandryusčenko/eandryuschenko/g; |
|
|
s/einrič/einrich/g; |
|
|
s/ekartaševa/ekartasheva/g; |
|
|
s/Engliš/English/g; |
|
|
s/engliš/english/g; |
|
|
s/esterreič/esterreich/g; |
|
|
s/FINIŠED/FINISHED/g; |
|
|
s/FREŠ/FRESH/g; |
|
|
s/freš/fresh/g; |
|
|
s/Goldšield/Goldshield/g; |
|
|
s/gonocoćal/gonococcal/g; |
|
|
s/Hoečst/Hoechst/g; |
|
|
s/IFSĆ/IFSCC/g; |
|
|
s/ilevšin/ilevshin/g; |
|
|
s/išođenje/ishođenje/g; |
|
|
s/išoditi/ishoditi/g; |
|
|
s/išode/ishode/g; |
|
|
s/Itača/Itacha/g; |
|
|
s/Karpisčenko/Karpischenko/g; |
|
|
s/LAČEM/LACHEM/g; |
|
|
s/Lačem/Lachem/g; |
|
|
s/Leaderšip/Leadership/g; |
|
|
s/LYNČ/LYNCH/g; |
|
|
s/loćo/locco/g; |
|
|
s/acintoš/acintosh/g; |
|
|
s/mečanis/mechanis/g; |
|
|
s/MACINTOŠ/MACINTOSH/g; |
|
|
s/matčing/matching/g; |
|
|
s/Maškilleyson/Mashkilleyson/g; |
|
|
s/medwatč/medwatch/g; |
|
|
s/Merčant/Merchant/g; |
|
|
s/Mičele/Michele/g; |
|
|
s/Munčen/Munchen/g; |
|
|
s/Osterreič/Osterreich/g; |
|
|
s/Paškova/Pashkova/g; |
|
|
s/PUBLIŠED/PUBLISHED/g; |
|
|
s/purčas/purchas/g; |
|
|
s/Relaunč/Relaunch/g; |
|
|
s/relaunč/relaunch/g; |
|
|
s/rič/rich/g; |
|
|
s/Ričter/Richter/g; |
|
|
s/Ričard/Richard/g; |
|
|
s/ritiš/ritish/g; |
|
|
s/Roče/Roche/g; |
|
|
s/Rytčik/Rytchik/g; |
|
|
s/Savičeva/Savicheva/g; |
|
|
s/Sčauer/Schauer/g; |
|
|
s/Sčonwald/Schonwald/g; |
|
|
s/sčeduling/scheduling/g; |
|
|
s/sčen/schen/g; |
|
|
s/Sč/Sch/g; |
|
|
s/SČ/SCH/g; |
|
|
s/Sčering/Schering/g; |
|
|
s/Sčleswig/Schleswig/g; |
|
|
s/Sčmidt/Schmidt/g; |
|
|
s/SČMIDT/SCHMIDT/g; |
|
|
s/SEARČ/SEARCH/g; |
|
|
s/Searč/Search/g; |
|
|
s/searč/search/g; |
|
|
s/Stračounsky/Strachounsky/g; |
|
|
s/šare/share/g; |
|
|
s/šea/shea/g; |
|
|
s/šell/shell/g; |
|
|
s/šeet/sheet/g; |
|
|
s/šema/shema/g; |
|
|
s/ŠEMA/SHEMA/g; |
|
|
s/šip/ship/g; |
|
|
s/šodno/shodno/g; |
|
|
s/šop/shop/g; |
|
|
s/ŠORT/SHORT/g; |
|
|
s/šort-term/short-term/g; |
|
|
s/ šown / shown /g; |
|
|
s/ šows / shows /g; |
|
|
s/šridge/shridge/g; |
|
|
s/švaća/shvaća/g; |
|
|
s/švate/shvate/g; |
|
|
s/Š;.GIF/SH;.GIF/g; |
|
|
s/š;.html/sh;.html/g; |
|
|
s/exčange/exchange/g; |
|
|
s/SUĆESSFUL/SUCCESSFUL/g; |
|
|
s/SUPERFREŠ/SUPERFRESH/g; |
|
|
s/teač /teach /g; |
|
|
s/tečniques/techniques/g; |
|
|
s/ečnolog/echnolog/g; |
|
|
s/tračomatis/trachomatis/g; |
|
|
s/ućess/uccess/g; |
|
|
s/Vaćines /Vaccines /g; |
|
|
s/ whič / which /g; |
|
|
s/Wašington/Washington/g; |
|
|
s/Yamanouči/Yamanouchi/g; |
|
|
s/ynč/ynch/g; |
|
|
s/Zinner Š./Zinner SH./g; |
|
|
s/Zinner Š/Zinner SH/g; |
|
|
s/Zurič/Zurich/g; |
|
|
|
|
|
# ovi idu uvijek na kraju |
|
|
s/generich/generič/g; |
|
|
s/išhođenje/ishođenje/g; |
|
|
s/Jurichu /Juriču /g; |
|
|
s/merichk/meričk/g; |
|
|
s/Petrichi/Petriči/g; |
|
|
s/Petrichevi/Petričevi/g; |
|
|
s/prichuva/pričuva/g; |
|
|
s/rašod/rashod/g; |
|
|
s/Rašod/Rashod/g; |
|
|
s/čosen/chosen/g; |
|
|
|
|
|
s/iso\.č/iso\.ch/g; |
|
|
s/medicorpteč\.com/medicorptech.com/g; |
|
|
s/člorination/chlorination/g; |
|
|
s/Tečnical/Technical/g; |
|
|
s/Satiš Joši/Satish Joshi/g; |
|
|
s/čloride/chloride/g; |
|
|
s/Fisčer/Fischer/g; |
|
|
s/ čain/ chain/g; |
|
|
s/Hydričlorination/ Hydrichlorination/g; |
|
|
s/Mannič/Mannich/g; |
|
|
s/Flemiš/Flemish/g; |
|
|
|
|
|
s/AREA ŠAPE=/AREA SHAPE=/g; |
|
|
s/Ê/ć/g; # hm? |
|
|
|
|
|
s/Streptocoćus/Streptococcus/g; |
|
|
s/Coći/Cocci/g; |
|
|
s/ČPSG/CHPSG/g; |
|
|
|
|
|
s/BENČMARKING/BENCHMARKING/g; |
|
|
s/Benčmarking/Benchmarking/g; |
|
|
s/Fišer/Fisher/g; |
|
|
s/šeppard/sheppard/g; |
|
|
s/Czeč/Czech/g; |
|
|
s/Tošiba/Toshiba/g; |
|
|
s/Marč/March/g; |
|
|
|
|
|
s/Attach/Attach/g; |
|
|
s/attachment/attachment/g; |
|
|
s/show/show/g; |
|
|
|
|
93 |
} |
} |