FHEM/mod-backupToStorage
1
0
Fork 0
Code Issues 2 Pull Requests Releases Wiki Activity

add hooks

Browse Source
This commit is contained in:
Marko Oldenburg 2020-11-09 06:44:28 +01:00
parent 08a76d09a8
commit a07173e5a9
2 changed files with 41 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
controls_backupToStorage.txt
View File

@ -1,2 +1,2 @@
UPD 2020-11-06_11:03:04 6242 FHEM/98_backupToStorage.pm
UPD 2020-11-06_11:03:07 18956 lib/FHEM/backupToStorage.pm
UPD 2020-11-06_14:06:34 6242 FHEM/98_backupToStorage.pm
UPD 2020-11-06_14:06:34 18956 lib/FHEM/backupToStorage.pm

39
hooks/pre-commit Executable file
View File

@ -0,0 +1,39 @@
#!/usr/bin/perl -w
use File::Basename;
use POSIX qw(strftime);
use strict;
my @filenames = ( 'FHEM/98_backupToStorage.pm',
'lib/FHEM/backupToStorage.pm',
);
my $controlsfile = 'controls_backupToStorage.txt';
open(FH, ">$controlsfile") || return("Can't open $controlsfile: $!");
for my $filename (@filenames) {
my @statOutput = stat($filename);
if (scalar @statOutput != 13) {
printf 'error: stat has unexpected return value for ' . $filename . "\n";
next;
}
my $mtime = $statOutput[9];
my $date = POSIX::strftime("%Y-%m-%d", localtime($mtime));
my $time = POSIX::strftime("%H:%M:%S", localtime($mtime));
my $filetime = $date."_".$time;
my $filesize = $statOutput[7];
printf FH 'UPD ' . $filetime . ' ' . $filesize . ' ' .$filename . "\n";
}
close(FH);
system("git add $controlsfile");
print 'Create controls File succesfully' . "\n";
exit 0;