UNIX for Dummies Questions & Answers

#!/usr/bin/perl                                         
# generate user list with date last logged.
system("lsuser -a time_last_login ALL | sed 's/\ time_last_login=/:/g' > /lsf1/hurdata/userlogins");
# Open input file generated from above line
open (lastlog,"</lsf1/hurdata/userlogins") or die ("Cannot Open lastlog file");
# Open output file that will contain the report of the user and last date and time logged in
open (lastuser,">/lsf1/hurdata/login_date_time.txt") or die ("Cannot open lastlogin.txt file");
while (<lastlog>) {
# Split the two values on one line to separate variables
  ($logid,$lastdate) = split ':', $_;
# If is not empty then convert to readable date and print login, date and time
  if ($lastdate!=" ") {
     ($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst) = localtime($lastdate);
     $year=$year+1900;
     $mon=$mon+1;
     if ($mon<10) {$mon="0".$mon;}
     if ($mday<10) {$mday="0".$mday;}
     if ($yday<100) {$yday="0".$yday;}
     if ($sec<10) {$sec="0".$sec;}
     if ($min<10) {$min="0".$min;}
     if ($hour<10) {$hour="0".$hour;} 
     $logdate=$mon.$mday.$year;
     print lastuser "$logid $logdate $hour:$min:$sec\n";
    }
# If date is empty then print login and message
  else {
        chop $logid;  # get rid of line feed
        print lastuser "$logid Never logged in\n";
       }
}
close (lastlog) ;
close (lastuser) ;