alex/ase_perl
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

direi finito

Browse Source
This commit is contained in:
battilo
2017-09-20 00:27:54 +02:00
parent 7d2eda6a03
commit 4bfa8a9e9f
1 changed files with 14 additions and 10 deletions
Download Patch File Download Diff File Expand all files Collapse all files

24
SetupNewComp.pl
View File

@@ -9,6 +9,7 @@ use Passwd::Unix qw(check_sanity reset encpass passwd_file shadow_file
exists_group user users users_from_shadow del_group exists_group user users users_from_shadow del_group
group groups groups_from_gshadow); group groups groups_from_gshadow);
use File::Path qw( make_path ); use File::Path qw( make_path );
use Config::Crontab;
use Data::Dumper qw(Dumper); use Data::Dumper qw(Dumper);
my $db_adm = 'ase_lar'; my $db_adm = 'ase_lar';
@@ -395,16 +396,19 @@ sub setCompanyOSSet {
or die( getTimeStamp("log") . " - pid $$ >> system @args failed: $?\n" ); or die( getTimeStamp("log") . " - pid $$ >> system @args failed: $?\n" );
print getTimeStamp("log") . " - pid $$ >> Add crontab db backup.\n"; print getTimeStamp("log") . " - pid $$ >> Add crontab db backup.\n";
open my $fh, "| crontab -u $company_os_user -" my $cron = new Config::Crontab( -owner => 'asega' );
or die( getTimeStamp("log") . " - pid $$ >> Can't open crontab: $!" ); $cron->read;
my $cron = qx(crontab -l); $cron->last(
print $fh new Config::Crontab::Block(
"$cron\n0 1 * * * /usr/bin/mysqldump --login-path=asepath --net_buffer_length=4096 " -data =>
. $company_db_name "0 1 * * * /usr/bin/mysqldump --login-path=asepath --net_buffer_length=4096 "
. " | /bin/bzip2 -c > /home/asega/db_dumps/backup-" . $company_db_name
. $company_db_name . " | /bin/bzip2 -c > /home/asega/db_dumps/backup-"
. "-\$(\$TIMESTAMP).sql.bz2 2>> /home/asega/log/dump_db.log"; . $company_db_name
close $fh; . "-\$(\$TIMESTAMP).sql.bz2 2>> /home/asega/log/dump_db.log"
)
);
$cron->write;
return 1; return 1;
} }