u

script_nuance/tools/favorites2html.pl

@@ -0,0 +1,31 @@
+use File::Find;
+use File::Copy;
+
+@files = glob "$ARGV[0]/*";
+
+open XML, ">Favorites.html" or die;
+#print XML "<?xml version=\"1.0\" encoding=\"UTF-8\" ?>\n<resource>\n";
+
+foreach $file (@files)
+{
+    if (-f $file)
+    {
+	open URL, "$file" or die;
+	$url = '';
+	while (<URL>)
+	{
+	    if (m|URL=(.*)|)
+	    {
+		$url = $1;
+		last;
+	    }
+	}
+	$file =~ s|Favorites/||;
+	$file =~ s|\.url||;
+	$url =~ s|&|&amp;|g;
+	print XML "<a href=\"$url\">$file</a><br>\n";
+	close URL;
+    }
+}
+
+#print XML "</resource>\n</xml>\n";