# HG changeset patch # User Tom Pritchard # Date 1267566014 0 # Node ID 4d82aaca44528e265f959753f144a5783d86b094 # Parent 9b3b5a50db11544fb34ab7a9a5b80a6a58b13407 Updating the config scripts and adding support for updating the CCE CenRep file diff -r 9b3b5a50db11 -r 4d82aaca4452 telephonyserverplugins/attestltsy/config/configatmodem.bat --- a/telephonyserverplugins/attestltsy/config/configatmodem.bat Wed Feb 24 13:44:01 2010 +0000 +++ b/telephonyserverplugins/attestltsy/config/configatmodem.bat Tue Mar 02 21:40:14 2010 +0000 @@ -4,7 +4,7 @@ REM This component and the accompanying materials are made available REM under the terms of Eclipse Public License v1.0 REM which accompanies this distribution, and is available -REM at the URL http:REMwww.eclipse.org/legal/epl-v10.html. +REM at the URL http://www.eclipse.org/legal/epl-v10.html. REM REM Initial Contributors: REM Symbian Foundation - initial contribution. @@ -27,12 +27,15 @@ copy /Y \epoc32\release\winscw\udeb\phonetsywithdispatcher.tsy \epoc32\release\winscw\udeb\phonetsy.tsy echo Setup the feature manager to include GSM and WCDMA features: -@perl -S -I/epoc32/tools/featmgr /sf/os/cellularsrv/telephonyserverplugins/attestltsy/config/modifyfeaturedb.pl +@perl -S -I/epoc32/tools/featmgr ./modifyfeaturedb.pl -echo Setuping CommDB: +echo Setup the Converged Call Engine plugin to use CS rather than VCC: +@perl -S ./modifycenrep.pl + +echo Setup CommDB: REM copy /Y \sf\os\cellularsrv\telephonyserverplugins\attestltsy\config\AT-LTSY(default).cfg \epoc32\winscw\c\AT-LTSY(default).cfg cd \sf\os\cellularsrv\telephonyserverplugins\attestltsy\config -@perl -S /sf/os/cellularsrv/telephonyserverplugins/attestltsy/config/modifycommdb.pl -\epoc32\release\winscw\udeb\ced.exe -Dtextshell -- c:\AT-LTSY(wavcom).cfg +@perl -S ./modifycommdb.pl +\epoc32\release\winscw\udeb\ced.exe -Dtextshell -- c:\AT-LTSY.cfg REM M:\sf\os\devicesrv\sysstatemgmt\group>sbs -b bld.inf -c winscw_udeb RESOURCE diff -r 9b3b5a50db11 -r 4d82aaca4452 telephonyserverplugins/attestltsy/config/modifycenrep.pl --- /dev/null Thu Jan 01 00:00:00 1970 +0000 +++ b/telephonyserverplugins/attestltsy/config/modifycenrep.pl Tue Mar 02 21:40:14 2010 +0000 @@ -0,0 +1,48 @@ +#!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 script modifies the CCE plugin cenrep file to use the CS plugin rather than the VCC one. +# +# + +use strict; + +# Open the cenrep files +my $cenrep = "/epoc32/release/winscw/UDEB/z/private/10202be9/10282E7F.txt"; +my $newcenrep = "/epoc32/release/winscw/UDEB/z/private/10202be9/10282E7F.tmp"; +my $cenrepbak = "/epoc32/release/winscw/UDEB/z/private/10202be9/10282E7F.bak"; +my $file2string; + +# Open the file in UNICODE-16 and read the whole contents into a string +open(my $CENREPREAD, "<:raw:encoding(UTF-16LE):crlf:utf8", $cenrep) or die "Couldn't open current cenrep file"; +{ +$/ =undef; +$file2string = <$CENREPREAD>; +} +close($CENREPREAD); + +# Modify the crucial line to the new UID for CS calls rather than VCC +$file2string =~ s/0x9001 string \"536924074\"/0x9001 string \"271067365\"/g; + +# Write out the contents into a new UNICODE-16 encoded file +open(my $CENREPOUT, ">:raw:encoding(UTF-16LE):crlf:utf8", $newcenrep) or die "Couldn't open new cenrep file for output"; +print $CENREPOUT $file2string; +close($CENREPOUT); + + +# Now backup the old and copy the new files +rename($cenrep, $cenrepbak) or die "Couldn't backup feature data file '$cenrep'\n" unless (-e $cenrepbak); # OK for this to fail as it probably just means there's already a backup +rename($newcenrep, $cenrep) or die "Couldn't copy feature data file '$newcenrep'\n"; + +print "\tCCE CenRep Setup\n"; \ No newline at end of file diff -r 9b3b5a50db11 -r 4d82aaca4452 telephonyserverplugins/attestltsy/config/modifycommdb.pl --- a/telephonyserverplugins/attestltsy/config/modifycommdb.pl Wed Feb 24 13:44:01 2010 +0000 +++ b/telephonyserverplugins/attestltsy/config/modifycommdb.pl Tue Mar 02 21:40:14 2010 +0000 @@ -12,8 +12,7 @@ # Contributors: # # Description: -# This simple script shows how to modify the content of a feature manager -# data file. +# This modifies CommDB for the AT LTSY modem, asking the user for the comm port and baud rate to use. # # @@ -29,12 +28,11 @@ 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"; +#print "\nComm::$com Baud=$baud\n"; # Open the config files my $defaultcomdb = "<./AT-LTSY(default).cfg"; -my $commdb = ">>../../../../../../epoc32/winscw/c/AT-LTSY.cfg"; -#my $commdb = ">./AT-LTSY.cfg"; +my $commdb = ">/epoc32/winscw/c/AT-LTSY.cfg"; open(COMMDBOUT, $commdb); open(COMMDBREAD, $defaultcomdb); @@ -50,13 +48,13 @@ # first wait till we've found the $modembearertable line. if ($line =~ m/^\[ModemBearer\]/) { - print "Found the modem bearer table\n"; + #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"; + #print "Found the end fo the modem bearer table\n"; $modembearertable = 0; } @@ -66,14 +64,14 @@ # Now wait till we've got to an entry for our modem if ($line =~ m/^\sName=CommModem/) { - print "Found the modem entry\n"; + #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"; + #print "Found the end of the modem entry\n"; $modementry = 0; } } @@ -84,14 +82,14 @@ # If it's the comm port number set that up if ($line =~ m/^\sPortName=COMM::/) { - print "Changing COMM port\n"; + 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 "Changing Baud rate\n"; + print "\tSetting the Baud rate\n"; $line = "\tRate=$baud\n" } } @@ -105,15 +103,3 @@ close(COMMDBREAD); - -# Open the .cfg file and read each line - -#rename($datfile, $datfileback) or die "Couldn't backup feature data file '$datfile'\n"; -#rename($datfile2, $datfile) or die "Couldn't copy feature data file '$datfile2'\n"; - -#printf ("\tFeature Database setup\n"); -# -# Example code to remove a feature flag. -# -#$fmc->RemoveFeatureFlagByUID($ffuid) or die "Couldn't remove feature flag\n"; -