#!/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:

# Compare two 7z listings, looking for files present in both

use strict;

my %first_files;

my $line;

my $file_index = -1;

while ($line=<>)

  {

  if ($line =~ /^Listing archive/)

    {

    $file_index++;

    print "$file_index: Processing $line";

    next;

    }

  # 2009-04-30 11:26:58 D....            0            0  epoc32\cshlpcmp_template

  # 2009-03-20 22:22:18 .....        72192        16307  epoc32\cshlpcmp_template\cshelp2000.dot

  next if (length($line) < 54);

  my $dir_attribute = substr($line, 20, 1);  

  if ($dir_attribute eq ".")

    {

    chomp $line;

    my $fullpath = substr($line, 53);

    if ($file_index == 0)

      {

      # first file

      $first_files{$fullpath} = $line;

      next;

      }

    if (defined $first_files{$fullpath})

      {

      print "Duplicate filename: $fullpath\n";

      print "\t$first_files{$fullpath}\n\t$line\n";

      next

      }

    }

  }