diff -r 22486c9c7b15 -r 378360dbbdba releasing/cbrtools/perl/PushPullRel.pm
--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/releasing/cbrtools/perl/PushPullRel.pm	Wed Jun 30 11:35:58 2010 +0800
@@ -0,0 +1,253 @@
+#!perl
+# Copyright (c) 2000-2009 Nokia Corporation and/or its subsidiary(-ies).
+# All rights reserved.
+# 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:
+# Nokia Corporation - initial contribution.
+# 
+# Contributors:
+# 
+# Description:
+# PushPullRel - abstracts out common parts of PushEnv, PullEnv, PushRel, PullRel
+#
+
+package PushPullRel;
+
+use strict;
+use File::Copy;
+use IniData;
+use RelData;
+use PathData;
+use CommandController;
+
+sub new {
+  my $class = shift;
+  my $localinidata = shift;
+  my $foreigninifile = shift; # can be an ini file location or an IniData object
+  my $pushing = shift; # flag, whether we're pushing a release or pulling it
+  my $verbose = shift;
+  my $force = shift;
+
+  my $self = bless {}, (ref $class || $class);
+
+  $self->{localinidata} = $localinidata;
+  if (ref $foreigninifile) {
+    $self->{foreigninidata} = $foreigninifile;
+  } else{ 
+    $self->{foreigninidata} = IniData->New($foreigninifile);
+  }
+
+  $self->{pushing} = $pushing || 0;
+  if ($self->{pushing}) {
+    $self->{frominidata} = $self->{localinidata};
+    $self->{toinidata} = $self->{foreigninidata};
+  } else {
+    $self->{toinidata} = $self->{localinidata};
+    $self->{frominidata} = $self->{foreigninidata};
+  }
+  $self->{errors} = [];
+  $self->{verbose} = $verbose;
+  $self->{force} = $force;
+
+  return $self;
+}
+
+sub TransferRel {
+  my $self = shift;
+  my $thisComp = shift;
+  my $thisVer = shift;
+  eval {
+    my $toRelDir = $self->{toinidata}->PathData->LocalArchivePathForExistingOrNewComponent($thisComp, $thisVer);
+    my $fromRelDir = $self->{frominidata}->PathData->LocalArchivePathForExistingComponent($thisComp, $thisVer);
+    die "Error: Couldn't find component \"$thisComp\" \"$thisVer\"\n" unless defined $fromRelDir;
+    $self->PerformCopying($thisComp, $thisVer, $toRelDir, $fromRelDir);
+  };
+
+  if ($@) {
+    print "$@";
+    $self->_AddError($@);
+  }
+}
+
+sub PerformCopying {
+  my $self = shift;
+  my $thisComp = shift;
+  my $thisVer = shift;
+  my $toRelDir = shift;
+  my $fromRelDir = shift;
+  
+  if (-e $toRelDir and Utils::CrossCheckDirs($toRelDir, $fromRelDir)) {
+    print "$thisComp $thisVer already present\n";
+  }
+  elsif (-e $toRelDir) {
+    if ($self->{force}) {
+      print "Overwriting \"$toRelDir\" with \"$fromRelDir\"...\n";
+      $self->_DoCopying($fromRelDir, $toRelDir);
+    }
+    else {
+      die "\"$toRelDir\" present, but doesn't match \"$fromRelDir\". Use -f to force copy.\n";
+    }
+  }
+  else {
+    # Directory not present, so create an copy release files.
+    print "Copying $thisComp $thisVer to \"$toRelDir\"...\n";
+    $self->_DoCopying($fromRelDir, $toRelDir);
+  }
+}
+
+sub TransferEnv {
+  my $self = shift;
+  my $comp = shift;
+  my $ver = shift;
+
+  my $relData = RelData->Open($self->{frominidata}, $comp, $ver, $self->{verbose});
+  my $env = $relData->Environment();
+
+  my @errors;
+  foreach my $thisComp (sort keys %{$env}) {
+    my $thisVer = $env->{$thisComp};
+    $self->TransferRel($thisComp, $thisVer);
+  }
+}
+
+sub Errors {
+  my $self = shift;
+  return @{$self->{errors}} if wantarray;
+  return $self->{errors};
+}
+
+sub SummariseErrors {
+  my $self = shift;
+  my $copyRel = shift || 0;
+  
+  my $errors = $self->Errors;
+  if ($#$errors >= 0) {
+    print "\nSummary of errors:\n\n";
+    foreach my $thisError (@$errors) {
+      print $thisError;
+    }
+    
+    if($copyRel){
+      print "\nError: Unable to copy release successfully\n";
+    }
+    else{
+      print "\nError: Unable to push/pull release successfully\n";
+    }
+  }
+}
+
+sub _DoCopying {
+  my $self = shift;
+  my $localRelDir = shift;
+  my $externalRelDir = shift;
+  die "Local release directory not provided" unless $localRelDir;
+  die "External release dir was undefined" unless defined $externalRelDir;
+  opendir(DIR, $localRelDir) or die "Error: Couldn't open directory \"$localRelDir\": $!\n";
+  Utils::MakeDir($externalRelDir);
+  
+  while (defined(my $file = readdir(DIR))) {
+    next if ($file eq '.' or $file eq '..');
+    my $localFile = "$localRelDir\\$file";
+    my $externalFile = "$externalRelDir\\$file";
+    if (-f $localFile) {
+      if (-e "$externalRelDir\\$file" and $self->{force}) {
+        if ($self->{verbose}) { print "\tMaking \"$externalRelDir\\$file\" writable...\n"; }
+        Utils::SetFileWritable("$externalRelDir\\$file");
+      }
+      elsif (-e "$externalRelDir\\$file") {
+        die;
+      }
+      if ($self->{verbose}) { print "\tCopying \"$localFile\" to \"$externalRelDir\"...\n"; }
+      
+      unless (copy ($localFile, $externalFile)){
+         my $errormessage = $!;
+         
+         if($errormessage =~ /No such file or directory/i) {
+           $errormessage = "Unknown Error - Check disk space or missing file/directory";
+         }
+
+         die "Error: Couldn't copy \"$localFile\" to \"$externalFile\": $errormessage";
+      }
+    }
+    else {
+      die "Error: \"$file\" is not a file\n";
+    }
+  }
+}
+
+sub _AddError {
+  my $self = shift;
+  my $error = shift;
+  push @{$self->{errors}}, $error;
+}
+
+1;
+
+__END__
+
+=head1 NAME
+
+PushPullRel.pm - class for moving releases between two local archives
+
+=head1 DESCRIPTION
+
+Provides an API to transfer releases between two local archives. (That is, non-encrypted archives,
+accessible as standard disk drives from the PC). Used by C<pushenv>, C<pullenv>, C<pushrel>,
+C<pullrel>.
+
+=head1 INTERFACE
+
+=head2 new
+
+Creates a new object of this class. Takes five parameters. 1) An IniData object corresponding
+to your local repository. 2) A foreign IniData object (or just a filename) describing the 
+remote repository. 3) A boolean, saying whether you're pushing to the remote site. If false,
+assumes you're pulling from the remote site. 4) Verbose. 5) Force (overwrites).
+
+=head2 TransferRel
+
+Takes a component name and version. Transfers that component.
+
+=head2 TransferEnv
+   
+Takes a component name and version. Transfers the environment of that component.
+
+=head2 PerformCopying
+
+Takes a component name, version, to release and from release directory. Performs initial checks on the release directories passed and then calls _DoCopying.
+
+=head2 Errors
+
+Returns an arrayref of all the errors encountered during TransferEnv.
+
+=head2 SummariseErrors
+
+Optional input copyRel flag which indicates whether to this summary is for a copyrel or not. Prints all the errors encountered.
+
+=head1 KNOWN BUGS
+
+None.
+
+=head1 COPYRIGHT
+
+ Copyright (c) 2000-2009 Nokia Corporation and/or its subsidiary(-ies).
+ All rights reserved.
+ 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:
+ Nokia Corporation - initial contribution.
+ 
+ Contributors:
+ 
+ Description:
+ 
+
+=cut
+