#!/usr/bin/perl
#test converting tracker script to perl

#get username
print "Enter username:\n";
$user = <STDIN>;
#just for error checking purposes:
print "$user \n";

#not going with a user-defined interval any more.
#get interval
#print "Enter interval in seconds:\n";
#$time = <STDIN>;
#just checking:
#print "$time \n";

#get employee's username
$uid = getlogin;


if ( ! -e "/usr/home/$user/.history" ) {
  open FILE, "/usr/home/staff/$uid/$user.hist";
  print FILE ".history file does not exist.";
}


#attempted while loop
#while (true) {


#print "Enter 

#stuff to print the date below.
#open(DATE, "date|"); 
#$theDate = `date`; 
#close(DATE);
#print $theDate;