--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/persistentstorage/sql/TEST/PrepareDbmsTestScript.pl	Fri Jan 22 11:06:30 2010 +0200
@@ -0,0 +1,50 @@
+# 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:
+#
+
+#!/usr/bin/perl
+
+$FilePath = "< add_simple_contacts.sql";
+$FilePath2 = "> add_simple_contacts_dbms.sql";
+open(SRC, $FilePath) or print STDERR "Cannot open $FilePath\n" and exit 1;
+create(DEST, $FilePath2) or print STDERR "Cannot open $FilePath2\n" and exit 1;
+my $Line;
+my $cnt = 0;
+while($Line = <SRC>)
+{
+   if($Line =~ /^'\d\d\d\d-\d{1,2}-\d{1,2} \d{1,2}:\d{1,2}:\d{1,2}',/)
+   {
+       print "$Line\n";
+       print DEST "#07/06/2006#,\n";
+       $cnt++;	
+   }
+   else 
+   {
+      if($Line =~ /x'.*',/)
+      {
+          @pair = split(/x/, $Line);
+          print @pair[1]."\n";
+          print DEST @pair[1]."\n";
+          $cnt++;	
+      }
+      else
+      {
+          print DEST $Line;
+      }
+   }
+}
+close(SRC);
+close(DEST);
+print "changed lines count: $cnt\n";
+