use strict;
use warnings;
use diagnostics;

package MAP;

use Exporter ();

our $VERSION     = 1.00;
our @ISA         = qw( Exporter );
our @EXPORT      = ();
our @EXPORT_OK   = qw( get_game_maps );

sub get_game_maps
{
        # Declare Variables
        my ($game) = @_;
        my $user = $ENV{'USER'};

        # Create Dir Path
        my $dir = "/home/$user/hlds_l/$game/maps/";

        # We're done if the dir does not exist.
        return unless -d $dir;

        opendir(my $maps_dh, $dir) || die("Cannot open directory");
        my @maps = readdir($maps_dh);
        closedir($maps_dh);

        # Take only maps and trim .bsp
        @maps = grep /\.bsp\z/, @maps;

        foreach my $map (@maps)
        {
                $map =~ s/\.bsp\z//;
        }

        return @maps;
}

1;
# end