#!/usr/bin/perl

system("cp -f upt.txt upt0.txt");
system("uptime >upt.txt");
system("date >date.txt");
open(UP,"upt.txt");
while (){
	chomp;
	s/.* up //;
	s/average:/average/;
	if (grep(/day/,$_) and (!grep(/\:/,$_))){
		print "format 1....\n";
		print "$_";
		s/.* up //;
		s/s//g;
		s/,.*//;
		s/:/ /;
		print "$_";
		@mn=split(/ /,$_);
		#$menit=($mn[0]*$mn[1]) + ($mn[2]*60) + $mn[3];
		$menit=($mn[0]*1440) + $mn[2];
		}
	if (grep(/day/,$_) and (grep(/:/,$_))){
		print "format 2.....\n";
		print "$_";
		#s/.* up //;
		s/s//g;
		s/day,/1440/;
		s/,.*//;
		s/:/ /;
		@mn=split(/ /,$_);
		$menit=($mn[0]*$mn[1]) + ($mn[2]*60) + $mn[3];
		}
	if (!grep(/day/,$_) and (grep(/:/,$_))){
		print "format 3.....\n";
		print "$_";
		s/,.*//;
		s/ //;
		s/:/ /;
		@mn=split(/ /,$_);
		$menit=($mn[0]*60) + $mn[1];
		}
	if (!grep(/day/,$_) and (grep(/min/,$_))){
		print "format 4.....\n";
		print "$_";
		s/,.*//;
		#s/ //;
		@mn=split(/ /,$_);
		$menit=$mn[0];
		}
	}
#######################################
open(O,"menit0.txt");
while(){
	chomp;
	$menit0=$_;
	}
#######################################
print "\nmenit0 = $menit0\n";
print "menit  = $menit\n";
system("echo '$menit' >menit0.txt");
#######################################
if ($menit < $menit0){
	open(HS,">> hasil.txt");
	open(DATE,"date.txt");
	while(){
		chomp;
		print HS "$_ >>>";
		}
	open(OLD,"upt0.txt");
	while(){
		s/days,/days/;
		s/,.*//;
		print HS "$_";
		}
	}