view release on metacpan or  search on metacpan

SkyX_Test.pl  view on Meta::CPAN

#
$| = 1;
my $movetests = 0;
my $answer = '';
my $slewtarget = '';
print "\n\nWARNING: Executing module fuctions that move the telescope\n";
print "         can result in damage to your telescope, mount, and accessories.\n";
print "         Make sure your telescope is clear of obstructions, you pick\n";
print "         a safe slew target and your observatory roof is open!\n";
print "\n\n To execute move telescope functions you must type YES at the\n";
print "prompt: ";
chomp ($answer = <>);
if ( $answer eq 'YES' ) {
  $movetests = 1;
}
print "\n\n  Enter a safe target (slew and info tests): ";
chomp ($slewtarget = <>);
if ( !$slewtarget ){
  print "\n Exiting. No target selected\n";
  exit;
}