diff -r 2b7283837edb -r 3104fc151679 servicewidget/themes/install-themes/rename_localized_xuikon_odts.pl --- a/servicewidget/themes/install-themes/rename_localized_xuikon_odts.pl Thu Aug 19 09:41:53 2010 +0300 +++ /dev/null Thu Jan 01 00:00:00 1970 +0000 @@ -1,62 +0,0 @@ -# -# Copyright (c) 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 -use File::Copy; -use File::Find; - -print("Start to move localized xuikon odts to folders named by language number\n"); - -# go through all directories and subdirectories -find(\&MoveLocalized, '.'); - -sub MoveLocalized -{ - # if we are in hsps folder move localized xuikon odts - if ($File::Find::name =~ /\/hsps\//g) - { - #print("Processing folder $File::Find::dir\n"); - $File::Find::prune = 1; - # move localized xuikon odts to folders named by language index - while(<*.o*>) - { - # Find position of suffix (search for ".o") - $suffix = $_; - $suffix =~ /\.o/g; - - # name of localized dir is last four characters of file - $dirname = substr($_, pos($suffix), 4); - # don't move engineering english version - if ($dirname != "0000") - { - print("\nold file = $File::Find::dir/$_\n"); - # remove zeros from beginning - $dirname += 0; - # create folder - mkdir($dirname); - # move file to folder and rename it - $newlocation = $dirname ."/" .$_; - move($_, $newlocation); - $oldname = $newlocation; - $newlocation =~ s/\.o(.*)$/\.o0000/; - print("new file = $File::Find::dir/$newlocation\n"); - rename $oldname, $newlocation; - } - } - } -} - - -exit; \ No newline at end of file