diff -r 22486c9c7b15 -r 378360dbbdba releasing/cbrtools/perl/ImportRel --- /dev/null Thu Jan 01 00:00:00 1970 +0000 +++ b/releasing/cbrtools/perl/ImportRel Wed Jun 30 11:35:58 2010 +0800 @@ -0,0 +1,287 @@ +#!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: +# +# + +use strict; +use FindBin; +use lib "$FindBin::Bin"; +use Getopt::Long; +use File::Path; +use IniData; +use RelTransfer::Import; +use CommandController; + + +# +# Globals. +# + +my $verbose = 0; +my $iniData; +my $commandController; +my $force = 0; +my $ftpResume = 0; +my %releases; # Data structure changed to a double hash (from a single hash). + # Top level keys are (case lowered) component names with has reference values. + # Second level hash keys are versions, with a dummy value. + # This arrangement makes it possible for a single component to have more than one + # version, and to easily delete versions that have already been imported. +my $passphraseFile; +my $noPassphraseRetry; +my %goodImports; +my %failedImports; +my %alreadyImported; + +# +# Main. +# + +ProcessCommandLine(); +CheckAlreadyImported(); +ImportRelease() if (keys %releases); # It may be that all components have already been imported +PrintReport(); + +# +# Subs. +# + +sub ProcessCommandLine { + Getopt::Long::Configure ("bundling"); + my $help; + GetOptions("h" => \$help, "v+" => \$verbose, "f" => \$force, "r" => \$ftpResume, "p=s" => \$passphraseFile, "noPassphraseRetry" => \$noPassphraseRetry); + + if ($help) { + Usage(0); + } + + if (scalar(@ARGV) == 1) { + if (-f $ARGV[0]) { + open IN, $ARGV[0] or die "Error: Couldn't open $ARGV[0] for reading: $!\n"; + while (my $line = ) { + chomp $line; + $line =~ s/^\s*$//; + $line =~ s/#.*//; + if ($line eq '') { + next; #Nothing left + } + my ($comp, $ver) = split(" ", $line); + if (defined $comp and defined $ver) { + $releases{lc($comp)}->{$ver} = 1; + } + else { + print "Error: Invalid file format in $ARGV[0]\n"; + Usage(1); + } + } + close IN; + } + else { + print "Error: $ARGV[0] is not a file\n"; + Usage(1); + } + } + elsif (scalar(@ARGV) == 2) { + $releases{lc($ARGV[0])}->{$ARGV[1]} = 1; + } + else { + print "Error: Invalid arguments\n"; + Usage(1); + } + $iniData = IniData->New(undef,1); + $commandController = CommandController->New($iniData, 'ImportRel'); + #if ftp resume option is used override value in reltools.ini + if ($ftpResume) { + $iniData->FtpServerSupportsResume(1); + } +} + +sub Usage { + my $exitCode = shift; + + Utils::PrintDeathMessage($exitCode, "\nUsage: importrel [options] ( ) | () + +options: + +-h help +-f force import overwriting if necessary +-r use FTP reconnect and resume transfer mode +-p file containing passphrase +-v verbose output (-vv very verbose) +--noPassphraseRetry Will cause ImportRel to terminate if an incorrect passphrase is specified\n"); +} + +sub CheckAlreadyImported { +#remove releases from attempted imports if they already exist locally + unless ($force) { + foreach my $comp (sort keys %releases) { + foreach my $ver (keys %{$releases{$comp}}) { + my $loc = $iniData->PathData->LocalArchivePathForExistingComponent($comp, $ver); + if ($loc && -d $loc) { + push (@{$alreadyImported{$comp}}, $ver); + print "$comp $ver already exists in local archive\n" if ($verbose); + delete $releases{$comp}->{$ver}; + unless (scalar(keys %{$releases{$comp}}) > 0) { + delete $releases{$comp}; + } + } + } + } + } +} + +sub ReadPassphraseFile { + return undef unless $passphraseFile; + open(PP, $passphraseFile) or die "Couldn't open passphrase file \"$passphraseFile\" because $!\n"; + my $passphrase = join ("\n", ); + close PP; + return $passphrase; +} + +sub ImportRelease { + my $importer = RelTransfer::Import->New(ini_data => $iniData, + force => $force, + verbose => $verbose, + passphrase => ReadPassphraseFile); + #do the import + foreach my $comp (sort keys %releases) { + my $imported; + foreach my $ver (keys %{$releases{$comp}}) { + eval { + $imported = $importer->TransferRelease($comp, $ver, $noPassphraseRetry); + }; + if ($@) { + print $@; + if ($@ =~ /cannot\s+connect/i) { + print "\nConnection to remote site dropped aborting import\n"; + last; + } + my $error = $@; + chomp $error; + $error =~ s/^error: ("?$comp $ver"? )?//i; + $failedImports{$comp}->{$ver} = $error; + } + else { + if ($imported) { + push (@{$goodImports{$comp}}, $ver); + } else { + push (@{$alreadyImported{$comp}}, $ver); + } + } + } + } +} + +sub PrintReport { + print "\n=========IMPORT SUMMARY==========\n"; + + my $tableData = [["Component", "Version", "status"]]; + + foreach my $comp (sort keys %goodImports) { + foreach my $ver (@{$goodImports{$comp}}) { + push (@$tableData, [$comp, $ver, 'successfully imported']); + } + } + + foreach my $comp (sort keys %alreadyImported) { + foreach my $ver (@{$alreadyImported{$comp}}) { + push (@$tableData, [$comp, $ver, 'has already been imported']); + } + } + + if (scalar @{$tableData} > 1) { + $iniData->TableFormatter->PrintTable($tableData, 1); + } + + if (scalar (keys %alreadyImported) > 0) { + print "\nYou can specify the -f option to force the re-import of component releases\n"; + } + + #handle failed imports + if (keys %failedImports) { + print "\n=========FAILED IMPORTS==========\n"; + my $failureTableData = [["Component", "Version", "Failure reason"]]; + foreach my $comp (sort keys %failedImports) { + foreach my $ver (sort keys %{$failedImports{$comp}}) { + push (@$failureTableData, [$comp, $ver, $failedImports{$comp}->{$ver}]); + } + } + $iniData->TableFormatter->PrintTable($failureTableData, 1); + print "\nError: Unable to import component release successfully. Component release might be corrupted.\n"; + } + else + { + if (keys %goodImports) { + print "\nAll releases imported successfully\n"; + } else { + print "\nNothing to do!\n"; + } + } +} + + +__END__ + +=head1 NAME + +ImportRel - Imports a component release from a remote site. + +=head1 SYNOPSIS + + importrel [options] ( ) | () + +options: + + -h help + -f force import overwriting if necessary + -r use FTP reconnect and resume transfer mode + -p file containing passphrase + -v verbose output (-vv very verbose) + --noPassphraseRetry Will cause ImportRel to terminate if an incorrect passphrase is specified + +=head1 DESCRIPTION + +Attempts to import the component release specified on the command line from the projects remote site to the local archive. + +The name of file containing a list of components and versions maybe passed as an argument to the tool instead of a single component to import multiple releases. + +Using the C<-f> option will force releases to be imported even if they already exist in the local archive. + +If the C<-r> option is used and the FTP connection is dropped during the download of a release, the tools will automatically reconnect to the FTP site and resume the download. This feature may not be supported by some FTP servers. + +It is recommended NOT to use the C<-p> option as it may be a security risk. You will be prompted if a passphrase is needed. + +=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