FHEM/fhem-mirror
2
0
Fork 0
mirror of https://github.com/fhem/fhem-mirror.git synced 2025-04-16 04:36:02 +00:00
Code Issues Releases Wiki Activity

rename -> myrename for HandleArchiving

Browse Source 
git-svn-id: https://svn.fhem.de/fhem/trunk@334 2b470e98-0d58-463d-a4d8-8e2adae1ed80
This commit is contained in:
rudolfkoenig 2009-01-15 09:13:42 +00:00
parent e6cfe7ff0d
commit d0c3f77b9e
1 changed files with 25 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

27
fhem/fhem.pl
View File

@ -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]");