#!/usr/bin/perl
#reguest.pl
#by Chris Monahan
#this is free software, you can distribute it under the same terms as perl itself
use warnings;
use strict;

my @dirs = ("Music", "Pictures", "Documents", "Desktop");

print "preserving guest content under a timestamped folder \n \n";

my ($sec, $min, $hour, $mday, $mon, $year, $wday, $yday, $isdist) =
	 gmtime(time);
	 
	 $min++;
	 $hour++;
	 $mday++;
	 $sec++;
	 $mon++;
	 $year++;
	 
my $count = 0;
	 
my @mkdir = ( "$year:$mon:$mday", "$hour:$min:$sec");
chdir ("/home/guest-content");
while ($count ne @mkdir){
	system "mkdir $mkdir[$count]";
	chdir "$mkdir[$count]";
	$count ++;
}
chdir ("/home");

$count = 0;

while ($count ne @dirs){
	my $dest = "guest-content/$year:$mon:$mday/$hour:$min:$sec/";
	#unless (
	system ("mv guest/$dirs[$count]/ $dest"
	)
	;
	#){
	#}
	$count++;
}

print "purging configuration settings \n ";
system ("rm -R  guest");

print "restoring guest home \n ";
system ("mkdir guest");
system ("cp -R default/* guest");


$count = 0;
while ($count ne @dirs){
	system ("mkdir guest/$dirs[$count]");
	$count++;
}

print "restoring guest account password and ownership details \n";

#system("usermod -p password guest");
system ("chown -R guest:guest guest");

print "done \n"