# 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";