1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
| #!/usr/bin/perl -w
use strict;
use Tar;
#use Mojolicious::Plugin::Mail;
use File::Copy;
#On indique le chemin des fichier de conf
my $vsftpdconfig = "/etc/vsftpd.conf";
my $sshconfig = "/etc/ssh/ssh_config";
my $transmissionconfig = "/etc/transmission-daemon/settings.json";
my $networkconfig = "/etc/network/interfaces";
my $apache2config = "/etc/apache2/apache2.conf";
my $date = localtime;
my $nomRep = "SaveConf_$date";
my $saveTar = Tar -> new();
#On change de repertoire et on créer le dossier des fichiers à sauvegarder
chdir('/etc/') or die ("Erreur lors du changement de repertoire /etc");
mkdir($nomRep,0755) or die ("Erreur lors de la creation du repertoire nomrep");
chdir($nomRep) or die ("Erreur lors du changement de repertoire");
copy ($vsftpdconfig, "vsftpd.conf");
copy ($sshconfig, "ssh_config");
copy ($transmissionconfig, "settings.json");
copy ($networkconfig, "interfaces");
copy ($apache2config, "apache2.conf");
$saveTar -> add_data($nomRep);
$saveTar -> write($nomRep); |
