--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/fontservices/fontstore/group/fonts_c.pl	Tue Feb 02 02:02:46 2010 +0200
@@ -0,0 +1,40 @@
+#
+# Copyright (c) 2006-2009 Nokia Corporation and/or its subsidiary(-ies).
+# All rights reserved.
+# This component and the accompanying materials are made available
+# under the terms of "Eclipse Public License v1.0"
+# which accompanies this distribution, and is available
+# at the URL "http://www.eclipse.org/legal/epl-v10.html".
+#
+# Initial Contributors:
+# Nokia Corporation - initial contribution.
+#
+# Contributors:
+#
+# Description: 
+# Build font files
+#
+
+use Cwd;
+use File::Path;
+
+$dir = getcwd();
+chdir "..";
+$parentdir = getcwd();
+
+$datadir="/tfs/fntfiles";
+$datadir = $parentdir . $datadir;
+
+if (-e "$datadir")
+{ 
+  #proceed with your code
+}
+else
+{
+	eval { mkpath($datadir) };
+	if ($@) {
+	    print "Couldn't create $dir: $@";
+  	} 
+}
+
+system("fnttran tfs/tsection.bdf tfs/tsection.gd $datadir/tsection.gdr");