Ubuntu-Forum & Kubuntu-Forum | www.Ubuntu-Forum.de

Quellcode

ls -l /dev/disk/by-uuid

PHP-Quelltext

while(<CONFIG>){
              chomp ($_);
              push(@Dateien,$_); 
}

Quellcode

system("cp -aru ...");

Quellcode

cp -aru

PHP-Quelltext

#!/usr/bin/perl -w
# backup.pl -- inspired by Apensiv
#           -- by zero77

use strict;

# eingebundene module
use POSIX qw/strftime/; # uhrzeit

#use File::Copy; # betriebssystemunabhaengige file-copy-funktion

my $home = $ENV{'HOME'};
my $backup_medium='/files/backup'; 
my $verzeichnis="/dev/disk/by-uuid";
my $target;
my $date=strftime "%d_%m_%Y", localtime;
my $progress=0;
my @laufwerke;
my $z_laufwerke;
my $i;
my $auswahl;
my $method;
my $eingabe;
my $update;


# auslesen der vorhandenen laufwerke
opendir(DIR, $verzeichnis) || die "$verzeichnis: $!";
@laufwerke=readdir(DIR);
$z_laufwerke=@laufwerke-2;
closedir(DIR);
chdir $verzeichnis;

# ausgabe der uuids mit passenden /dev/xxx
$i=1;
foreach (@laufwerke) {
    if (-l $_) {
        my $link=readlink($_);
        $link=~s/../..//g;
        print "\n" . $i . ") " . $link . " (UUID " . $_ . ") ";
        $i++;
    }
}
print "\n";

print "Medium auswählen: (1-" . $z_laufwerke . "): ";
$auswahl=<STDIN>;
chomp $auswahl;

if ($auswahl eq "") {
    $target="41f9f791-bae0-4ae9-9531-922714a9ec8e";
}
else {
    $target=$laufwerke[$auswahl+1];
}

# ziellaufwerk ueberpruefungen
if (-e "/dev/disk/by-uuid/$target") { # platte angeschlossen?
    
    if (!-e "$backup_medium") { # platte gemountet?
        my $mount=system("mount /files");
    
        if ($mount==0) { # wenn nicht, mounten
            print "Externe USB - Platte gemountet\n";
        }    
    }
    
    #backup-art festlegen
    $target=readlink($target);
    $target=~s/../../ /g;
    
    print "Ziellaufwerk:" . $target . "\n";
    print "\n";
    print "1) Update des Backup - erstellt komplettes Backup oder bringt Backup up2date\n";
    print "2) Tagesstand sichern - erstellt komplettes Backup mit Zeitstempel\n";
    print "Bitte wählen: ";
    
    $method=<STDIN>;
    chomp $method;
    
    while ($method ne "1" and $method ne "2") {
        print "Bitte wählen (1 oder 2): ";
        $method=<STDIN>;
        chomp $method;
    }
    
    if ($method eq "1") {
        $progress=1;
    }
    else {
        
        $backup_medium=$backup_medium . "/" . $date;
        print "ttt: $backup_medium\n";
        if (!-e "$backup_medium") { # existiert aktuelles verzeichnis
            system("mkdir $backup_medium");
            $progress=1;
        }
        else {
            print ("\nVerzeichnis mit aktuellem Datum $date vorhanden\n");
            print ("Backup fortsetzen? (ja/nein): ");
            $eingabe=<STDIN>;
            chomp $eingabe;
            
            while ($eingabe ne "ja" and $eingabe ne "nein") {
                print "ja oder nein: ";
                $eingabe=<STDIN>;
                chomp $eingabe;
            }
            
            if ($eingabe eq "ja") { # update oder ueberschreiben
                print ("Update des Backups oder Verzeichnis neu? (upd/neu): ");
                $update=<STDIN>;
                chomp $update;
                    
                while ($update ne "upd" and $update ne "neu") {
                    print "upd oder neu: ";
                    $update=<STDIN>;
                    chomp $update;
                }
                
                if ($update eq "neu") { 
                    print "Entferne altes Backup...\n";
                    system ("rm -rfv $backup_medium");    
                    system("mkdir $backup_medium");
                }
                $progress=1;    
            }
        }
    }
    
    # backup
    if ($progress==1) {
        if (!-e "$backup_medium/configfiles") {
            system("mkdir $backup_medium/configfiles");
        }
        print "Sichere Daten:\n";
        print "sichere Liste der installierten Programme... \n";
            system("dpkg --get-selections | grep -v deinstall > $backup_medium/configfiles/ubuntu_files");
        print "sichere /etc/apt/sources.list... \n";
            system("cp -aru /etc/apt/sources.list  $backup_medium/configfiles/");
        print "sichere /etc/fstab... \n";
            system("cp -aru /etc/fstab $backup_medium/configfiles/");
        print "sichere /etc/X11/xorg.conf... \n";
            system("cp -aru /etc/X11/xorg.conf $backup_medium/configfiles/");
        print "sichere /etc/samba/smb.conf... \n";
            system("cp -aru /etc/samba/smb.conf $backup_medium/configfiles/");
        print "sichere /home...";
            system("cp -aru $home $backup_medium/");
        print "sichere projekte... \n";
            system("cp -aru /storage/projekte $backup_medium/");
        print "sichere bilder... \n";
            system("cp -aru /storage/bilder $backup_medium/");
        print " sichere mp3... \n";
            system("cp -aru /storage/mp3 $backup_medium/");
        print " sichere pimp... \n";
            system("cp -aru /storage/pimp $backup_medium/");
        print " sichere tellico... \n";
            system("cp -aru /storage/tellico $backup_medium/");
        print " sichere scripts... \n";
            system("cp -aru /storage/scripts $backup_medium/");
        print " sichere win_xp... \n";
            system("cp -aru /storage/win_xp $backup_medium/");
        print " sichere lampp-Dateien... \n";
            system("cp -aru /opt/lampp/htdocs $backup_medium/");
            
        print "\n Backup beendet\n"
    }
    else {
        print "Beende Backup-Vorgang\n";
    }
}
else { # platte nicht angeschlossen
    print "Backup-Medium nicht angeschlossen\n";
    print "Beende Backup-Vorgang, bitte externe USB-Platte anschließen\n";
}

#dpkg --set-selections < ubuntu-files
#sudo dselect

#Nach Start von dselect  "I" druecken, nach Installation aller Pakete mit "Q" oder "B" (je nach Sprachversion) beenden.

PHP-Quelltext

#!/usr/bin/perl -w
# by zero77 & apensiv

# script zum einfachen sichern von dateien und verzeichnissen
# auf ein beliebiges laufwerk, in ein beliebiges verzeichnis
#
# zu sichernde files werden in der subroutine Kopiere_dateien
# festgelegt und können dort geändert werden:
#    @config_files >> konfigurationsdateien
#    @backup_files >> beliebige dateien und verzeichnisse

# module
use strict;
use Getopt::Std;
use POSIX qw/strftime/;
use File::Find;
use File::Copy;
use File::Path;

# variablen
our $opt_h;
our $opt_t;
our $opt_f;

my $date=strftime "%d_%m_%Y", localtime;
my $home = $ENV{'HOME'};
my $input;
my $select;
my $path;

# check der parameter
getopts("t:h,f");

if ($opt_h) {
    Hilfe();
}
else {
    if ($opt_t){
        my $test=$opt_t;

        if (chop ($test) ne "/") {
            $opt_t=$opt_t."/";
        }
        Pruefe_ziel();

        if ($opt_f) {
            print "Komplettes Backup\n";
        }
        else {
            print "Erstellen oder Aktualisieren des Backups\n";
        }

        Waehle_ordner();

        print "\n Backup-Ordner nach Sichern packen (ja/nein; default=\'nein\'): ";
        my $tar=<STDIN>;
        chomp $tar;

        if ($tar eq "") {
            $tar="nein";
        }

        while ($tar ne "ja" and $tar ne "nein") {
            print " ja oder nein: ";
            $tar=<STDIN>;
            chomp $tar;
        }
        my $time_start=time();

        Kopiere_dateien();

        if ($tar eq "ja") {
            Packe_ordner();
        }
        print " Sicherung erstellt\n";
        my $time_end=time();
        my $time=$time_end-$time_start;
        my $minutes=int($time/60);
        my $seconds=$time%60;

        if ($minutes <= "0") {
            print " Dauer des Sicherungsvorgangs: $seconds s\n";
        }
        else {
            $minutes=int ($time/60);
            print " Dauer des Sicherungsvorgangs: $minutes min, $seconds s\n";
        }
    }
    else {
        print " Bitte Zielverzeichnis angeben!\n";
        Hilfe();
    }
}

# subroutinen
sub Hilfe {
    print " USAGE: backup.pl -t [/pfad/zum/ziel] [OPTION]\n";
    print " -t [/pfad/zum/ziel]    Zielverzeichnis angeben\n";
    print "             ...dort wird der das Sicherungsverzeichnis erstellt bzw. genutzt\n";
    print " -f             komplettes Backup, eventuell vorhandenes Backup wird überschrieben\n";
    print " -h            gibt diese Hilfe aus\n";
}

sub Pruefe_ziel {

    if (!-e $opt_t) {
        die " Option \'-t $opt_t\' überprüfen >> $opt_t existiert nicht\n";
    }
}

sub Waehle_ordner {
    print " 1) Backupnamen wählen\n";
    print " 2) Datum \'$date\' setzen\n";
    print " Bitte wählen (default=\'1\'): ";
    $select=<STDIN>;
    chomp $select;

    if ($select eq "") {
        $select="1";
    }

    while ($select ne "1" and $select ne "2") {
        print " Bitte wählen (1 oder 2): ";
        $select=<STDIN>;
        chomp $select;
    }

    if ($select eq "1") {
        print "\n Vorhandene Dateien: ";
        my $dir=$opt_t;

        Lese_verzeichnis($dir);

        print " Backupnamen eingeben (default=\'backup\'): ";
        $input=<STDIN>;
        chomp $input;

        if ($input eq "") {
            $input="backup";
        }
    }
    else {
        $input=$date;
    }
    $path=$opt_t.$input;

    if (-e $path) {
        print " * Verzeichnis $path existiert\n";

        if ($opt_f) {
            print " * erstelle \'$input\' neu\n";
        }
        else {
            print " * aktualisiere \'$input\'\n";
        }
    }
    else {
        print " * \'$input\' existiert nicht in $opt_t\n";
        print " * lege \'$input\' an\n";
        mkpath ($path);
    }
}

sub Lese_verzeichnis  {
    my $dir=$_[0];
    my @subdir;
    my $count_subs;

    opendir(DIR, $dir) || die "$dir: $!";
    @subdir=readdir(DIR);
    $count_subs=@subdir;

    if ($count_subs == 2) {
        print $count_subs-2 . "! ";
        print " Da keine Unterverzeichnisse existieren, kann es sein, dass das gewünschte Laufwerk nicht gemountet ist. \n";
        print " Mounten versuchen (ja/nein)? ";
        my $mount=<STDIN>;
        chomp $mount;

        while ($mount ne "ja" and $mount ne "nein") {
            print " ja oder nein: ";
            $mount=<STDIN>;
            chomp $mount;
        }

        if ($mount eq "ja") {
            Mounte_verzeichnis();
        }
    }
    foreach (@subdir) {
        my $test=index($_,".");

        if ($test != 0 and $_ ne "lost+found") {
            print "$_ ";
        }
    }
    print "\n";
    closedir(DIR);
    chdir $opt_t;
}

sub Mounte_verzeichnis {
    my $mount=system("mount $opt_t");
    print " * mounte $opt_t ";

    if ($mount==0) { # wenn nicht, mounten
        print " ok\n";
    }
    else {
        die " mounten fehlgeschlagen";
    }
}

sub Kopiere_dateien {

    if ($opt_f) {
        rmtree ("$path/*") || die " Problem beim Löschen";
        print " * erstelle vorhandenes Backup neu\n";
    }

    if (!-e "$path/configfiles") {
        mkdir ("$path/configfiles");
    }
    my @config_files=("/etc/apt/sources.list",
              "/etc/fstab",
              "/etc/X11/xorg.conf",
              "/etc/samba/smb.conf");
    my @backup_files=("$home",
              "/opt/lampp/htdocs/",
              "/storage/projekte/",
              "/storage/pimp/",
              "/storage/win_xp",
              "/storage/bilder/",
              "/storage/mp3/");

    print " Sichere Daten:\n";
    print " * sichere Liste der installierten Programme... ";
        system("dpkg --get-selections | grep -v deinstall > $path/configfiles/ubuntu_files");
        print ("ok\n");
    print " * sichere Config-Files:\n";

    foreach (@config_files) {
        print "    $_... ";
        copy ($_,"$path/configfiles");
        print "ok\n";
    }

    foreach (@backup_files) {
        print " * sichere $_... ";
        system("cp -aruf $_ $path/");
        print "ok\n";
    }
    print "\n Kopiervorgang beendet\n";
}

sub Packe_ordner {
    print "Packe $path\n";
    system("tar --remove-files -C $path -cvf $path"."_"."$date.tar $path");
    print " * $path gepackt\n";

    if (-e "$path" . "_" . "$date.tar"){
        print " Backup erfolgreich erstellt\n";}
    else{
        print " Fehler beim Packen\n";
    }
}

#installieren der ubuntu_files
#
# * dpkg --set-selections < ubuntu-files
# * sudo dselect
# Nach Start von dselect  "I" druecken, nach Installation aller Pakete mit "Q" oder "B" (je nach Sprachversion) beenden.

PHP-Quelltext

#!/usr/bin/perl -w
# by zero77 & apensiv

# script zum einfachen sichern von dateien und verzeichnissen
# auf ein beliebiges laufwerk, in ein beliebiges verzeichnis
#
# zu sichernde files werden in der subroutine Kopiere_dateien
# festgelegt und können dort geändert werden:
#    @config_files >> konfigurationsdateien
#    @backup_files >> beliebige dateien und verzeichnisse

# module
use strict;
use Getopt::Std;
use POSIX qw/strftime/;
use File::Find;
use File::Copy;
use File::Path;

# variablen
our $opt_h;
our $opt_t;
our $opt_f;

my $date=strftime "%d_%m_%Y", localtime;
my $home = $ENV{'HOME'};
my $input;
my $select;
my $path;

# check ob root
if ($<!=0) {
        print "need to be root\n";
    exit;
}
# check der parameter
getopts("t:h,f");

if ($opt_h) {
    Hilfe();
}
else {
    if ($opt_t){
        my $test=$opt_t;

        if (chop ($test) ne "/") {
            $opt_t=$opt_t."/";
        }
        Pruefe_ziel();

        if ($opt_f) {
            print "Komplettes Backup\n";
        }
        else {
            print "Erstellen oder Aktualisieren des Backups\n";
        }

        Waehle_ordner();

        print "\n Backup-Ordner nach Sichern packen (ja/nein; default=\'nein\'): ";
        my $tar=<STDIN>;
        chomp $tar;

        if ($tar eq "") {
            $tar="nein";
        }

        while ($tar ne "ja" and $tar ne "nein") {
            print " ja oder nein: ";
            $tar=<STDIN>;
            chomp $tar;
        }
        my $time_start=time();

        Kopiere_dateien();

        if ($tar eq "ja") {
            Packe_ordner();
        }
        print " Sicherung erstellt\n";
        my $time_end=time();
        my $time=$time_end-$time_start;
        my $minutes=int($time/60);
        my $seconds=$time%60;

        if ($minutes <= "0") {
            print " Dauer des Sicherungsvorgangs: $seconds s\n";
        }
        else {
            $minutes=int ($time/60);
            print " Dauer des Sicherungsvorgangs: $minutes min, $seconds s\n";
        }
    }
    else {
        print " Bitte Zielverzeichnis angeben!\n";
        Hilfe();
    }
}

# subroutinen
sub Hilfe {
    print " USAGE: backup.pl -t [/pfad/zum/ziel] [OPTION]\n";
    print " -t [/pfad/zum/ziel]    Zielverzeichnis angeben\n";
    print "             ...dort wird der das Sicherungsverzeichnis erstellt bzw. genutzt\n";
    print " -f             komplettes Backup, eventuell vorhandenes Backup wird überschrieben\n";
    print " -h            gibt diese Hilfe aus\n";
}

sub Pruefe_ziel {

    if (!-e $opt_t) {
        die " Option \'-t $opt_t\' überprüfen >> $opt_t existiert nicht\n";
    }
}

sub Waehle_ordner {
    print " 1) Backupnamen wählen\n";
    print " 2) Datum \'$date\' setzen\n";
    print " Bitte wählen (default=\'1\'): ";
    $select=<STDIN>;
    chomp $select;

    if ($select eq "") {
        $select="1";
    }

    while ($select ne "1" and $select ne "2") {
        print " Bitte wählen (1 oder 2): ";
        $select=<STDIN>;
        chomp $select;
    }

    if ($select eq "1") {
        print "\n Vorhandene Dateien: ";
        my $dir=$opt_t;

        Lese_verzeichnis($dir);

        print " Backupnamen eingeben (default=\'backup\'): ";
        $input=<STDIN>;
        chomp $input;

        if ($input eq "") {
            $input="backup";
        }
    }
    else {
        $input=$date;
    }
    $path=$opt_t.$input;
    
    if (-e $path) {
        print " * Verzeichnis $path existiert\n";

        if ($opt_f) {
            print " * erstelle \'$input\' neu\n";
            rmtree ("$path") || die " Problem beim Löschen";
        }
        else {
            print " * aktualisiere \'$input\'\n";
        }
    }
    else {
        print " * \'$input\' existiert nicht in $opt_t\n";
        print " * lege \'$input\' an\n";
        mkpath ($path);
    }
}

sub Lese_verzeichnis  {
    my $dir=$_[0];
    my @subdir;
    my $count_subs;

    opendir(DIR, $dir) || die "$dir: $!";
    @subdir=readdir(DIR);
    $count_subs=@subdir;

    if ($count_subs == 2) {
        print $count_subs-2 . "! ";
        print " Da keine Unterverzeichnisse existieren, kann es sein, dass das gewünschte Laufwerk nicht gemountet ist. \n";
        print " Mounten versuchen (ja/nein)? ";
        my $mount=<STDIN>;
        chomp $mount;

        while ($mount ne "ja" and $mount ne "nein") {
            print " ja oder nein: ";
            $mount=<STDIN>;
            chomp $mount;
        }

        if ($mount eq "ja") {
            Mounte_verzeichnis();
        }
    }
    foreach (@subdir) {
        my $test=index($_,".");

        if ($test != 0 and $_ ne "lost+found") {
            print "$_ ";
        }
    }
    print "\n";
    closedir(DIR);
    chdir $opt_t;
}

sub Mounte_verzeichnis {
    my $mount=system("mount $opt_t");
    print " * mounte $opt_t ";

    if ($mount==0) { # wenn nicht, mounten
        print " ok\n";
    }
    else {
        die " mounten fehlgeschlagen";
    }
}

sub Kopiere_dateien {
    if (!-e "$path/configfiles") {
        mkdir ("$path/configfiles");
    }
    my @config_files=(
              "/etc/apt/sources.list",
              "/etc/fstab",
              "/etc/X11/xorg.conf",
              "/etc/samba/smb.conf",
              "/etc/apache2/apache2.conf",
              "/etc/apache2/sites-available/default"
    );
    my @backup_files=(
              #"$home",
              "/opt/firefox",
              "/opt/eclipse"
    );
    
    print " Sichere Daten:\n";
    print " * sichere Liste der installierten Programme... ";
        system("dpkg --get-selections | grep -v deinstall > $path/configfiles/ubuntu_files");
        print ("ok\n");
    print " * sichere Config-Files:\n";

    foreach (@config_files) {
        print "    $_... ";
        system("rsync -av $_ $path/configfiles");
        print "ok\n";
    }
    
    foreach (@backup_files) {
        print " * sichere $_... ";
        system("rsync -av --delete $_ $path");
        print "ok\n";
    }
    print "\n Kopiervorgang beendet\n";
}

sub Packe_ordner {
    print "Packe $path\n";
    system("tar --remove-files -C $path -cvf $path"."_"."$date.tar $path");
    print " * $path gepackt\n";

    if (-e "$path" . "_" . "$date.tar"){
        print " Backup erfolgreich erstellt\n";}
    else{
        print " Fehler beim Packen\n";
    }
}

#installieren der ubuntu_files
#
# * dpkg --set-selections < ubuntu-files
# * sudo dselect
# Nach Start von dselect  "I" druecken, nach Installation aller Pakete mit "Q" oder "B" (je nach Sprachversion) beenden.

PHP-Quelltext

time()