1 # Copyright (c) 2006-2009 Nokia Corporation and/or its subsidiary(-ies).

     2 # All rights reserved.

     3 # This component and the accompanying materials are made available

     4 # under the terms of "Eclipse Public License v1.0"

     5 # which accompanies this distribution, and is available

     6 # at the URL "http://www.eclipse.org/legal/epl-v10.html".

     7 #

     8 # Initial Contributors:

     9 # Nokia Corporation - initial contribution.

    10 #

    11 # Contributors:

    12 #

    13 # Description:

    14 # fonts_c.pl

    15 # Build font files

    16 # 

    17 #

    18 

    19 use Cwd;

    20 use File::Path;

    21 

    22 $dir = getcwd();

    23 chdir "..";

    24 $parentdir = getcwd();

    25 

    26 $datadir="/tps/printfiles";

    27 $datadir = $parentdir . $datadir;

    28 

    29 if (-e "$datadir")

    30 { 

    31   #proceed with your code

    32 }

    33 else

    34 {

    35 	eval { mkpath($datadir) };

    36 	if ($@) {

    37 	    print "Couldn't create $dir: $@";

    38   	} 

    39 }

    40 

    41 system("pdrtran tps/PRINTDRV.PD $datadir/printdrv.pdr");