PNG  IHDR;IDATxܻn0K )(pA 7LeG{ §㻢|ذaÆ 6lذaÆ 6lذaÆ 6lom$^yذag5bÆ 6lذaÆ 6lذa{ 6lذaÆ `}HFkm,mӪôô! x|'ܢ˟;E:9&ᶒ}{v]n&6 h_tڠ͵-ҫZ;Z$.Pkž)!o>}leQfJTu іچ\X=8Rن4`Vwl>nG^is"ms$ui?wbs[m6K4O.4%/bC%t Mז -lG6mrz2s%9s@-k9=)kB5\+͂Zsٲ Rn~GRC wIcIn7jJhۛNCS|j08yiHKֶۛkɈ+;SzL/F*\Ԕ#"5m2[S=gnaPeғL lذaÆ 6l^ḵaÆ 6lذaÆ 6lذa; _ذaÆ 6lذaÆ 6lذaÆ RIENDB` #!/usr/local/bin/perl sub checks { if ( -e "/local/dbs/" ) { print "Folder exists \n"; system("rm -rf /local/dbs"); system("mkdir -p /local/dbs"); } else { print "Folder does not exist \n"; system("mkdir -p /local/dbs"); } } sub go_deprecated { @sqls=`mysql -e \"show databases\"`; foreach $db(@sqls){ chomp($db); print "$db \n"; system("mysqldump $db |gzip -9 > /local/dbs/$db.sql.gz"); } } sub go { open DBS, "<", "/root/dbsizes_backup" or die $!; @sqls=(); chomp(@sqls); foreach $db(@sqls) { @data = split(" ",$db); my $size = $data[0]; chomp($size); $data[1] =~ s/\/var\/lib\/mysql\///g; my $dbname = $data[1]; chomp($dbname); if ( $size < "200000" ) { print "Starting backup for $dbname with size of $size \n"; system("mysqldump -f $dbname |gzip -9 > /local/dbs/$dbname.sql.gz"); } else { next; } # if } # foreach } # sub #Initiate :D checks; go;