--- /dev/null Thu Jan 01 00:00:00 1970 +0000
+++ b/releasing/cbrtools/perl/RemoteSite.pm Wed Jun 30 11:35:58 2010 +0800
@@ -0,0 +1,159 @@
+# 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:
+#
+#
+
+package RemoteSite;
+
+use strict;
+use File::Basename;
+use Utils;
+
+#
+# Constructor
+#
+
+sub New {
+ my $invocant = shift;
+ my $class = ref($invocant) || $invocant;
+ my $self = {
+ host => undef,
+ verbose => 0
+ };
+ bless $self, $class;
+ $self->Initialize(@_);
+ return $self;
+}
+
+sub Initialize {
+ my $self = shift;
+
+ my %args = @_;
+ $self->{host} = $args{host};
+ $self->{verbose} = $args{verbose};
+}
+
+#
+# Public getters/setters
+#
+
+sub Host {
+ my $self = shift;
+ if (defined $_[0]) {$self->{host} = shift;}
+ return $self->{host};
+}
+
+#
+# Private Methods
+#
+
+sub HandleError {
+ my $self = shift;
+ my $errorString = shift;
+
+ die "Error: $errorString\n";
+}
+
+#
+# Abstract methods (must be implemented in a subclass)
+#
+
+sub SendFile {
+ die "Error: Call to unimplemented abstract method ".ref($_[0])."::SendFile.\n";
+}
+
+sub GetFile {
+ die "Error: Call to unimplemented abstract method ".ref($_[0])."::GetFile.\n";
+}
+
+sub FileExists {
+ die "Error: Call to unimplemented abstract method ".ref($_[0])."::FileExists.\n";
+}
+
+sub DirList {
+ die "Error: Call to unimplemented abstract method ".ref($_[0])."::DirList.\n";
+}
+
+sub MakeDir {
+ die "Error: Call to unimplemented abstract method ".ref($_[0])."::MakeDir.\n";
+}
+
+sub FileSize {
+ die "Error: Call to unimplemented abstract method ".ref($_[0])."::FileSize.\n";
+}
+
+sub DeleteFile {
+ die "Error: Call to unimplemented abstract method ".ref($_[0])."::DeleteFile.\n";
+}
+
+sub MoveFile {
+ die "Error: Call to unimplemented abstract method ".ref($_[0])."::MoveFile.\n";
+}
+
+sub FileModifiedTime {
+ die "Error: Call to unimplemented abstract method ".ref($_[0])."::FileModifiedTime.\n";
+}
+
+
+
+1;
+
+=head1 NAME
+
+RemoteSite.pm - Abstract base module for remote site access
+
+=head1 DESCRIPTION
+
+C<RemoteSite> is the abstract base module to a family of modules of the form C<RemoteSite::>F<HostType> which are used to transfer files to and from a remote site. Each module in the C<RemoteSite> directory must implement the following abstract interface...
+
+=over 4
+
+=item * SendFile($localFile, $remoteFile)
+
+Should copy C<$localFile> from the local drive to C<$remoteFile> on the remote site.
+
+=item * GetFile($remoteFile, $localFile)
+
+Should copy C<$remoteFile> from the remote site to C<$localFile> on the local drive.
+
+=item * bool FileExists($remoteFile)
+
+Should return a non zero value if C<$remoteFile> exists or zero if not.
+
+=back
+
+If no connection can be made to the remote site then the module must throw an error containing the words C<"cannot connect">
+
+=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