summaryrefslogtreecommitdiffstats
path: root/installer/OpenSLX/OSExport/ExportType/Base.pm
diff options
context:
space:
mode:
Diffstat (limited to 'installer/OpenSLX/OSExport/ExportType/Base.pm')
-rw-r--r--installer/OpenSLX/OSExport/ExportType/Base.pm26
1 files changed, 4 insertions, 22 deletions
diff --git a/installer/OpenSLX/OSExport/ExportType/Base.pm b/installer/OpenSLX/OSExport/ExportType/Base.pm
index 864a6ffd..54d1f7e4 100644
--- a/installer/OpenSLX/OSExport/ExportType/Base.pm
+++ b/installer/OpenSLX/OSExport/ExportType/Base.pm
@@ -42,31 +42,13 @@ sub exportVendorOS
{
}
-################################################################################
-### implementation methods
-################################################################################
-sub copyViaRsync
+sub purgeExport
{
- my $self = shift;
- my $source = shift;
- my $target = shift;
-
- if (system("mkdir -p $target")) {
- die _tr("unable to create directory '%s', giving up! (%s)\n",
- $target, $!);
- }
- my $includeExcludeList = $self->determineIncludeExcludeList();
- vlog 1, _tr("using include-exclude-filter:\n%s\n", $includeExcludeList);
- open(RSYNC, "| rsync -av --delete --exclude-from=- $source/ $target")
- or die _tr("unable to start rsync for source '%s', giving up! (%s)",
- $source, $!);
- print RSYNC $includeExcludeList;
- if (!close(RSYNC)) {
- die _tr("unable to export to target '%s', giving up! (%s)",
- $target, $!);
- }
}
+################################################################################
+### implementation methods
+################################################################################
sub determineIncludeExcludeList
{
my $self = shift;