vfmg: vfmg - fixed DR17 speedup

[sparky]

Author: sparky                       Date: Tue Apr 18 18:37:56 2006 GMT
Module: vfmg                          Tag: HEAD
---- Log message:
- fixed DR17 speedup

---- Files affected:
vfmg:
   vfmg (1.87 -> 1.88) 

---- Diffs:

================================================================
Index: vfmg/vfmg
diff -u vfmg/vfmg:1.87 vfmg/vfmg:1.88
--- vfmg/vfmg:1.87	Tue Apr 18 19:31:36 2006
+++ vfmg/vfmg	Tue Apr 18 20:37:51 2006
@@ -954,7 +954,9 @@
 			{
 				if ( -r $icon ) {
 					(my $md5 = `md5sum $icon`) =~ s/\s+.*//s;
-					$icon_exists = 1 if ( $md5 eq $$e{IconMD5} );
+					if ( defined $$e{IconMD5} ) {
+						$icon_exists = 1 if ( $md5 eq $$e{IconMD5} );
+					}
 				} else {
 					$icon_exists = 1 unless defined $$e{IconMD5};
 				}
@@ -1040,15 +1042,16 @@
 		} else {
 			my $subdir = sprintf "%s/%s", $dir, $$d{file};
 			my $file = $subdir . "/.directory.eap";
+			my $file2 = "$opt{icons_dir}/$$d{file}.eap";
 			mkpath($subdir,0,0700);
 			print ".." if $o_verbose;
 			unless ( $icon_exists ) {
-				system(@edje, $file);
+				system(@edje, $file2);
 				print ".." if $o_verbose;
-				system("enlightenment_eapp",$file,
+				system("enlightenment_eapp",$file2,
 					"-set-name",$name);
 			}
-			
+			symlink ($file2, $file);
 			print "..DONE\n" if $o_verbose;
 			DR17($menu[$no]{$entry},$subdir,$tab.step,$dr);
 			$dirs .= $$d{file}."\n";
================================================================

---- CVS-web:
    http://cvs.pld-linux.org/vfmg/vfmg?r1=1.87&r2=1.88&f=u