/[kvake]/kvake.pl
This is repository of my old source code which isn't updated any more. Go to git.rot13.org for current projects!
ViewVC logotype

Diff of /kvake.pl

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.2 by dpavlin, Fri Apr 14 06:03:02 2000 UTC revision 1.4 by dpavlin, Fri Apr 14 07:24:06 2000 UTC
# Line 21  $verbose = 0; Line 21  $verbose = 0;
21    
22  #@ignore_dirs=( "/data/web/public/adresar/", "/data/web/public/eng" );  #@ignore_dirs=( "/data/web/public/adresar/", "/data/web/public/eng" );
23    
24  if (! defined(@ARGV)) {  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) || ($#ARGV < 0)) {
31          @dirs=( "/data/web/public",          @dirs=( "/data/web/public",
32                  "/usr/users/it/dpeterc" );                  "/usr/users/it/dpeterc" );
33  } else {  } else {
34          @dirs=@ARGV;          @dirs=@ARGV;
35  }  }
36    
37    print STDERR "Scanning dirs: @dirs\n" if ($verbose);
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)) {
# Line 42  foreach $dir (@dirs) { Line 50  foreach $dir (@dirs) {
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_/) {
# Line 81  foreach $file (@files) { Line 89  foreach $file (@files) {
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/&Ecirc;/ć/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  }  }

Legend:
Removed from v.1.2  
changed lines
  Added in v.1.4

  ViewVC Help
Powered by ViewVC 1.1.26