From 9b9e0836a3ee4ab5e55704e71566336563246e53 Mon Sep 17 00:00:00 2001
From: rudolfkoenig <rudolfkoenig@2b470e98-0d58-463d-a4d8-8e2adae1ed80>
Date: Thu, 15 Jan 2009 09:13:42 +0000
Subject: [PATCH] rename -> myrename for HandleArchiving

git-svn-id: https://svn.fhem.de/fhem/trunk@334 2b470e98-0d58-463d-a4d8-8e2adae1ed80
---
 fhem/fhem.pl | 27 +++++++++++++++++++++++++--
 1 file changed, 25 insertions(+), 2 deletions(-)

diff --git a/fhem/fhem.pl b/fhem/fhem.pl
index 65c8bcb5d..8b5e4c0c1 100755
--- a/fhem/fhem.pl
+++ b/fhem/fhem.pl
@@ -149,7 +149,7 @@ my %intAt;			# Internal at timer hash.
 my $nextat;                     # Time when next timer will be triggered.
 my $intAtCnt=0;
 my $AttrList = "room comment";
-my $cvsid = '$Id: fhem.pl,v 1.65 2009-01-14 19:16:59 rudolfkoenig Exp $';
+my $cvsid = '$Id: fhem.pl,v 1.66 2009-01-15 09:13:42 rudolfkoenig Exp $';
 my $namedef =
   "where <name> is either:\n" .
   "- a single device name\n" .
@@ -1902,6 +1902,29 @@ doGlobalDef($)
   CommandAttr(undef, "global version =VERS= from =DATE= ($cvsid)");
 }
 
+#####################################
+# rename does not work over Filesystems: lets copy it
+sub
+myrename($$)
+{
+  my ($from, $to) = @_;
+
+  if(!open(F, $from)) {
+    Log(1, "Rename: Cannot open $from: $!");
+    return;
+  }
+  if(!open(T, ">$to")) {
+    Log(1, "Rename: Cannot open $to: $!");
+    return;
+  }
+  while(my $l = <F>) {
+    print T $l;
+  }
+  close(F);
+  close(T);
+  unlink($from);
+}
+
 #####################################
 # Make a directory and its parent directories if needed.
 sub
@@ -1943,7 +1966,7 @@ HandleArchiving($)
   for(my $i = 0; $i < $max; $i++) {
     if($ard) {
       Log 2, "Moving $files[$i] to $ard";
-      rename("$dir/$files[$i]", "$ard/$files[$i]");
+      myrename("$dir/$files[$i]", "$ard/$files[$i]");
     } else {
       Log 2, "Deleting $files[$i]";
       unlink("$dir/$files[$i]");