# Copyright (c) 2003-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:
# Script to renumber the XML command file
# 
#

use strict;
use Getopt::Long;
use File::Copy;

# Process the commandline
my ($iDataSource) = ProcessCommandLine();

&Renumber($iDataSource);


# ProcessCommandLine
#
# Inputs
#
# Outputs
# $iDataSource (XML file to process)
#
# Description
# This function processes the commandline

sub ProcessCommandLine {
  my ($iHelp, $iPort, $iDataSource, $iLogFile);
  GetOptions('h' => \$iHelp, 'd=s' =>\$iDataSource );

  if (($iHelp) || (!defined $iDataSource))
  {
    Usage();
  } elsif (! -e $iDataSource) {
    die "Cannot open $iDataSource";
  } else {
    return($iDataSource);
  }
}

# Usage
#
# Description
# Output Usage Information.
#

sub Usage {
  print <<USAGE_EOF;

	Usage: Renumber.pl [options]

	options:

	-h  help
	-d  Data Source (xml file)
USAGE_EOF
	exit 1;
}

# Renumber
#
# Inputs
# $iDataSource (XML file to process)
#
# Outputs
# A renumber XML File
#
# Description
# Renumber the XML file.
sub Renumber
{
  my ($iDataSource) = @_;
  
  my ($iLine, $iNum, $iOrder);
  $iNum = 1;
  $iOrder = 1;
  move($iDataSource,$iDataSource.".bak");  
  
  open XML, "<$iDataSource.bak" or die "Can't read $iDataSource.bak";
  open XMLOUT, ">$iDataSource" or die "Can't read $iDataSource";

	while ($iLine=<XML>)
	{
	  if ($iLine =~ /ID=\"\d+\"/)
	  {
	    $iLine =~ s/ID="\d+"\s+Stage="\d+"/ID="$iNum" Stage="$iNum"/;
	    $iNum++;
	  }
	  elsif ($iLine =~ /Order="\d+"/)
	  {
		 $iLine =~  s/Order="\d+"/Order="$iOrder"/;
		 $iOrder++;
	  }
	  print XMLOUT $iLine; 

	}

  close XML;
}