#!/usr/bin/perl $date = `date +%Y-%m-%d_%H-%m`; $kernel = `uname -r`; $os = `uname -s`; $extra = "hda1"; ## Remove newline from shell outputs $date =~ s/\n//g; $kernel =~ s/\n//g; $os =~ s/\n//g; if ($extra) { $file = $os."-".$kernel."-".$extra."-full_backup-".$date.".tar.bz2"; } else { $file = $os."-".$kernel."-full_backup-".$date.".tar.bz2"; } print "This will back up the entire system to ".$file."\n"; print "Currently, the following paths are excluded from this backup:\n"; system("cat .exclusions"); print "Press y, then enter to continue. Hit enter to cancel.\n"; $confirm = ; if ($confirm eq "y\n") { system("tar -cjvpX .exclusions -f ".$file." /"); } else { print "Canceled.\n"; }