--- a/cbsref/telephonyrefplugins/atltsy/config/modifycommdb.pl	Tue Aug 31 16:23:08 2010 +0300
+++ /dev/null	Thu Jan 01 00:00:00 1970 +0000
@@ -1,105 +0,0 @@
-#!perl -w
-# Copyright (c) 2010 Symbian Foundation 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:
-# Symbian Foundation - initial contribution.
-#
-# Contributors:
-#
-# Description:
-# This modifies CommDB for the AT LTSY modem, asking the user for the comm port and baud rate to use.
-# 
-#
-
-use strict;
-
-
-# Ask for the COM port and Baud
-my $com;
-my $baud;
-print "What COMM port is the modem on?\n(Note: Symbian COMM ports are 1 less than windows)\n\tCOMM::";
-chomp ($com = <>);
-
-print "What is the baud rate of the modem?\n(Wavecomm default is 9600, Telit default is 152000)\n\tBaud=";
-chomp ($baud = <>);
-
-#print "\nComm::$com Baud=$baud\n";
-
-# Open the config files
-my $defaultcomdb = "<./AT-LTSY(default).cfg";
-my $commdb = ">/epoc32/winscw/c/AT-LTSY.cfg";
-
-open(COMMDBOUT, $commdb);
-open(COMMDBREAD, $defaultcomdb);
-
-# Read in the default commdb and write it out to the new file, changing the com port and baud where necessary
-my $modembearertable = 0;
-my $modementry = 0;
-
-while(<COMMDBREAD>)
-{
-my($line)=$_;
-
-# first wait till we've found the $modembearertable line.
-if ($line =~ m/^\[ModemBearer\]/) 
-	{
-	#print "Found the modem bearer table\n";
-	$modembearertable = 1;
-	}
-# Or if we've got the end of the table unset the boolean
-elsif ($modembearertable && $line =~ m/^\[/) 
-	{
-	#print "Found the end fo the modem bearer table\n";
-	$modembearertable = 0;	
-	}
-
-# If we're in the modem table then check for a few things
-if ($modembearertable)
-	{
-	# Now wait till we've got to an entry for our modem
-	if ($line =~ m/^\sName=CommModem/) 
-		{
-		#print "Found the modem entry\n";
-		$modementry = 1;
-		}
-
-	# Or if we've reached the end of the modem entry unset the boolean
-	if ($modementry && $line =~ m/^END_ADD/) 
-		{
-		#print "Found the end of the modem entry\n";
-		$modementry = 0;
-		}
-	}
-
-# If we're in the entry for our modem then potentially modify the line
-if ($modementry)
-	{
-	# If it's the comm port number set that up
-	if ($line =~ m/^\sPortName=COMM::/) 
-		{
-		print "\tSetting the COMM port\n";
-		$line = "\tPortName=COMM::$com\n"
-		}
-	
-	# If it's the rate then set that up
-	if ($line =~ m/^\sRate=/) 
-		{
-		print "\tSetting the Baud rate\n";
-		$line = "\tRate=$baud\n"
-		}
-	}
-
-# Write out the (modified) line to the new commdb
-print COMMDBOUT $line;
-}
-
-# Close the files
-close(COMMDBOUT);
-close(COMMDBREAD);
-
-