sub getLoginHistory()

in client_script/profile_reader.pl [132:142]

• 10 lines of code
• 3 McCabe index (conditional complexity)

sub getLoginHistory {
    my $rawHistory = `last | grep console | grep -v localhome |  head`;
    my @result;

    foreach(split(/\n/, $rawHistory)){
        if(/^([\w_]+)\s+([\w\d\.]+)\s+([^\(]+)\s*\(([\d+:]+)\)/) {
            push @result, { "hostname"=>$hostname, "username" => $1, "location" =>$2, login=>breakdownLongDate($3), duration=>breakdownTimespec($4)}
        }
    }
    return \@result;
}