#!/usr/bin/perl

use strict;
use warnings;
use Getopt::Std;

my $logdir = "/var/log/sudosh/";
my %h = ();
my %o = ();
my $unknown = 0;

getopts('hd:vV', \%o);

sub listing ($) {
        my $ref = shift;
                opendir(DIR, $logdir) or die "can't opendir $logdir: $!";
                        while (defined(my $sudoshlogs = readdir(DIR))) {
                                next if $sudoshlogs =~ /^\.\.?$/; # Skip . and ..
                                next if $sudoshlogs =~ /^.*?\-.*?\-input\-\d+$/;
                                next if $sudoshlogs =~ /^.*?\-input\-\d+$/;
                                        if ($sudoshlogs =~ /^(.*?)\-(.*?)\-(script|time)\-(\d+)\-(\w+)$/)
                                                {
                                                        my $user = $1;
                                                        my $to = $2;
                                                        my $type = $3;
                                                        my $time = $4;
                                                        my $rand = $5;

                                                        $h{$time}{to} = $to;
                                                        $h{$time}{type} = $type;
                                                        $h{$time}{user} = $user;
                                                        $h{$time}{rand} = $rand;
                                                        push(@$ref, $user, $to, $rand, $time);
                                                }
                        }
                closedir(DIR);
return;
}

my @sudosh;
listing(\@sudosh);
#print $sudosh[0]."-";
#print $sudosh[1]."-";
#print $sudosh[2];

foreach my $output (@sudosh) {
        chomp $output;
        print $output."\n";
}