File Coverage

blib/lib/Astro/SkyX.pm

Criterion	Covered	Total	%
statement	15	112	13.3
branch	0	6	0.0
condition	0	6	0.0
subroutine	5	30	16.6
pod	0	25	0.0
total	20	179	11.1

package Astro::SkyX;

use 5.006001;
use strict;
use warnings;
require IO::Socket;
require Scalar::Util;
require Exporter;
require Astro::SkyX::Application;
require Astro::SkyX::ImageLink;
require Astro::SkyX::ImageLinkResults;
require Astro::SkyX::TheSkyXAction;
require Astro::SkyX::ccdsoftCamera;
require Astro::SkyX::ccdsoftCameraImage;
require Astro::SkyX::ccdsoftAutoguiderImage;
require Astro::SkyX::sky6DataWizard;
require Astro::SkyX::sky6DirectGuide;
require Astro::SkyX::sky6Dome;
require Astro::SkyX::sky6MyFOVs;
require Astro::SkyX::sky6ObjectInformation;
require Astro::SkyX::sky6RASCOMTele;
require Astro::SkyX::sky6RASCOMTheSky;
require Astro::SkyX::sky6Raven;
require Astro::SkyX::sky6StarChart;
require Astro::SkyX::sky6TheSky;
require Astro::SkyX::sky6Utils;
require Astro::SkyX::sky6Web;
use constant IGNORECTLC => 0;
use vars qw( $SkyXConnection $error );

our @ISA = qw( Exporter );

our %EXPORT_TAGS = ( 'all' => [ qw(
new connect Send Get
) ] );

our @EXPORT_OK = ( @{ $EXPORT_TAGS{'all'} } );

our @EXPORT = qw(
);

our $VERSION = '0.07';

 my %attr_data =
     (
       _debug			=> [0,			'read/write'],
     );
 my $count = 0;
 my $select = '';
##---##

  sub new {
    my ($caller, %arg) = @_;
    my $caller_is_obj = ref($caller);
    my $class = $caller_is_obj || $caller;

    my $self = bless {
        _debug          => $arg{"DEBUG"},
        _SkyXConnection => $_[2],
	_connect	=> $_[3],
	_Send		=> $_[4],
	_Get		=> $_[5],
        _Application	=> $_[6],
        _ImageLink	=> $_[7],
        _ImageLinkResults	=> $_[8],
        _TheSkyXAction	=> $_[9],
        _sky6DataWizard	=> $_[10],
        _sky6DirectGuide	=> $_[11],
        _sky6Dome	=> $_[12],
        _sky6MyFOVs	=> $_[13],
        _sky6ObjectInformation	=> $_[14],
        _sky6RASCOMTele	=> $_[15],
        _sky6RASCOMTheSky	=> $_[16],
        _sky6Raven	=> $_[17],
        _sky6StarChart	=> $_[18],
        _sky6TheSky	=> $_[19],
        _sky6Utils	=> $_[20],
        _sky6Web	=> $_[21],
        _ccdsoftCamera  => $_[22],
        _ccdsoftCameraImage   => $_[23],
        _ccdsoftAutoguiderImage   => $_[24],
	}, $class;
    $self->{_Application} = Astro::SkyX::Application::new("Astro::SkyX::Application");
    $self->{_ImageLink} = Astro::SkyX::ImageLink::new("Astro::SkyX::ImageLink");
    $self->{_ImageLinkResults} = Astro::SkyX::ImageLinkResults::new("Astro::SkyX::ImageLinkResults");
    $self->{_TheSkyXAction} = Astro::SkyX::TheSkyXAction::new("Astro::SkyX::TheSkyXAction");
    $self->{_sky6DataWizard} = Astro::SkyX::sky6DataWizard::new("Astro::SkyX::sky6DataWizard");
    $self->{_sky6DirectGuide} = Astro::SkyX::sky6DirectGuide::new("Astro::SkyX::sky6DirectGuide");
    $self->{_sky6Dome} = Astro::SkyX::sky6Dome::new("Astro::SkyX::sky6Dome");
    $self->{_sky6MyFOVs} = Astro::SkyX::sky6MyFOVs::new("Astro::SkyX::sky6MyFOVs");
    $self->{_sky6ObjectInformation} = Astro::SkyX::sky6ObjectInformation::new("Astro::SkyX::sky6ObjectInformation");
    $self->{_sky6RASCOMTele} = Astro::SkyX::sky6RASCOMTele::new("Astro::SkyX::sky6RASCOMTele");
    $self->{_sky6RASCOMTheSky} = Astro::SkyX::sky6RASCOMTheSky::new("Astro::SkyX::sky6RASCOMTheSky");
    $self->{_sky6Raven} = Astro::SkyX::sky6Raven::new("Astro::SkyX::sky6Raven");
    $self->{_sky6StarChart} = Astro::SkyX::sky6StarChart::new("Astro::SkyX::sky6StarChart");
    $self->{_sky6TheSky} = Astro::SkyX::sky6TheSky::new("Astro::SkyX::sky6TheSky");
    $self->{_sky6Utils} = Astro::SkyX::sky6Utils::new("Astro::SkyX::sky6Utils");
    $self->{_sky6Web} = Astro::SkyX::sky6Web::new("Astro::SkyX::sky6Web");
    $self->{_ccdsoftCamera} = Astro::SkyX::ccdsoftCamera::new("Astro::SkyX::ccdsoftCamera");
    $self->{_ccdsoftCameraImage} = Astro::SkyX::ccdsoftCameraImage::new("Astro::SkyX::ccdsoftCameraImage");
    $self->{_ccdsoftAutoguiderImage} = Astro::SkyX::ccdsoftAutoguiderImage::new("Astro::SkyX::ccdsoftAutoguiderImage");
    return $self;
  }

  sub Application {
    my $self = shift @_;
    return $self->{_Application};
  }
  sub ImageLink {
    my $self = shift @_;
    return $self->{_ImageLink};
  }
  sub ImageLinkResults {
    my $self = shift @_;
    return $self->{_ImageLinkResults};
  }
  sub TheSkyXAction {
    my $self = shift @_;
    return $self->{_TheSkyXAction};
  }
  sub sky6DataWizard {
    my $self = shift @_;
    return $self->{_sky6DataWizard};
  }

  sub sky6DirectGuide {
    my $self = shift @_;
    return $self->{_sky6DirectGuide};
  }

  sub sky6Dome {
    my $self = shift @_;
    return $self->{_sky6Dome};
  }

  sub sky6MyFOVs {
    my $self = shift @_;
    return $self->{_sky6MyFOVs};
  }

  sub sky6ObjectInformation {
    my $self = shift @_;
    return $self->{_sky6ObjectInformation};
  }

  sub sky6RASCOMTele {
    my $self = shift @_;
    return $self->{_sky6RASCOMTele};
  }

  sub sky6RASCOMTheSky {
    my $self = shift @_;
    return $self->{_sky6RASCOMTheSky};
  }

  sub sky6Raven {
    my $self = shift @_;
    return $self->{_sky6Raven};
  }

  sub sky6StarChart {
    my $self = shift @_;
    return $self->{_sky6StarChart};
  }

  sub sky6TheSky {
    my $self = shift @_;
    return $self->{_sky6TheSky};
  }

  sub sky6Utils {
    my $self = shift @_;
    return $self->{_sky6Utils};
  }

  sub sky6Web {
    my $self = shift @_;
    return $self->{_sky6Web};
  }

  sub ccdsoftCamera {
    my $self = shift @_;
    return $self->{_ccdsoftCamera};
  }

  sub ccdsoftCameraImage {
    my $self = shift @_;
    return $self->{_ccdsoftCameraImage};
  }

  sub ccdsoftAutoguiderImage {
    my $self = shift @_;
    return $self->{_ccdsoftAutoguiderImage};
  }

  sub connect {
    my ($obj,$destinationIP,$destinationPort) = @_;
    $SkyXConnection = IO::Socket::INET->new (
                                PeerAddr => $destinationIP,
                                PeerPort => $destinationPort,
                                Blocking => 0,
				autoflush => 1,
                                Proto => 'tcp',
                                Timeout => "300",
                        );
    if ( ! Scalar::Util::openhandle($SkyXConnection ) ){
      die "Unable to connect to The Sky X\n";
    }
    $SkyXConnection->autoflush(1);

    select $SkyXConnection;
    $| = 1;
    $select = IO::Select->new();
    $select->add($SkyXConnection);
    select STDOUT;
    return 0 unless $SkyXConnection;
    return $SkyXConnection;
  }

  sub Send {
   my $signal = $SIG{INT};
   if ( IGNORECTLC ){
     $SIG{INT} = 'IGNORE';
   }
   my ($self,$sendtext) = @_;
   $sendtext =~ s/\\/\\\\/g;
   print $SkyXConnection "$sendtext\r\n";
#   print "Sending...\n$sendtext\n";
   $SkyXConnection->flush;
   $SIG{INT} = $signal;
  }

  sub Get {
    my $signal = $SIG{INT};
    if ( IGNORECTLC ){
      $SIG{INT} = 'IGNORE';
    }
    my ($self) = @_;
    my $output = undef;
    $error = "";
    while ( ! defined($output) or ($output !~ /[|].*Error = .*\./) ) {
      while ( my @read_from = $select->can_read(0) ) {
          my $data = '';
          $read_from[0]->recv($data,1024);
          $output .= $data if $data;
      }
    }
    ($output,$error) = split(/\|([^|]+)$/,$output);
    $SIG{INT} = $signal;
    return ($output);
  }

  sub getError {
    return ($error);
  }

  sub Wait {
    my ($waitsecs) = @_;
    select(undef,undef,undef,$waitsecs);
  }




1;

__END__