#!/usr/bin/perl
# create backup

# Variablendefinition erzwingen
use strict;
# warungen einschalten (ist fast wie "-w")
use warnings;
# Modul "POSIX" laden und die "strftime" in den aktuellen Namensraum exportieren.
use POSIX qw/ strftime /;

my $workdir='/pfad/htdocs/backup_neu';

my $d = strftime("%Y-%m-%dT%H:%M:%S", localtime);
my $filename = "Backup-$d";


if(open(my $fh, '>', "$workdir/test.txt"))
{
  # etwas zufälligen Text einfügen:
  for(0..9)
  {
    print $fh chr(rand(94)+32) for(1..80);
    print $fh "\n";
  }
  close($fh);
}
else
{
  Fehlermeldung wenn Datei nicht erzeugt werden konnte
  warn "Error create file ($!)\n";
}

# wenn ein Programm erfolgreich ausgeführt wurde gibt es "0" zurück ansonsten eine FehlerID die größer 0 ist.
if( system("tar -cpzf '$workdir/$filename.tar.gz' /pfad/htdocs/ --exclude=/pfad/htdocs/backup/")!=0 )
{
  # Fehlermeldung wenn backup versagt
  warn "tar failed!\n";
}