diff options
Diffstat (limited to 'installer/OpenSLX/OSExport/ExportType/Base.pm')
-rw-r--r-- | installer/OpenSLX/OSExport/ExportType/Base.pm | 26 |
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; |