--- kvake.pl	2000/04/14 06:03:02	1.2
+++ kvake.pl	2000/04/14 06:30:19	1.3
@@ -17,10 +17,16 @@
 $mod_time = 10*60;	# 10 minuta
 #$mod_time = 24*60*60;	# 1 day
 
-$verbose = 0;
+$verbose = 1;
 
 #@ignore_dirs=( "/data/web/public/adresar/", "/data/web/public/eng" );
 
+while (defined($ARGV[0]) && $ARGV[0] eq "-v") {
+	$verbose++;
+	shift @ARGV;
+}
+print STDERR "verbosity: $verbose\n" if ($verbose);
+
 if (! defined(@ARGV)) {
 	@dirs=(	"/data/web/public",
 		"/usr/users/it/dpeterc" );
@@ -28,6 +34,8 @@
 	@dirs=@ARGV;
 }
 
+print STDERR "Scanning dirs: @dirs\n";
+
 foreach $dir (@dirs) {
 	opendir(DIR,"$dir") || warn "can't open $dir: $!";
 	foreach $f (grep { !/^\./ } readdir(DIR)) {
@@ -42,7 +50,7 @@
 				push @files,"$dir/$f";
 			}
 			else {
-				print "ovo je staro: $dir/$f\n" if ($verbose);
+				print "ovo je staro: $dir/$f\n" if ($verbose > 1);
 			}
 		}
 		elsif ($f =~ /^eng$/ || $f =~ /adresar/ || $f =~ /^eng_/) {
@@ -81,198 +89,5 @@
 1;
 
 sub replace {
-
-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;
-
+	do '/root/kvake/zamjene.pl';
 }