#!/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 @logItems;
	my @logItem;
        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;

							$logItem = (@$ref, $user, $to, $rand, $time);
                                                        push(@logItems, \@logItem);
                                                }
                        }
                closedir(DIR);
return;
}

foreach (@logItems) {

	my $user = $_[1];
	my $to = $_[2];
	my $rand = $_[3];
	my $time = $_[4];

        generate SQL query here....

}