#!/usr/bin/perl
use strict;
use warnings;
use Getopt::Long;

# alias update='emerge sync; emerge -fuND world >&/dev/null & emerge -puND world | genlop --pretend; emerge -autND world && etc-update && /home/jonix/yacleaner-0.3 -a -v all'

########### Initialisiere CLI-Optionen
Getopt::Long::Configure ("bundling");
my $help = '';
my $config = '';
my $verbose = '';


my $configdir = glob('~/.update/');
my $configfile = $configdir . 'update.conf';
my $syncfile = $configdir . 'lastsync';

if (!(opendir my $dir, $configdir)){
	mkdir $configdir or die "Error: Can not create directory: $!\n";
	print "creating new directory $configdir\n";
} else {
	print "using existing directory $configdir\n";
	closedir $dir;
}

open my $conf, "< $configfile" or die "Error: Can not open $configfile: $!\n";
print "$configfile opened successfully\n";

# read config

open my $snctime, "< $syncfile" or die "Error: Can not open: $syncfile: $!\n";
print "checking $syncfile for last sync...\n";
my $lastsync;
while (<$snctime>){
	$lastsync = int($_);
}
close $snctime;
	
my $ntime = time;
my $dtime = $ntime - $lastsync;

#  0    1    2     3     4    5     6     7
my($sec,$min,$hour,$mday,$mon,$year,$wday,$yday) = gmtime($dtime);
my $years = $year-70;

my $delta;

if ($years > 1){
	$delta .= ", $years years"
}
elsif ($years > 0) {
	$delta .= ", $years year"
}

if ($mon > 1){
	$delta .= ", $mon months"
}elsif ($mon > 0){
	$delta .= ", $mon month"
}
if ($yday > 1){
	$delta .= ", $yday days"
} elsif ($yday > 0){
	$delta .= ", $yday day"
}
if ($hour > 1){
	$delta .= ", $hour hours"
}elsif ($hour > 0){
	$delta .= ", $hour hour"
}
if ($min > 1){
	$delta .= ", $min minutes and"
}elsif ($min > 0){
	$delta .= ", $min minute and"
}
$delta .= " $sec seconds";

#getting rid of first comma and whitespace
$delta = substr($delta,1) if ($years+$mon+$yday+$hour+$min > 0);
$delta = substr($delta,1);

print "last sync:\n" . gmtime($lastsync) . "\n";
print "now:\n" . gmtime($ntime) . "\n";

my $cmd = 'emerge sync && gensync -a';
#my $cmd = 'emerge info';
my $wantsync = 0;
my $synclimit = 86400;	# 86400 sec = 1 day

if ($dtime < $synclimit){
	print "portage tree updated just $delta ago (according to Mr. Data), sync anyway?\n";
	vec (my $readin="", fileno(STDIN),1) = 1;
	# following line gives user a chance to type!
	$|=1;
	print "5 seconds to type [yes]\n";
	sleep 5;
	# see if there's any data waiting so far - waits for a whole line
	my $nfound = select ((my $r=$readin),undef,undef,0);
	unless (!($nfound)) {
		my $fromkb = <STDIN>;
		# case-insensitive check for y or yes
		if ($fromkb =~ m/^y(es|)$/oi){
			$wantsync = 1;
			print "OK, starting sync...\n";
		} elsif ($fromkb){
			chomp $fromkb;
			print "'$fromkb' not understood!\n";
		}
	}
} else {
	$wantsync = 1;
}

#if ($wantsync){
#	print "\$wantsync = $wantsync\n";
#}
#exit;

if ($wantsync){
	print "last sync was $delta ago, time to update the portage tree :)\n";
	system($cmd)==0 or die "Error: $? $!: could not '$cmd'";
	open $snctime, "> $syncfile" or die "Error: Can not open: $!\n";
	my $now_string = time;
	#my $now_string = time - 86400; # 86400 sec = 1 day, do this to sync always...
	#print "$now_string\n";
	print $snctime $now_string;
	close $snctime;
} else {
	print "continuing without sync...\n";
}
my $muster = 'x11-base/xorg-x11';
my $mergetime = `emerge -puND world | genlop --pretend`;
my $nvidia = '';
if ($mergetime =~ m/$muster/){
	print $mergetime;
	print "$muster found in update list, merging nvidia-kernel too...\n";
	$nvidia = '&& emerge nvidia-kernel';
} else {
	print $mergetime;
}
my $eupdatedb = '';

if ($wantsync){
	$eupdatedb = 'eupdatedb >&/dev/null; ';
}

unless (fork){
	print "forking silently into the background: $eupdatedb emerge -fuND world >\&/dev/null\n";
	exec($eupdatedb . 'emerge -fuND world >&/dev/null');
}

# interactive mode
$cmd = 'emerge -autND world ' . $nvidia . '&& etc-update && /home/jonix/yacleaner-0.3 -a -v all';

# automatic mode - update without questions
#$cmd = $eupdatedb . 'emerge -fuND world >&/dev/null; emerge -uND world ' . $nvidia . '&& etc-update && updatedb >&/dev/null; /home/jonix/yacleaner-0.3 -a -v all';

print "executing: $cmd\n";

if (!(system($cmd)==0)){
	print "Error: $? $!: could not '$cmd'\nTrying to resume...\n";
	$cmd = 'emerge --resume && etc-update && /home/jonix/yacleaner-0.3 -a -v all';
	print $cmd . "\n";
	if (!(system($cmd)==0)){
		print "Error: $? $!: could not '$cmd'\nTrying to resume, skipping failed package...";
		$cmd = 'emerge --resume --skipfirst && etc-update && /home/jonix/yacleaner-0.3 -a -v all';
		print $cmd . "\n";
		system($cmd)==0 or die "Error: $? $!: could not '$cmd'\nCould not merge, it is up to you now to seek for help...\n";
	}
}
unless (fork){
	print "executing: updatedb >&/dev/null\n";
	exec('updatedb >&/dev/null');
}