--- kvake.pl	2000/04/14 06:01:44	1.1
+++ kvake.pl	2000/04/14 06:03:02	1.2
@@ -11,13 +11,15 @@
 #
 # 2000-02-16 Dobrica Pavlinusic <dpavlin@pliva.hr> prva perl verzija
 # 2000-03-01 DbP poravljen ignore_dirs grep bug
+#
+# 2000-03-31 Hana sada ignorira sve sto ^eng$, ^eng_ , ^adresar$ u imenu direktorija
 
-#$mod_time = 10*60;	# 10 minuta
-$mod_time = 24*60*60;	# 1 day
+$mod_time = 10*60;	# 10 minuta
+#$mod_time = 24*60*60;	# 1 day
 
 $verbose = 0;
 
-@ignore_dirs=( "/data/web/public/adresar/", "/data/web/public/eng" );
+#@ignore_dirs=( "/data/web/public/adresar/", "/data/web/public/eng" );
 
 if (! defined(@ARGV)) {
 	@dirs=(	"/data/web/public",
@@ -29,30 +31,30 @@
 foreach $dir (@dirs) {
 	opendir(DIR,"$dir") || warn "can't open $dir: $!";
 	foreach $f (grep { !/^\./ } readdir(DIR)) {
-		if (-f "$dir/$f" && ! -l "$dir/$f") {
-			print "jedan od fileka dir/$f\n";
+		if (-d "$dir/$f" && $f !~ /^eng$/ && $f !~ /^adresar$/ && $f !~ /^eng_/) {
+                        $push_it = 1;
+                        push @dirs,"$dir/$f" if ($push_it);
+                }
+		elsif (-f "$dir/$f" && ! -l "$dir/$f") {
 			@stat = stat(_);
 			if ($f =~ /\.html/ && (time() - $stat[9]) < $mod_time) {
+				print "filek za mjenjanje `$dir/$f\n" if ($verbose);
 				push @files,"$dir/$f";
 			}
-		} elsif (-d "$dir/$f") {
-			$push_it = 1;
-			foreach $ig_dir (@ignore_dirs) {
-#				print "\t$dir/$f -- $ig_dir\n";
-				if ("$dir/$f" =~ m,$ig_dir,) {
-					print "skipping $dir/$f (in ignore list)\n" if ($verbose);
-					$push_it = 0;
-				}
+			else {
+				print "ovo je staro: $dir/$f\n" if ($verbose);
 			}
-			push @dirs,"$dir/$f" if ($push_it);
-		} else {
-			print "skipping $dir/$f\n" if ($verbose);
+		}
+		elsif ($f =~ /^eng$/ || $f =~ /adresar/ || $f =~ /^eng_/) {
+				print "preskacem jer je  eng ili adresar $dir/$f\n" if ($verbose);
+                }
+		else {
+				print "ovo je link $dir/$f\n" if ($verbose);
 		}
 	}	
 	closedir DIR;
 }
 
-#foreach $file ("/data/web/public/VIJESTI/30ozpotpiskol.html") {
 foreach $file (@files) {
 	if (open(IN,"$file")) {
 		print "$file\n" if ($verbose);
@@ -112,6 +114,7 @@
 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;
@@ -268,4 +271,8 @@
 s/Tošiba/Toshiba/g;
 s/Marč/March/g;
 
+s/Attach/Attach/g;
+s/attachment/attachment/g;
+s/show/show/g;
+
 }