#!/usr/bin/perl

# Copyright (c) 2009 Symbian Foundation Ltd

# This component and the accompanying materials are made available

# under the terms of the License "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 Ltd - initial contribution.

# 

# Contributors:

#

# Description:

# Map the SFL license to the EULA license, keeping a copy of the original file

# in a parallel tree for creation of a "repair" kit to reinstate the SFL

use strict;

use File::Copy;

use File::Path;

my $debug = 0;

my @oldtext = (

  'terms of the License "Symbian Foundation License v1.0"',

  'the URL "http://www.symbianfoundation.org/legal/sfl-v10.html"'

);

my @newtext = (

  'terms of the License "Symbian Foundation License v1.0" to Symbian Foundation members and "Symbian Foundation End User License Agreement v1.0" to non-members',

  'the URL "http://www.symbianfoundation.org/legal/licencesv10.html"'

);

my @errorfiles = ();

sub map_eula($$$)

  {

  my ($file,$shadowdir,$name) = @_;

  open FILE, "<$file" or print "ERROR: Cannot open $file: $!\n" and return "Cannot open";

  my @lines = <FILE>;

  close FILE;

  my $updated = 0;

  my @newlines = ();

  while (my $line = shift @lines)

    { 

    if (index($line,$newtext[0]) >= 0)

      {

      # file already converted - nothing to do

      last;

      }

    # under the terms of the License "Symbian Foundation License v1.0"

    # which accompanies this distribution, and is available

    # at the URL "http://www.symbianfoundation.org/legal/sfl-v10.html".

    my $pos1 = index $line, $oldtext[0];

    if ($pos1 >= 0)

      {

      my $midline = shift @lines;

      my $urlline = shift @lines;

      my $pos2 = index $urlline, $oldtext[1];

      if ($pos2 >= 0)

        {

        # Found it - assume that there's only one instance

        substr $line, $pos1, length($oldtext[0]), $newtext[0];

        substr $urlline, $pos2, length($oldtext[1]), $newtext[1];

        push @newlines, $line, $midline, $urlline;

        $updated = 1;

        last;

        }

      else

        {

        print STDERR "Problem in $file: incorrectly formatted >\n$line$midline$urlline\n";

        push @errorfiles, $file;

        last;

        }

      }

    push @newlines, $line;

    }

  return if (!$updated);

  mkpath($shadowdir, {verbose=>0});

  move($file, "$shadowdir/$name") or die("Cannot move $file to $shadowdir/$name: $!\n");

  open NEWFILE, ">$file" or die("Cannot overwrite $file: $!\n");

  print NEWFILE @newlines, @lines;

  close NEWFILE or die("Failed to update $file: $!\n");

  print "* updated $file\n";

  }

# Process tree

sub scan_directory($$)

  {

  my ($path, $shadow) = @_;

  opendir DIR, $path;

  my @files = grep !/^\.\.?$/, readdir DIR;

  closedir DIR;

  foreach my $file (@files)

    {

    my $newpath = "$path/$file";

    my $newshadow = "$shadow/$file";

    if (-d $newpath)

      {

      scan_directory($newpath, $newshadow);

      next;

      }

    next if (-B $newpath);  # ignore binary files

    map_eula($newpath, $shadow, $file);

    }

  }

scan_directory("/epoc32", "/sfl_epoc32");

printf "%d problem files\n", scalar @errorfiles;

print "\t", join("\n\t", @errorfiles), "\n";