scripts/generateDiff.pl

   1 use strict;
   2 use File::Compare;
   3
   4 if (!defined $ARGV[0])
   5 {
   6         die "Usage : $0 <newdir> <olddir>";
   7 }
   8
   9 my ($dir1, $dir2) = @ARGV;
  10
  11 open(OUT, ">diff.txt") || die "ERROR: Cannot open diff.txt";
  12
  13 checkDir($dir1, ".", $dir2, ".");
  14
  15 sub checkDir()
  16 {
  17         my ($dir1, $offset1, $dir2, $offset2) = @_;
  18
  19         my $actualdir1 = $dir1."\\".$offset1;
  20         my $actualdir2 = $dir2."\\".$offset2;
  21
  22         # Src dir
  23         opendir(DIR, $actualdir1) || die "ERROR $actualdir1";
  24         my @files = readdir(DIR);
  25         closedir(DIR);
  26
  27         if (! -d $actualdir2)
  28         {
  29                 # New Dir
  30                 print "New Dir : $actualdir2\n";
  31                 print OUT "CreateDirectory \"\$INSTDIR\\$offset2\"\n";
  32         }
  33
  34         foreach my $file (@files)
  35         {
  36                 my $file1 = $actualdir1."\\".$file;
  37                 my $file2 = $actualdir2."\\".$file;
  38                 my $offfile = $offset1."\\".$file;
  39
  40                 if (-f $file1)
  41                 {
  42                         if (! -f $file2)
  43                         {
  44                                 # New file
  45                                 print "New : $offfile\n";
  46                                 print OUT "File \"/oname=\$INSTDIR\\$offfile\" \"$offfile\" \n";
  47                         }
  48                         else
  49                         {
  50                                 if (compare($file1, $file2) != 0)
  51                                 {
  52                                         # Different file
  53                                         print "Diff : $offfile\n";
  54                                         print OUT "File \"/oname=\$INSTDIR\\$offfile\" \"$offfile\" \n";
  55                                 }
  56                         }
  57                 }
  58                 elsif (-d $file1 && $file !~ /^\./)
  59                 {
  60                         checkDir($dir1, $offset1."\\".$file, $dir2, $offset2."\\".$file);
  61                 }
  62         }
  63
  64         if (-d $actualdir2)
  65         {
  66                 # Dest dir
  67                 opendir(DIR, $actualdir2) || die "ERROR $actualdir2";
  68                 my @files = readdir(DIR);
  69                 closedir(DIR);
  70
  71                 foreach my $file (@files)
  72                 {
  73                         my $file1 = $actualdir1."\\".$file;
  74                         my $file2 = $actualdir2."\\".$file;
  75                         my $offfile = $offset2."\\".$file;
  76
  77                         if (-f $file2)
  78                         {
  79                                 if (! -f $file1)
  80                                 {
  81                                         # Old file
  82
  83                                         print "Old : $offfile\n";
  84                                         print OUT "Delete \"\$INSTDIR\\$offfile\" \n";
  85                                 }
  86                         }
  87                         elsif (-d $file2 && $file !~ /^\./)
  88                         {
  89                                 if (! -d $file1)
  90                                 {
  91                                         # Old dir
  92                                         print "Old Dir : $offfile\n";
  93                                         print OUT "RMDir /r \"\$INSTDIR\\$offfile\" \n";
  94                                 }
  95                         }
  96                 }
  97         }
  98 }