package TEST;
@ISA = qw(Exporter);
@EXPORT  = qw( remote_exported_sub );

use Data::Dumper;
use Carp;
use strict;

use vgapas;

# Initilize some objects
my $local_dbq = vgapas::GenericDB->new();
unless (ref($local_dbq)) {croak "db handle not ref: $local_dbq\n";}

######################################################################
#
#       remote_exported_sub
#
######################################################################

sub remote_exported_sub {

  my $tag               = shift;

  # Get Player Info
  my $sql = qq/SELECT positions.number,positions.handle,
        player_pref.primary_email,player_pref.secondary_email,player_pref.icq,
        player.email,player.altemail,player.icq
        FROM positions
        LEFT JOIN player_pref ON positions.number = player_pref.number and positions.tag = player_pref.tag
        LEFT JOIN player ON positions.handle = player.handle
        WHERE positions.tag = '$tag' AND status != 'D'/;
  foreach my $row (@{$local_dbq->fetchall($sql)}) {
    # do stuph with @row
  }

}

1

__END__