marko/backupME
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

first implementaton of systembackup

Browse Source
This commit is contained in:
Marko Oldenburg 2019-02-21 09:38:29 +01:00
parent e016f13a73
commit eb7b661058
2 changed files with 35 additions and 10 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
backupME.conf
View File

@ -1,4 +1,4 @@
### Konfiguration
### Konfiguration für ein einfaches Backup
# wie soll das Verzeichnis heißen wo die Backups hin geschrieben werden
BACKUPDIRNAME=fhem_backups
@ -55,3 +55,9 @@ DBNAMES=fhemLogHistory
# wo soll der Dump hingeschrieben werden
DBBACKUPPATH=/opt/fhem/backup
### Konfiguration für ein einfaches Backup
# in welches Verzeichnis soll das Systembackupfile hingeschrieben werden
SYSTEMBACKUPDIRNAME=

37
backupME.pl
View File

@ -53,6 +53,7 @@ sub createDBdump;
sub runBackup($);
sub _sendStateToFHEM($);
sub checkSendFHEMConnect($);
sub MainSystemBackup;
##################################################
# Variables:
@ -65,8 +66,10 @@ my $self = {};
my ($conffile,$debug,$acount);
$debug = 0;
my @conffiles = split(/,/,parseOptions);
my ($conffilestring,$mode) = parseOptions;
my @conffiles = split(/,/,$conffilestring);
$self->{configfiles} = \@conffiles;
$self->{mode} = $mode;
$self->{config}->{TARCMDPATH} = qx(which tar);
chomp($self->{config}->{TARCMDPATH});
@ -75,12 +78,13 @@ unless ( defined($self->{config}->{TARCMDPATH}) and $self->{config}->{TARCMDPATH
exit 1;
}
MainBackup;
MainBackup if ( $self->{mode} eq 'backup' );
MainSystemBackup if ( $self->{mode} eq 'system' );
exit 0;
##### SUBS ####
##### SUBS for Backup ####
sub MainBackup {
@ -258,22 +262,25 @@ sub readConfigFile {
sub parseOptions {
my $conffiles = undef;
my $mode = 'backup';
GetOptions(
'configfiles|configs|c=s' => \$conffiles,
'backupMode|mode|m=s' => \$mode,
'configfiles|configs|c=s' => \$conffiles
) or usageExit;
usageExit unless ( defined($conffiles) );
$mode =~ m/^backup|system$/ or usageExit;
defined($conffiles) or usageExit;
return ($conffiles);
return ($conffiles,$mode);
}
sub usageExit {
print('usage:' . "\n");
printf("\t" . '-c <configfile1>,<configfile2> ...' . "\n");
printf("\t" . '-configs <configfile1>,<configfile2> ...' . "\n");
printf("\t" . '--configfiles <configfile1>,<configfile2> ...' . "\n");
printf("\t" . '-c <configfile1>,<configfile2>... -m <backup|system>' . "\n");
printf("\t" . '-configs <configfile1>,<configfile2>... -mode <backup|system>' . "\n");
printf("\t" . '--configfiles <configfile1>,<configfile2> ...--backupMode <backup|system>' . "\n");
exit(1);
}
@ -323,6 +330,18 @@ sub createBackUpPathStructs($) {
return $state;
}
##### SUBS for Systembackup ####
sub MainSystemBackup {
}
##### SUBS for FHEM ####
sub checkSendFHEMConnect($) {
my $fnState = shift;