1.1 --- /dev/null	Thu Jan 01 00:00:00 1970 +0000
     1.2 +++ b/os/persistentdata/persistentstorage/sql/TEST/PrepareDbmsTestScript.pl	Fri Jun 15 03:10:57 2012 +0200
     1.3 @@ -0,0 +1,50 @@
     1.4 +# Copyright (c) 2006-2009 Nokia Corporation and/or its subsidiary(-ies).
     1.5 +# All rights reserved.
     1.6 +# This component and the accompanying materials are made available
     1.7 +# under the terms of "Eclipse Public License v1.0"
     1.8 +# which accompanies this distribution, and is available
     1.9 +# at the URL "http://www.eclipse.org/legal/epl-v10.html".
    1.10 +#
    1.11 +# Initial Contributors:
    1.12 +# Nokia Corporation - initial contribution.
    1.13 +#
    1.14 +# Contributors:
    1.15 +#
    1.16 +# Description:
    1.17 +#
    1.18 +
    1.19 +#!/usr/bin/perl
    1.20 +
    1.21 +$FilePath = "< add_simple_contacts.sql";
    1.22 +$FilePath2 = "> add_simple_contacts_dbms.sql";
    1.23 +open(SRC, $FilePath) or print STDERR "Cannot open $FilePath\n" and exit 1;
    1.24 +create(DEST, $FilePath2) or print STDERR "Cannot open $FilePath2\n" and exit 1;
    1.25 +my $Line;
    1.26 +my $cnt = 0;
    1.27 +while($Line = <SRC>)
    1.28 +{
    1.29 +   if($Line =~ /^'\d\d\d\d-\d{1,2}-\d{1,2} \d{1,2}:\d{1,2}:\d{1,2}',/)
    1.30 +   {
    1.31 +       print "$Line\n";
    1.32 +       print DEST "#07/06/2006#,\n";
    1.33 +       $cnt++;	
    1.34 +   }
    1.35 +   else 
    1.36 +   {
    1.37 +      if($Line =~ /x'.*',/)
    1.38 +      {
    1.39 +          @pair = split(/x/, $Line);
    1.40 +          print @pair[1]."\n";
    1.41 +          print DEST @pair[1]."\n";
    1.42 +          $cnt++;	
    1.43 +      }
    1.44 +      else
    1.45 +      {
    1.46 +          print DEST $Line;
    1.47 +      }
    1.48 +   }
    1.49 +}
    1.50 +close(SRC);
    1.51 +close(DEST);
    1.52 +print "changed lines count: $cnt\n";
    1.53 +