From bbe0fe1fb657f7e374605154f4d2c2243ec95267 Mon Sep 17 00:00:00 2001 From: Wolfgang Bumiller Date: Tue, 16 Aug 2016 16:31:11 +0200 Subject: [PATCH] backport file_copy from PVE4 --- data/PVE/Tools.pm | 7 +++++++ 1 file changed, 7 insertions(+) diff --git a/data/PVE/Tools.pm b/data/PVE/Tools.pm index 4c9a49e..68621f0 100644 --- a/data/PVE/Tools.pm +++ b/data/PVE/Tools.pm @@ -38,6 +38,7 @@ template_replace safe_print trim extract_param +file_copy ); my $pvelogdir = "/var/log/pve"; @@ -213,6 +214,12 @@ sub file_get_contents { return $content; } +sub file_copy { + my ($filename, $dst, $max, $perm) = @_; + + file_set_contents ($dst, file_get_contents($filename, $max), $perm); +} + sub file_read_firstline { my ($filename) = @_;