[Koha-cvs] CVS: koha/misc Install.pm,1.60,1.61

[MJ Ray]

Update of /cvsroot/koha/koha/misc
In directory sc8-pr-cvs1:/tmp/cvs-serv9359/misc

Modified Files:
        Install.pm 
Log Message:
Timed backups in installfiles

Index: Install.pm
===================================================================
RCS file: /cvsroot/koha/koha/misc/Install.pm,v
retrieving revision 1.60
retrieving revision 1.61
diff -C2 -r1.60 -r1.61
*** Install.pm  27 Oct 2003 17:36:17 -0000      1.60
--- Install.pm  27 Oct 2003 17:39:41 -0000      1.61
***************
*** 1519,1523 ****
  
        #MJR: preserve old files, just in case
-       #FIXME: use dated backups
        sub neatcopy {
                my $desc = shift;
--- 1519,1522 ----
***************
*** 1525,1531 ****
                my $tgt = shift;
                
!               if (-d $tgt) {
!               print getmessage('CopyingFiles', ["old ".$desc,$tgt.".old"]);
!                       startsysout;
                        system("mv ".$tgt." ".$tgt.".old");
                }
--- 1524,1530 ----
                my $tgt = shift;
                
!               if (-e $tgt) {
!               print getmessage('CopyingFiles', ["old 
".$desc,$tgt.strftime("%Y%m%d%H%M",localtime())]);
!                       startsysout();
                        system("mv ".$tgt." ".$tgt.".old");
                }