snapper

#!/usr/bin/perl
use Term::ANSIColor; # This allows our code to be bold / coloured in the terminal

#Some Config
require "./config/config.conf";    # This file has a list of Paths used
require "./lib/common_functions.pl";    # Some common functions 

$appName = "Snapper"; # The name of this Application


printTitle(); # Print the title 

# Check for root level access before proceeding
checkForRoot($appName);

# Check if we're passing the path to snapshot from shell
if ( $ARGV[0] eq "" ) {
    print "• Enter the Path you want to Snapshot:\n \$ ";
    $_    = <STDIN>;
    $path = $_;
		$path =~ s/^\s+|\s+$//g;

		if ($path eq '~' || $path eq '~/'){
			print "\n Use an absolute path Biatch!\n\n";
			exit();
	     
		}
}
else {
    $path = $ARGV[0];
}

# Check if we're running in manual mode
if ( $ARGV[1] eq "-m" ) {
	$manual_mode = 1;
}
else {
}

# Check if we're running in Home directory scanning
if ( $ARGV[1] eq "-h" ) {
	$home_dir_mode = 1;
}
else {
}

# Remove carrage return from STDIN
# Add forward Slash if Missing
massagePath($path);

# Check to see if Path Exists
checkPathExists($path);


print "• Confirm Snapshot of ";
print color 'bold red';
print "$path";
print color 'reset';
print " [Y/N]:";

$_ = <STDIN>;

$answer = $_;
chomp($answer);

if (   $answer eq "y"
    || $answer eq "Y"
    || $answer eq "Yes"
    || $answer eq "yes"
    || $answer eq "YES"
    || $answer eq '' )
{
    print "• Creating Snapshot of $path\n";
    $original = time;
    `$logger -r $path ./tmp/$original.dat`;
    print "• Snapshot complete\n";

}
else {
    print "Ok Have it your way Biatch!\n\n";
    exit();
}
print color 'bold';
print "• Perform your Installation -";
print color 'reset';
print "\n  Please install and configure your software.";
print "\n  When you are done, press ";
print color 'bold';
print "ENTER";
print color 'reset';
print " to continue.\n";
print " \$ ";
$_ = <STDIN>;
print "\n Checking $path to see what you've installed... \n";
$newTime = time;

`sudo rm -rf ./tmp/$path`;
`sudo $logger -r $path new.dat ./tmp/$original.dat > changes.txt`;

$path = reverse; chop; $path = reverse;
`sudo $packer ./changes.txt ./tmp/snapshot-$newTime`;
`mv ./changes.txt ./tmp/snapshot-$newTime`;


#`sudo $packer ./changes.txt ./tmp/$path-pkg`;
`cat ./new.dat`;

#remove new.dat

#`rm ./new.dat`;

`sudo $mkdmg ./tmp/snapshot-$newTime $newTime`;

`sudo mv ./tmp/snapshot-$newTime.dmg ./snapshots`;

#`sudo mv ./tmp/snapshot-$newTime_rw.dmg ./snapshots`;


`sudo hdiutil attach -readwrite ./snapshots/snapshot-$newTime.dmg`;

#`sudo rm -rf ./tmp/*`;

`open ./snapshots`;

`chmod 777 ./snapshots`;



if ( $manual_mode == 1 ) {
 #   `open ./tmp/$path-pkg`;
}