SVN: vfmg/trunk/vfmg

[sparky]

Author: sparky
Date: Sun Dec  3 04:50:01 2006
New Revision: 8051

Modified:
   vfmg/trunk/vfmg
Log:
- use desktop file name as icon name if no icon specified


Modified: vfmg/trunk/vfmg
==============================================================================
--- vfmg/trunk/vfmg	(original)
+++ vfmg/trunk/vfmg	Sun Dec  3 04:50:01 2006
@@ -311,8 +311,9 @@
 	my $file = $_;
 
 	open F_IN, $file or warn "$File::Find::name: $!\n" and return;
+	/(.*)\.desktop$/;
 	my %tags = (
-		file		=> $file,
+		file		=> $1,
 		Icon		=> '',
 		Categories	=> '',
 		Type		=> '',
@@ -361,6 +362,7 @@
 		s/%2/$tags{Exec}/g;
 		$tags{Exec} = $_;
 	}
+	$tags{Icon} = $tags{file} unless $tags{Icon};
 	if ( $opt{icons_ext} ) {
 		my $exists = 0;
 		ALLDIRS: foreach my $dir (@icondirs) {
@@ -412,7 +414,6 @@
 			$tags{$tag_name} = $tags{$first};
 		}
 	}
-	$tags{file} =~ s/\.desktop$//;
 	unless ($tags{Name}) {
 		$tags{Name} = $tags{file};
 		warn "$File::Find::name: missing Name tag! using $tags{Name}\n";