1.1 --- /dev/null Thu Jan 01 00:00:00 1970 +0000
1.2 +++ b/os/mm/mmtestenv/mmtesttools/Scripts/secdisp_ini_append.pl Fri Jun 15 03:10:57 2012 +0200
1.3 @@ -0,0 +1,199 @@
1.4 +#!perl
1.5 +# Copyright (c) 2007-2009 Nokia Corporation and/or its subsidiary(-ies).
1.6 +# All rights reserved.
1.7 +# This component and the accompanying materials are made available
1.8 +# under the terms of "Eclipse Public License v1.0"
1.9 +# which accompanies this distribution, and is available
1.10 +# at the URL "http://www.eclipse.org/legal/epl-v10.html".
1.11 +#
1.12 +# Initial Contributors:
1.13 +# Nokia Corporation - initial contribution.
1.14 +#
1.15 +# Contributors:
1.16 +#
1.17 +# Description:
1.18 +#
1.19 +
1.20 +use strict;
1.21 +use FindBin;
1.22 +use File::Copy;
1.23 +
1.24 +# Figure out what user has asked us to do...
1.25 +
1.26 +my( $script_name ) = $0;
1.27 +my( $mode ) = $ARGV[0];
1.28 +my( $backup ) = $ARGV[1];
1.29 +my( $epocextra ) = $ARGV[2];
1.30 +my( $wsiniextra ) = $ARGV[3];
1.31 +
1.32 +my( $usage ) = <<EOF;
1.33 +
1.34 +This script will append or remove extra options to the epoc.ini and
1.35 +wsini.ini emulator configuration files.
1.36 +It is intended to be used before and after any emulator tests
1.37 +that require multiple emulator screens.
1.38 +
1.39 +Usage:
1.40 +
1.41 +$script_name help
1.42 + Displays this message.
1.43 +
1.44 +$script_name append $backup $epocextra $wsiniextra
1.45 + Makes back-up copies of the epoc.ini and wsini.ini config files to files
1.46 + prefixed with $backup and then appends the contents of $epocextra and
1.47 + $wsiniextra to the originals. Note that $backup must be unique or append
1.48 + will fail.
1.49 +
1.50 +$script_name restore $backup
1.51 + Moves the back-up copies of epoc.ini and wsini.ini to their original
1.52 + locations from files prefixed with $backup
1.53 +
1.54 +Notes:
1.55 + The wsini.ini file is a unicode text file encoded using UTF-16. The
1.56 + wsini.extra file MUST therefore be saved with the same encoding
1.57 + otherwise the resulting concatenated file will not work. (You don't need
1.58 + to worry about the extra BOM at the start of wsini.extra since this
1.59 + script takes care of removing it before appending the file)
1.60 +
1.61 + The original epoc.ini and wsini.ini files are NOT checked prior to the
1.62 + appending. If you have customised these files (especially with any
1.63 + multi-screen options) the resulting concatenated files may be invalid
1.64 + or cause the tests to fail.
1.65 +
1.66 +EOF
1.67 +
1.68 +if( ($mode eq 'help') || ( $mode eq '' ) ){
1.69 + print $usage;
1.70 + exit;
1.71 +}
1.72 +elsif( ($mode ne 'append') && ($mode ne 'restore') ){
1.73 + die "$script_name: ERROR: Invalid argument: \"$mode\". Must be either \"help\", \"append\" or \"restore\"\n".$usage;
1.74 +}
1.75 +
1.76 +##########################################
1.77 +
1.78 +# Append $source to $dest. If $is_utf_16 the BOM marker at the start of $source will be
1.79 +# stripped off to ensure that the $dest remains a valid UTF-16 file.
1.80 +sub append_to_file{
1.81 + my( $source, $dest, $is_utf_16 ) = @_;
1.82 + my( $line, $did_first );
1.83 + $did_first = 0;
1.84 +
1.85 + open SOURCE, $source or die "$script_name: ERROR: Could not open $source ($!)\n";
1.86 + open DEST, '>>', $dest or die "$script_name: ERROR: Could not open $dest ($!)\n";
1.87 +
1.88 + if( $is_utf_16 ){
1.89 + # since our old version of Perl does not have decent Unicode support
1.90 + # we'll use binary mode instead...
1.91 + binmode SOURCE;
1.92 + binmode DEST;
1.93 +
1.94 + while( read( SOURCE, $line, 1000 ) ){
1.95 + if( !$did_first ){
1.96 + # strip BOM (first two bytes) off first line, since it is being appended to an
1.97 + # existing UTF-16 file
1.98 + $line = substr( $line, 2 );
1.99 + $did_first = 1;
1.100 + }
1.101 + print DEST $line;
1.102 + }
1.103 + }
1.104 + else{
1.105 + # bog-standard ASCII
1.106 + while( $line = <SOURCE> ){
1.107 + print DEST $line;
1.108 + }
1.109 + }
1.110 +
1.111 + close SOURCE;
1.112 + close DEST;
1.113 +}
1.114 +
1.115 +##########################################
1.116 +# Begin main logic...
1.117 +
1.118 +# Figure out locations of INI files...
1.119 +my( $epoc_root, $epocini, $udeb_wsini, $urel_wsini, $extra_epocini, $extra_wsini, $copy_epocini, $copy_udeb_wsini, $copy_urel_wsini );
1.120 +
1.121 +$epoc_root = $ENV{'EPOCROOT'};
1.122 +$epoc_root =~ tr:\\:/:; # change to Linux-friendly forward-slashes (Windows Perl compensates for this automagically)
1.123 +$epoc_root =~ s/\/$//; # remove any trailing slash to avoid double slashes when the paths are appended below
1.124 +
1.125 +$epocini = $epoc_root.'/epoc32/data/epoc.ini';
1.126 +#if this is defined we are running Mistral
1.127 +if($ENV{'EPOC_INI'}) {$epocini = $ENV{'EPOC_INI'};}
1.128 +
1.129 +$udeb_wsini = $epoc_root.'/epoc32/RELEASE/WINSCW/UDEB/Z/system/data/wsini.ini'; # this file is UTF-16 little-endian!
1.130 +$urel_wsini = $epoc_root.'/epoc32/RELEASE/WINSCW/UREL/Z/system/data/wsini.ini'; # this file is UTF-16 little-endian!
1.131 +
1.132 +my $emu_data_dir = $ENV{'EMULATOR_DATA_DIR'};
1.133 +if($emu_data_dir)
1.134 + {
1.135 + #this is mistral so we will overload $urel_wsini with absolute location
1.136 + $urel_wsini = $emu_data_dir.'z\system\data\wsini.ini';
1.137 + }
1.138 +
1.139 +$extra_epocini = $FindBin::Bin.$epocextra; # this file is ASCII
1.140 +$extra_wsini = $FindBin::Bin.$wsiniextra; # this file is UTF-16 little-endian!
1.141 +
1.142 +$copy_epocini = $FindBin::Bin.'/'.$backup.'_epoc.copy';
1.143 +$copy_udeb_wsini = $FindBin::Bin.'/'.$backup.'_wsini_udeb.copy';
1.144 +$copy_urel_wsini = $FindBin::Bin.'/'.$backup.'_wsini_urel.copy';
1.145 +
1.146 +
1.147 +if( $mode eq 'append' ){
1.148 + # Append mode: Append extra options to existing INI files
1.149 +
1.150 + # first make back-up of existing INI files
1.151 + # (without clobbering existing copies)
1.152 + if( -e $copy_epocini ){
1.153 + die "$script_name: ERROR: Back-up of epoc.ini already exists at \"$copy_epocini\". Please run \"$script_name restore\" first.\n";
1.154 + }
1.155 + else{
1.156 + copy( $epocini, $copy_epocini ) or die "$script_name: ERROR: Could not copy $epocini ($!)\n";
1.157 + }
1.158 + # now append extra bits to original INI files
1.159 + append_to_file( $extra_epocini, $epocini, 0 );
1.160 + print "$script_name: NOTE: Extra settings have been appended to \"$epocini\". If you have customised this file and secondary display tests fail, please check for conflicting settings!\n";
1.161 +
1.162 + ## UREL wsini.ini + mistral universal
1.163 + if( -e $copy_urel_wsini ){
1.164 + die "$script_name: ERROR: Back-up of UREL wsini.ini already exists at \"$copy_urel_wsini\". Please run \"$script_name restore\" first.\n";
1.165 + }
1.166 + else{
1.167 + copy( $urel_wsini, $copy_urel_wsini ) or die "$script_name: ERROR: Could not copy $urel_wsini ($!)\n";
1.168 + }
1.169 + #note mistral will provide absolute location dependant on running mode
1.170 + append_to_file( $extra_wsini, $urel_wsini, 1 );
1.171 + print "$script_name: NOTE: Extra settings have been appended to \"$urel_wsini\". If you have customised this file and secondary display tests fail, please check for conflicting settings!\n";
1.172 +
1.173 +
1.174 + #unless mistral in which case we dont bother keeping a backup of udeb as we adjust universal copy
1.175 + #under guise of UREL path
1.176 + if(!$emu_data_dir)
1.177 + {
1.178 + if( -e $copy_udeb_wsini ){
1.179 + die "$script_name: ERROR: Back-up of UDEB wsini.ini already exists at \"$copy_udeb_wsini\". Please run \"$script_name restore\" first.\n";
1.180 + }
1.181 + else{
1.182 + copy( $udeb_wsini, $copy_udeb_wsini ) or die "$script_name: ERROR: Could not copy $udeb_wsini ($!)\n";
1.183 + }
1.184 + #
1.185 + append_to_file( $extra_wsini, $udeb_wsini, 1 );
1.186 + print "$script_name: NOTE: Extra settings have been appended to \"$udeb_wsini\". If you have customised this file and secondary display tests fail, please check for conflicting settings!\n";
1.187 + }
1.188 +
1.189 +
1.190 +
1.191 +}else{
1.192 + # Restore mode: Move copies of original INI files back to original locations
1.193 +
1.194 + move( $copy_epocini, $epocini ) && print "$script_name: NOTE: \"$epocini\" has been restored to previous version.\n" or warn "$script_name: Could not restore $epocini from $copy_epocini ($!)\n";
1.195 +
1.196 + move( $copy_urel_wsini, $urel_wsini ) && print "$script_name: NOTE: \"$urel_wsini\" has been restored to previous version.\n" or warn "$script_name: Could not restore $urel_wsini from $copy_urel_wsini ($!)\n";
1.197 +
1.198 + if(!$emu_data_dir)
1.199 + {
1.200 + move( $copy_udeb_wsini, $udeb_wsini ) && print "$script_name: NOTE: \"$udeb_wsini\" has been restored to previous version.\n" or warn "$script_name: Could not restore $udeb_wsini from $copy_udeb_wsini ($!)\n";
1.201 + }
1.202 +}
1.203 \ No newline at end of file