#! /usr/local/perl
package Dir;
use strict;

Dir.pm:

sub get_list
{

my $self = ();
shift;
$self->{base} = "/usr/local/www/uploads/SS7";
$self->{URI} = shift;
$self->{path} = "";
$self->{title} = "";
$self->{leaf} = "false";
$self->{names} = ();
$self->{urls} = ();
bless($self);

$self->{title} = $self->{URI};

$self->{path} = $self->{base} . $self->{URI}  . "/";

opendir DH, $self->{path};

my @save_files;

while (my $line = readdir(DH))
{
  my $path = $self->{path} . $line;
  if ((-d $path) && ($line !~ /\.$/))
  {
    $self->{names}{$line} = $line;
    $self->{names}{$line} =~ tr/_/ /d;
    $self->{urls}{$line} = $line;
  }
  else
  {
    push (@save_files, $line);
  }

}

my $count = scalar (keys %{$self->{names}});

if ($count == 0)
{
  foreach my $line (@save_files)
  {
    next if (-d $line);
    $self->{names}{$line} = $line;
    $self->{names}{$line} =~ tr/_/ /d;
    $self->{names}{$line} =~ tr/.xls//d;
    $self->{urls}{$line} = $line;
  }
  $self->{leaf} = "true";
}

return($self);
}

1;