#!/usr/bin/perl -w

use English;
my $sec;    my $mday;   my $wday;
my $min;    my $mon;    my $yday;
my $hour;   my $year;   my $isdst;

my $time=time();
($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst) =localtime($time);

$year += 1900;
$mon  += 1;

if (length($mon)  == 1) {$mon = "0$mon";}
if (length($mday) == 1) {$mday = "0$mday";}
if (length($hour) == 1) {$hour = "0$hour";}
if (length($min)  == 1) {$min = "0$min";}
if (length($sec)  == 1) {$sec = "0$sec";}
$year=2016;#make fake time for SAS;

my $time_cmd="sudo -S <<<PASSWORD_HERE date $mon$mday$hour$min$year";
print "$time_cmd\n";
system($time_cmd);

#my $sas_cmd="sasbin -config '/home/user/sasproject/sasv9.cfg'  -work '/home/user/sas_temp'";
my $sas_cmd="/usr/local/SASHome/SASFoundation/9.3/bin/sas_en -RLANG -config '/home/osboxes/sasproject/sasv9.cfg'  -work '/home/osboxes/sas_temp'";
print "$sas_cmd\n";
system($sas_cmd);
#sleep(5);

$time=time();
($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst) =localtime($time);
$mon  += 1;
if (length($mon)  == 1) {$mon = "0$mon";}
if (length($mday) == 1) {$mday = "0$mday";}
if (length($hour) == 1) {$hour = "0$hour";}
if (length($min)  == 1) {$min = "0$min";}
if (length($sec)  == 1) {$sec = "0$sec";}
#$year += 1900;
$year=2017;
#set back the system time;
system("sudo -S <<<PASSWORD_HERE date $mon$mday$hour$min$year\n");